Table showing occurences of "j"

Symbol	Description	Uses
j	loop indices	40007

File	Line number	Procedure	Code
./pkg/exch2/exch2_check_depths.F	100	EXCH2_CHECK_DEPTHS	IF ( tmpFld(i,j).GT.0. ) errE = errE + 1
./pkg/exch2/exch2_check_depths.F	105	EXCH2_CHECK_DEPTHS	DO j=1,sNy
./pkg/exch2/exch2_check_depths.F	106	EXCH2_CHECK_DEPTHS	IF ( tmpFld(i,j).GT.0. ) errW = errW + 1
./pkg/exch2/exch2_check_depths.F	49	EXCH2_CHECK_DEPTHS	INTEGER i, j, n
./pkg/exch2/exch2_check_depths.F	64	EXCH2_CHECK_DEPTHS	DO j=1,sNy
./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	68	EXCH2_CHECK_DEPTHS	j = sNy+1
./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	77	EXCH2_CHECK_DEPTHS	DO j=exch2_jLo(n,tId),exch2_jHi(n,tId)
./pkg/exch2/exch2_check_depths.F	79	EXCH2_CHECK_DEPTHS	tmpFld(i,j) = 0.
./pkg/exch2/exch2_check_depths.F	86	EXCH2_CHECK_DEPTHS	j = sNy+1
./pkg/exch2/exch2_check_depths.F	88	EXCH2_CHECK_DEPTHS	IF ( tmpFld(i,j).GT.0. ) errN = errN + 1
./pkg/exch2/exch2_check_depths.F	92	EXCH2_CHECK_DEPTHS	j = 0
./pkg/exch2/exch2_check_depths.F	94	EXCH2_CHECK_DEPTHS	IF ( tmpFld(i,j).GT.0. ) errS = errS + 1
./pkg/exch2/exch2_check_depths.F	99	EXCH2_CHECK_DEPTHS	DO j=1,sNy
./pkg/exch2/w2_cumulsum_z_tile.F	178	W2_CUMULSUM_Z_TILE_RL	DO j=1,W2_maxNbFacets
./pkg/exch2/w2_cumulsum_z_tile.F	179	W2_CUMULSUM_Z_TILE_RL	facetXYSum(1,j) = 0
./pkg/exch2/w2_cumulsum_z_tile.F	180	W2_CUMULSUM_Z_TILE_RL	facetXYSum(2,j) = 0
./pkg/exch2/w2_cumulsum_z_tile.F	181	W2_CUMULSUM_Z_TILE_RL	facet_CSum(j) = 0
./pkg/exch2/w2_cumulsum_z_tile.F	185	W2_CUMULSUM_Z_TILE_RL	DO j=1,nFacets
./pkg/exch2/w2_cumulsum_z_tile.F	186	W2_CUMULSUM_Z_TILE_RL	fNx = facet_dims(2*j-1)
./pkg/exch2/w2_cumulsum_z_tile.F	187	W2_CUMULSUM_Z_TILE_RL	fNy = facet_dims( 2*j )
./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	197	W2_CUMULSUM_Z_TILE_RL	tS = facet_owns(1,j) - 1 + (bj-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	207	W2_CUMULSUM_Z_TILE_RL	facetXYSum(1,j) = facetXYSum(1,j) + globalBuf(1,tN)
./pkg/exch2/w2_cumulsum_z_tile.F	210	W2_CUMULSUM_Z_TILE_RL	tN = facet_owns(1,j) + (bj-1)*nbTx
./pkg/exch2/w2_cumulsum_z_tile.F	211	W2_CUMULSUM_Z_TILE_RL	facetXYSum(2,j) = facetXYSum(2,j) + globalBuf(2,tN)
./pkg/exch2/w2_cumulsum_z_tile.F	218	W2_CUMULSUM_Z_TILE_RL	DO j=1,nFacets
./pkg/exch2/w2_cumulsum_z_tile.F	220	W2_CUMULSUM_Z_TILE_RL	facet_CSum(j) = facet_CSum(j)
./pkg/exch2/w2_cumulsum_z_tile.F	221	W2_CUMULSUM_Z_TILE_RL	& + W2_cumSum_facet(1,i,j)*facetXYSum(1,i)
./pkg/exch2/w2_cumulsum_z_tile.F	222	W2_CUMULSUM_Z_TILE_RL	& + W2_cumSum_facet(2,i,j)*facetXYSum(2,i)
./pkg/exch2/w2_cumulsum_z_tile.F	228	W2_CUMULSUM_Z_TILE_RL	j = exch2_myFace(tN)
./pkg/exch2/w2_cumulsum_z_tile.F	229	W2_CUMULSUM_Z_TILE_RL	IF ( j.NE.0 ) THEN
./pkg/exch2/w2_cumulsum_z_tile.F	230	W2_CUMULSUM_Z_TILE_RL	globalBuf(3,tN) = globalBuf(3,tN) + facet_CSum(j)
./pkg/exch2/w2_cumulsum_z_tile.F	69	W2_CUMULSUM_Z_TILE_RL	INTEGER i, j
./pkg/exch2/w2_e2setup.F	43	W2_E2SETUP	INTEGER i, j, k
./pkg/exch2/w2_e2setup.F	51	W2_E2SETUP	DO j=1,W2_maxNbFacets
./pkg/exch2/w2_e2setup.F	52	W2_E2SETUP	facet_owns(1,j) = 0
./pkg/exch2/w2_e2setup.F	53	W2_E2SETUP	facet_owns(2,j) = 0
./pkg/exch2/w2_e2setup.F	56	W2_E2SETUP	facet_pij(k,i,j) = 0
./pkg/exch2/w2_e2setup.F	58	W2_E2SETUP	facet_oi(i,j) = 0
./pkg/exch2/w2_e2setup.F	59	W2_E2SETUP	facet_oj(i,j) = 0
./pkg/exch2/w2_e2setup.F	68	W2_E2SETUP	DO j=1,nBlankTiles
./pkg/exch2/w2_e2setup.F	69	W2_E2SETUP	IF ( blankList(i).EQ.blankList(j) ) THEN
./pkg/exch2/w2_e2setup.F	73	W2_E2SETUP	& ' appears several times in blankList (',j,i,')'
./pkg/exch2/w2_print_e2setup.F	130	W2_PRINT_E2SETUP	j = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F	140	W2_PRINT_E2SETUP	& ' ', edge(i), '.Edge Facet', j, ' <-- ',
./pkg/exch2/w2_print_e2setup.F	42	W2_PRINT_E2SETUP	INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty
./pkg/exch2/w2_print_e2setup.F	73	W2_PRINT_E2SETUP	j = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F	83	W2_PRINT_E2SETUP	& ' ', edge(i), '.Edge Facet', j, ' <-- ',
./pkg/exch2/w2_readparms.F	145	W2_READPARMS	DO j=1,2*W2_maxNbFacets
./pkg/exch2/w2_readparms.F	147	W2_READPARMS	facet_dims(j) = dimsFacets(j)
./pkg/exch2/w2_readparms.F	149	W2_READPARMS	DO j=1,W2_maxNbFacets
./pkg/exch2/w2_readparms.F	151	W2_READPARMS	facet_link(i,j) = facetEdgeLink(i,j)
./pkg/exch2/w2_readparms.F	157	W2_READPARMS	DO j=W2_maxNbFacets+1,namList_NbFacets
./pkg/exch2/w2_readparms.F	160	W2_READPARMS	IF ( facetEdgeLink(i,j).NE.0. ) errFlag = .TRUE.
./pkg/exch2/w2_readparms.F	177	W2_READPARMS	DO j=2W2_maxNbFacets+1,2namList_NbFacets
./pkg/exch2/w2_readparms.F	178	W2_READPARMS	IF ( dimsFacets(j).NE.0 ) errCnt = errCnt + 1
./pkg/exch2/w2_readparms.F	37	W2_READPARMS	INTEGER i, j, iUnit, stdUnit, errCnt
./pkg/exch2/w2_readparms.F	79	W2_READPARMS	DO j=1,W2_maxNbFacets*2
./pkg/exch2/w2_readparms.F	80	W2_READPARMS	dimsFacets(2*j-1) = 0
./pkg/exch2/w2_readparms.F	81	W2_READPARMS	dimsFacets( 2*j ) = 0
./pkg/exch2/w2_readparms.F	83	W2_READPARMS	facetEdgeLink(i,j) = 0.
./pkg/exch2/w2_readparms.F	90	W2_READPARMS	DO j=1,W2_maxNbFacets
./pkg/exch2/w2_readparms.F	91	W2_READPARMS	facet_dims(2*j-1) = 0
./pkg/exch2/w2_readparms.F	92	W2_READPARMS	facet_dims( 2*j ) = 0
./pkg/exch2/w2_readparms.F	94	W2_READPARMS	facet_link(i,j) = 0.
./pkg/exch2/w2_set_cs6_facets.F	142	W2_SET_CS6_FACETS	DO j=2,nFacets
./pkg/exch2/w2_set_cs6_facets.F	145	W2_SET_CS6_FACETS	jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_cs6_facets.F	146	W2_SET_CS6_FACETS	ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_cs6_facets.F	150	W2_SET_CS6_FACETS	lo = 2*(j-1) + (i+1)/2
./pkg/exch2/w2_set_cs6_facets.F	158	W2_SET_CS6_FACETS	& ' facet',j,'.',edge(i), ' set dim', lo, ' = dim', ll,
./pkg/exch2/w2_set_cs6_facets.F	174	W2_SET_CS6_FACETS	DO j=1,nFacets
./pkg/exch2/w2_set_cs6_facets.F	175	W2_SET_CS6_FACETS	IF ( facet_dims(2j-1)facet_dims(2*j).EQ.0 ) THEN
./pkg/exch2/w2_set_cs6_facets.F	177	W2_SET_CS6_FACETS	& ' facets #', j, ' , x-size=', facet_dims(2*j-1),
./pkg/exch2/w2_set_cs6_facets.F	178	W2_SET_CS6_FACETS	& ' , y-size=', facet_dims(2*j)
./pkg/exch2/w2_set_cs6_facets.F	40	W2_SET_CS6_FACETS	INTEGER i, j, ii, jj, lo, ll
./pkg/exch2/w2_set_cs6_facets.F	62	W2_SET_CS6_FACETS	DO j=1,nFacets
./pkg/exch2/w2_set_cs6_facets.F	63	W2_SET_CS6_FACETS	IF ( MOD(j,2).EQ.1 ) THEN
./pkg/exch2/w2_set_cs6_facets.F	64	W2_SET_CS6_FACETS	jj = j+2
./pkg/exch2/w2_set_cs6_facets.F	65	W2_SET_CS6_FACETS	facet_link(1,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	66	W2_SET_CS6_FACETS	jj = j-1
./pkg/exch2/w2_set_cs6_facets.F	67	W2_SET_CS6_FACETS	facet_link(2,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	68	W2_SET_CS6_FACETS	jj = j+1
./pkg/exch2/w2_set_cs6_facets.F	69	W2_SET_CS6_FACETS	facet_link(3,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	70	W2_SET_CS6_FACETS	jj = j-2
./pkg/exch2/w2_set_cs6_facets.F	71	W2_SET_CS6_FACETS	facet_link(4,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	73	W2_SET_CS6_FACETS	jj = j+1
./pkg/exch2/w2_set_cs6_facets.F	74	W2_SET_CS6_FACETS	facet_link(1,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	75	W2_SET_CS6_FACETS	jj = j-2
./pkg/exch2/w2_set_cs6_facets.F	76	W2_SET_CS6_FACETS	facet_link(2,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	77	W2_SET_CS6_FACETS	jj = j+2
./pkg/exch2/w2_set_cs6_facets.F	78	W2_SET_CS6_FACETS	facet_link(3,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	79	W2_SET_CS6_FACETS	jj = j-1
./pkg/exch2/w2_set_cs6_facets.F	80	W2_SET_CS6_FACETS	facet_link(4,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F	88	W2_SET_CS6_FACETS	DO j=4,W2_maxNbFacets*2
./pkg/exch2/w2_set_cs6_facets.F	89	W2_SET_CS6_FACETS	IF ( facet_dims(j).NE.0 ) THEN
./pkg/exch2/w2_set_f2f_index.F	102	W2_SET_F2F_INDEX	DO j=1,nFacets
./pkg/exch2/w2_set_f2f_index.F	105	W2_SET_F2F_INDEX	lo = 2*(j-1) + (i+1)/2
./pkg/exch2/w2_set_f2f_index.F	108	W2_SET_F2F_INDEX	jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F	109	W2_SET_F2F_INDEX	ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F	115	W2_SET_F2F_INDEX	& edge(i), '.Edge facet #', j, ' (=',lo,')'
./pkg/exch2/w2_set_f2f_index.F	130	W2_SET_F2F_INDEX	facet_pij(1,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F	131	W2_SET_F2F_INDEX	facet_pij(2,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	132	W2_SET_F2F_INDEX	facet_pij(3,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	133	W2_SET_F2F_INDEX	facet_pij(4,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F	137	W2_SET_F2F_INDEX	facet_oi(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	138	W2_SET_F2F_INDEX	facet_oj(i,j) = +facet_dims(2*j)
./pkg/exch2/w2_set_f2f_index.F	141	W2_SET_F2F_INDEX	facet_oi(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	142	W2_SET_F2F_INDEX	facet_oj(i,j) = -facet_dims(2*jj)
./pkg/exch2/w2_set_f2f_index.F	145	W2_SET_F2F_INDEX	facet_oi(i,j) = +facet_dims(2*j-1)
./pkg/exch2/w2_set_f2f_index.F	146	W2_SET_F2F_INDEX	facet_oj(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	149	W2_SET_F2F_INDEX	facet_oi(i,j) = -facet_dims(2*jj-1)
./pkg/exch2/w2_set_f2f_index.F	150	W2_SET_F2F_INDEX	facet_oj(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	155	W2_SET_F2F_INDEX	facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	156	W2_SET_F2F_INDEX	facet_pij(2,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F	157	W2_SET_F2F_INDEX	facet_pij(3,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F	158	W2_SET_F2F_INDEX	facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	159	W2_SET_F2F_INDEX	facet_oi(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F	160	W2_SET_F2F_INDEX	facet_oj(i,j) = +facet_dims(2*j)
./pkg/exch2/w2_set_f2f_index.F	164	W2_SET_F2F_INDEX	facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	165	W2_SET_F2F_INDEX	facet_pij(2,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F	166	W2_SET_F2F_INDEX	facet_pij(3,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F	167	W2_SET_F2F_INDEX	facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	168	W2_SET_F2F_INDEX	facet_oi(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F	169	W2_SET_F2F_INDEX	facet_oj(i,j) = -facet_dims(2*jj-1)
./pkg/exch2/w2_set_f2f_index.F	173	W2_SET_F2F_INDEX	facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	174	W2_SET_F2F_INDEX	facet_pij(2,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F	175	W2_SET_F2F_INDEX	facet_pij(3,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F	176	W2_SET_F2F_INDEX	facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	177	W2_SET_F2F_INDEX	facet_oi(i,j) = +facet_dims(2*j-1)
./pkg/exch2/w2_set_f2f_index.F	178	W2_SET_F2F_INDEX	facet_oj(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F	182	W2_SET_F2F_INDEX	facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	183	W2_SET_F2F_INDEX	facet_pij(2,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F	184	W2_SET_F2F_INDEX	facet_pij(3,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F	185	W2_SET_F2F_INDEX	facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F	186	W2_SET_F2F_INDEX	facet_oi(i,j) = -facet_dims(2*jj)
./pkg/exch2/w2_set_f2f_index.F	187	W2_SET_F2F_INDEX	facet_oj(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F	190	W2_SET_F2F_INDEX	& edge(i), '.Edge (facet#', j, ' ) to: ',
./pkg/exch2/w2_set_f2f_index.F	200	W2_SET_F2F_INDEX	& ' ', edge(i), '.Edge Facet', j, ' <-- ',
./pkg/exch2/w2_set_f2f_index.F	202	W2_SET_F2F_INDEX	& ' : pij=', (facet_pij(k,i,j),k=1,4),
./pkg/exch2/w2_set_f2f_index.F	203	W2_SET_F2F_INDEX	& ' ; oi,oj=', facet_oi(i,j), facet_oj(i,j)
./pkg/exch2/w2_set_f2f_index.F	219	W2_SET_F2F_INDEX	DO j=1,nFacets
./pkg/exch2/w2_set_f2f_index.F	222	W2_SET_F2F_INDEX	jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F	223	W2_SET_F2F_INDEX	ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F	232	W2_SET_F2F_INDEX	chk1 = facet_pij(1,i,j)*facet_pij(1,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	233	W2_SET_F2F_INDEX	& + facet_pij(2,i,j)*facet_pij(3,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	234	W2_SET_F2F_INDEX	chk2 = facet_pij(1,i,j)*facet_pij(2,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	235	W2_SET_F2F_INDEX	& + facet_pij(2,i,j)*facet_pij(4,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	236	W2_SET_F2F_INDEX	chk3 = facet_pij(3,i,j)*facet_pij(1,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	237	W2_SET_F2F_INDEX	& + facet_pij(4,i,j)*facet_pij(3,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	238	W2_SET_F2F_INDEX	chk4 = facet_pij(3,i,j)*facet_pij(2,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	239	W2_SET_F2F_INDEX	& + facet_pij(4,i,j)*facet_pij(4,ii,jj)
./pkg/exch2/w2_set_f2f_index.F	241	W2_SET_F2F_INDEX	chk5 = facet_pij(1,i,j)*facet_oi(ii,jj)
./pkg/exch2/w2_set_f2f_index.F	242	W2_SET_F2F_INDEX	& + facet_pij(2,i,j)*facet_oj(ii,jj)
./pkg/exch2/w2_set_f2f_index.F	243	W2_SET_F2F_INDEX	& + facet_oi(i,j)
./pkg/exch2/w2_set_f2f_index.F	244	W2_SET_F2F_INDEX	chk6 = facet_pij(3,i,j)*facet_oi(ii,jj)
./pkg/exch2/w2_set_f2f_index.F	245	W2_SET_F2F_INDEX	& + facet_pij(4,i,j)*facet_oj(ii,jj)
./pkg/exch2/w2_set_f2f_index.F	246	W2_SET_F2F_INDEX	& + facet_oj(i,j)
./pkg/exch2/w2_set_f2f_index.F	250	W2_SET_F2F_INDEX	& edge(i), '.Edge (facet#', j, ' ) to: ',
./pkg/exch2/w2_set_f2f_index.F	37	W2_SET_F2F_INDEX	INTEGER i, j, ii, jj, i1, j1, k, lo, ll
./pkg/exch2/w2_set_f2f_index.F	52	W2_SET_F2F_INDEX	DO j=1,nFacets
./pkg/exch2/w2_set_f2f_index.F	55	W2_SET_F2F_INDEX	jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F	56	W2_SET_F2F_INDEX	ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F	57	W2_SET_F2F_INDEX	IF ( facet_link(i,j).EQ. 0. ) THEN
./pkg/exch2/w2_set_f2f_index.F	60	W2_SET_F2F_INDEX	& j, ' disconnected (facet_link=',facet_link(i,j),')'
./pkg/exch2/w2_set_f2f_index.F	66	W2_SET_F2F_INDEX	& j, ' : bad connection (facet_link=',facet_link(i,j),')'
./pkg/exch2/w2_set_f2f_index.F	73	W2_SET_F2F_INDEX	IF ( j1.NE.j .OR. i1.NE.i ) THEN
./pkg/exch2/w2_set_f2f_index.F	75	W2_SET_F2F_INDEX	& edge(i), '.Edge facet #', j,' connect to: ',
./pkg/exch2/w2_set_f2f_index.F	76	W2_SET_F2F_INDEX	& edge(ii),'.Edge facet #',jj,' (',facet_link(i,j),' )'
./pkg/exch2/w2_set_gen_facets.F	100	W2_SET_GEN_FACETS	j = (jj+1)/2
./pkg/exch2/w2_set_gen_facets.F	102	W2_SET_GEN_FACETS	& ' of facet', j, ' =', facet_dims(jj), ' : invalid (< 0)'
./pkg/exch2/w2_set_gen_facets.F	115	W2_SET_GEN_FACETS	DO j=nFacets+1,W2_maxNbFacets
./pkg/exch2/w2_set_gen_facets.F	117	W2_SET_GEN_FACETS	IF ( facet_link(i,j).NE.0 ) THEN
./pkg/exch2/w2_set_gen_facets.F	120	W2_SET_GEN_FACETS	& 'Link for ',edge(i), '.Edge of facet #',j,
./pkg/exch2/w2_set_gen_facets.F	121	W2_SET_GEN_FACETS	& ' (facetEdgeLink=',facet_link(i,j),')'
./pkg/exch2/w2_set_gen_facets.F	38	W2_SET_GEN_FACETS	INTEGER i,j,jj,fNx,fNy
./pkg/exch2/w2_set_gen_facets.F	52	W2_SET_GEN_FACETS	DO j=1,W2_maxNbFacets
./pkg/exch2/w2_set_gen_facets.F	53	W2_SET_GEN_FACETS	fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_gen_facets.F	54	W2_SET_GEN_FACETS	fNy = facet_dims( 2*j )
./pkg/exch2/w2_set_gen_facets.F	57	W2_SET_GEN_FACETS	nFacets = j
./pkg/exch2/w2_set_gen_facets.F	61	W2_SET_GEN_FACETS	& 'dimsFacets: Expect pair of >0 dims : facet',j,
./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)
./pkg/exch2/w2_set_map_cumsum.F	107	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	108	W2_SET_MAP_CUMSUM	IF ( fIsSet(j) ) THEN
./pkg/exch2/w2_set_map_cumsum.F	111	W2_SET_MAP_CUMSUM	jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_map_cumsum.F	112	W2_SET_MAP_CUMSUM	ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_map_cumsum.F	118	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	119	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	121	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,j,jj) = W2_cumSum_facet(2,j,jj) + 1
./pkg/exch2/w2_set_map_cumsum.F	125	W2_SET_MAP_CUMSUM	& ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F	131	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	132	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	134	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,j,jj) = W2_cumSum_facet(1,j,jj) + 1
./pkg/exch2/w2_set_map_cumsum.F	138	W2_SET_MAP_CUMSUM	& ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F	147	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	148	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	154	W2_SET_MAP_CUMSUM	& ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F	160	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	161	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	167	W2_SET_MAP_CUMSUM	& ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F	179	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	180	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	182	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,j, jj) = W2_cumSum_facet(2,j, jj) + 1
./pkg/exch2/w2_set_map_cumsum.F	187	W2_SET_MAP_CUMSUM	& ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F	194	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	195	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	197	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,j, jj) = W2_cumSum_facet(1,j, jj) + 1
./pkg/exch2/w2_set_map_cumsum.F	202	W2_SET_MAP_CUMSUM	& ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F	234	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	235	W2_SET_MAP_CUMSUM	WRITE(W2_oUnit,'(A,I3,A,30(2I3,A))') '- facet', j, ' :',
./pkg/exch2/w2_set_map_cumsum.F	236	W2_SET_MAP_CUMSUM	& (W2_cumSum_facet(1,i,j),W2_cumSum_facet(2,i,j),' ,',
./pkg/exch2/w2_set_map_cumsum.F	245	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	246	W2_SET_MAP_CUMSUM	fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_map_cumsum.F	247	W2_SET_MAP_CUMSUM	fNy = facet_dims( 2*j )
./pkg/exch2/w2_set_map_cumsum.F	251	W2_SET_MAP_CUMSUM	tN = facet_owns(1,j) - 1 + nbTx
./pkg/exch2/w2_set_map_cumsum.F	252	W2_SET_MAP_CUMSUM	IF ( W2_tMC2.EQ.0 .AND. MOD(j,2).EQ.0
./pkg/exch2/w2_set_map_cumsum.F	254	W2_SET_MAP_CUMSUM	tN = facet_owns(1,j) + (nbTy-1)*nbTx
./pkg/exch2/w2_set_map_cumsum.F	255	W2_SET_MAP_CUMSUM	IF ( W2_tMC1.EQ.0 .AND. MOD(j,2).EQ.1
./pkg/exch2/w2_set_map_cumsum.F	268	W2_SET_MAP_CUMSUM	DO j=1,W2_maxNbFacets
./pkg/exch2/w2_set_map_cumsum.F	270	W2_SET_MAP_CUMSUM	facetXYSum(1,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	271	W2_SET_MAP_CUMSUM	facetXYSum(2,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	272	W2_SET_MAP_CUMSUM	facet_CSum(1,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	273	W2_SET_MAP_CUMSUM	facet_CSum(2,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	278	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	279	W2_SET_MAP_CUMSUM	fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_map_cumsum.F	280	W2_SET_MAP_CUMSUM	fNy = facet_dims( 2*j )
./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	289	W2_SET_MAP_CUMSUM	DO k=facet_owns(1,j),tS
./pkg/exch2/w2_set_map_cumsum.F	294	W2_SET_MAP_CUMSUM	tN = facet_owns(1,j) - 1 + nbTx
./pkg/exch2/w2_set_map_cumsum.F	295	W2_SET_MAP_CUMSUM	facetXYSum(1,tN,j) = 1
./pkg/exch2/w2_set_map_cumsum.F	296	W2_SET_MAP_CUMSUM	DO k=facet_owns(1,j),tN-1
./pkg/exch2/w2_set_map_cumsum.F	297	W2_SET_MAP_CUMSUM	facetXYSum(1,k,j) = W2_cumSum_tiles(1,k,tN)
./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	310	W2_SET_MAP_CUMSUM	tN = facet_owns(1,j) + (nbTy-1)*nbTx
./pkg/exch2/w2_set_map_cumsum.F	311	W2_SET_MAP_CUMSUM	facetXYSum(2,tN,j) = 1
./pkg/exch2/w2_set_map_cumsum.F	312	W2_SET_MAP_CUMSUM	DO k=facet_owns(1,j),tN-1
./pkg/exch2/w2_set_map_cumsum.F	313	W2_SET_MAP_CUMSUM	facetXYSum(2,k,j) = W2_cumSum_tiles(2,k,tN)
./pkg/exch2/w2_set_map_cumsum.F	320	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	323	W2_SET_MAP_CUMSUM	facet_CSum(1,k,j) = facet_CSum(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	324	W2_SET_MAP_CUMSUM	& + W2_cumSum_facet(1,i,j)*facetXYSum(1,k,i)
./pkg/exch2/w2_set_map_cumsum.F	325	W2_SET_MAP_CUMSUM	facet_CSum(2,k,j) = facet_CSum(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	326	W2_SET_MAP_CUMSUM	& + W2_cumSum_facet(2,i,j)*facetXYSum(2,k,i)
./pkg/exch2/w2_set_map_cumsum.F	332	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	333	W2_SET_MAP_CUMSUM	DO tN=facet_owns(1,j),facet_owns(2,j)
./pkg/exch2/w2_set_map_cumsum.F	336	W2_SET_MAP_CUMSUM	& + facet_CSum(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F	338	W2_SET_MAP_CUMSUM	& + facet_CSum(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F	346	W2_SET_MAP_CUMSUM	DO j=1,exch2_nTiles
./pkg/exch2/w2_set_map_cumsum.F	350	W2_SET_MAP_CUMSUM	WRITE(W2_oUnit,'(3(I6,A),10(2I3,A))') j,' ,',is,' ->',ie,' :',
./pkg/exch2/w2_set_map_cumsum.F	351	W2_SET_MAP_CUMSUM	& (W2_cumSum_tiles(1,i,j),W2_cumSum_tiles(2,i,j),' ,',i=is,ie)
./pkg/exch2/w2_set_map_cumsum.F	354	W2_SET_MAP_CUMSUM	& (W2_cumSum_tiles(1,i,j),W2_cumSum_tiles(2,i,j),' ,',i=is,ie)
./pkg/exch2/w2_set_map_cumsum.F	42	W2_SET_MAP_CUMSUM	INTEGER tN, i, j, k, ii, jj
./pkg/exch2/w2_set_map_cumsum.F	61	W2_SET_MAP_CUMSUM	DO j=1,W2_maxNbFacets
./pkg/exch2/w2_set_map_cumsum.F	63	W2_SET_MAP_CUMSUM	W2_cumSum_facet(1,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	64	W2_SET_MAP_CUMSUM	W2_cumSum_facet(2,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	68	W2_SET_MAP_CUMSUM	DO j=1,W2_maxNbTiles
./pkg/exch2/w2_set_map_cumsum.F	70	W2_SET_MAP_CUMSUM	W2_cumSum_tiles(1,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	71	W2_SET_MAP_CUMSUM	W2_cumSum_tiles(2,i,j) = 0
./pkg/exch2/w2_set_map_cumsum.F	79	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	80	W2_SET_MAP_CUMSUM	fIsSet(j) = .FALSE.
./pkg/exch2/w2_set_map_cumsum.F	85	W2_SET_MAP_CUMSUM	DO j=1,nFacets
./pkg/exch2/w2_set_map_cumsum.F	86	W2_SET_MAP_CUMSUM	IF ( facet_dims(2j-1)facet_dims(2*j).GE.1 ) THEN
./pkg/exch2/w2_set_map_cumsum.F	89	W2_SET_MAP_CUMSUM	fIsSet(j) = .TRUE.
./pkg/exch2/w2_set_map_cumsum.F	92	W2_SET_MAP_CUMSUM	& ' CumSum starts @ SW.corner of facet #', j
./pkg/exch2/w2_set_map_tiles.F	110	W2_SET_MAP_TILES	DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F	112	W2_SET_MAP_TILES	IF ( facet_dims(2*j-1).GT.0 ) THEN
./pkg/exch2/w2_set_map_tiles.F	114	W2_SET_MAP_TILES	nnx(k) = facet_dims(2*j-1)/tNx
./pkg/exch2/w2_set_map_tiles.F	128	W2_SET_MAP_TILES	DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F	129	W2_SET_MAP_TILES	exch2_xStack_Nx = exch2_xStack_Nx + facet_dims(2*j-1)
./pkg/exch2/w2_set_map_tiles.F	130	W2_SET_MAP_TILES	exch2_xStack_Ny = MAX( exch2_xStack_Ny, facet_dims(2*j) )
./pkg/exch2/w2_set_map_tiles.F	135	W2_SET_MAP_TILES	DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F	136	W2_SET_MAP_TILES	exch2_yStack_Nx = MAX( exch2_yStack_Nx, facet_dims(2*j-1) )
./pkg/exch2/w2_set_map_tiles.F	137	W2_SET_MAP_TILES	exch2_yStack_Ny = exch2_yStack_Ny + facet_dims(2*j)
./pkg/exch2/w2_set_map_tiles.F	161	W2_SET_MAP_TILES	DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F	162	W2_SET_MAP_TILES	fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_map_tiles.F	163	W2_SET_MAP_TILES	fNy = facet_dims( 2*j )
./pkg/exch2/w2_set_map_tiles.F	167	W2_SET_MAP_TILES	& '- facet', j, ' : X-size=', fNx, ' , Y-size=', fNy,
./pkg/exch2/w2_set_map_tiles.F	178	W2_SET_MAP_TILES	IF ( tileIsActive ) exch2_myFace(tId) = j
./pkg/exch2/w2_set_map_tiles.F	246	W2_SET_MAP_TILES	INTEGER j, ii
./pkg/exch2/w2_set_map_tiles.F	254	W2_SET_MAP_TILES	DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F	255	W2_SET_MAP_TILES	mnFld = MIN( mnFld, fldList(j) )
./pkg/exch2/w2_set_map_tiles.F	265	W2_SET_MAP_TILES	DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F	266	W2_SET_MAP_TILES	flag = flag.AND.(MOD(fldList(j),ii).EQ.0 )
./pkg/exch2/w2_set_map_tiles.F	270	W2_SET_MAP_TILES	DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F	271	W2_SET_MAP_TILES	fldList(j) = fldList(j)/ii
./pkg/exch2/w2_set_map_tiles.F	282	W2_SET_MAP_TILES	IF (localDBg) WRITE(0,'(10I8)') (fldList(j),j=1,nFld)
./pkg/exch2/w2_set_map_tiles.F	283	W2_SET_MAP_TILES	DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F	284	W2_SET_MAP_TILES	fldList(j) = fldList(j)*divide
./pkg/exch2/w2_set_map_tiles.F	47	W2_SET_MAP_TILES	INTEGER j, ii, k, tId, tx, ty
./pkg/exch2/w2_set_map_tiles.F	66	W2_SET_MAP_TILES	DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F	67	W2_SET_MAP_TILES	fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_map_tiles.F	68	W2_SET_MAP_TILES	fNy = facet_dims( 2*j )
./pkg/exch2/w2_set_map_tiles.F	72	W2_SET_MAP_TILES	WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j,
./pkg/exch2/w2_set_map_tiles.F	78	W2_SET_MAP_TILES	WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j,
./pkg/exch2/w2_set_map_tiles.F	83	W2_SET_MAP_TILES	facet_owns(1,j) = tCnt+1
./pkg/exch2/w2_set_map_tiles.F	85	W2_SET_MAP_TILES	facet_owns(2,j) = tCnt
./pkg/exch2/w2_set_single_facet.F	36	W2_SET_SINGLE_FACET	INTEGER j
./pkg/exch2/w2_set_single_facet.F	71	W2_SET_SINGLE_FACET	DO j=3,W2_maxNbFacets*2
./pkg/exch2/w2_set_single_facet.F	72	W2_SET_SINGLE_FACET	IF ( facet_dims(j).NE.0 ) THEN
./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	175	EXF_BULKFORMULAE	INTEGER i,j,bi,bj
./pkg/exf/exf_bulkformulae.F	258	EXF_BULKFORMULAE	DO j = 1,sNy
./pkg/exf/exf_bulkformulae.F	271	EXF_BULKFORMULAE	& + sNx*(j-1)
./pkg/exf/exf_bulkformulae.F	281	EXF_BULKFORMULAE	deltap(i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	282	EXF_BULKFORMULAE	delq(i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	286	EXF_BULKFORMULAE	IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F	288	EXF_BULKFORMULAE	Tsf = theta(i,j,ksrf,bi,bj) + cen2kel
./pkg/exf/exf_bulkformulae.F	291	EXF_BULKFORMULAE	& *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) )
./pkg/exf/exf_bulkformulae.F	292	EXF_BULKFORMULAE	& * maskC(i,j,ksrfp1,bi,bj)
./pkg/exf/exf_bulkformulae.F	298	EXF_BULKFORMULAE	atmrho_loc(i,j) = apressure(i,j,bi,bj) /
./pkg/exf/exf_bulkformulae.F	299	EXF_BULKFORMULAE	& (287.04 _d 0*atemp(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	300	EXF_BULKFORMULAE	& (1. _d 0 + humid_facaqh(i,j,bi,bj)))
./pkg/exf/exf_bulkformulae.F	301	EXF_BULKFORMULAE	ssq = saltsat*tmpbulk/atmrho_loc(i,j)
./pkg/exf/exf_bulkformulae.F	305	EXF_BULKFORMULAE	deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/exf/exf_bulkformulae.F	306	EXF_BULKFORMULAE	delq(i,j) = aqh(i,j,bi,bj) - ssq
./pkg/exf/exf_bulkformulae.F	308	EXF_BULKFORMULAE	IF ( noNegativeEvap ) delq(i,j) = MIN( 0. _d 0, delq(i,j) )
./pkg/exf/exf_bulkformulae.F	312	EXF_BULKFORMULAE	stable = exf_half + SIGN(exf_half, deltap(i,j))
./pkg/exf/exf_bulkformulae.F	319	EXF_BULKFORMULAE	wsm = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	322	EXF_BULKFORMULAE	rdn(i,j) = SQRT(tmpbulk)
./pkg/exf/exf_bulkformulae.F	323	EXF_BULKFORMULAE	ustar(i,j) = rdn(i,j)*wsm
./pkg/exf/exf_bulkformulae.F	325	EXF_BULKFORMULAE	rdn(i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	326	EXF_BULKFORMULAE	windStress = wStress(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	328	EXF_BULKFORMULAE	ustar(i,j) = sqrt(windStress/atmrho_loc(i,j))
./pkg/exf/exf_bulkformulae.F	329	EXF_BULKFORMULAE	tau(i,j) = sqrt(windStress*atmrho_loc(i,j))
./pkg/exf/exf_bulkformulae.F	331	EXF_BULKFORMULAE	ustar(i,j) = sqrt(windStress/atmrho)
./pkg/exf/exf_bulkformulae.F	333	EXF_BULKFORMULAE	tau(i,j) = sqrt(windStress*atmrho)
./pkg/exf/exf_bulkformulae.F	341	EXF_BULKFORMULAE	tstar(i,j)=rhn*deltap(i,j)
./pkg/exf/exf_bulkformulae.F	342	EXF_BULKFORMULAE	qstar(i,j)=ren*delq(i,j)
./pkg/exf/exf_bulkformulae.F	346	EXF_BULKFORMULAE	tstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	347	EXF_BULKFORMULAE	qstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	348	EXF_BULKFORMULAE	ustar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	349	EXF_BULKFORMULAE	tau (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	350	EXF_BULKFORMULAE	rdn (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	355	EXF_BULKFORMULAE	DO j = 1,sNy
./pkg/exf/exf_bulkformulae.F	357	EXF_BULKFORMULAE	IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F	362	EXF_BULKFORMULAE	& + sNx*(j-1)
./pkg/exf/exf_bulkformulae.F	376	EXF_BULKFORMULAE	t0 = atemp(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F	377	EXF_BULKFORMULAE	& (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F	378	EXF_BULKFORMULAE	huol = ( tstar(i,j)/t0 +
./pkg/exf/exf_bulkformulae.F	379	EXF_BULKFORMULAE	& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F	380	EXF_BULKFORMULAE	& )czol/(ustar(i,j)ustar(i,j))
./pkg/exf/exf_bulkformulae.F	426	EXF_BULKFORMULAE	usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp )
./pkg/exf/exf_bulkformulae.F	433	EXF_BULKFORMULAE	usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F	440	EXF_BULKFORMULAE	rdn(i,j) = SQRT(tmpbulk)
./pkg/exf/exf_bulkformulae.F	442	EXF_BULKFORMULAE	rd(i,j) = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp)
./pkg/exf/exf_bulkformulae.F	444	EXF_BULKFORMULAE	rd(i,j) = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F	446	EXF_BULKFORMULAE	ustar(i,j) = rd(i,j)*sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	449	EXF_BULKFORMULAE	tau(i,j) = atmrho_loc(i,j)rd(i,j)wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	451	EXF_BULKFORMULAE	tau(i,j) = atmrhord(i,j)wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	464	EXF_BULKFORMULAE	qstar(i,j) = re*delq(i,j)
./pkg/exf/exf_bulkformulae.F	465	EXF_BULKFORMULAE	tstar(i,j) = rh*deltap(i,j)
./pkg/exf/exf_bulkformulae.F	472	EXF_BULKFORMULAE	DO j = 1,sNy
./pkg/exf/exf_bulkformulae.F	474	EXF_BULKFORMULAE	IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F	478	EXF_BULKFORMULAE	& + sNx*(j-1)
./pkg/exf/exf_bulkformulae.F	490	EXF_BULKFORMULAE	hs(i,j,bi,bj) = atmcptau(i,j)tstar(i,j)
./pkg/exf/exf_bulkformulae.F	491	EXF_BULKFORMULAE	hl(i,j,bi,bj) = flambtau(i,j)qstar(i,j)
./pkg/exf/exf_bulkformulae.F	495	EXF_BULKFORMULAE	evap(i,j,bi,bj) = -recip_rhoConstFreshtau(i,j)qstar(i,j)
./pkg/exf/exf_bulkformulae.F	505	EXF_BULKFORMULAE	tmpbulk = tau(i,j)*rd(i,j)
./pkg/exf/exf_bulkformulae.F	506	EXF_BULKFORMULAE	ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	507	EXF_BULKFORMULAE	vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	512	EXF_BULKFORMULAE	if ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	513	EXF_BULKFORMULAE	if ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	514	EXF_BULKFORMULAE	hflux (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	515	EXF_BULKFORMULAE	evap (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	516	EXF_BULKFORMULAE	hs (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	517	EXF_BULKFORMULAE	hl (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	524	EXF_BULKFORMULAE	wsm = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	527	EXF_BULKFORMULAE	ustress(i,j,bi,bj) = atmrhotmpbulkwspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F	528	EXF_BULKFORMULAE	& uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	529	EXF_BULKFORMULAE	vstress(i,j,bi,bj) = atmrhotmpbulkwspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F	530	EXF_BULKFORMULAE	& vwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F	102	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, ustress(i,j,bi,bj)
./pkg/exf/exf_check_range.F	107	EXF_CHECK_RANGE	if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND.
./pkg/exf/exf_check_range.F	108	EXF_CHECK_RANGE	& maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	111	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, vstress(i,j,bi,bj)
./pkg/exf/exf_check_range.F	117	EXF_CHECK_RANGE	if ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F	118	EXF_CHECK_RANGE	& maskW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	121	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, uwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F	126	EXF_CHECK_RANGE	if ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F	127	EXF_CHECK_RANGE	& maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	130	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, vwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F	136	EXF_CHECK_RANGE	if ( ( wspeed(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	137	EXF_CHECK_RANGE	& wspeed(i,j,bi,bj) .GT. 100. ) .AND.
./pkg/exf/exf_check_range.F	138	EXF_CHECK_RANGE	& maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	141	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, wspeed(i,j,bi,bj)
./pkg/exf/exf_check_range.F	147	EXF_CHECK_RANGE	if ( (atemp(i,j,bi,bj) .LT. 183 .OR.
./pkg/exf/exf_check_range.F	148	EXF_CHECK_RANGE	& atemp(i,j,bi,bj) .GT. 343 ) .AND.
./pkg/exf/exf_check_range.F	149	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	153	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, atemp(i,j,bi,bj)
./pkg/exf/exf_check_range.F	158	EXF_CHECK_RANGE	if ( (aqh(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	159	EXF_CHECK_RANGE	& aqh(i,j,bi,bj) .GT. 0.1 ) .AND.
./pkg/exf/exf_check_range.F	160	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	163	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, aqh(i,j,bi,bj)
./pkg/exf/exf_check_range.F	168	EXF_CHECK_RANGE	if ( (precip(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	169	EXF_CHECK_RANGE	& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND.
./pkg/exf/exf_check_range.F	170	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	173	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, precip(i,j,bi,bj)
./pkg/exf/exf_check_range.F	178	EXF_CHECK_RANGE	if ( (snowprecip(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	179	EXF_CHECK_RANGE	& snowprecip(i,j,bi,bj) .GT. 2.E-6 ) .AND.
./pkg/exf/exf_check_range.F	180	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	184	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, snowprecip(i,j,bi,bj)
./pkg/exf/exf_check_range.F	191	EXF_CHECK_RANGE	if ( (swflux(i,j,bi,bj) .GT. 1. .OR.
./pkg/exf/exf_check_range.F	192	EXF_CHECK_RANGE	& swflux(i,j,bi,bj) .LT. -1000. ) .AND.
./pkg/exf/exf_check_range.F	193	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	196	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, swflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F	203	EXF_CHECK_RANGE	if ( (runoff(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	204	EXF_CHECK_RANGE	& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.
./pkg/exf/exf_check_range.F	205	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	208	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, runoff(i,j,bi,bj)
./pkg/exf/exf_check_range.F	221	EXF_CHECK_RANGE	if ( (runoftemp(i,j,bi,bj) .LT. -2. .OR.
./pkg/exf/exf_check_range.F	222	EXF_CHECK_RANGE	& runoff(i,j,bi,bj) .GT. 36 ) .AND.
./pkg/exf/exf_check_range.F	223	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	226	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, runoff(i,j,bi,bj)
./pkg/exf/exf_check_range.F	34	EXF_CHECK_RANGE	integer i,j
./pkg/exf/exf_check_range.F	75	EXF_CHECK_RANGE	do j = jmin,jmax
./pkg/exf/exf_check_range.F	79	EXF_CHECK_RANGE	if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR.
./pkg/exf/exf_check_range.F	80	EXF_CHECK_RANGE	& hflux(i,j,bi,bj) .LT. -500. ) .AND.
./pkg/exf/exf_check_range.F	81	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	84	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, hflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F	89	EXF_CHECK_RANGE	if ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND.
./pkg/exf/exf_check_range.F	90	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F	93	EXF_CHECK_RANGE	& bi, bj, i, j, myiter, sflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F	98	EXF_CHECK_RANGE	if ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND.
./pkg/exf/exf_check_range.F	99	EXF_CHECK_RANGE	& maskW(i,j,1,bi,bj) .NE. 0. ) then
./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	36	EXF_FILTER_RL	INTEGER i,j, ks
./pkg/exf/exf_filter_rl.F	62	EXF_FILTER_RL	DO j = 1,sNy
./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	70	EXF_FILTER_RL	DO j = 1,sNy
./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	78	EXF_FILTER_RL	DO j = 1,sNy
./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	158	EXF_GETCLIM	DO j=1-oLy,sNy+oLy
./pkg/exf/exf_getclim.F	163	EXF_GETCLIM	& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_getclim.F	168	EXF_GETCLIM	& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_getclim.F	173	EXF_GETCLIM	& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_getclim.F	176	EXF_GETCLIM	& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_getclim.F	179	EXF_GETCLIM	if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_getclim.F	180	EXF_GETCLIM	& theta(i,j,1,bi,bj) .EQ. 0. ) then
./pkg/exf/exf_getclim.F	181	EXF_GETCLIM	print *, 'ph-warn-exf-clim ', i, j, theta(i,j,1,bi,bj)
./pkg/exf/exf_getclim.F	64	EXF_GETCLIM	integer bi, bj, i, j
./pkg/exf/exf_getclim.F	83	EXF_GETCLIM	do j = 1,sny
./pkg/exf/exf_getclim.F	85	EXF_GETCLIM	if (climsst(i,j,bi,bj) .lt. climtempfreeze) then
./pkg/exf/exf_getclim.F	86	EXF_GETCLIM	climsst(i,j,bi,bj) = climtempfreeze
./pkg/exf/exf_getffields.F	127	EXF_GETFFIELDS	DO j = 1,sNy
./pkg/exf/exf_getffields.F	129	EXF_GETFFIELDS	uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F	130	EXF_GETFFIELDS	& (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj))
./pkg/exf/exf_getffields.F	131	EXF_GETFFIELDS	vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F	132	EXF_GETFFIELDS	& (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj))
./pkg/exf/exf_getffields.F	142	EXF_GETFFIELDS	DO j=1-OLy,sNy+OLy
./pkg/exf/exf_getffields.F	144	EXF_GETFFIELDS	uwind(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	145	EXF_GETFFIELDS	vwind(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	191	EXF_GETFFIELDS	DO j = 1,sNy
./pkg/exf/exf_getffields.F	193	EXF_GETFFIELDS	atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp
./pkg/exf/exf_getffields.F	252	EXF_GETFFIELDS	DO j = 1,sNy
./pkg/exf/exf_getffields.F	254	EXF_GETFFIELDS	precip(i,j,bi,bj) =
./pkg/exf/exf_getffields.F	255	EXF_GETFFIELDS	& max( precip(i,j,bi,bj), snowPrecip(i,j,bi,bj) )
./pkg/exf/exf_getffields.F	47	EXF_GETFFIELDS	INTEGER i, j, bi, bj
./pkg/exf/exf_getffields.F	488	EXF_GETFFIELDS	DO j = 1-OLy,sNy+OLy
./pkg/exf/exf_getffields.F	490	EXF_GETFFIELDS	tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	491	EXF_GETFFIELDS	tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	492	EXF_GETFFIELDS	tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	493	EXF_GETFFIELDS	tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	516	EXF_GETFFIELDS	DO j = 1,sNy
./pkg/exf/exf_getffields.F	518	EXF_GETFFIELDS	uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getffields.F	519	EXF_GETFFIELDS	vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getffields.F	532	EXF_GETFFIELDS	DO j = 1,sNy
./pkg/exf/exf_getffields.F	535	EXF_GETFFIELDS	atemp(i,j,bi,bj) =atemp(i,j,bi,bj) +xx_atemp_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	538	EXF_GETFFIELDS	aqh(i,j,bi,bj) =aqh(i,j,bi,bj) +xx_aqh_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	541	EXF_GETFFIELDS	precip(i,j,bi,bj)=precip(i,j,bi,bj)+xx_precip_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	544	EXF_GETFFIELDS	swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+xx_swdown_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	547	EXF_GETFFIELDS	uwind(i,j,bi,bj) =uwind(i,j,bi,bj) +xx_uwind_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	550	EXF_GETFFIELDS	vwind(i,j,bi,bj) =vwind(i,j,bi,bj) +xx_vwind_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	81	EXF_GETFFIELDS	DO j=1-OLy,sNy+OLy
./pkg/exf/exf_getffields.F	83	EXF_GETFFIELDS	ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	84	EXF_GETFFIELDS	vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getforcing.F	151	EXF_GETFORCING	INTEGER i,j,k
./pkg/exf/exf_getforcing.F	208	EXF_GETFORCING	DO j = 1,sNy
./pkg/exf/exf_getforcing.F	212	EXF_GETFORCING	hflux(i,j,bi,bj) =
./pkg/exf/exf_getforcing.F	213	EXF_GETFORCING	& - hs(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	214	EXF_GETFORCING	& - hl(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	215	EXF_GETFORCING	& + lwflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	217	EXF_GETFORCING	& + swflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	220	EXF_GETFORCING	sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	223	EXF_GETFORCING	sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	226	EXF_GETFORCING	hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F	227	EXF_GETFORCING	sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F	275	EXF_GETFORCING	DO j = 1-oLy,sNy+oLy
./pkg/exf/exf_getforcing.F	277	EXF_GETFORCING	hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	110	EXF_GETSURFACEFLUXES	do j = 1-oly,sny+oly
./pkg/exf/exf_getsurfacefluxes.F	112	EXF_GETSURFACEFLUXES	tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F	113	EXF_GETSURFACEFLUXES	tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F	114	EXF_GETSURFACEFLUXES	tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F	115	EXF_GETSURFACEFLUXES	tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F	147	EXF_GETSURFACEFLUXES	do j = 1-oly,sny+oly
./pkg/exf/exf_getsurfacefluxes.F	149	EXF_GETSURFACEFLUXES	ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	150	EXF_GETSURFACEFLUXES	vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	63	EXF_GETSURFACEFLUXES	integer i,j,bi,bj
./pkg/exf/exf_init.F	141	EXF_INIT	DO j=1-OLy,sNy+OLy
./pkg/exf/exf_init.F	143	EXF_INIT	uwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	144	EXF_INIT	vwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	395	EXF_INIT	DO j=1-oLy,sNy+oLy
./pkg/exf/exf_init.F	39	EXF_INIT	INTEGER i,j,bi,bj
./pkg/exf/exf_init.F	400	EXF_INIT	& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_init.F	405	EXF_INIT	& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_init.F	410	EXF_INIT	& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_init.F	413	EXF_INIT	& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_init.F	415	EXF_INIT	if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_init.F	416	EXF_INIT	& theta(i,j,1,bi,bj) .EQ. 0. ) then
./pkg/exf/exf_init.F	417	EXF_INIT	print *, 'ph-warn-exf-init ', i, j, theta(i,j,1,bi,bj)
./pkg/exf/exf_init.F	46	EXF_INIT	DO j=1-OLy,sNy+OLy
./pkg/exf/exf_init.F	48	EXF_INIT	wStress(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	49	EXF_INIT	cw(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	50	EXF_INIT	sw(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	51	EXF_INIT	sh(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	53	EXF_INIT	hs(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	54	EXF_INIT	hl(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	96	EXF_INIT	DO j=1-OLy,sNy+OLy
./pkg/exf/exf_init.F	98	EXF_INIT	uwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F	99	EXF_INIT	vwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init_fixed.F	43	EXF_INIT_FIXED	INTEGER j
./pkg/exf/exf_init_fixed.F	473	EXF_INIT_FIXED	DO j=1,MIN(ustress_nlat-1,MAX_LAT_INC)
./pkg/exf/exf_init_fixed.F	475	EXF_INIT_FIXED	& .AND. ustress_lat_inc(j) .EQ. vstress_lat_inc(j)
./pkg/exf/exf_init_fixed.F	493	EXF_INIT_FIXED	DO j=1,MIN(uwind_nlat-1,MAX_LAT_INC)
./pkg/exf/exf_init_fixed.F	495	EXF_INIT_FIXED	& .AND. uwind_lat_inc(j) .EQ. vwind_lat_inc(j)
./pkg/exf/exf_init_fixed.F	512	EXF_INIT_FIXED	DO j=1,MIN(climustr_nlat-1,MAX_LAT_INC)
./pkg/exf/exf_init_fixed.F	514	EXF_INIT_FIXED	& .AND. climustr_lat_inc(j) .EQ. climvstr_lat_inc(j)
./pkg/exf/exf_interp.F	121	EXF_INTERP	DO j=1,nyIn+1
./pkg/exf/exf_interp.F	122	EXF_INTERP	i = MIN(j,nyIn-1)
./pkg/exf/exf_interp.F	123	EXF_INTERP	y_in(j+1) = y_in(j) + lat_inc(i)
./pkg/exf/exf_interp.F	141	EXF_INTERP	j = 0
./pkg/exf/exf_interp.F	142	EXF_INTERP	IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F	143	EXF_INTERP	y_in(j) = -yPole
./pkg/exf/exf_interp.F	144	EXF_INTERP	y_in(j-1) = -2.*yPole - y_in(1)
./pkg/exf/exf_interp.F	146	EXF_INTERP	prtPole(j) = 1.
./pkg/exf/exf_interp.F	147	EXF_INTERP	prtPole(j-1) = 2.
./pkg/exf/exf_interp.F	150	EXF_INTERP	j = -1
./pkg/exf/exf_interp.F	151	EXF_INTERP	IF ( ABS(y_in(j+1)).GT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F	152	EXF_INTERP	y_in(j) = -yPole
./pkg/exf/exf_interp.F	154	EXF_INTERP	prtPole(j) = 1.
./pkg/exf/exf_interp.F	159	EXF_INTERP	j = nyIn+1
./pkg/exf/exf_interp.F	160	EXF_INTERP	IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F	161	EXF_INTERP	y_in(j) = yPole
./pkg/exf/exf_interp.F	162	EXF_INTERP	y_in(j+1) = 2.*yPole - y_in(j-1)
./pkg/exf/exf_interp.F	168	EXF_INTERP	j = nyIn+2
./pkg/exf/exf_interp.F	169	EXF_INTERP	IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F	170	EXF_INTERP	y_in(j) = yPole
./pkg/exf/exf_interp.F	180	EXF_INTERP	DO j=1,nyIn
./pkg/exf/exf_interp.F	181	EXF_INTERP	arrayin( 0,j) = arrayin(nxIn ,j)
./pkg/exf/exf_interp.F	182	EXF_INTERP	arrayin(-1,j) = arrayin(nxIn-1,j)
./pkg/exf/exf_interp.F	183	EXF_INTERP	arrayin(nxIn+1,j) = arrayin(1,j)
./pkg/exf/exf_interp.F	184	EXF_INTERP	arrayin(nxIn+2,j) = arrayin(2,j)
./pkg/exf/exf_interp.F	188	EXF_INTERP	DO j=1,nyIn
./pkg/exf/exf_interp.F	189	EXF_INTERP	arrayin( 0,j) = arrayin(1,j)
./pkg/exf/exf_interp.F	190	EXF_INTERP	arrayin(-1,j) = arrayin(1,j)
./pkg/exf/exf_interp.F	191	EXF_INTERP	arrayin(nxIn+1,j) = arrayin(nxIn,j)
./pkg/exf/exf_interp.F	192	EXF_INTERP	arrayin(nxIn+2,j) = arrayin(nxIn,j)
./pkg/exf/exf_interp.F	198	EXF_INTERP	j = l
./pkg/exf/exf_interp.F	199	EXF_INTERP	IF ( l.GE.1 ) j = nyIn+l
./pkg/exf/exf_interp.F	200	EXF_INTERP	k = MAX(1,MIN(j,nyIn))
./pkg/exf/exf_interp.F	201	EXF_INTERP	IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F	204	EXF_INTERP	arrayin(i,j) = symSign*arrayin(i+nxd2,k)
./pkg/exf/exf_interp.F	207	EXF_INTERP	arrayin(i+nxd2,j) = symSign*arrayin(i,k)
./pkg/exf/exf_interp.F	216	EXF_INTERP	arrayin(i,j) = arrayin(i,k)
./pkg/exf/exf_interp.F	232	EXF_INTERP	j = l
./pkg/exf/exf_interp.F	233	EXF_INTERP	IF ( l.GE.2 ) j = nyIn+l-2
./pkg/exf/exf_interp.F	234	EXF_INTERP	IF ( ABS(y_in(j)).EQ.yPole ) THEN
./pkg/exf/exf_interp.F	238	EXF_INTERP	poleValue = poleValue + arrayin(i,j)
./pkg/exf/exf_interp.F	242	EXF_INTERP	arrayin(i,j) = poleValue
./pkg/exf/exf_interp.F	250	EXF_INTERP	arrayin(i,j) = 0.
./pkg/exf/exf_interp.F	274	EXF_INTERP	& ' proc=', (prtPole(j),j=-1,1), ', yIn=', (y_in(j),j=-1,1)
./pkg/exf/exf_interp.F	278	EXF_INTERP	& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2)
./pkg/exf/exf_interp.F	291	EXF_INTERP	DO j=1-OLy,sNy+OLy
./pkg/exf/exf_interp.F	293	EXF_INTERP	xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0
./pkg/exf/exf_interp.F	295	EXF_INTERP	xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS)
./pkg/exf/exf_interp.F	301	EXF_INTERP	DO j=1,sNy
./pkg/exf/exf_interp.F	303	EXF_INTERP	IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR.
./pkg/exf/exf_interp.F	304	EXF_INTERP	& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR.
./pkg/exf/exf_interp.F	305	EXF_INTERP	& yG(i,j,bi,bj) .LT. y_in(0) .OR.
./pkg/exf/exf_interp.F	306	EXF_INTERP	& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN
./pkg/exf/exf_interp.F	315	EXF_INTERP	& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj)
./pkg/exf/exf_interp.F	337	EXF_INTERP	DO j=1,sNy
./pkg/exf/exf_interp.F	339	EXF_INTERP	s_ind(i,j) = 0
./pkg/exf/exf_interp.F	340	EXF_INTERP	w_ind(i,j) = nyIn+1
./pkg/exf/exf_interp.F	348	EXF_INTERP	DO j=1,sNy
./pkg/exf/exf_interp.F	350	EXF_INTERP	IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp.F	351	EXF_INTERP	k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 )
./pkg/exf/exf_interp.F	352	EXF_INTERP	IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN
./pkg/exf/exf_interp.F	353	EXF_INTERP	w_ind(i,j) = k
./pkg/exf/exf_interp.F	355	EXF_INTERP	s_ind(i,j) = k
./pkg/exf/exf_interp.F	364	EXF_INTERP	DO j=1,sNy
./pkg/exf/exf_interp.F	366	EXF_INTERP	IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp.F	376	EXF_INTERP	& 'EXF_INTERP: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj)
./pkg/exf/exf_interp.F	379	EXF_INTERP	& 'EXF_INTERP: s_ind=',s_ind(i,j),', lat=',y_in(s_ind(i,j))
./pkg/exf/exf_interp.F	382	EXF_INTERP	& 'EXF_INTERP: n_ind=',w_ind(i,j),', lat=',y_in(w_ind(i,j))
./pkg/exf/exf_interp.F	391	EXF_INTERP	DO j=1,sNy
./pkg/exf/exf_interp.F	393	EXF_INTERP	w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1
./pkg/exf/exf_interp.F	80	EXF_INTERP	INTEGER i, j, k, l
./pkg/exf/exf_interp_read.F	190	EXF_INTERP_READ	DO j=1,ny_in
./pkg/exf/exf_interp_read.F	192	EXF_INTERP_READ	arrayin(i,j)=glPtr4(i,j)
./pkg/exf/exf_interp_read.F	196	EXF_INTERP_READ	DO j=1,ny_in
./pkg/exf/exf_interp_read.F	198	EXF_INTERP_READ	arrayin(i,j)=glPtr8(i,j)
./pkg/exf/exf_interp_read.F	204	EXF_INTERP_READ	DO j=1,ny_in
./pkg/exf/exf_interp_read.F	206	EXF_INTERP_READ	arrayin(i,j)=buffer_r4(i,j)
./pkg/exf/exf_interp_read.F	210	EXF_INTERP_READ	DO j=1,ny_in
./pkg/exf/exf_interp_read.F	212	EXF_INTERP_READ	arrayin(i,j)=buffer_r8(i,j)
./pkg/exf/exf_interp_read.F	219	EXF_INTERP_READ	DO j=1,ny_in
./pkg/exf/exf_interp_read.F	220	EXF_INTERP_READ	ijs = (j-1)*nx_in
./pkg/exf/exf_interp_read.F	222	EXF_INTERP_READ	arrayin(i,j)=buffer_r4(i+ijs)
./pkg/exf/exf_interp_read.F	226	EXF_INTERP_READ	DO j=1,ny_in
./pkg/exf/exf_interp_read.F	227	EXF_INTERP_READ	ijs = (j-1)*nx_in
./pkg/exf/exf_interp_read.F	229	EXF_INTERP_READ	arrayin(i,j)=buffer_r8(i+ijs)
./pkg/exf/exf_interp_read.F	52	EXF_INTERP_READ	INTEGER i, j
./pkg/exf/exf_interp_uv.F	133	EXF_INTERP_UV	DO j=1,nyIn+1
./pkg/exf/exf_interp_uv.F	134	EXF_INTERP_UV	i = MIN(j,nyIn-1)
./pkg/exf/exf_interp_uv.F	135	EXF_INTERP_UV	y_in(j+1) = y_in(j) + lat_inc(i)
./pkg/exf/exf_interp_uv.F	148	EXF_INTERP_UV	j = 0
./pkg/exf/exf_interp_uv.F	149	EXF_INTERP_UV	IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F	150	EXF_INTERP_UV	y_in(j) = -yPole
./pkg/exf/exf_interp_uv.F	151	EXF_INTERP_UV	y_in(j-1) = -2.*yPole - y_in(1)
./pkg/exf/exf_interp_uv.F	153	EXF_INTERP_UV	prtPole(j) = 1.
./pkg/exf/exf_interp_uv.F	154	EXF_INTERP_UV	prtPole(j-1) = 2.
./pkg/exf/exf_interp_uv.F	157	EXF_INTERP_UV	j = -1
./pkg/exf/exf_interp_uv.F	158	EXF_INTERP_UV	IF ( ABS(y_in(j+1)).GT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F	159	EXF_INTERP_UV	y_in(j) = -yPole
./pkg/exf/exf_interp_uv.F	161	EXF_INTERP_UV	prtPole(j) = 1.
./pkg/exf/exf_interp_uv.F	165	EXF_INTERP_UV	j = nyIn+1
./pkg/exf/exf_interp_uv.F	166	EXF_INTERP_UV	IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F	167	EXF_INTERP_UV	y_in(j) = yPole
./pkg/exf/exf_interp_uv.F	168	EXF_INTERP_UV	y_in(j+1) = 2.*yPole - y_in(j-1)
./pkg/exf/exf_interp_uv.F	174	EXF_INTERP_UV	j = nyIn+2
./pkg/exf/exf_interp_uv.F	175	EXF_INTERP_UV	IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F	176	EXF_INTERP_UV	y_in(j) = yPole
./pkg/exf/exf_interp_uv.F	185	EXF_INTERP_UV	DO j=1,nyIn
./pkg/exf/exf_interp_uv.F	186	EXF_INTERP_UV	arrUin( 0,j) = arrUin(nxIn ,j)
./pkg/exf/exf_interp_uv.F	187	EXF_INTERP_UV	arrUin(-1,j) = arrUin(nxIn-1,j)
./pkg/exf/exf_interp_uv.F	188	EXF_INTERP_UV	arrUin(nxIn+1,j) = arrUin(1,j)
./pkg/exf/exf_interp_uv.F	189	EXF_INTERP_UV	arrUin(nxIn+2,j) = arrUin(2,j)
./pkg/exf/exf_interp_uv.F	190	EXF_INTERP_UV	arrVin( 0,j) = arrVin(nxIn ,j)
./pkg/exf/exf_interp_uv.F	191	EXF_INTERP_UV	arrVin(-1,j) = arrVin(nxIn-1,j)
./pkg/exf/exf_interp_uv.F	192	EXF_INTERP_UV	arrVin(nxIn+1,j) = arrVin(1,j)
./pkg/exf/exf_interp_uv.F	193	EXF_INTERP_UV	arrVin(nxIn+2,j) = arrVin(2,j)
./pkg/exf/exf_interp_uv.F	197	EXF_INTERP_UV	DO j=1,nyIn
./pkg/exf/exf_interp_uv.F	198	EXF_INTERP_UV	arrUin( 0,j) = arrUin(1,j)
./pkg/exf/exf_interp_uv.F	199	EXF_INTERP_UV	arrUin(-1,j) = arrUin(1,j)
./pkg/exf/exf_interp_uv.F	200	EXF_INTERP_UV	arrUin(nxIn+1,j) = arrUin(nxIn,j)
./pkg/exf/exf_interp_uv.F	201	EXF_INTERP_UV	arrUin(nxIn+2,j) = arrUin(nxIn,j)
./pkg/exf/exf_interp_uv.F	202	EXF_INTERP_UV	arrVin( 0,j) = arrVin(1,j)
./pkg/exf/exf_interp_uv.F	203	EXF_INTERP_UV	arrVin(-1,j) = arrVin(1,j)
./pkg/exf/exf_interp_uv.F	204	EXF_INTERP_UV	arrVin(nxIn+1,j) = arrVin(nxIn,j)
./pkg/exf/exf_interp_uv.F	205	EXF_INTERP_UV	arrVin(nxIn+2,j) = arrVin(nxIn,j)
./pkg/exf/exf_interp_uv.F	210	EXF_INTERP_UV	j = l
./pkg/exf/exf_interp_uv.F	211	EXF_INTERP_UV	IF ( l.GE.1 ) j = nyIn+l
./pkg/exf/exf_interp_uv.F	212	EXF_INTERP_UV	k = MAX(1,MIN(j,nyIn))
./pkg/exf/exf_interp_uv.F	213	EXF_INTERP_UV	IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F	216	EXF_INTERP_UV	arrUin(i,j) = symSign*arrUin(i+nxd2,k)
./pkg/exf/exf_interp_uv.F	217	EXF_INTERP_UV	arrVin(i,j) = symSign*arrVin(i+nxd2,k)
./pkg/exf/exf_interp_uv.F	220	EXF_INTERP_UV	arrUin(i+nxd2,j) = symSign*arrUin(i,k)
./pkg/exf/exf_interp_uv.F	221	EXF_INTERP_UV	arrVin(i+nxd2,j) = symSign*arrVin(i,k)
./pkg/exf/exf_interp_uv.F	230	EXF_INTERP_UV	arrUin(i,j) = arrUin(i,k)
./pkg/exf/exf_interp_uv.F	231	EXF_INTERP_UV	arrVin(i,j) = arrVin(i,k)
./pkg/exf/exf_interp_uv.F	241	EXF_INTERP_UV	j = l
./pkg/exf/exf_interp_uv.F	242	EXF_INTERP_UV	IF ( l.GE.2 ) j = nyIn+l-2
./pkg/exf/exf_interp_uv.F	243	EXF_INTERP_UV	IF ( ABS(y_in(j)).EQ.yPole ) THEN
./pkg/exf/exf_interp_uv.F	263	EXF_INTERP_UV	poleU = poleU +csLon(i)arrUin(i,j) -snLon(i)arrVin(i,j)
./pkg/exf/exf_interp_uv.F	264	EXF_INTERP_UV	poleV = poleV +snLon(i)arrUin(i,j) +csLon(i)arrVin(i,j)
./pkg/exf/exf_interp_uv.F	270	EXF_INTERP_UV	arrUin(i,j) = csLon(i)poleU + snLon(i)poleV
./pkg/exf/exf_interp_uv.F	271	EXF_INTERP_UV	arrVin(i,j) = -snLon(i)poleU + csLon(i)poleV
./pkg/exf/exf_interp_uv.F	292	EXF_INTERP_UV	& ' proc=', (prtPole(j),j=-1,1), ', yIn=', (y_in(j),j=-1,1)
./pkg/exf/exf_interp_uv.F	296	EXF_INTERP_UV	& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2)
./pkg/exf/exf_interp_uv.F	308	EXF_INTERP_UV	DO j=1-OLy,sNy+OLy
./pkg/exf/exf_interp_uv.F	310	EXF_INTERP_UV	xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0
./pkg/exf/exf_interp_uv.F	312	EXF_INTERP_UV	xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS)
./pkg/exf/exf_interp_uv.F	318	EXF_INTERP_UV	DO j=1,sNy
./pkg/exf/exf_interp_uv.F	320	EXF_INTERP_UV	IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR.
./pkg/exf/exf_interp_uv.F	321	EXF_INTERP_UV	& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR.
./pkg/exf/exf_interp_uv.F	322	EXF_INTERP_UV	& yG(i,j,bi,bj) .LT. y_in(0) .OR.
./pkg/exf/exf_interp_uv.F	323	EXF_INTERP_UV	& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN
./pkg/exf/exf_interp_uv.F	332	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	354	EXF_INTERP_UV	DO j=1,sNy
./pkg/exf/exf_interp_uv.F	356	EXF_INTERP_UV	s_ind(i,j) = 0
./pkg/exf/exf_interp_uv.F	357	EXF_INTERP_UV	w_ind(i,j) = nyIn+1
./pkg/exf/exf_interp_uv.F	365	EXF_INTERP_UV	DO j=1,sNy
./pkg/exf/exf_interp_uv.F	367	EXF_INTERP_UV	IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp_uv.F	368	EXF_INTERP_UV	k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 )
./pkg/exf/exf_interp_uv.F	369	EXF_INTERP_UV	IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN
./pkg/exf/exf_interp_uv.F	370	EXF_INTERP_UV	w_ind(i,j) = k
./pkg/exf/exf_interp_uv.F	372	EXF_INTERP_UV	s_ind(i,j) = k
./pkg/exf/exf_interp_uv.F	381	EXF_INTERP_UV	DO j=1,sNy
./pkg/exf/exf_interp_uv.F	383	EXF_INTERP_UV	IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp_uv.F	393	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	396	EXF_INTERP_UV	& 'EXF_INTERP_UV: s_ind=',s_ind(i,j),', lat=',y_in(s_ind(i,j))
./pkg/exf/exf_interp_uv.F	399	EXF_INTERP_UV	& 'EXF_INTERP_UV: n_ind=',w_ind(i,j),', lat=',y_in(w_ind(i,j))
./pkg/exf/exf_interp_uv.F	408	EXF_INTERP_UV	DO j=1,sNy
./pkg/exf/exf_interp_uv.F	410	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	88	EXF_INTERP_UV	INTEGER i, j, k, l
./pkg/exf/exf_interpolate.F	128	EXF_INTERPOLATE	INTEGER i, j, k, l
./pkg/exf/exf_interpolate.F	139	EXF_INTERPOLATE	DO j=1,sNy
./pkg/exf/exf_interpolate.F	141	EXF_INTERPOLATE	arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interpolate.F	143	EXF_INTERPOLATE	px_ind(l+1) = x_in(w_ind(i,j)+l)
./pkg/exf/exf_interpolate.F	144	EXF_INTERPOLATE	py_ind(l+1) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interpolate.F	148	EXF_INTERPOLATE	ew_val(k) = arrayin(w_ind(i,j) ,s_ind(i,j)+k-1)
./pkg/exf/exf_interpolate.F	149	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	150	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-1)
./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	156	EXF_INTERPOLATE	ew_val1 = arrayin(w_ind(i,j) ,s_ind(i,j) )
./pkg/exf/exf_interpolate.F	157	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	158	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j) )
./pkg/exf/exf_interpolate.F	159	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	160	EXF_INTERPOLATE	ew_val2 = arrayin(w_ind(i,j) ,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F	161	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	162	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j)+1)
./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	174	EXF_INTERPOLATE	DO j=1,sNy
./pkg/exf/exf_interpolate.F	176	EXF_INTERPOLATE	arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interpolate.F	178	EXF_INTERPOLATE	px_ind(l+2) = x_in(w_ind(i,j)+l)
./pkg/exf/exf_interpolate.F	179	EXF_INTERPOLATE	py_ind(l+2) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interpolate.F	183	EXF_INTERPOLATE	ew_val(k) = arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2)
./pkg/exf/exf_interpolate.F	184	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	185	EXF_INTERPOLATE	& + arrayin(w_ind(i,j) ,s_ind(i,j)+k-2)
./pkg/exf/exf_interpolate.F	186	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	187	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-2)
./pkg/exf/exf_interpolate.F	188	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	189	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+2,s_ind(i,j)+k-2)
./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	195	EXF_INTERPOLATE	ew_val1 = arrayin(w_ind(i,j)-1,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F	196	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	197	EXF_INTERPOLATE	& + arrayin(w_ind(i,j) ,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F	198	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	199	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F	200	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	201	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+2,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F	202	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	203	EXF_INTERPOLATE	ew_val2 = arrayin(w_ind(i,j)-1,s_ind(i,j) )
./pkg/exf/exf_interpolate.F	204	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	205	EXF_INTERPOLATE	& + arrayin(w_ind(i,j) ,s_ind(i,j) )
./pkg/exf/exf_interpolate.F	206	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	207	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j) )
./pkg/exf/exf_interpolate.F	208	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	209	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+2,s_ind(i,j) )
./pkg/exf/exf_interpolate.F	210	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	211	EXF_INTERPOLATE	ew_val3 = arrayin(w_ind(i,j)-1,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F	212	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	213	EXF_INTERPOLATE	& + arrayin(w_ind(i,j) ,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F	214	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	215	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F	216	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	217	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+2,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F	218	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	219	EXF_INTERPOLATE	ew_val4 = arrayin(w_ind(i,j)-1,s_ind(i,j)+2)
./pkg/exf/exf_interpolate.F	220	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	221	EXF_INTERPOLATE	& + arrayin(w_ind(i,j) ,s_ind(i,j)+2)
./pkg/exf/exf_interpolate.F	222	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	223	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+1,s_ind(i,j)+2)
./pkg/exf/exf_interpolate.F	224	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	225	EXF_INTERPOLATE	& + arrayin(w_ind(i,j)+2,s_ind(i,j)+2)
./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_mapfields.F	106	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	108	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	112	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	114	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) -
./pkg/exf/exf_mapfields.F	122	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	124	EXF_MAPFIELDS	EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	129	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	131	EXF_MAPFIELDS	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh*
./pkg/exf/exf_mapfields.F	152	EXF_MAPFIELDS	DO j = 1, sNy
./pkg/exf/exf_mapfields.F	154	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	155	EXF_MAPFIELDS	& + flamisnowPrecip(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	157	EXF_MAPFIELDS	& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	158	EXF_MAPFIELDS	& *( precip(i,j,bi,bj)- snowPrecip(i,j,bi,bj) )
./pkg/exf/exf_mapfields.F	166	EXF_MAPFIELDS	DO j = 1, sNy
./pkg/exf/exf_mapfields.F	168	EXF_MAPFIELDS	IF ( atemp(i,j,bi,bj).LT.cen2kel ) THEN
./pkg/exf/exf_mapfields.F	169	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	170	EXF_MAPFIELDS	& + flamiprecip(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	173	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	175	EXF_MAPFIELDS	& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	176	EXF_MAPFIELDS	& precip(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	183	EXF_MAPFIELDS	DO j = 1, sNy
./pkg/exf/exf_mapfields.F	185	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	187	EXF_MAPFIELDS	& *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	188	EXF_MAPFIELDS	& runoff(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	193	EXF_MAPFIELDS	DO j = 1, sNy
./pkg/exf/exf_mapfields.F	195	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	197	EXF_MAPFIELDS	& *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	198	EXF_MAPFIELDS	& evap(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	199	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F	208	EXF_MAPFIELDS	DO j = 1, sNy
./pkg/exf/exf_mapfields.F	210	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	212	EXF_MAPFIELDS	& *( theta(i,j,ks,bi,bj) - runoftemp(i,j,bi,bj) )
./pkg/exf/exf_mapfields.F	213	EXF_MAPFIELDS	& runoff(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	222	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	225	EXF_MAPFIELDS	IF (ustress(i,j,bi,bj).GT.windstressmax) THEN
./pkg/exf/exf_mapfields.F	226	EXF_MAPFIELDS	ustress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F	233	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	235	EXF_MAPFIELDS	IF (ustress(i,j,bi,bj).LT.-windstressmax) THEN
./pkg/exf/exf_mapfields.F	236	EXF_MAPFIELDS	ustress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F	241	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	243	EXF_MAPFIELDS	fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	247	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	250	EXF_MAPFIELDS	fu(i,j,bi,bj) = exf_outscal_ustress*
./pkg/exf/exf_mapfields.F	251	EXF_MAPFIELDS	& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))
./pkg/exf/exf_mapfields.F	252	EXF_MAPFIELDS	& exf_halfmaskW(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F	260	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	263	EXF_MAPFIELDS	IF (vstress(i,j,bi,bj).GT.windstressmax) THEN
./pkg/exf/exf_mapfields.F	264	EXF_MAPFIELDS	vstress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F	271	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	273	EXF_MAPFIELDS	IF (vstress(i,j,bi,bj).LT.-windstressmax) THEN
./pkg/exf/exf_mapfields.F	274	EXF_MAPFIELDS	vstress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F	279	EXF_MAPFIELDS	DO j = jmin+1,jmax
./pkg/exf/exf_mapfields.F	281	EXF_MAPFIELDS	fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	285	EXF_MAPFIELDS	DO j = jmin+1,jmax
./pkg/exf/exf_mapfields.F	288	EXF_MAPFIELDS	fv(i,j,bi,bj) = exf_outscal_vstress*
./pkg/exf/exf_mapfields.F	289	EXF_MAPFIELDS	& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))
./pkg/exf/exf_mapfields.F	290	EXF_MAPFIELDS	& exf_halfmaskS(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F	297	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	299	EXF_MAPFIELDS	Qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	305	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	307	EXF_MAPFIELDS	SST(i,j,bi,bj) = exf_outscal_sst*climsst(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	313	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	315	EXF_MAPFIELDS	SSS(i,j,bi,bj) = exf_outscal_sss*climsss(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	321	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	323	EXF_MAPFIELDS	pLoad(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	329	EXF_MAPFIELDS	DO j = jmin,jmax
./pkg/exf/exf_mapfields.F	331	EXF_MAPFIELDS	exf_iceFraction(i,j,bi,bj) =
./pkg/exf/exf_mapfields.F	332	EXF_MAPFIELDS	& exf_outscal_areamask*areamask(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	79	EXF_MAPFIELDS	INTEGER i,j,ks
./pkg/exf/exf_radiation.F	144	EXF_RADIATION	DO j = 1,sNy
./pkg/exf/exf_radiation.F	146	EXF_RADIATION	zen_albedo (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F	147	EXF_RADIATION	zen_fsol_diurnal (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F	148	EXF_RADIATION	zen_fsol_daily (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F	158	EXF_RADIATION	DO j = 1,sNy
./pkg/exf/exf_radiation.F	162	EXF_RADIATION	swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F	163	EXF_RADIATION	& (1.0-zen_albedo(i,j,bi,bj))
./pkg/exf/exf_radiation.F	165	EXF_RADIATION	swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F	169	EXF_RADIATION	swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F	45	EXF_RADIATION	INTEGER i,j
./pkg/exf/exf_radiation.F	70	EXF_RADIATION	DO j = 1,sNy
./pkg/exf/exf_radiation.F	72	EXF_RADIATION	Tsf = theta(i,j,ks,bi,bj) + cen2kel
./pkg/exf/exf_radiation.F	74	EXF_RADIATION	& *( theta(i,j,ks,bi,bj)-theta(i,j,kl,bi,bj) )
./pkg/exf/exf_radiation.F	75	EXF_RADIATION	& * maskC(i,j,kl,bi,bj)
./pkg/exf/exf_radiation.F	78	EXF_RADIATION	lwflux(i,j,bi,bj) =
./pkg/exf/exf_radiation.F	80	EXF_RADIATION	& - lwdown(i,j,bi,bj)
./pkg/exf/exf_radiation.F	93	EXF_RADIATION	DO j = 1,sNy
./pkg/exf/exf_radiation.F	95	EXF_RADIATION	lwflux(i,j,bi,bj) =
./pkg/exf/exf_radiation.F	97	EXF_RADIATION	& ((theta(i,j,ks,bi,bj)+cen2kel)**4)
./pkg/exf/exf_radiation.F	98	EXF_RADIATION	& - lwdown(i,j,bi,bj)
./pkg/exf/exf_readparms.F	69	EXF_READPARMS	INTEGER j
./pkg/exf/exf_readparms.F	783	EXF_READPARMS	DO j=1,MAX_LAT_INC
./pkg/exf/exf_readparms.F	784	EXF_READPARMS	IF (j.LT.gridNy) THEN
./pkg/exf/exf_readparms.F	785	EXF_READPARMS	inp_dLat = (delY(j) + delY(j+1))*exf_half
./pkg/exf/exf_readparms.F	789	EXF_READPARMS	ustress_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	790	EXF_READPARMS	vstress_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	791	EXF_READPARMS	hflux_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	792	EXF_READPARMS	sflux_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	793	EXF_READPARMS	swflux_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	794	EXF_READPARMS	runoff_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	795	EXF_READPARMS	atemp_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	796	EXF_READPARMS	aqh_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	797	EXF_READPARMS	evap_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	798	EXF_READPARMS	precip_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	799	EXF_READPARMS	snowprecip_lat_inc(j)= inp_dLat
./pkg/exf/exf_readparms.F	800	EXF_READPARMS	uwind_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	801	EXF_READPARMS	vwind_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	802	EXF_READPARMS	wspeed_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	803	EXF_READPARMS	lwflux_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	804	EXF_READPARMS	swdown_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	805	EXF_READPARMS	lwdown_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	806	EXF_READPARMS	apressure_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	807	EXF_READPARMS	areamask_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	808	EXF_READPARMS	climsst_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	809	EXF_READPARMS	climsss_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	810	EXF_READPARMS	climustr_lat_inc(j) = inp_dLat
./pkg/exf/exf_readparms.F	811	EXF_READPARMS	climvstr_lat_inc(j) = inp_dLat
./pkg/exf/exf_set_gen.F	111	EXF_SET_GEN	j = ILNBLNK(genfile)
./pkg/exf/exf_set_gen.F	114	EXF_SET_GEN	& ' for file: ', genfile(1:j)
./pkg/exf/exf_set_gen.F	129	EXF_SET_GEN	j = ILNBLNK(genfile)
./pkg/exf/exf_set_gen.F	131	EXF_SET_GEN	& 'processing file: ', genfile(1:j)
./pkg/exf/exf_set_gen.F	153	EXF_SET_GEN	j = ILNBLNK(genfile0)
./pkg/exf/exf_set_gen.F	156	EXF_SET_GEN	& ' from: ', genfile0(1:j)
./pkg/exf/exf_set_gen.F	191	EXF_SET_GEN	j = ILNBLNK(genfile1)
./pkg/exf/exf_set_gen.F	194	EXF_SET_GEN	& ' from: ', genfile1(1:j)
./pkg/exf/exf_set_gen.F	222	EXF_SET_GEN	DO j = 1,sny
./pkg/exf/exf_set_gen.F	225	EXF_SET_GEN	genfld(i,j,bi,bj) = exf_inscal_gen * (
./pkg/exf/exf_set_gen.F	226	EXF_SET_GEN	& fac * gen0(i,j,bi,bj) +
./pkg/exf/exf_set_gen.F	227	EXF_SET_GEN	& (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_gen.F	228	EXF_SET_GEN	genfld(i,j,bi,bj) =
./pkg/exf/exf_set_gen.F	229	EXF_SET_GEN	& genfld(i,j,bi,bj) -
./pkg/exf/exf_set_gen.F	304	EXF_INIT_GEN	INTEGER bi, bj, i, j, count
./pkg/exf/exf_set_gen.F	310	EXF_INIT_GEN	DO j = 1-oly, sny+oly
./pkg/exf/exf_set_gen.F	312	EXF_INIT_GEN	genfld(i,j,bi,bj) = genconst
./pkg/exf/exf_set_gen.F	313	EXF_INIT_GEN	gen0(i,j,bi,bj) = genconst
./pkg/exf/exf_set_gen.F	314	EXF_INIT_GEN	gen1(i,j,bi,bj) = genconst
./pkg/exf/exf_set_gen.F	324	EXF_INIT_GEN	j = ILNBLNK(genfile)
./pkg/exf/exf_set_gen.F	327	EXF_INIT_GEN	& ' from: ', genfile(1:j)
./pkg/exf/exf_set_gen.F	354	EXF_INIT_GEN	DO j = 1,sny
./pkg/exf/exf_set_gen.F	356	EXF_INIT_GEN	genfld(i,j,bi,bj) =
./pkg/exf/exf_set_gen.F	357	EXF_INIT_GEN	& exf_inscal_gen * genfld(i,j,bi,bj)
./pkg/exf/exf_set_gen.F	91	EXF_SET_GEN	INTEGER bi, bj, i, j
./pkg/exf/exf_set_obcs.F	175	EXF_SET_OBCS_YZ	INTEGER j, k
./pkg/exf/exf_set_obcs.F	213	EXF_SET_OBCS_YZ	DO j = 1,sNy
./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	382	EXF_SET_OBCS_Y	INTEGER bi, bj, j
./pkg/exf/exf_set_obcs.F	417	EXF_SET_OBCS_Y	DO j = 1,sNy
./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_uv.F	119	EXF_SET_UV	j = ILNBLNK(uvecfile)
./pkg/exf/exf_set_uv.F	122	EXF_SET_UV	& ' for file: ', uvecfile(1:j)
./pkg/exf/exf_set_uv.F	137	EXF_SET_UV	j = ILNBLNK(vvecfile)
./pkg/exf/exf_set_uv.F	139	EXF_SET_UV	& 'processing: ', uvecfile(1:i), ' & ', vvecfile(1:j)
./pkg/exf/exf_set_uv.F	168	EXF_SET_UV	j = ILNBLNK(uvecfile0)
./pkg/exf/exf_set_uv.F	171	EXF_SET_UV	& ' from: ', uvecfile0(1:j)
./pkg/exf/exf_set_uv.F	174	EXF_SET_UV	j = ILNBLNK(vvecfile0)
./pkg/exf/exf_set_uv.F	177	EXF_SET_UV	& ' from: ', vvecfile0(1:j)
./pkg/exf/exf_set_uv.F	214	EXF_SET_UV	DO j = 1,sNy
./pkg/exf/exf_set_uv.F	217	EXF_SET_UV	x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	218	EXF_SET_UV	x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	219	EXF_SET_UV	x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	220	EXF_SET_UV	x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	227	EXF_SET_UV	y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	228	EXF_SET_UV	y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	229	EXF_SET_UV	y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	230	EXF_SET_UV	y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	233	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	235	EXF_SET_UV	vvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	236	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	237	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	241	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	243	EXF_SET_UV	uvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	244	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	245	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	248	EXF_SET_UV	uvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	249	EXF_SET_UV	& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	250	EXF_SET_UV	& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	251	EXF_SET_UV	vvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	252	EXF_SET_UV	& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	253	EXF_SET_UV	& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	262	EXF_SET_UV	DO j = 1,sNy
./pkg/exf/exf_set_uv.F	264	EXF_SET_UV	uvec1(i,j,bi,bj) = tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	265	EXF_SET_UV	vvec1(i,j,bi,bj) = tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	294	EXF_SET_UV	j = ILNBLNK(uvecfile1)
./pkg/exf/exf_set_uv.F	297	EXF_SET_UV	& ' from: ', uvecfile1(1:j)
./pkg/exf/exf_set_uv.F	300	EXF_SET_UV	j = ILNBLNK(vvecfile1)
./pkg/exf/exf_set_uv.F	303	EXF_SET_UV	& ' from: ', vvecfile1(1:j)
./pkg/exf/exf_set_uv.F	340	EXF_SET_UV	DO j = 1,sNy
./pkg/exf/exf_set_uv.F	343	EXF_SET_UV	x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	344	EXF_SET_UV	x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	345	EXF_SET_UV	x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	346	EXF_SET_UV	x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	353	EXF_SET_UV	y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	354	EXF_SET_UV	y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	355	EXF_SET_UV	y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	356	EXF_SET_UV	y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	359	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	361	EXF_SET_UV	vvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	362	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	363	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	367	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	369	EXF_SET_UV	uvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	370	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	371	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	374	EXF_SET_UV	uvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	375	EXF_SET_UV	& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	376	EXF_SET_UV	& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	377	EXF_SET_UV	vvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	378	EXF_SET_UV	& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	379	EXF_SET_UV	& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	388	EXF_SET_UV	DO j = 1,sNy
./pkg/exf/exf_set_uv.F	390	EXF_SET_UV	uvec1(i,j,bi,bj) = tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	391	EXF_SET_UV	vvec1(i,j,bi,bj) = tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	405	EXF_SET_UV	DO j = 1,sNy
./pkg/exf/exf_set_uv.F	407	EXF_SET_UV	uvec(i,j,bi,bj) = exf_inscal_uvec * (
./pkg/exf/exf_set_uv.F	408	EXF_SET_UV	& fac * uvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F	409	EXF_SET_UV	& (exf_one - fac) * uvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F	410	EXF_SET_UV	vvec(i,j,bi,bj) = exf_inscal_vvec * (
./pkg/exf/exf_set_uv.F	411	EXF_SET_UV	& fac * vvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F	412	EXF_SET_UV	& (exf_one - fac) * vvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F	99	EXF_SET_UV	INTEGER i, j, bi, bj
./pkg/exf/exf_swapffields.F	104	EXF_SWAPFFIELDS_3D	INTEGER i, j, k
./pkg/exf/exf_swapffields.F	111	EXF_SWAPFFIELDS_3D	DO j = 1,sNy
./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	210	EXF_SWAPFFIELDS_YZ	INTEGER j, k
./pkg/exf/exf_swapffields.F	217	EXF_SWAPFFIELDS_YZ	DO j = 1,sNy
./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	54	EXF_SWAPFFIELDS	INTEGER i, j
./pkg/exf/exf_swapffields.F	60	EXF_SWAPFFIELDS	DO j = 1,sNy
./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	wsLoc(i,j) = SQRT(wsSq)
./pkg/exf/exf_wind.F	101	EXF_WIND	cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F	102	EXF_WIND	sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F	104	EXF_WIND	wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F	105	EXF_WIND	cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	106	EXF_WIND	sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	112	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	114	EXF_WIND	wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F	122	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	125	EXF_WIND	usSq = ( ustress(i, j,bi,bj)*ustress(i ,j,bi,bj)
./pkg/exf/exf_wind.F	126	EXF_WIND	& +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj)
./pkg/exf/exf_wind.F	127	EXF_WIND	& +vstress(i,j, bi,bj)*vstress(i,j ,bi,bj)
./pkg/exf/exf_wind.F	128	EXF_WIND	& +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj)
./pkg/exf/exf_wind.F	131	EXF_WIND	usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj)
./pkg/exf/exf_wind.F	132	EXF_WIND	& +vstress(i,j,bi,bj)*vstress(i,j,bi,bj)
./pkg/exf/exf_wind.F	135	EXF_WIND	wStress(i,j,bi,bj) = SQRT(usSq)
./pkg/exf/exf_wind.F	137	EXF_WIND	cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F	138	EXF_WIND	sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F	140	EXF_WIND	wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	141	EXF_WIND	cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	142	EXF_WIND	sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	156	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	158	EXF_WIND	ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA
./pkg/exf/exf_wind.F	160	EXF_WIND	wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F	164	EXF_WIND	wsLoc(i,j) = SQRT(tmp1 + tmp2)
./pkg/exf/exf_wind.F	173	EXF_WIND	wsLoc(i,j) = tmp4 + tmp1*tmp1 / tmp4 - tmp1
./pkg/exf/exf_wind.F	180	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	182	EXF_WIND	wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F	196	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	198	EXF_WIND	uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj)
./pkg/exf/exf_wind.F	199	EXF_WIND	vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj)
./pkg/exf/exf_wind.F	209	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	211	EXF_WIND	sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin)
./pkg/exf/exf_wind.F	46	EXF_WIND	INTEGER i,j
./pkg/exf/exf_wind.F	76	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	78	EXF_WIND	wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F	79	EXF_WIND	cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	80	EXF_WIND	sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	81	EXF_WIND	sh(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	82	EXF_WIND	wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	95	EXF_WIND	DO j = 1,sNy
./pkg/exf/exf_wind.F	97	EXF_WIND	wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F	98	EXF_WIND	& + vwind(i,j,bi,bj)*vwind(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F	111	EXF_ZENITHANGLE	IF ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) THEN
./pkg/exf/exf_zenithangle.F	117	EXF_ZENITHANGLE	iLat1= zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F	118	EXF_ZENITHANGLE	wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F	155	EXF_ZENITHANGLE	SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	156	EXF_ZENITHANGLE	CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	164	EXF_ZENITHANGLE	& cos( 2. _d 0 PI TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F	225	EXF_ZENITHANGLE	zen_albedo (i,j,bi,bj) =
./pkg/exf/exf_zenithangle.F	241	EXF_ZENITHANGLE	DO j = 1,sNy
./pkg/exf/exf_zenithangle.F	264	EXF_ZENITHANGLE	SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	265	EXF_ZENITHANGLE	CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	269	EXF_ZENITHANGLE	& cos( 2. _d 0 PI TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F	272	EXF_ZENITHANGLE	zen_fsol_diurnal (i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F	274	EXF_ZENITHANGLE	H0 = -tan( yC(i,j,bi,bj) deg2rad ) tan( DECLI )
./pkg/exf/exf_zenithangle.F	280	EXF_ZENITHANGLE	zen_fsol_daily (i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F	40	EXF_ZENITHANGLE	INTEGER i,j
./pkg/exf/exf_zenithangle.F	91	EXF_ZENITHANGLE	DO j = 1,sNy
./pkg/exf/exf_zenithangle_table.F	124	EXF_ZENITHANGLE_TABLE	DO j = 1,sNy
./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	36	EXF_ZENITHANGLE_TABLE	INTEGER i,j
./pkg/fizhi/AtoC.F	40	ATOC	integer i, j, L, bi, bj
./pkg/fizhi/AtoC.F	54	ATOC	do j = jdim1,jdim2
./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	60	ATOC	do j = jm1,jm2
./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	71	ATOC	. ( tmpfld1(i-1,j) + tmpfld1(i,j) ) /
./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	83	ATOC	. ( tmpfld2(i,j-1) + tmpfld2(i,j) ) /
./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	56	CTOA	do j = jdim1,jdim2
./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	62	CTOA	do j = jm1,jm2
./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	71	CTOA	. ( tmpfld1(i,j) + tmpfld1(i+1,j) ) /
./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	83	CTOA	. ( tmpfld2(i,j) + tmpfld2(i,j+1) ) /
./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/cah-dat.h	20	NO PROCEDURE	data ((cah(i,j),i=1,22),j= 6,10)/
./pkg/fizhi/cah-dat.h	35	NO PROCEDURE	data ((cah(i,j),i=1,22),j=11,15)/
./pkg/fizhi/cah-dat.h	50	NO PROCEDURE	data ((cah(i,j),i=1,22),j=16,19)/
./pkg/fizhi/cah-dat.h	5	NO PROCEDURE	data ((cah(i,j),i=1,22),j= 1, 5)/
./pkg/fizhi/cai-dat.h	104	NO PROCEDURE	data ((caib(11,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	115	NO PROCEDURE	data ((caif(i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	14	NO PROCEDURE	data ((caib(2,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	24	NO PROCEDURE	data ((caib(3,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	34	NO PROCEDURE	data ((caib(4,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	44	NO PROCEDURE	data ((caib(5,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	4	NO PROCEDURE	data ((caib(1,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	54	NO PROCEDURE	data ((caib(6,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	64	NO PROCEDURE	data ((caib(7,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	74	NO PROCEDURE	data ((caib(8,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	84	NO PROCEDURE	data ((caib(9,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h	94	NO PROCEDURE	data ((caib(10,i,j),j=1,11),i=1,9)/
./pkg/fizhi/do_fizhi.F	131	DO_FIZHI	INTEGER i,j,L
./pkg/fizhi/do_fizhi.F	169	DO_FIZHI	do j = jm1,jm2
./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	182	DO_FIZHI	do j=jm1,jm2
./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	192	DO_FIZHI	do j = jm1,jm2
./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	204	DO_FIZHI	do j = jm1,jm2
./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	269	DO_FIZHI	do j = jm1,jm2
./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	287	DO_FIZHI	do j = jm1,jm2
./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	298	DO_FIZHI	do j = jm1,jm2
./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/fizhi_driver.F	116	FIZHI_DRIVER	INTEGER i,j
./pkg/fizhi/fizhi_driver.F	180	FIZHI_DRIVER	do j=1,jm
./pkg/fizhi/fizhi_driver.F	182	FIZHI_DRIVER	tg0(i,j) = tgz(i,j)
./pkg/fizhi/fizhi_fillnegs.F	120	TRACER_FILL	do j=2,jm-1
./pkg/fizhi/fizhi_fillnegs.F	121	TRACER_FILL	phi(j) = phi(j-1) + dphi(j-1)
./pkg/fizhi/fizhi_fillnegs.F	127	TRACER_FILL	do j=2,jm-1
./pkg/fizhi/fizhi_fillnegs.F	129	TRACER_FILL	dxu(i,j) = acos(phi(j))dlam(i)
./pkg/fizhi/fizhi_fillnegs.F	133	TRACER_FILL	do j=2,jm-2
./pkg/fizhi/fizhi_fillnegs.F	135	TRACER_FILL	dyv(i,j) = a*dphi(j)
./pkg/fizhi/fizhi_fillnegs.F	145	TRACER_FILL	do j=2,jm-1
./pkg/fizhi/fizhi_fillnegs.F	148	TRACER_FILL	dxp(i,j) = ( dxu(i,j)+dxu(im1,j) )*0.5
./pkg/fizhi/fizhi_fillnegs.F	153	TRACER_FILL	do j=2,jm-2
./pkg/fizhi/fizhi_fillnegs.F	155	TRACER_FILL	dxv(i,j) = ( dxp(i,j)+dxp(i,j+1) )*0.5
./pkg/fizhi/fizhi_fillnegs.F	161	TRACER_FILL	do j=3,jm-2
./pkg/fizhi/fizhi_fillnegs.F	163	TRACER_FILL	dyp(i,j) = ( dyv(i,j)+dyv(i,j-1) )*0.5
./pkg/fizhi/fizhi_fillnegs.F	173	TRACER_FILL	do j=3,jm-2
./pkg/fizhi/fizhi_fillnegs.F	175	TRACER_FILL	d2p(i,j) = 0.5( dxv(i,j)+dxv(i,j-1) )dyp(i,j)
./pkg/fizhi/fizhi_fillnegs.F	190	TRACER_FILL	do j=2,jm-1
./pkg/fizhi/fizhi_fillnegs.F	196	TRACER_FILL	if( pq(i,j,L).lt.0.0 ) then
./pkg/fizhi/fizhi_fillnegs.F	198	TRACER_FILL	qval = pq(i ,j,L)d2p(i ,j)dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F	199	TRACER_FILL	array(1) = pq(ip1,j,L)d2p(ip1,j)dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F	200	TRACER_FILL	array(2) = pq(im1,j,L)d2p(im1,j)dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F	202	TRACER_FILL	if( j.eq.jm-1 ) then
./pkg/fizhi/fizhi_fillnegs.F	205	TRACER_FILL	array(3) = pq(i,j+1,L)d2p(i,j+1)dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F	207	TRACER_FILL	if( j.eq.2 ) then
./pkg/fizhi/fizhi_fillnegs.F	210	TRACER_FILL	array(4) = pq(i,j-1,L)d2p(i,j-1)dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F	215	TRACER_FILL	array(5) = pq(i,j,L-1)d2p(i,j)dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F	220	TRACER_FILL	array(6) = pq(i,j,L+1)d2p(i,j)dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F	232	TRACER_FILL	if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact
./pkg/fizhi/fizhi_fillnegs.F	233	TRACER_FILL	if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact
./pkg/fizhi/fizhi_fillnegs.F	234	TRACER_FILL	if( array(3).gt.0 ) pq(i,j+1,L) = pq(i,j+1,L) * fact
./pkg/fizhi/fizhi_fillnegs.F	235	TRACER_FILL	if( array(4).gt.0 ) pq(i,j-1,L) = pq(i,j-1,L) * fact
./pkg/fizhi/fizhi_fillnegs.F	236	TRACER_FILL	if( array(5).gt.0 ) pq(i,j,L-1) = pq(i,j,L-1) * fact
./pkg/fizhi/fizhi_fillnegs.F	237	TRACER_FILL	if( array(6).gt.0 ) pq(i,j,L+1) = pq(i,j,L+1) * fact
./pkg/fizhi/fizhi_fillnegs.F	238	TRACER_FILL	pq(i,j,L) = 0.0
./pkg/fizhi/fizhi_fillnegs.F	240	TRACER_FILL	pq(i,j,L) = 0.0
./pkg/fizhi/fizhi_fillnegs.F	243	TRACER_FILL	if( imax.eq.1 ) pq(ip1,j,L) = pq(ip1,j,L) +
./pkg/fizhi/fizhi_fillnegs.F	244	TRACER_FILL	. pq(i,j,L)*d2p(i,j)/d2p(ip1,j)
./pkg/fizhi/fizhi_fillnegs.F	245	TRACER_FILL	if( imax.eq.2 ) pq(im1,j,L) = pq(im1,j,L) +
./pkg/fizhi/fizhi_fillnegs.F	246	TRACER_FILL	. pq(i,j,L)*d2p(i,j)/d2p(im1,j)
./pkg/fizhi/fizhi_fillnegs.F	247	TRACER_FILL	if( imax.eq.3 ) pq(i,j+1,L) = pq(i,j+1,L) +
./pkg/fizhi/fizhi_fillnegs.F	248	TRACER_FILL	. pq(i,j,L)*d2p(i,j)/d2p(i,j+1)
./pkg/fizhi/fizhi_fillnegs.F	249	TRACER_FILL	if( imax.eq.4 ) pq(i,j-1,L) = pq(i,j-1,L) +
./pkg/fizhi/fizhi_fillnegs.F	250	TRACER_FILL	. pq(i,j,L)*d2p(i,j)/d2p(i,j-1)
./pkg/fizhi/fizhi_fillnegs.F	251	TRACER_FILL	if( imax.eq.5 ) pq(i,j,L-1) = pq(i,j,L-1) +
./pkg/fizhi/fizhi_fillnegs.F	252	TRACER_FILL	. pq(i,j,L)*dp(i,j,L) /dp(i,j,L-1)
./pkg/fizhi/fizhi_fillnegs.F	253	TRACER_FILL	if( imax.eq.6 ) pq(i,j,L+1) = pq(i,j,L+1) +
./pkg/fizhi/fizhi_fillnegs.F	254	TRACER_FILL	. pq(i,j,L)*dp(i,j,L) /dp(i,j,L+1)
./pkg/fizhi/fizhi_fillnegs.F	255	TRACER_FILL	pq(i,j,L) = 0.0
./pkg/fizhi/fizhi_fillnegs.F	31	QCHECK	integer i,j,L,LM1
./pkg/fizhi/fizhi_fillnegs.F	38	QCHECK	do j=jm1,jm2
./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	49	QCHECK	do j=jm1,jm2
./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	89	TRACER_FILL	integer i,j,l,im1,ip1,imax,m
./pkg/fizhi/fizhi_gwdrag.F	102	GWDRAG	if( pz(i,j)-ple(i,j,Lm+2-nthini).gt.25. ) then
./pkg/fizhi/fizhi_gwdrag.F	103	GWDRAG	nthin(i,j) = nthini
./pkg/fizhi/fizhi_gwdrag.F	109	GWDRAG	if( ple(i,j,Lm+2-nbasei).lt.(0.667*pz(i,j)) ) then
./pkg/fizhi/fizhi_gwdrag.F	110	GWDRAG	nbase(i,j) = nbasei
./pkg/fizhi/fizhi_gwdrag.F	115	GWDRAG	if( (0.667*pz(i,j))-ple(i,j,Lm+2-nbase(i,j)) .gt.
./pkg/fizhi/fizhi_gwdrag.F	116	GWDRAG	. ple(i,j,Lm+3-nbase(i,j))-(0.667*pz(i,j)) ) then
./pkg/fizhi/fizhi_gwdrag.F	117	GWDRAG	nbase(i,j) = nbase(i,j)-1
./pkg/fizhi/fizhi_gwdrag.F	126	GWDRAG	do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F	128	GWDRAG	phis_std(i,j) = min( 400.0 _d 0, sqrt( max(0.0 _d 0,
./pkg/fizhi/fizhi_gwdrag.F	129	GWDRAG	$ phis_var(i,j)) )/grav )
./pkg/fizhi/fizhi_gwdrag.F	136	GWDRAG	do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F	138	GWDRAG	tv(i,j,L) = tz(i,j,L)pkz(i,j,L)(1.+.609*qz(i,j,L))
./pkg/fizhi/fizhi_gwdrag.F	144	GWDRAG	do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F	146	GWDRAG	dragu(i,j,L) = 0.
./pkg/fizhi/fizhi_gwdrag.F	147	GWDRAG	dragv(i,j,L) = 0.
./pkg/fizhi/fizhi_gwdrag.F	148	GWDRAG	dragt(i,j,L) = 0.
./pkg/fizhi/fizhi_gwdrag.F	185	GWDRAG	do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F	187	GWDRAG	dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(i
./pkg/fizhi/fizhi_gwdrag.F	188	GWDRAG	$ ,j,L) )
./pkg/fizhi/fizhi_gwdrag.F	189	GWDRAG	dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i
./pkg/fizhi/fizhi_gwdrag.F	190	GWDRAG	$ ,j,L) )
./pkg/fizhi/fizhi_gwdrag.F	191	GWDRAG	dragt(i,j,L) = -( uz(i,j,L)dragu(i,j,L)+vz(i,j,L)dragv(i,j,L) )
./pkg/fizhi/fizhi_gwdrag.F	193	GWDRAG	dudt(i,j,L) = dudt(i,j,L) + dragu(i,j,L)
./pkg/fizhi/fizhi_gwdrag.F	194	GWDRAG	dvdt(i,j,L) = dvdt(i,j,L) + dragv(i,j,L)
./pkg/fizhi/fizhi_gwdrag.F	195	GWDRAG	dtdt(i,j,L) = dtdt(i,j,L) + dragt(i,j,L)*pz(i,j)/pkz(i,j,L)
./pkg/fizhi/fizhi_gwdrag.F	206	GWDRAG	do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F	208	GWDRAG	tmpdiag(i,j) = dragu(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F	215	GWDRAG	do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F	217	GWDRAG	tmpdiag(i,j) = dragv(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F	224	GWDRAG	do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F	226	GWDRAG	tmpdiag(i,j) = dragt(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F	249	GWDRAG	do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F	251	GWDRAG	sumu(i,j) = 0.0
./pkg/fizhi/fizhi_gwdrag.F	255	GWDRAG	do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F	257	GWDRAG	sumu(i,j) = sumu(i,j) + dragu(i,j,L)*dpres(i,j,L)/pz(i,j)
./pkg/fizhi/fizhi_gwdrag.F	261	GWDRAG	do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F	263	GWDRAG	tmpdiag(i,j) = dragx(i,j) + sumu(i,j)pz(i,j)/grav100
./pkg/fizhi/fizhi_gwdrag.F	272	GWDRAG	do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F	274	GWDRAG	sumu(i,j) = 0.0
./pkg/fizhi/fizhi_gwdrag.F	278	GWDRAG	do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F	280	GWDRAG	sumu(i,j) = sumu(i,j) + dragv(i,j,L)*dpres(i,j,L)/pz(i,j)
./pkg/fizhi/fizhi_gwdrag.F	284	GWDRAG	do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F	286	GWDRAG	tmpdiag(i,j) = dragy(i,j) + sumu(i,j)pz(i,j)/grav100
./pkg/fizhi/fizhi_gwdrag.F	78	GWDRAG	integer n,i,j,L
./pkg/fizhi/fizhi_gwdrag.F	98	GWDRAG	do j=1,jm
./pkg/fizhi/fizhi_init_fixed.F	113	FIZHI_INIT_FIXED	do j=jm1,jm2
./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	155	FIZHI_INIT_FIXED	do j=jm1,jm2
./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	87	FIZHI_INIT_FIXED	do j = jm1,jm2
./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	100	FIZHI_INIT_VARS	do j = 1,sNy
./pkg/fizhi/fizhi_init_vars.F	103	FIZHI_INIT_VARS	pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	107	FIZHI_INIT_VARS	do j = 1,sNy
./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	114	FIZHI_INIT_VARS	do j = 1,sNy
./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	127	FIZHI_INIT_VARS	do j = 1,sNy
./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	143	FIZHI_INIT_VARS	do j = 1,sNy
./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	167	FIZHI_INIT_VARS	do j = 1,sNy
./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	176	FIZHI_INIT_VARS	do j = 1,sNy
./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	185	FIZHI_INIT_VARS	do j = 1,sNy
./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	194	FIZHI_INIT_VARS	do j = 1,sNy
./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	203	FIZHI_INIT_VARS	do j = 1,sNy
./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	215	FIZHI_INIT_VARS	do j = jm1,jm2
./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	261	FIZHI_INIT_VARS	do j = 1,sNy
./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	278	FIZHI_INIT_VARS	do j = 1,sNy
./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	60	FIZHI_INIT_VARS	INTEGER i, j, L, bi, bj, Lbotij
./pkg/fizhi/fizhi_init_veg.F	133	FIZHI_INIT_VEG	do j = 1,jm
./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	166	FIZHI_INIT_VEG	do j=1,jm
./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	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	184	FIZHI_INIT_VEG	do j=1,jm
./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	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	67	FIZHI_INIT_VEG	INTEGER i,j,k,bi,bj
./pkg/fizhi/fizhi_init_vegsurftiles.F	108	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	110	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,2)
./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	112	FIZHI_INIT_VEGSURFTILES	. tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) - 0.5
./pkg/fizhi/fizhi_init_vegsurftiles.F	121	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	123	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,3)
./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	125	FIZHI_INIT_VEGSURFTILES	. tempgrid(i,j) = 0.01
./pkg/fizhi/fizhi_init_vegsurftiles.F	134	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	136	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,4)
./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	138	FIZHI_INIT_VEGSURFTILES	. tempgrid(i,j) = 0.7
./pkg/fizhi/fizhi_init_vegsurftiles.F	147	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	149	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,5)
./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	151	FIZHI_INIT_VEGSURFTILES	. tempgrid(i,j) = 0.5
./pkg/fizhi/fizhi_init_vegsurftiles.F	160	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	162	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,6)
./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	164	FIZHI_INIT_VEGSURFTILES	. tempgrid(i,j) = 0.3
./pkg/fizhi/fizhi_init_vegsurftiles.F	173	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	175	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,7)
./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	177	FIZHI_INIT_VEGSURFTILES	. tempgrid(i,j) = 0.
./pkg/fizhi/fizhi_init_vegsurftiles.F	186	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	188	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,8)
./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	190	FIZHI_INIT_VEGSURFTILES	. tempgrid(i,j) = 0.
./pkg/fizhi/fizhi_init_vegsurftiles.F	46	FIZHI_INIT_VEGSURFTILES	integer i,j,n
./pkg/fizhi/fizhi_init_vegsurftiles.F	97	FIZHI_INIT_VEGSURFTILES	do j = 1,sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F	99	FIZHI_INIT_VEGSURFTILES	tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1)
./pkg/fizhi/fizhi_lwrad.F	100	LWRIO	cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/
./pkg/fizhi/fizhi_lwrad.F	1022	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1024	IRRAD	blayer(i,j,k)=ta(i,j,k)(ta(i,j,k)(ta(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1025	IRRAD	* (ta(i,j,k)cb(5,ib)+cb(4,ib))+cb(3,ib))
./pkg/fizhi/fizhi_lwrad.F	102	LWRIO	cldmxo(i,j,L) = min( 1.0 _d 0, clwmo(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F	1033	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1035	IRRAD	blayer(i,j,0) = 0.0
./pkg/fizhi/fizhi_lwrad.F	1036	IRRAD	blayer(i,j,np+1)= ( ts(i,j)(ts(i,j)(ts(i,j)
./pkg/fizhi/fizhi_lwrad.F	1037	IRRAD	* (ts(i,j)cb(5,ib)+cb(4,ib))+cb(3,ib))
./pkg/fizhi/fizhi_lwrad.F	1038	IRRAD	* +cb(2,ib))+cb(1,ib) )*emiss(i,j,ib)
./pkg/fizhi/fizhi_lwrad.F	103	LWRIO	lwlz(i,j,L) = lwlz(i,j,L) + qliqave(i,j,L)/imstturb
./pkg/fizhi/fizhi_lwrad.F	1043	IRRAD	dbs(i,j)=(ts(i,j)(ts(i,j)(ts(i,j)4.cb(5,ib)
./pkg/fizhi/fizhi_lwrad.F	1044	IRRAD	* +3.cb(4,ib))+2.cb(3,ib))+cb(2,ib))*emiss(i,j,ib)
./pkg/fizhi/fizhi_lwrad.F	1050	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1052	IRRAD	dlayer(i,j,k)=blayer(i,j,k-1)-blayer(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1075	IRRAD	do j= 1, n
./pkg/fizhi/fizhi_lwrad.F	1077	IRRAD	taucl(i,j,k,1)=cwp(i,j,k,1)*(aib(1,ib)+aib(2,ib)/
./pkg/fizhi/fizhi_lwrad.F	1078	IRRAD	* reff(i,j,k,1)**aib(3,ib))
./pkg/fizhi/fizhi_lwrad.F	1079	IRRAD	taucl(i,j,k,2)=cwp(i,j,k,2)*(awb(1,ib)+(awb(2,ib)+(awb(3,ib)
./pkg/fizhi/fizhi_lwrad.F	1080	IRRAD	* +awb(4,ib)reff(i,j,k,2))reff(i,j,k,2))*reff(i,j,k,2))
./pkg/fizhi/fizhi_lwrad.F	1092	IRRAD	do j= 1, n
./pkg/fizhi/fizhi_lwrad.F	1095	IRRAD	clr(i,j,k) = 1.0
./pkg/fizhi/fizhi_lwrad.F	1096	IRRAD	taux=taucl(i,j,k,1)+taucl(i,j,k,2)+taucl(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	1098	IRRAD	if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_lwrad.F	109	LWRIO	do j =1,jm
./pkg/fizhi/fizhi_lwrad.F	1100	IRRAD	reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_lwrad.F	1101	IRRAD	reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_lwrad.F	1103	IRRAD	w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib)
./pkg/fizhi/fizhi_lwrad.F	1105	IRRAD	w2=taucl(i,j,k,2)*(aww(1,ib)+(aww(2,ib)+(aww(3,ib)
./pkg/fizhi/fizhi_lwrad.F	1107	IRRAD	w3=taucl(i,j,k,3)*0.54
./pkg/fizhi/fizhi_lwrad.F	111	LWRIO	cldtot(i,j,L) = min( 1.0 _d 0,cldlw(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F	1128	IRRAD	clr(i,j,k)=1.0-(fcld(i,j,k)(1.0-exp(-1.66taux)))
./pkg/fizhi/fizhi_lwrad.F	112	LWRIO	cldmxo(i,j,L) = min( 1.0 _d 0,clwmo(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F	1232	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1234	IRRAD	flxu(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	1235	IRRAD	flxd(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	1236	IRRAD	flcu(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	1237	IRRAD	flcd(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	1250	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1252	IRRAD	fclr(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F	1253	IRRAD	clrlw(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F	1254	IRRAD	clrmd(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F	1255	IRRAD	clrhi(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F	1256	IRRAD	tranal(i,j)= 1.0
./pkg/fizhi/fizhi_lwrad.F	1264	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1266	IRRAD	th2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F	1276	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1278	IRRAD	tcon(i,j,iq)=1.0
./pkg/fizhi/fizhi_lwrad.F	1291	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1293	IRRAD	tco2(i,j,ik,isb)=1.0
./pkg/fizhi/fizhi_lwrad.F	1308	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1310	IRRAD	tn2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F	1320	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1322	IRRAD	tch4(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F	1332	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1334	IRRAD	tcom(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F	1343	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1345	IRRAD	tf11(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F	1353	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1355	IRRAD	tf12(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F	1363	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1365	IRRAD	tf22(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F	1374	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1376	IRRAD	th2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F	1377	IRRAD	tco2(i,j,ik,1)=1.0
./pkg/fizhi/fizhi_lwrad.F	1382	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1384	IRRAD	tcon(i,j,iq)=1.0
./pkg/fizhi/fizhi_lwrad.F	1389	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1391	IRRAD	tn2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F	1405	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1407	IRRAD	trant(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F	1530	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1532	IRRAD	ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,j,k2-1,ib))
./pkg/fizhi/fizhi_lwrad.F	1533	IRRAD	* asyal(i,j,k2-1,ib))asyal(i,j,k2-1,ib)
./pkg/fizhi/fizhi_lwrad.F	1534	IRRAD	taux=taual(i,j,k2-1,ib)(1.-ssaal(i,j,k2-1,ib)ff)
./pkg/fizhi/fizhi_lwrad.F	1535	IRRAD	tranal(i,j)=tranal(i,j)exp(-1.66taux)
./pkg/fizhi/fizhi_lwrad.F	1536	IRRAD	trant (i,j)=trant(i,j) *tranal(i,j)
./pkg/fizhi/fizhi_lwrad.F	1545	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1548	IRRAD	clrhi(i,j)=min(clr(i,j,k2-1),clrhi(i,j))
./pkg/fizhi/fizhi_lwrad.F	1550	IRRAD	clrmd(i,j)=min(clr(i,j,k2-1),clrmd(i,j))
./pkg/fizhi/fizhi_lwrad.F	1552	IRRAD	clrlw(i,j)=min(clr(i,j,k2-1),clrlw(i,j))
./pkg/fizhi/fizhi_lwrad.F	1554	IRRAD	fclr(i,j)=clrlw(i,j)clrmd(i,j)clrhi(i,j)
./pkg/fizhi/fizhi_lwrad.F	1568	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1573	IRRAD	flcu(i,j,k1)=flcu(i,j,k1)-blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1574	IRRAD	flcd(i,j,k2)=flcd(i,j,k2)+blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1578	IRRAD	flxu(i,j,k1)=flxu(i,j,k1)-blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1579	IRRAD	flxd(i,j,k2)=flxd(i,j,k2)+blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1589	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1591	IRRAD	xx=trant(i,j)*dlayer(i,j,k2)
./pkg/fizhi/fizhi_lwrad.F	1592	IRRAD	flcu(i,j,k1) =flcu(i,j,k1)+xx
./pkg/fizhi/fizhi_lwrad.F	1593	IRRAD	flxu(i,j,k1) =flxu(i,j,k1)+xx*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F	1594	IRRAD	xx=trant(i,j)*dlayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1595	IRRAD	flcd(i,j,k2) =flcd(i,j,k2)+xx
./pkg/fizhi/fizhi_lwrad.F	1596	IRRAD	flxd(i,j,k2) =flxd(i,j,k2)+xx*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F	1606	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1608	IRRAD	rflx(i,j,k1) = rflx(i,j,k1)+trant(i,j)*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F	1609	IRRAD	* *dlayer(i,j,k2)
./pkg/fizhi/fizhi_lwrad.F	1610	IRRAD	rflx(i,j,k2) = rflx(i,j,k2)+trant(i,j)*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F	1611	IRRAD	* *dlayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1612	IRRAD	rflc(i,j,k1) = rflc(i,j,k1)+trant(i,j)
./pkg/fizhi/fizhi_lwrad.F	1613	IRRAD	* *dlayer(i,j,k2)
./pkg/fizhi/fizhi_lwrad.F	1614	IRRAD	rflc(i,j,k2) = rflc(i,j,k2)+trant(i,j)
./pkg/fizhi/fizhi_lwrad.F	1615	IRRAD	* *dlayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1628	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1630	IRRAD	trantcr(i,j,k1) =trant(i,j)
./pkg/fizhi/fizhi_lwrad.F	1631	IRRAD	transfc(i,j,k1) =trant(i,j)*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F	1640	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1642	IRRAD	dfdts(i,j,k1) =dfdts(i,j,k1)-dbs(i,j)*transfc(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	1654	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1656	IRRAD	flcu(i,j,np+1)=flcu(i,j,np+1)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F	1657	IRRAD	flxu(i,j,np+1)=flxu(i,j,np+1)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F	1658	IRRAD	st4(i,j)=st4(i,j)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F	1659	IRRAD	dfdts(i,j,np+1)=dfdts(i,j,np+1)-dbs(i,j)
./pkg/fizhi/fizhi_lwrad.F	1667	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1669	IRRAD	flcu(i,j,k)=flcu(i,j,k)-
./pkg/fizhi/fizhi_lwrad.F	1670	IRRAD	* flcd(i,j,np+1)trantcr(i,j,k)(1.-emiss(i,j,ib))
./pkg/fizhi/fizhi_lwrad.F	1671	IRRAD	flxu(i,j,k)=flxu(i,j,k)-
./pkg/fizhi/fizhi_lwrad.F	1672	IRRAD	* flxd(i,j,np+1)transfc(i,j,k)(1.-emiss(i,j,ib))
./pkg/fizhi/fizhi_lwrad.F	1682	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1684	IRRAD	flc(i,j,k)=flc(i,j,k)+flcd(i,j,k)+flcu(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1685	IRRAD	flx(i,j,k)=flx(i,j,k)+flxd(i,j,k)+flxu(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1695	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1697	IRRAD	flc(i,j,k)=flc(i,j,k)+rflc(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1698	IRRAD	flx(i,j,k)=flx(i,j,k)+rflx(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1731	COLUMN	integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F	1742	COLUMN	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1744	COLUMN	sabs(i,j,1)=0.0
./pkg/fizhi/fizhi_lwrad.F	1745	COLUMN	spre(i,j,1)=0.0
./pkg/fizhi/fizhi_lwrad.F	1746	COLUMN	stem(i,j,1)=0.0
./pkg/fizhi/fizhi_lwrad.F	1751	COLUMN	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1753	COLUMN	sabs(i,j,k+1)=sabs(i,j,k)+sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1754	COLUMN	spre(i,j,k+1)=spre(i,j,k)+pa(i,j,k)*sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1755	COLUMN	stem(i,j,k+1)=stem(i,j,k)+dt(i,j,k)*sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	1786	H2OEXPS	integer ib,m,n,np,i,j,k,ik
./pkg/fizhi/fizhi_lwrad.F	1811	H2OEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1817	H2OEXPS	xh = dh2o(i,j,k)(pa(i,j,k)/500.)*pm(ib)
./pkg/fizhi/fizhi_lwrad.F	1818	H2OEXPS	1 * ( 1.+(aw(ib)+bw(ib)* dt(i,j,k))*dt(i,j,k) )
./pkg/fizhi/fizhi_lwrad.F	1823	H2OEXPS	h2oexp(i,j,k,1) = exp(-xh*xkw(ib))
./pkg/fizhi/fizhi_lwrad.F	1834	H2OEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1836	H2OEXPS	xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F	1837	H2OEXPS	h2oexp(i,j,k,ik) = xhxhxh
./pkg/fizhi/fizhi_lwrad.F	1845	H2OEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1847	H2OEXPS	xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F	1849	H2OEXPS	h2oexp(i,j,k,ik) = xh*xh
./pkg/fizhi/fizhi_lwrad.F	1857	H2OEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1859	H2OEXPS	xh=h2oexp(i,j,k,ik-1)h2oexp(i,j,k,ik-1)h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F	1861	H2OEXPS	h2oexp(i,j,k,ik) = xh*xh1
./pkg/fizhi/fizhi_lwrad.F	1869	H2OEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1871	H2OEXPS	xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F	1874	H2OEXPS	h2oexp(i,j,k,ik) = xh*xh
./pkg/fizhi/fizhi_lwrad.F	1902	CONEXPS	integer ib,m,n,np,i,j,k,iq
./pkg/fizhi/fizhi_lwrad.F	1919	CONEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1921	CONEXPS	conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib))
./pkg/fizhi/fizhi_lwrad.F	1934	CONEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1936	CONEXPS	conexp(i,j,k,iq) = conexp(i,j,k,iq-1) *conexp(i,j,k,iq-1)
./pkg/fizhi/fizhi_lwrad.F	1963	CO2EXPS	integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F	1980	CO2EXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	1986	CO2EXPS	xc = dco2(i,j,k)(pa(i,j,k)/300.0)*0.5
./pkg/fizhi/fizhi_lwrad.F	1987	CO2EXPS	1 (1.+(0.0182+1.07e-4dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	1991	CO2EXPS	co2exp(i,j,k,1,1)=exp(-xc*2.656e-5)
./pkg/fizhi/fizhi_lwrad.F	1993	CO2EXPS	xc=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F	1995	CO2EXPS	co2exp(i,j,k,2,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	1997	CO2EXPS	xc=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F	1999	CO2EXPS	co2exp(i,j,k,3,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2001	CO2EXPS	xc=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F	2003	CO2EXPS	co2exp(i,j,k,4,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2005	CO2EXPS	xc=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F	2007	CO2EXPS	co2exp(i,j,k,5,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2009	CO2EXPS	xc=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F	2011	CO2EXPS	co2exp(i,j,k,6,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2016	CO2EXPS	xc = dco2(i,j,k)(pa(i,j,k)/30.0)*0.85
./pkg/fizhi/fizhi_lwrad.F	2017	CO2EXPS	1 (1.+(0.0042+2.00e-5dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2019	CO2EXPS	co2exp(i,j,k,1,2)=exp(-xc*2.656e-3)
./pkg/fizhi/fizhi_lwrad.F	2021	CO2EXPS	xc=co2exp(i,j,k,1,2)*co2exp(i,j,k,1,2)
./pkg/fizhi/fizhi_lwrad.F	2023	CO2EXPS	co2exp(i,j,k,2,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2025	CO2EXPS	xc=co2exp(i,j,k,2,2)*co2exp(i,j,k,2,2)
./pkg/fizhi/fizhi_lwrad.F	2027	CO2EXPS	co2exp(i,j,k,3,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2029	CO2EXPS	xc=co2exp(i,j,k,3,2)*co2exp(i,j,k,3,2)
./pkg/fizhi/fizhi_lwrad.F	2031	CO2EXPS	co2exp(i,j,k,4,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2033	CO2EXPS	xc=co2exp(i,j,k,4,2)*co2exp(i,j,k,4,2)
./pkg/fizhi/fizhi_lwrad.F	2035	CO2EXPS	co2exp(i,j,k,5,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2037	CO2EXPS	xc=co2exp(i,j,k,5,2)*co2exp(i,j,k,5,2)
./pkg/fizhi/fizhi_lwrad.F	2039	CO2EXPS	co2exp(i,j,k,6,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2065	N2OEXPS	integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F	2082	N2OEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2089	N2OEXPS	xc=dn2o(i,j,k)(1.+(1.9297e-3+4.3750e-6dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2090	N2OEXPS	n2oexp(i,j,k,1)=exp(-xc*6.31582e-2)
./pkg/fizhi/fizhi_lwrad.F	2092	N2OEXPS	xc=n2oexp(i,j,k,1)n2oexp(i,j,k,1)n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2095	N2OEXPS	n2oexp(i,j,k,2)=xcxc1xc2
./pkg/fizhi/fizhi_lwrad.F	2101	N2OEXPS	xc=dn2o(i,j,k)(pa(i,j,k)/500.0)*0.48
./pkg/fizhi/fizhi_lwrad.F	2102	N2OEXPS	* (1.+(1.3804e-3+7.4838e-6dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2103	N2OEXPS	n2oexp(i,j,k,1)=exp(-xc*5.35779e-2)
./pkg/fizhi/fizhi_lwrad.F	2105	N2OEXPS	xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2107	N2OEXPS	n2oexp(i,j,k,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2108	N2OEXPS	xc=n2oexp(i,j,k,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2110	N2OEXPS	n2oexp(i,j,k,3)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2111	N2OEXPS	xc=n2oexp(i,j,k,3)*n2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	2113	N2OEXPS	n2oexp(i,j,k,4)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2141	CH4EXPS	integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F	2158	CH4EXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2165	CH4EXPS	xc=dch4(i,j,k)(1.+(1.7007e-2+1.5826e-4dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2166	CH4EXPS	ch4exp(i,j,k,1)=exp(-xc*5.80708e-3)
./pkg/fizhi/fizhi_lwrad.F	2172	CH4EXPS	xc=dch4(i,j,k)(pa(i,j,k)/500.0)*0.65
./pkg/fizhi/fizhi_lwrad.F	2173	CH4EXPS	* (1.+(5.9590e-4-2.2931e-6dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2174	CH4EXPS	ch4exp(i,j,k,1)=exp(-xc*6.29247e-2)
./pkg/fizhi/fizhi_lwrad.F	2176	CH4EXPS	xc=ch4exp(i,j,k,1)ch4exp(i,j,k,1)ch4exp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2178	CH4EXPS	ch4exp(i,j,k,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2180	CH4EXPS	xc=ch4exp(i,j,k,2)ch4exp(i,j,k,2)ch4exp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2182	CH4EXPS	ch4exp(i,j,k,3)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2184	CH4EXPS	xc=ch4exp(i,j,k,3)ch4exp(i,j,k,3)ch4exp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	2186	CH4EXPS	ch4exp(i,j,k,4)=xc*xc
./pkg/fizhi/fizhi_lwrad.F	2213	COMEXPS	integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F	2230	COMEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2237	COMEXPS	xc=dcom(i,j,k)(1.+(3.5775e-2+4.0447e-4dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2238	COMEXPS	comexp(i,j,k,1)=exp(-xc*2.18947e-5)
./pkg/fizhi/fizhi_lwrad.F	2240	COMEXPS	xc=comexp(i,j,k,1)comexp(i,j,k,1)comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2245	COMEXPS	comexp(i,j,k,2)=xc*xc1
./pkg/fizhi/fizhi_lwrad.F	2251	COMEXPS	xc=dcom(i,j,k)(1.+(3.4268e-2+3.7401e-4dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2252	COMEXPS	comexp(i,j,k,1)=exp(-xc*4.74570e-5)
./pkg/fizhi/fizhi_lwrad.F	2254	COMEXPS	xc=comexp(i,j,k,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2259	COMEXPS	comexp(i,j,k,2)=xc1xc2xc
./pkg/fizhi/fizhi_lwrad.F	2290	CFCEXPS	integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F	2311	CFCEXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2317	CFCEXPS	xf=dcfc(i,j,k)(1.+(a1+b1dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2318	CFCEXPS	cfcexp(i,j,k)=exp(-xf*fk1)
./pkg/fizhi/fizhi_lwrad.F	2320	CFCEXPS	xf=dcfc(i,j,k)(1.+(a2+b2dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2321	CFCEXPS	cfcexp(i,j,k)=exp(-xf*fk2)
./pkg/fizhi/fizhi_lwrad.F	2352	B10EXPS	integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F	2371	B10EXPS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2377	B10EXPS	xx=dh2o(i,j,k)*(pa(i,j,k)/500.0)
./pkg/fizhi/fizhi_lwrad.F	2378	B10EXPS	1 (1.+(0.0149+6.20e-5dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2383	B10EXPS	h2oexp(i,j,k,1)=exp(-xx*0.10624)
./pkg/fizhi/fizhi_lwrad.F	2385	B10EXPS	xx=h2oexp(i,j,k,1)*h2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2387	B10EXPS	h2oexp(i,j,k,2)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2389	B10EXPS	xx=h2oexp(i,j,k,2)*h2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2391	B10EXPS	h2oexp(i,j,k,3)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2393	B10EXPS	xx=h2oexp(i,j,k,3)*h2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	2395	B10EXPS	h2oexp(i,j,k,4)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2397	B10EXPS	xx=h2oexp(i,j,k,4)*h2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F	2399	B10EXPS	h2oexp(i,j,k,5)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2401	B10EXPS	xx=h2oexp(i,j,k,5)*h2oexp(i,j,k,5)
./pkg/fizhi/fizhi_lwrad.F	2403	B10EXPS	h2oexp(i,j,k,6)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2408	B10EXPS	xx=dco2(i,j,k)(pa(i,j,k)/300.0)*0.5
./pkg/fizhi/fizhi_lwrad.F	2409	B10EXPS	1 (1.+(0.0179+1.02e-4dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2414	B10EXPS	co2exp(i,j,k,1,1)=exp(-xx*2.656e-5)
./pkg/fizhi/fizhi_lwrad.F	2416	B10EXPS	xx=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F	2418	B10EXPS	co2exp(i,j,k,2,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2420	B10EXPS	xx=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F	2422	B10EXPS	co2exp(i,j,k,3,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2424	B10EXPS	xx=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F	2426	B10EXPS	co2exp(i,j,k,4,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2428	B10EXPS	xx=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F	2430	B10EXPS	co2exp(i,j,k,5,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2432	B10EXPS	xx=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F	2434	B10EXPS	co2exp(i,j,k,6,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F	2440	B10EXPS	conexp(i,j,k,1)=exp(-dcont(i,j,k)*1.04995e+2)
./pkg/fizhi/fizhi_lwrad.F	2444	B10EXPS	xx=dn2o(i,j,k)(1.+(1.4476e-3+3.6656e-6dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F	2448	B10EXPS	n2oexp(i,j,k,1)=exp(-xx*0.25238)
./pkg/fizhi/fizhi_lwrad.F	2450	B10EXPS	xx=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2455	B10EXPS	n2oexp(i,j,k,2)=xxxx1xx2*xx3
./pkg/fizhi/fizhi_lwrad.F	2503	TABLUP	integer k1,k2,m,n,np,nx,nh,nt,i,j
./pkg/fizhi/fizhi_lwrad.F	2522	TABLUP	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2527	TABLUP	x1=sabs(i,j,k2)-sabs(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F	2528	TABLUP	x2=(spre(i,j,k2)-spre(i,j,k1))/x1
./pkg/fizhi/fizhi_lwrad.F	2529	TABLUP	x3=(stem(i,j,k2)-stem(i,j,k1))/x1
./pkg/fizhi/fizhi_lwrad.F	2571	TABLUP	tran(i,j)= (ax + (t1+t2x3) x3)*tran(i,j)
./pkg/fizhi/fizhi_lwrad.F	2611	H2OKDIS	integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F	2639	H2OKDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2641	H2OKDIS	th2o(i,j,1) = th2o(i,j,1)*h2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2642	H2OKDIS	th2o(i,j,2) = th2o(i,j,2)*h2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2643	H2OKDIS	th2o(i,j,3) = th2o(i,j,3)*h2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	2644	H2OKDIS	th2o(i,j,4) = th2o(i,j,4)*h2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F	2645	H2OKDIS	th2o(i,j,5) = th2o(i,j,5)*h2oexp(i,j,k,5)
./pkg/fizhi/fizhi_lwrad.F	2646	H2OKDIS	th2o(i,j,6) = th2o(i,j,6)*h2oexp(i,j,k,6)
./pkg/fizhi/fizhi_lwrad.F	2652	H2OKDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2655	H2OKDIS	trnth2o =(fkw(1,ib)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2656	H2OKDIS	* + fkw(2,ib)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2657	H2OKDIS	* + fkw(3,ib)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2658	H2OKDIS	* + fkw(4,ib)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	2659	H2OKDIS	* + fkw(5,ib)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F	2660	H2OKDIS	* + fkw(6,ib)*th2o(i,j,6))
./pkg/fizhi/fizhi_lwrad.F	2662	H2OKDIS	tran(i,j)=tran(i,j)*trnth2o
./pkg/fizhi/fizhi_lwrad.F	2669	H2OKDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2672	H2OKDIS	tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2674	H2OKDIS	trnth2o =(fkw(1,ib)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2675	H2OKDIS	* + fkw(2,ib)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2676	H2OKDIS	* + fkw(3,ib)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2677	H2OKDIS	* + fkw(4,ib)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	2678	H2OKDIS	* + fkw(5,ib)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F	2679	H2OKDIS	* + fkw(6,ib)th2o(i,j,6))tcon(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2681	H2OKDIS	tran(i,j)=tran(i,j)*trnth2o
./pkg/fizhi/fizhi_lwrad.F	2688	H2OKDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2691	H2OKDIS	tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2692	H2OKDIS	tcon(i,j,2)= tcon(i,j,2)*conexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2693	H2OKDIS	tcon(i,j,3)= tcon(i,j,3)*conexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	2696	H2OKDIS	trnth2o = ( gkw(1,1)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2697	H2OKDIS	* + gkw(2,1)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2698	H2OKDIS	* + gkw(3,1)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2699	H2OKDIS	* + gkw(4,1)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	2700	H2OKDIS	* + gkw(5,1)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F	2701	H2OKDIS	* + gkw(6,1)th2o(i,j,6) ) tcon(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2702	H2OKDIS	* + ( gkw(1,2)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2703	H2OKDIS	* + gkw(2,2)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2704	H2OKDIS	* + gkw(3,2)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2705	H2OKDIS	* + gkw(4,2)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	2706	H2OKDIS	* + gkw(5,2)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F	2707	H2OKDIS	* + gkw(6,2)th2o(i,j,6) ) tcon(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2708	H2OKDIS	* + ( gkw(1,3)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2709	H2OKDIS	* + gkw(2,3)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2710	H2OKDIS	* + gkw(3,3)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2711	H2OKDIS	* + gkw(4,3)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	2712	H2OKDIS	* + gkw(5,3)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F	2713	H2OKDIS	* + gkw(6,3)th2o(i,j,6) ) tcon(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2715	H2OKDIS	tran(i,j)=tran(i,j)*trnth2o
./pkg/fizhi/fizhi_lwrad.F	2745	CO2KDIS	integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F	2762	CO2KDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2767	CO2KDIS	tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F	2768	CO2KDIS	xc= 0.1395 *tco2(i,j,1,1)
./pkg/fizhi/fizhi_lwrad.F	2770	CO2KDIS	tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F	2771	CO2KDIS	xc=xc+0.1407 *tco2(i,j,2,1)
./pkg/fizhi/fizhi_lwrad.F	2773	CO2KDIS	tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F	2774	CO2KDIS	xc=xc+0.1549 *tco2(i,j,3,1)
./pkg/fizhi/fizhi_lwrad.F	2776	CO2KDIS	tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F	2777	CO2KDIS	xc=xc+0.1357 *tco2(i,j,4,1)
./pkg/fizhi/fizhi_lwrad.F	2779	CO2KDIS	tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F	2780	CO2KDIS	xc=xc+0.0182 *tco2(i,j,5,1)
./pkg/fizhi/fizhi_lwrad.F	2782	CO2KDIS	tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1)
./pkg/fizhi/fizhi_lwrad.F	2783	CO2KDIS	xc=xc+0.0220 *tco2(i,j,6,1)
./pkg/fizhi/fizhi_lwrad.F	2787	CO2KDIS	tco2(i,j,1,2)=tco2(i,j,1,2)*co2exp(i,j,k,1,2)
./pkg/fizhi/fizhi_lwrad.F	2788	CO2KDIS	xc=xc+0.0766 *tco2(i,j,1,2)
./pkg/fizhi/fizhi_lwrad.F	2790	CO2KDIS	tco2(i,j,2,2)=tco2(i,j,2,2)*co2exp(i,j,k,2,2)
./pkg/fizhi/fizhi_lwrad.F	2791	CO2KDIS	xc=xc+0.1372 *tco2(i,j,2,2)
./pkg/fizhi/fizhi_lwrad.F	2793	CO2KDIS	tco2(i,j,3,2)=tco2(i,j,3,2)*co2exp(i,j,k,3,2)
./pkg/fizhi/fizhi_lwrad.F	2794	CO2KDIS	xc=xc+0.1189 *tco2(i,j,3,2)
./pkg/fizhi/fizhi_lwrad.F	2796	CO2KDIS	tco2(i,j,4,2)=tco2(i,j,4,2)*co2exp(i,j,k,4,2)
./pkg/fizhi/fizhi_lwrad.F	2797	CO2KDIS	xc=xc+0.0335 *tco2(i,j,4,2)
./pkg/fizhi/fizhi_lwrad.F	2799	CO2KDIS	tco2(i,j,5,2)=tco2(i,j,5,2)*co2exp(i,j,k,5,2)
./pkg/fizhi/fizhi_lwrad.F	2800	CO2KDIS	xc=xc+0.0169 *tco2(i,j,5,2)
./pkg/fizhi/fizhi_lwrad.F	2802	CO2KDIS	tco2(i,j,6,2)=tco2(i,j,6,2)*co2exp(i,j,k,6,2)
./pkg/fizhi/fizhi_lwrad.F	2803	CO2KDIS	xc=xc+0.0059 *tco2(i,j,6,2)
./pkg/fizhi/fizhi_lwrad.F	2805	CO2KDIS	tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F	2834	N2OKDIS	integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F	2851	N2OKDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2858	N2OKDIS	tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2859	N2OKDIS	xc= 0.940414*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2861	N2OKDIS	tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2862	N2OKDIS	xc=xc+0.059586*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2868	N2OKDIS	tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2869	N2OKDIS	xc= 0.561961*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2871	N2OKDIS	tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2872	N2OKDIS	xc=xc+0.138707*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2874	N2OKDIS	tn2o(i,j,3)=tn2o(i,j,3)*n2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	2875	N2OKDIS	xc=xc+0.240670*tn2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2877	N2OKDIS	tn2o(i,j,4)=tn2o(i,j,4)*n2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F	2878	N2OKDIS	xc=xc+0.058662*tn2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	2882	N2OKDIS	tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F	288	LWRIO	do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F	290	LWRIO	tmpdiag(i,j) = tz(i,j,L)*pkz(i,j,L)
./pkg/fizhi/fizhi_lwrad.F	2911	CH4KDIS	integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F	2928	CH4KDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	2935	CH4KDIS	tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2936	CH4KDIS	xc= tch4(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2942	CH4KDIS	tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	2943	CH4KDIS	xc= 0.610650*tch4(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	2945	CH4KDIS	tch4(i,j,2)=tch4(i,j,2)*ch4exp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	2946	CH4KDIS	xc=xc+0.280212*tch4(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	2948	CH4KDIS	tch4(i,j,3)=tch4(i,j,3)*ch4exp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	2949	CH4KDIS	xc=xc+0.107349*tch4(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	2951	CH4KDIS	tch4(i,j,4)=tch4(i,j,4)*ch4exp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F	2952	CH4KDIS	xc=xc+0.001789*tch4(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	2956	CH4KDIS	tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F	297	LWRIO	do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F	2985	COMKDIS	integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F	299	LWRIO	tmpdiag(i,j) = qz(i,j,L)*1000.
./pkg/fizhi/fizhi_lwrad.F	3002	COMKDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	3009	COMKDIS	tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	3010	COMKDIS	xc= 0.972025*tcom(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	3011	COMKDIS	tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	3012	COMKDIS	xc=xc+0.027975*tcom(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	3018	COMKDIS	tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	3019	COMKDIS	xc= 0.961324*tcom(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	3020	COMKDIS	tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	3021	COMKDIS	xc=xc+0.038676*tcom(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	3025	COMKDIS	tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F	3053	CFCKDIS	integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F	3065	CFCKDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	3068	CFCKDIS	tcfc(i,j)=tcfc(i,j)*cfcexp(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	3069	CFCKDIS	tran(i,j)=tran(i,j)*tcfc(i,j)
./pkg/fizhi/fizhi_lwrad.F	306	LWRIO	do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F	308	LWRIO	tmpdiag(i,j) = oz(i,j,L)
./pkg/fizhi/fizhi_lwrad.F	3109	B10KDIS	integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F	3127	B10KDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	3129	B10KDIS	tran(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F	3135	B10KDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	3138	B10KDIS	th2o(i,j,1)=th2o(i,j,1)*h2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	3139	B10KDIS	xx= 0.3153*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	3141	B10KDIS	th2o(i,j,2)=th2o(i,j,2)*h2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	3142	B10KDIS	xx=xx+0.4604*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	3144	B10KDIS	th2o(i,j,3)=th2o(i,j,3)*h2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	3145	B10KDIS	xx=xx+0.1326*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F	3147	B10KDIS	th2o(i,j,4)=th2o(i,j,4)*h2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F	3148	B10KDIS	xx=xx+0.0798*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F	3150	B10KDIS	th2o(i,j,5)=th2o(i,j,5)*h2oexp(i,j,k,5)
./pkg/fizhi/fizhi_lwrad.F	3151	B10KDIS	xx=xx+0.0119*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F	3153	B10KDIS	tran(i,j)=tran(i,j)*xx
./pkg/fizhi/fizhi_lwrad.F	3160	B10KDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	3163	B10KDIS	tcon(i,j,1)=tcon(i,j,1)*conexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	3164	B10KDIS	tran(i,j)=tran(i,j)*tcon(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	3171	B10KDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	3174	B10KDIS	tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F	3175	B10KDIS	xx= 0.2673*tco2(i,j,1,1)
./pkg/fizhi/fizhi_lwrad.F	3177	B10KDIS	tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F	3178	B10KDIS	xx=xx+ 0.2201*tco2(i,j,2,1)
./pkg/fizhi/fizhi_lwrad.F	3180	B10KDIS	tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F	3181	B10KDIS	xx=xx+ 0.2106*tco2(i,j,3,1)
./pkg/fizhi/fizhi_lwrad.F	3183	B10KDIS	tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F	3184	B10KDIS	xx=xx+ 0.2409*tco2(i,j,4,1)
./pkg/fizhi/fizhi_lwrad.F	3186	B10KDIS	tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F	3187	B10KDIS	xx=xx+ 0.0196*tco2(i,j,5,1)
./pkg/fizhi/fizhi_lwrad.F	3189	B10KDIS	tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1)
./pkg/fizhi/fizhi_lwrad.F	3190	B10KDIS	xx=xx+ 0.0415*tco2(i,j,6,1)
./pkg/fizhi/fizhi_lwrad.F	3192	B10KDIS	tran(i,j)=tran(i,j)*xx
./pkg/fizhi/fizhi_lwrad.F	3199	B10KDIS	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	3202	B10KDIS	tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F	3203	B10KDIS	xx= 0.970831*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F	3205	B10KDIS	tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F	3206	B10KDIS	xx=xx+0.029169*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F	3208	B10KDIS	tran(i,j)=tran(i,j)*(xx-1.0)
./pkg/fizhi/fizhi_lwrad.F	334	LWRIO	do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F	336	LWRIO	fccave(i,j,L) = 0.
./pkg/fizhi/fizhi_lwrad.F	337	LWRIO	qliqave(i,j,L) = 0.
./pkg/fizhi/fizhi_lwrad.F	39	LWRIO	integer i,j,l,n,nn
./pkg/fizhi/fizhi_lwrad.F	563	IRRAD	integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2
./pkg/fizhi/fizhi_lwrad.F	872	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	874	IRRAD	if (pl(i,j,1) .eq. 0.0) then
./pkg/fizhi/fizhi_lwrad.F	875	IRRAD	pl(i,j,1)=1.0e-4
./pkg/fizhi/fizhi_lwrad.F	883	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	885	IRRAD	pa(i,j,k)=0.5*(pl(i,j,k)+pl(i,j,k+1))
./pkg/fizhi/fizhi_lwrad.F	886	IRRAD	dt(i,j,k)=ta(i,j,k)-250.0
./pkg/fizhi/fizhi_lwrad.F	910	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	913	IRRAD	dp = pl(i,j,k+1)-pl(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	914	IRRAD	dh2o (i,j,k) = 1.02wa(i,j,k)dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	915	IRRAD	do3 (i,j,k) = 476.oa(i,j,k)dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	916	IRRAD	dco2 (i,j,k) = 789.co2dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	917	IRRAD	dch4 (i,j,k) = 789.ch4(k)dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	918	IRRAD	dn2o (i,j,k) = 789.n2o(k)dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	919	IRRAD	df11 (i,j,k) = 789.cfc11dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	920	IRRAD	df12 (i,j,k) = 789.cfc12dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	921	IRRAD	df22 (i,j,k) = 789.cfc22dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F	926	IRRAD	xx=pa(i,j,k)0.001618wa(i,j,k)wa(i,j,k)dp
./pkg/fizhi/fizhi_lwrad.F	927	IRRAD	dcont(i,j,k) = xx*exp(1800./ta(i,j,k)-6.081)+1.e-10
./pkg/fizhi/fizhi_lwrad.F	947	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	949	IRRAD	dp =pl(i,j,k+1)-pl(i,j,k)
./pkg/fizhi/fizhi_lwrad.F	950	IRRAD	cwp(i,j,k,1)=1.0210000.0cwc(i,j,k,1)*dp
./pkg/fizhi/fizhi_lwrad.F	951	IRRAD	cwp(i,j,k,2)=1.0210000.0cwc(i,j,k,2)*dp
./pkg/fizhi/fizhi_lwrad.F	952	IRRAD	cwp(i,j,k,3)=1.0210000.0cwc(i,j,k,3)*dp
./pkg/fizhi/fizhi_lwrad.F	953	IRRAD	taucl(i,j,k,3)=0.00307*cwp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F	965	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	967	IRRAD	clr(i,j,0) = 1.0
./pkg/fizhi/fizhi_lwrad.F	968	IRRAD	clr(i,j,np+1) = 0.0
./pkg/fizhi/fizhi_lwrad.F	969	IRRAD	st4(i,j) = 0.0
./pkg/fizhi/fizhi_lwrad.F	970	IRRAD	transfc(i,j,np+1)=1.0
./pkg/fizhi/fizhi_lwrad.F	971	IRRAD	trantcr(i,j,np+1)=1.0
./pkg/fizhi/fizhi_lwrad.F	978	IRRAD	do j=1,n
./pkg/fizhi/fizhi_lwrad.F	980	IRRAD	flx(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	981	IRRAD	flc(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	982	IRRAD	dfdts(i,j,k)= 0.0
./pkg/fizhi/fizhi_lwrad.F	983	IRRAD	rflx(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	984	IRRAD	rflc(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F	98	LWRIO	do j =1,jm
./pkg/fizhi/fizhi_moist.F	1007	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	1009	MOISTIO	rainlsp (i,j) = rainlsp (i,j) + lsp_new(i,j)*tminv
./pkg/fizhi/fizhi_moist.F	1010	MOISTIO	rainconv(i,j) = rainconv(i,j) + conv_new(i,j)*tminv
./pkg/fizhi/fizhi_moist.F	1011	MOISTIO	snowfall(i,j) = snowfall(i,j) + snow_new(i,j)*tminv
./pkg/fizhi/fizhi_moist.F	1021	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	1023	MOISTIO	cldhi (i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1024	MOISTIO	cldmid(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1025	MOISTIO	cldlow(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1026	MOISTIO	cldtmp(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1027	MOISTIO	cldprs(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1028	MOISTIO	tmpimjm(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1040	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	1045	MOISTIO	indx = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	1050	MOISTIO	watnow = cldwater(i,j,L)
./pkg/fizhi/fizhi_moist.F	1052	MOISTIO	cldras = min( max( cldras_lw(i,j,L)*cldras_mem,cpen(i,j,L)),
./pkg/fizhi/fizhi_moist.F	1057	MOISTIO	cldlsp = min( max( cldlsp_lw(i,j,L)*cldlsp_mem,cldls(i,j,L)),
./pkg/fizhi/fizhi_moist.F	1065	MOISTIO	lwlz(i,j,L) = ( nlwlz*lwlz(i,j,L) + watnow)/(nlwlz +1)
./pkg/fizhi/fizhi_moist.F	1066	MOISTIO	cldtot_lw(i,j,L) = (nlwcld*cldtot_lw(i,j,L) + cldnow)/(nlwcld+1)
./pkg/fizhi/fizhi_moist.F	1067	MOISTIO	cldlsp_lw(i,j,L) = (nlwcld*cldlsp_lw(i,j,L) + cldlsp)/(nlwcld+1)
./pkg/fizhi/fizhi_moist.F	1068	MOISTIO	cldras_lw(i,j,L) = (nlwcld*cldras_lw(i,j,L) + cldras)/(nlwcld+1)
./pkg/fizhi/fizhi_moist.F	1073	MOISTIO	watnow = cldwater(i,j,L)
./pkg/fizhi/fizhi_moist.F	1075	MOISTIO	cldras = min( max(cldras_sw(i,j,L)*cldras_mem, cpen(i,j,L)),
./pkg/fizhi/fizhi_moist.F	1080	MOISTIO	cldlsp = min( max(cldlsp_sw(i,j,L)*cldlsp_mem,cldls(i,j,L)),
./pkg/fizhi/fizhi_moist.F	1088	MOISTIO	swlz(i,j,L) = ( nswlz*swlz(i,j,L) + watnow)/(nswlz +1)
./pkg/fizhi/fizhi_moist.F	1089	MOISTIO	cldtot_sw(i,j,L) = (nswcld*cldtot_sw(i,j,L) + cldnow)/(nswcld+1)
./pkg/fizhi/fizhi_moist.F	1090	MOISTIO	cldlsp_sw(i,j,L) = (nswcld*cldlsp_sw(i,j,L) + cldlsp)/(nswcld+1)
./pkg/fizhi/fizhi_moist.F	1091	MOISTIO	cldras_sw(i,j,L) = (nswcld*cldras_sw(i,j,L) + cldras)/(nswcld+1)
./pkg/fizhi/fizhi_moist.F	1097	MOISTIO	if( L.lt.midlevel ) cldhi (i,j) = max( cldnow,cldhi (i,j) )
./pkg/fizhi/fizhi_moist.F	1099	MOISTIO	. L.lt.lowlevel ) cldmid(i,j) = max( cldnow,cldmid(i,j) )
./pkg/fizhi/fizhi_moist.F	1100	MOISTIO	if( L.ge.lowlevel ) cldlow(i,j) = max( cldnow,cldlow(i,j) )
./pkg/fizhi/fizhi_moist.F	1104	MOISTIO	cldtmp(i,j) = cldtmp(i,j) + cldnow*pkzgather(i,L)
./pkg/fizhi/fizhi_moist.F	1105	MOISTIO	. * ( tz(i,j,L) + dtmoist(i,j,L)*tmstp/pz(i,j) )
./pkg/fizhi/fizhi_moist.F	1106	MOISTIO	cldprs(i,j) = cldprs(i,j) + cldnow*plev
./pkg/fizhi/fizhi_moist.F	1107	MOISTIO	tmpimjm(i,j) = tmpimjm(i,j) + cldnow
./pkg/fizhi/fizhi_moist.F	1115	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	1117	MOISTIO	totcld(i,j) = 1.0 - (1.-cldhi (i,j))
./pkg/fizhi/fizhi_moist.F	1118	MOISTIO	. * (1.-cldmid(i,j))
./pkg/fizhi/fizhi_moist.F	1119	MOISTIO	. * (1.-cldlow(i,j))
./pkg/fizhi/fizhi_moist.F	1131	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	1133	MOISTIO	if( cldtmp(i,j).gt.0. ) then
./pkg/fizhi/fizhi_moist.F	1134	MOISTIO	tmpdiag(i,j) = cldtmp(i,j)*totcld(i,j)/tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F	1135	MOISTIO	tmpdiag2(i,j) = totcld(i,j)
./pkg/fizhi/fizhi_moist.F	1137	MOISTIO	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1138	MOISTIO	tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1148	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	1150	MOISTIO	if( cldprs(i,j).gt.0. ) then
./pkg/fizhi/fizhi_moist.F	1151	MOISTIO	tmpdiag(i,j) = cldprs(i,j)*totcld(i,j)/tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F	1152	MOISTIO	tmpdiag2(i,j) = totcld(i,j)
./pkg/fizhi/fizhi_moist.F	1154	MOISTIO	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	1155	MOISTIO	tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_moist.F	139	MOISTIO	integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt
./pkg/fizhi/fizhi_moist.F	215	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	217	MOISTIO	qqcolmin(i,j) = qqz(i,j,lm)*fracqq
./pkg/fizhi/fizhi_moist.F	218	MOISTIO	qqcolmax(i,j) = qqz(i,j,lm)
./pkg/fizhi/fizhi_moist.F	219	MOISTIO	levpbl(i,j) = lm+1
./pkg/fizhi/fizhi_moist.F	224	MOISTIO	DO j = 1,jm
./pkg/fizhi/fizhi_moist.F	226	MOISTIO	IF((qqz(i,j,l).gt.qqcolmax(i,j))
./pkg/fizhi/fizhi_moist.F	227	MOISTIO	1 .and.(levpbl(i,j).eq.lm+1))then
./pkg/fizhi/fizhi_moist.F	228	MOISTIO	qqcolmax(i,j) = qqz(i,j,l)
./pkg/fizhi/fizhi_moist.F	229	MOISTIO	qqcolmin(i,j) = fracqq*qqcolmax(i,j)
./pkg/fizhi/fizhi_moist.F	231	MOISTIO	if((qqz(i,j,l).lt.qqcolmin(i,j))
./pkg/fizhi/fizhi_moist.F	232	MOISTIO	1 .and.(levpbl(i,j).eq.lm+1))levpbl(i,j)=L+1
./pkg/fizhi/fizhi_moist.F	237	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	239	MOISTIO	if(levpbl(i,j).gt.nsubmin) levpbl(i,j) = nsubmin
./pkg/fizhi/fizhi_moist.F	240	MOISTIO	if(levpbl(i,j).lt.nsubmax) levpbl(i,j) = nsubmax
./pkg/fizhi/fizhi_moist.F	249	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	251	MOISTIO	if(levpbl(i,j).eq.L) then
./pkg/fizhi/fizhi_moist.F	253	MOISTIO	pblindex(indx) = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	264	MOISTIO	j = 1+INT((pblindex(indx)-1)/im)
./pkg/fizhi/fizhi_moist.F	266	MOISTIO	levgather(indx) = levpbl(i,j)
./pkg/fizhi/fizhi_moist.F	267	MOISTIO	pigather(indx) = pz(i,j)
./pkg/fizhi/fizhi_moist.F	268	MOISTIO	pkegather(indx,lm+1) = pkht(i,j,lm+1)
./pkg/fizhi/fizhi_moist.F	269	MOISTIO	plegather(indx,lm+1) = plze(i,j,lm+1)
./pkg/fizhi/fizhi_moist.F	281	MOISTIO	j = 1+INT((pblindex(indx)-1)/im)
./pkg/fizhi/fizhi_moist.F	283	MOISTIO	thgather(indx,L) = tz(i,j,L)
./pkg/fizhi/fizhi_moist.F	284	MOISTIO	shgather(indx,L) = qz(i,j,L,1)
./pkg/fizhi/fizhi_moist.F	285	MOISTIO	pkegather(indx,L) = pkht(i,j,L)
./pkg/fizhi/fizhi_moist.F	286	MOISTIO	pkzgather(indx,L) = pkl(i,j,L)
./pkg/fizhi/fizhi_moist.F	287	MOISTIO	plegather(indx,L) = plze(i,j,L)
./pkg/fizhi/fizhi_moist.F	288	MOISTIO	plzgather(indx,L) = plz(i,j,L)
./pkg/fizhi/fizhi_moist.F	289	MOISTIO	dpgather(indx,L) = dpres(i,j,L)
./pkg/fizhi/fizhi_moist.F	298	MOISTIO	j = 1+INT((pblindex(indx)-1)/im)
./pkg/fizhi/fizhi_moist.F	300	MOISTIO	ugather(indx,L,nt) = qz(i,j,L,nt+ptracer)
./pkg/fizhi/fizhi_moist.F	312	MOISTIO	j = 1+INT((pblindex(indx)-1)/im)
./pkg/fizhi/fizhi_moist.F	314	MOISTIO	ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L)
./pkg/fizhi/fizhi_moist.F	315	MOISTIO	ugather(indx,L,ntracerin-ptracer+2) = vz(i,j,L)
./pkg/fizhi/fizhi_moist.F	331	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	333	MOISTIO	dumoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F	334	MOISTIO	dvmoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F	335	MOISTIO	dtmoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F	337	MOISTIO	dqmoist(i,j,l,nt) = 0.
./pkg/fizhi/fizhi_moist.F	823	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	825	MOISTIO	tmpimjm(i,j) = 1./pz(i,j)
./pkg/fizhi/fizhi_moist.F	829	MOISTIO	do j = 1,jm
./pkg/fizhi/fizhi_moist.F	831	MOISTIO	dumoist(i,j,L) = dumoist(i,j,L) * tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F	832	MOISTIO	dvmoist(i,j,L) = dvmoist(i,j,L) * tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F	858	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	860	MOISTIO	tmpdiag(i,j) = cldsr(i,j,L)
./pkg/fizhi/fizhi_moist.F	871	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	873	MOISTIO	indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	874	MOISTIO	tmpdiag(i,j)=(dtmoist(i,j,L)sdaypkzgather(indgath,L)/pz(i,j))
./pkg/fizhi/fizhi_moist.F	885	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	887	MOISTIO	tmpdiag(i,j)=(dqmoist(i,j,L,1)sday1000./pz(i,j))
./pkg/fizhi/fizhi_moist.F	898	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	900	MOISTIO	tmpdiag(i,j)=dumoist(i,j,L)*sday
./pkg/fizhi/fizhi_moist.F	911	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	913	MOISTIO	tmpdiag(i,j)=dvmoist(i,j,L)*sday
./pkg/fizhi/fizhi_moist.F	924	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	926	MOISTIO	indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	927	MOISTIO	tmpdiag(i,j)=tmpgather(indgath,L)
./pkg/fizhi/fizhi_moist.F	938	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	940	MOISTIO	indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	941	MOISTIO	tmpdiag(i,j)=pkegather(indgath,L)
./pkg/fizhi/fizhi_moist.F	952	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	954	MOISTIO	indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	955	MOISTIO	tmpdiag(i,j)=deltrnev(indgath,L)
./pkg/fizhi/fizhi_moist.F	966	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	968	MOISTIO	indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	969	MOISTIO	tmpdiag(i,j)=delqrnev(indgath,L)
./pkg/fizhi/fizhi_moist.F	979	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	981	MOISTIO	tmpdiag(i,j) = (lsp_new(I,j) + snow_new(I,j) + conv_new(i,j))
./pkg/fizhi/fizhi_moist.F	991	MOISTIO	do j=1,jm
./pkg/fizhi/fizhi_moist.F	993	MOISTIO	indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F	994	MOISTIO	tmpdiag(i,j) = raincgath(indgath)sdaytminv
./pkg/fizhi/fizhi_rayleigh.F	103	RAYLEIGH	do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F	105	RAYLEIGH	tmpdiag(i,j) = rfu(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F	112	RAYLEIGH	do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F	114	RAYLEIGH	tmpdiag(i,j) = rfv(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F	121	RAYLEIGH	do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F	123	RAYLEIGH	tmpdiag(i,j) = rft(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F	44	RAYLEIGH	integer i,j,L
./pkg/fizhi/fizhi_rayleigh.F	65	RAYLEIGH	do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F	67	RAYLEIGH	dz(i,j,L) = cpog * (pekap(i,j,L+1)-pekap(i,j,L)) * t(i,j,L) *
./pkg/fizhi/fizhi_rayleigh.F	68	RAYLEIGH	. (1.+virtcon*s(i,j,L))
./pkg/fizhi/fizhi_rayleigh.F	73	RAYLEIGH	do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F	75	RAYLEIGH	z(i,j,lm) = zsurf(i,j) + 0.5 * dz(i,j,lm)
./pkg/fizhi/fizhi_rayleigh.F	80	RAYLEIGH	do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F	82	RAYLEIGH	z(i,j,L) = z(i,j,L+1) + 0.5 * (dz(i,j,L)+dz(i,j,L+1))
./pkg/fizhi/fizhi_rayleigh.F	88	RAYLEIGH	do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F	90	RAYLEIGH	rf(i,j,L) = dampcoef*(1+tanh((z(i,j,L)-50000.)/5000.))/86400.
./pkg/fizhi/fizhi_rayleigh.F	91	RAYLEIGH	rfu(i,j,L) = - rf(i,j,L) * u(i,j,L)
./pkg/fizhi/fizhi_rayleigh.F	92	RAYLEIGH	rfv(i,j,L) = - rf(i,j,L) * v(i,j,L)
./pkg/fizhi/fizhi_rayleigh.F	93	RAYLEIGH	rft(i,j,L) = -(u(i,j,L)rfu(i,j,L) + v(i,j,L)rfv(i,j,L) )*cpinv
./pkg/fizhi/fizhi_rayleigh.F	94	RAYLEIGH	. /pkap(i,j,L)
./pkg/fizhi/fizhi_read_pickup.F	45	FIZHI_READ_PICKUP	integer j,bi,bj
./pkg/fizhi/fizhi_read_pickup.F	76	FIZHI_READ_PICKUP	do j = 1-OLy,sNy+OLy
./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_step_diag.F	103	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	105	FIZHI_STEP_DIAG	tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	114	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	116	FIZHI_STEP_DIAG	if(radswt(i,j,bi,bj).ne.0.) then
./pkg/fizhi/fizhi_step_diag.F	117	FIZHI_STEP_DIAG	tmpdiag(i,j) = osr(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	119	FIZHI_STEP_DIAG	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_step_diag.F	129	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	131	FIZHI_STEP_DIAG	tmpdiag(i,j) = st4(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	132	FIZHI_STEP_DIAG	& + dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F	141	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	143	FIZHI_STEP_DIAG	tmpdiag(i,j) = radlwg(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F	144	FIZHI_STEP_DIAG	& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F	153	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	155	FIZHI_STEP_DIAG	tmpdiag(i,j) = lwgclr(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F	156	FIZHI_STEP_DIAG	& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F	168	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	170	FIZHI_STEP_DIAG	tmpdiag(i,j) = (moistu (i,j,L,bi,bj)+turbu(i,j,L,bi,bj) )*86400
./pkg/fizhi/fizhi_step_diag.F	179	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	181	FIZHI_STEP_DIAG	tmpdiag(i,j) = (moistv (i,j,L,bi,bj)+turbv(i,j,L,bi,bj) )*86400
./pkg/fizhi/fizhi_step_diag.F	190	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	192	FIZHI_STEP_DIAG	tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F	193	FIZHI_STEP_DIAG	& ( turbt(i,j,L,bi,bj) + moistt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F	194	FIZHI_STEP_DIAG	& lwdt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F	195	FIZHI_STEP_DIAG	& dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) +
./pkg/fizhi/fizhi_step_diag.F	196	FIZHI_STEP_DIAG	& swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )
./pkg/fizhi/fizhi_step_diag.F	197	FIZHI_STEP_DIAG	& * pk(i,j,L,bi,bj)pinv(i,j)86400
./pkg/fizhi/fizhi_step_diag.F	206	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	208	FIZHI_STEP_DIAG	tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F	209	FIZHI_STEP_DIAG	& ( turbq(i,j,L,1,bi,bj) + moistq(i,j,L,1,bi,bj) ) *
./pkg/fizhi/fizhi_step_diag.F	210	FIZHI_STEP_DIAG	& pinv(i,j)864001000
./pkg/fizhi/fizhi_step_diag.F	219	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	221	FIZHI_STEP_DIAG	tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F	222	FIZHI_STEP_DIAG	& ( lwdt(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F	223	FIZHI_STEP_DIAG	& dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) )
./pkg/fizhi/fizhi_step_diag.F	224	FIZHI_STEP_DIAG	& * pk(i,j,l,bi,bj)pinv(i,j)86400
./pkg/fizhi/fizhi_step_diag.F	233	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	235	FIZHI_STEP_DIAG	tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F	236	FIZHI_STEP_DIAG	& ( lwdtclr(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F	237	FIZHI_STEP_DIAG	& dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) )
./pkg/fizhi/fizhi_step_diag.F	238	FIZHI_STEP_DIAG	& * pk(i,j,l,bi,bj)pinv(i,j)86400
./pkg/fizhi/fizhi_step_diag.F	247	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	249	FIZHI_STEP_DIAG	tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F	250	FIZHI_STEP_DIAG	& + swdt(i,j,l,bi,bj)radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	251	FIZHI_STEP_DIAG	& pk(i,j,l,bi,bj)pinv(i,j)86400
./pkg/fizhi/fizhi_step_diag.F	260	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	262	FIZHI_STEP_DIAG	tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F	263	FIZHI_STEP_DIAG	& + swdtclr(i,j,l,bi,bj)radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	264	FIZHI_STEP_DIAG	& pk(i,j,l,bi,bj)pinv(i,j)86400
./pkg/fizhi/fizhi_step_diag.F	273	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	275	FIZHI_STEP_DIAG	tmpdiag(i,j) = uphy(i,j,L)
./pkg/fizhi/fizhi_step_diag.F	284	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	286	FIZHI_STEP_DIAG	tmpdiag(i,j) = vphy(i,j,L)
./pkg/fizhi/fizhi_step_diag.F	295	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	297	FIZHI_STEP_DIAG	tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	306	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	308	FIZHI_STEP_DIAG	tmpdiag(i,j) = qq(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	317	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	319	FIZHI_STEP_DIAG	tmpdiag(i,j) = sphy(i,j,L) * 1000.
./pkg/fizhi/fizhi_step_diag.F	332	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	334	FIZHI_STEP_DIAG	qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F	338	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	340	FIZHI_STEP_DIAG	qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F	341	FIZHI_STEP_DIAG	& moistt(i,j,L,bi,bj)pk(i,j,l,bi,bj)dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	345	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	347	FIZHI_STEP_DIAG	tmpdiag(i,j) = qbar(i,j)pinv(i,j)pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F	356	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	358	FIZHI_STEP_DIAG	qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F	362	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	364	FIZHI_STEP_DIAG	qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F	365	FIZHI_STEP_DIAG	& turbt(i,j,L,bi,bj)pk(i,j,l,bi,bj)dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	369	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	371	FIZHI_STEP_DIAG	tmpdiag(i,j) = qbar(i,j)pinv(i,j)pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F	380	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	382	FIZHI_STEP_DIAG	qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F	386	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	388	FIZHI_STEP_DIAG	qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F	389	FIZHI_STEP_DIAG	& dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) )
./pkg/fizhi/fizhi_step_diag.F	390	FIZHI_STEP_DIAG	& pk(i,j,l,bi,bj)dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	394	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	396	FIZHI_STEP_DIAG	tmpdiag(i,j) = qbar(i,j)pinv(i,j)pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F	405	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	407	FIZHI_STEP_DIAG	qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F	411	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	413	FIZHI_STEP_DIAG	qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F	414	FIZHI_STEP_DIAG	& swdt(i,j,L,bi,bj)pk(i,j,l,bi,bj)dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	418	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	41	FIZHI_STEP_DIAG	INTEGER i,j,L
./pkg/fizhi/fizhi_step_diag.F	420	FIZHI_STEP_DIAG	tmpdiag(i,j) = qbar(i,j) *
./pkg/fizhi/fizhi_step_diag.F	421	FIZHI_STEP_DIAG	& radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400
./pkg/fizhi/fizhi_step_diag.F	431	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	433	FIZHI_STEP_DIAG	qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F	437	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	439	FIZHI_STEP_DIAG	qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F	440	FIZHI_STEP_DIAG	& sphy(i,j,L)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	444	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	446	FIZHI_STEP_DIAG	tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity
./pkg/fizhi/fizhi_step_diag.F	52	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	54	FIZHI_STEP_DIAG	pinv(i,j) = 1.0 / p(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	70	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	72	FIZHI_STEP_DIAG	tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	81	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	83	FIZHI_STEP_DIAG	tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F	92	FIZHI_STEP_DIAG	do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F	94	FIZHI_STEP_DIAG	tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_swrad.F	1012	CLDSCALE	integer i,j,k,im,it,ia,kk
./pkg/fizhi/fizhi_swrad.F	1033	CLDSCALE	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1035	CLDSCALE	cc(i,j,1)=0.0
./pkg/fizhi/fizhi_swrad.F	1036	CLDSCALE	cc(i,j,2)=0.0
./pkg/fizhi/fizhi_swrad.F	1037	CLDSCALE	cc(i,j,3)=0.0
./pkg/fizhi/fizhi_swrad.F	1042	CLDSCALE	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1044	CLDSCALE	cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F	1050	CLDSCALE	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1052	CLDSCALE	cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F	1058	CLDSCALE	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1060	CLDSCALE	cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F	1079	CLDSCALE	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1082	CLDSCALE	tauclb(i,j,k) = 0.0
./pkg/fizhi/fizhi_swrad.F	1083	CLDSCALE	tauclf(i,j,k) = 0.0
./pkg/fizhi/fizhi_swrad.F	1085	CLDSCALE	taux=taucld(i,j,k,1)+taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F	1086	CLDSCALE	if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F	1090	CLDSCALE	fa=fcld(i,j,k)/cc(i,j,kk)
./pkg/fizhi/fizhi_swrad.F	1096	CLDSCALE	fm=cosz(i,j)/dm
./pkg/fizhi/fizhi_swrad.F	1132	CLDSCALE	tauclb(i,j,k) = taux*xai
./pkg/fizhi/fizhi_swrad.F	1147	CLDSCALE	tauclf(i,j,k) = taux*xai
./pkg/fizhi/fizhi_swrad.F	115	SWRIO	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	117	SWRIO	tdry(i,j,L) = tz(i,j,L)*pkz(i,j,L)
./pkg/fizhi/fizhi_swrad.F	1253	SOLIR	integer ib,ik,i,j,k
./pkg/fizhi/fizhi_swrad.F	1321	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1323	SOLIR	fdirir(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	1324	SOLIR	fdifir(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	1325	SOLIR	rr(i,j,np+1,1)=rsirbm(i,j)
./pkg/fizhi/fizhi_swrad.F	1326	SOLIR	rr(i,j,np+1,2)=rsirbm(i,j)
./pkg/fizhi/fizhi_swrad.F	1327	SOLIR	rs(i,j,np+1,1)=rsirdf(i,j)
./pkg/fizhi/fizhi_swrad.F	1328	SOLIR	rs(i,j,np+1,2)=rsirdf(i,j)
./pkg/fizhi/fizhi_swrad.F	1329	SOLIR	td(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F	1330	SOLIR	td(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F	1331	SOLIR	tt(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F	1332	SOLIR	tt(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F	1333	SOLIR	ts(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F	1334	SOLIR	ts(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F	1347	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1350	SOLIR	ssaclt(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F	1351	SOLIR	asyclt(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F	1353	SOLIR	taux=taucld(i,j,k,1)+taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F	1354	SOLIR	if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F	1356	SOLIR	reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_swrad.F	1357	SOLIR	reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_swrad.F	1360	SOLIR	* aia(ib,3)reff1)reff1))*taucld(i,j,k,1)
./pkg/fizhi/fizhi_swrad.F	1362	SOLIR	* awa(ib,3)reff2)reff2))*taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F	1363	SOLIR	ssaclt(i,j)=(w1+w2)/taux
./pkg/fizhi/fizhi_swrad.F	1367	SOLIR	asyclt(i,j)=(g1+g2)/(w1+w2)
./pkg/fizhi/fizhi_swrad.F	1374	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1376	SOLIR	ssacl(i,j,k)=ssaclt(i,j)
./pkg/fizhi/fizhi_swrad.F	1379	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1381	SOLIR	asycl(i,j,k)=asyclt(i,j)
./pkg/fizhi/fizhi_swrad.F	1393	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1396	SOLIR	tauwv=xk(ik)*wh(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1401	SOLIR	tausto=tauwv+taual(i,j,k)+1.0e-8
./pkg/fizhi/fizhi_swrad.F	1402	SOLIR	ssatau=ssaal(ib)*taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1403	SOLIR	asysto=asyal(ib)ssaal(ib)taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1422	SOLIR	td1t(i,j)=expmn(-tauto*csm(i,j))
./pkg/fizhi/fizhi_swrad.F	1423	SOLIR	ts1t(i,j)=expmn(-1.66*tauto)
./pkg/fizhi/fizhi_swrad.F	1424	SOLIR	tt1t(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	1425	SOLIR	rr1t(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	1426	SOLIR	rs1t(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	1432	SOLIR	if (tauclb(i,j,k) .lt. 0.01) then
./pkg/fizhi/fizhi_swrad.F	1434	SOLIR	rr2t(i,j)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1435	SOLIR	tt2t(i,j)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1436	SOLIR	td2t(i,j)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1437	SOLIR	rs2t(i,j)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1438	SOLIR	ts2t(i,j)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1442	SOLIR	tauto=tausto+tauclb(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1443	SOLIR	ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F	1445	SOLIR	asyto=(asysto+asycl(i,j,k)ssacl(i,j,k)tauclb(i,j,k))/
./pkg/fizhi/fizhi_swrad.F	1448	SOLIR	call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F	1449	SOLIR	* rr2t(i,j),tt2t(i,j),td2t(i,j))
./pkg/fizhi/fizhi_swrad.F	1451	SOLIR	tauto=tausto+tauclf(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1452	SOLIR	ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F	1454	SOLIR	asyto=(asysto+asycl(i,j,k)ssacl(i,j,k)tauclf(i,j,k))/
./pkg/fizhi/fizhi_swrad.F	1457	SOLIR	call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j))
./pkg/fizhi/fizhi_swrad.F	1467	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1469	SOLIR	rr(i,j,k,1)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1472	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1474	SOLIR	tt(i,j,k,1)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1477	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1479	SOLIR	td(i,j,k,1)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1482	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1484	SOLIR	rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1487	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1489	SOLIR	ts(i,j,k,1)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1493	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1495	SOLIR	rr(i,j,k,2)=rr2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1498	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1500	SOLIR	tt(i,j,k,2)=tt2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1503	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1505	SOLIR	td(i,j,k,2)=td2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1508	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	150	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	1510	SOLIR	rs(i,j,k,2)=rs2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1513	SOLIR	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1515	SOLIR	ts(i,j,k,2)=ts2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1524	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1526	SOLIR	fclr(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F	1527	SOLIR	fall(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F	152	SWRIO	zenith(I,j) = TEMP1(I,j) + TEMP2(I,j)
./pkg/fizhi/fizhi_swrad.F	1531	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1533	SOLIR	fsdir(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	1534	SOLIR	fsdif(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	153	SWRIO	IF( zenith(I,j) .GT. 0.0 ) THEN
./pkg/fizhi/fizhi_swrad.F	1542	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1544	SOLIR	flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F	1547	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1549	SOLIR	flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F	154	SWRIO	zenith(I,j) = (2./3.)( zenith(I,j)-TEMP2(I,j)TEMP1(I,j)
./pkg/fizhi/fizhi_swrad.F	1554	SOLIR	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1556	SOLIR	fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F	1557	SOLIR	fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F	155	SWRIO	. / zenith(I,j) )
./pkg/fizhi/fizhi_swrad.F	166	SWRIO	do j =1,jm
./pkg/fizhi/fizhi_swrad.F	1676	SOLUV	integer i,j,k,ib
./pkg/fizhi/fizhi_swrad.F	168	SWRIO	cldlow(i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F	169	SWRIO	cldmid(i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F	170	SWRIO	cldhi (i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F	1719	SOLUV	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1721	SOLUV	rr(i,j,np+1,1)=rsuvbm(i,j)
./pkg/fizhi/fizhi_swrad.F	1722	SOLUV	rr(i,j,np+1,2)=rsuvbm(i,j)
./pkg/fizhi/fizhi_swrad.F	1723	SOLUV	rs(i,j,np+1,1)=rsuvdf(i,j)
./pkg/fizhi/fizhi_swrad.F	1724	SOLUV	rs(i,j,np+1,2)=rsuvdf(i,j)
./pkg/fizhi/fizhi_swrad.F	1725	SOLUV	td(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F	1726	SOLUV	td(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F	1727	SOLUV	tt(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F	1728	SOLUV	tt(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F	1729	SOLUV	ts(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F	1730	SOLUV	ts(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F	1739	SOLUV	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1742	SOLUV	asyclt(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F	1744	SOLUV	taux=taucld(i,j,k,1)+taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F	1745	SOLUV	if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F	1747	SOLUV	reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_swrad.F	1748	SOLUV	reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_swrad.F	1750	SOLUV	g1=(aig(1)+(aig(2)+aig(3)reff1)reff1)*taucld(i,j,k,1)
./pkg/fizhi/fizhi_swrad.F	1751	SOLUV	g2=(awg(1)+(awg(2)+awg(3)reff2)reff2)*taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F	1752	SOLUV	asyclt(i,j)=(g1+g2)/taux
./pkg/fizhi/fizhi_swrad.F	1759	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1761	SOLUV	asycl(i,j,k)=asyclt(i,j)
./pkg/fizhi/fizhi_swrad.F	1767	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1769	SOLUV	fdiruv(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	1770	SOLUV	fdifuv(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	1780	SOLUV	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1785	SOLUV	taurs=ry(ib)*dp(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1786	SOLUV	tauoz=xk(ib)*oh(i,j,k)
./pkg/fizhi/fizhi_swrad.F	178	SWRIO	do j =1,jm
./pkg/fizhi/fizhi_swrad.F	1791	SOLUV	tausto=taurs+tauoz+taual(i,j,k)+1.0e-8
./pkg/fizhi/fizhi_swrad.F	1792	SOLUV	ssatau=ssaal(ib)*taual(i,j,k)+taurs
./pkg/fizhi/fizhi_swrad.F	1793	SOLUV	asysto=asyal(ib)ssaal(ib)taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1802	SOLUV	call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F	1803	SOLUV	* rr1t(i,j),tt1t(i,j),td1t(i,j))
./pkg/fizhi/fizhi_swrad.F	1805	SOLUV	call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j))
./pkg/fizhi/fizhi_swrad.F	1809	SOLUV	if (tauclb(i,j,k) .lt. 0.01) then
./pkg/fizhi/fizhi_swrad.F	180	SWRIO	cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/
./pkg/fizhi/fizhi_swrad.F	1811	SOLUV	rr2t(i,j)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1812	SOLUV	tt2t(i,j)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1813	SOLUV	td2t(i,j)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1814	SOLUV	rs2t(i,j)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1815	SOLUV	ts2t(i,j)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1819	SOLUV	tauto=tausto+tauclb(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1820	SOLUV	ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F	1822	SOLUV	asyto=(asysto+asycl(i,j,k)tauclb(i,j,k))/(ssatotauto)
./pkg/fizhi/fizhi_swrad.F	1824	SOLUV	call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F	1825	SOLUV	* rr2t(i,j),tt2t(i,j),td2t(i,j))
./pkg/fizhi/fizhi_swrad.F	1827	SOLUV	tauto=tausto+tauclf(i,j,k)
./pkg/fizhi/fizhi_swrad.F	1828	SOLUV	ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F	182	SWRIO	cldmxo(i,j,L)=min(1.0 _d 0,cswmo(i,j,L))
./pkg/fizhi/fizhi_swrad.F	1830	SOLUV	asyto=(asysto+asycl(i,j,k)tauclf(i,j,k))/(ssatotauto)
./pkg/fizhi/fizhi_swrad.F	1832	SOLUV	call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j))
./pkg/fizhi/fizhi_swrad.F	1839	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	183	SWRIO	swlz(i,j,L)=swlz(i,j,L)+qliqave(i,j,L)/imstturb
./pkg/fizhi/fizhi_swrad.F	1841	SOLUV	rr(i,j,k,1)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1844	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1846	SOLUV	tt(i,j,k,1)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1849	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1851	SOLUV	td(i,j,k,1)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1854	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1856	SOLUV	rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1859	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1861	SOLUV	ts(i,j,k,1)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F	1865	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1867	SOLUV	rr(i,j,k,2)=rr2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1870	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1872	SOLUV	tt(i,j,k,2)=tt2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1875	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1877	SOLUV	td(i,j,k,2)=td2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1880	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1882	SOLUV	rs(i,j,k,2)=rs2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1885	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1887	SOLUV	ts(i,j,k,2)=ts2t(i,j)
./pkg/fizhi/fizhi_swrad.F	1896	SOLUV	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1898	SOLUV	fclr(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F	1899	SOLUV	fall(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F	189	SWRIO	do j =1,jm
./pkg/fizhi/fizhi_swrad.F	1903	SOLUV	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1905	SOLUV	fsdir(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	1906	SOLUV	fsdif(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	1913	SOLUV	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	1915	SOLUV	flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib)
./pkg/fizhi/fizhi_swrad.F	1918	SOLUV	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	191	SWRIO	cldtot(i,j,L) = min( 1.0 _d 0,cldsw(i,j,L) )
./pkg/fizhi/fizhi_swrad.F	1920	SOLUV	flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib)
./pkg/fizhi/fizhi_swrad.F	1926	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1928	SOLUV	fdirpar(i,j)=fsdir(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F	1929	SOLUV	fdifpar(i,j)=fsdif(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F	192	SWRIO	cldmxo(i,j,L) = min( 1.0 _d 0,cswmo(i,j,L) )
./pkg/fizhi/fizhi_swrad.F	1933	SOLUV	do j=1,n
./pkg/fizhi/fizhi_swrad.F	1935	SOLUV	fdiruv(i,j)=fdiruv(i,j)+fsdir(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F	1936	SOLUV	fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F	202	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	207	SWRIO	cldhi (i,j) = max( cldtot(i,j,L),cldhi (i,j) )
./pkg/fizhi/fizhi_swrad.F	210	SWRIO	cldmid(i,j) = max( cldtot(i,j,L),cldmid(i,j) )
./pkg/fizhi/fizhi_swrad.F	212	SWRIO	cldlow(i,j) = max( cldtot(i,j,L),cldlow(i,j) )
./pkg/fizhi/fizhi_swrad.F	2204	CLDFLX	integer i,j,k,ih,im,is
./pkg/fizhi/fizhi_swrad.F	2219	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2221	CLDFLX	fall(i,j,k)=0.0
./pkg/fizhi/fizhi_swrad.F	2226	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2228	CLDFLX	fsdir(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	2229	CLDFLX	fsdif(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	222	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	2247	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	2249	CLDFLX	tda(i,j,1,ih,1)=td(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F	224	SWRIO	totcld(i,j) = 1.0 - (1.-cldhi (i,j))
./pkg/fizhi/fizhi_swrad.F	2250	CLDFLX	tta(i,j,1,ih,1)=tt(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F	2251	CLDFLX	rsa(i,j,1,ih,1)=rs(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F	2252	CLDFLX	tda(i,j,1,ih,2)=td(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F	2253	CLDFLX	tta(i,j,1,ih,2)=tt(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F	2254	CLDFLX	rsa(i,j,1,ih,2)=rs(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F	2259	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	225	SWRIO	. * (1.-cldmid(i,j))
./pkg/fizhi/fizhi_swrad.F	2261	CLDFLX	denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(i,j,k,ih))
./pkg/fizhi/fizhi_swrad.F	2262	CLDFLX	tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F	2263	CLDFLX	tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F	2264	CLDFLX	* +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F	2265	CLDFLX	* rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))denm
./pkg/fizhi/fizhi_swrad.F	2266	CLDFLX	rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F	2267	CLDFLX	* rsa(i,j,k-1,ih,1)denm
./pkg/fizhi/fizhi_swrad.F	2268	CLDFLX	tda(i,j,k,ih,2)= tda(i,j,k,ih,1)
./pkg/fizhi/fizhi_swrad.F	2269	CLDFLX	tta(i,j,k,ih,2)= tta(i,j,k,ih,1)
./pkg/fizhi/fizhi_swrad.F	226	SWRIO	. * (1.-cldlow(i,j))
./pkg/fizhi/fizhi_swrad.F	2270	CLDFLX	rsa(i,j,k,ih,2)= rsa(i,j,k,ih,1)
./pkg/fizhi/fizhi_swrad.F	2280	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	2282	CLDFLX	denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im))
./pkg/fizhi/fizhi_swrad.F	2283	CLDFLX	tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F	2284	CLDFLX	tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F	2285	CLDFLX	* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F	2286	CLDFLX	* rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))denm
./pkg/fizhi/fizhi_swrad.F	2287	CLDFLX	rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F	2288	CLDFLX	* rsa(i,j,k-1,ih,im)denm
./pkg/fizhi/fizhi_swrad.F	2305	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	2307	CLDFLX	rra(i,j,np+1,1,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F	2308	CLDFLX	rxa(i,j,np+1,1,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F	2309	CLDFLX	rra(i,j,np+1,2,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F	2310	CLDFLX	rxa(i,j,np+1,2,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F	2315	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	2317	CLDFLX	denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) )
./pkg/fizhi/fizhi_swrad.F	2318	CLDFLX	rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F	2319	CLDFLX	* rra(i,j,k+1,1,is)+tt(i,j,k,is)rxa(i,j,k+1,1,is))*denm
./pkg/fizhi/fizhi_swrad.F	2320	CLDFLX	rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F	2321	CLDFLX	* rxa(i,j,k+1,1,is)denm
./pkg/fizhi/fizhi_swrad.F	2322	CLDFLX	rra(i,j,k,2,is)=rra(i,j,k,1,is)
./pkg/fizhi/fizhi_swrad.F	2323	CLDFLX	rxa(i,j,k,2,is)=rxa(i,j,k,1,is)
./pkg/fizhi/fizhi_swrad.F	2333	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	2335	CLDFLX	denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) )
./pkg/fizhi/fizhi_swrad.F	2336	CLDFLX	rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F	2337	CLDFLX	* rra(i,j,k+1,im,is)+tt(i,j,k,im)rxa(i,j,k+1,im,is))*denm
./pkg/fizhi/fizhi_swrad.F	2338	CLDFLX	rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F	2339	CLDFLX	* rxa(i,j,k+1,im,is)denm
./pkg/fizhi/fizhi_swrad.F	2354	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2356	CLDFLX	ch(i,j)=1.0-cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F	2364	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2366	CLDFLX	ch(i,j)=cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F	2378	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2380	CLDFLX	cm(i,j)=ch(i,j)*(1.0-cc(i,j,2))
./pkg/fizhi/fizhi_swrad.F	2388	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2390	CLDFLX	cm(i,j)=ch(i,j)*cc(i,j,2)
./pkg/fizhi/fizhi_swrad.F	2402	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2404	CLDFLX	ct(i,j)=cm(i,j)*(1.0-cc(i,j,3))
./pkg/fizhi/fizhi_swrad.F	240	SWRIO	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	2412	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2414	CLDFLX	ct(i,j)=cm(i,j)*cc(i,j,3)
./pkg/fizhi/fizhi_swrad.F	2423	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	2425	CLDFLX	denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) )
./pkg/fizhi/fizhi_swrad.F	2426	CLDFLX	tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F	2427	CLDFLX	tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F	2428	CLDFLX	* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F	2429	CLDFLX	* rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))denm
./pkg/fizhi/fizhi_swrad.F	242	SWRIO	tmpdiag(i,j) = cswmo(i,j,L)
./pkg/fizhi/fizhi_swrad.F	2430	CLDFLX	rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F	2431	CLDFLX	* rsa(i,j,k-1,ih,im)denm
./pkg/fizhi/fizhi_swrad.F	2439	CLDFLX	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	2441	CLDFLX	denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is))
./pkg/fizhi/fizhi_swrad.F	2442	CLDFLX	rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F	2443	CLDFLX	* rra(i,j,k+1,im,is)+tt(i,j,k,ih)rxa(i,j,k+1,im,is))*denm
./pkg/fizhi/fizhi_swrad.F	2444	CLDFLX	rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F	2445	CLDFLX	* rxa(i,j,k+1,im,is)denm
./pkg/fizhi/fizhi_swrad.F	2457	CLDFLX	do j=1, n
./pkg/fizhi/fizhi_swrad.F	2459	CLDFLX	denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im))
./pkg/fizhi/fizhi_swrad.F	2460	CLDFLX	fdndir(i,j)= tda(i,j,k-1,ih,im)
./pkg/fizhi/fizhi_swrad.F	2461	CLDFLX	xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is)
./pkg/fizhi/fizhi_swrad.F	2462	CLDFLX	fdndif(i,j)= (xxrsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))denm
./pkg/fizhi/fizhi_swrad.F	2463	CLDFLX	fupdif= (xx+tta(i,j,k-1,ih,im)rxa(i,j,k,im,is))denm
./pkg/fizhi/fizhi_swrad.F	2464	CLDFLX	flxdn(i,j,k)=fdndir(i,j)+fdndif(i,j)-fupdif
./pkg/fizhi/fizhi_swrad.F	2469	CLDFLX	do j=1, n
./pkg/fizhi/fizhi_swrad.F	2471	CLDFLX	flxdn(i,j,1)=1.0-rra(i,j,1,im,is)
./pkg/fizhi/fizhi_swrad.F	2478	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2481	CLDFLX	fclr(i,j,k)=flxdn(i,j,k)
./pkg/fizhi/fizhi_swrad.F	2483	CLDFLX	fall(i,j,k)=fall(i,j,k)+flxdn(i,j,k)*ct(i,j)
./pkg/fizhi/fizhi_swrad.F	2488	CLDFLX	do j=1,n
./pkg/fizhi/fizhi_swrad.F	2490	CLDFLX	fsdir(i,j)=fsdir(i,j)+fdndir(i,j)*ct(i,j)
./pkg/fizhi/fizhi_swrad.F	2491	CLDFLX	fsdif(i,j)=fsdif(i,j)+fdndif(i,j)*ct(i,j)
./pkg/fizhi/fizhi_swrad.F	251	SWRIO	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	2522	FLXCO2	integer i,j,k,ic,iw
./pkg/fizhi/fizhi_swrad.F	2537	FLXCO2	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	253	SWRIO	tmpdiag(i,j) = cldtot(i,j,L)
./pkg/fizhi/fizhi_swrad.F	2540	FLXCO2	clog1=log10(swc(i,j,k)*csm(i,j))
./pkg/fizhi/fizhi_swrad.F	2541	FLXCO2	wlog=log10(swh(i,j,k)*csm(i,j))
./pkg/fizhi/fizhi_swrad.F	2554	FLXCO2	df(i,j,k)=df(i,j,k)+0.0343*(x1-y2)
./pkg/fizhi/fizhi_swrad.F	274	SWRIO	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	276	SWRIO	tmpdiag(i,j) = swlz(i,j,L) * 1.0e6
./pkg/fizhi/fizhi_swrad.F	309	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	311	SWRIO	tau(i,j,L) = tautype(i,j,L,1)+tautype(i,j,L,2)+tautype(i,j,L,3)
./pkg/fizhi/fizhi_swrad.F	319	SWRIO	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	321	SWRIO	tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./pkg/fizhi/fizhi_swrad.F	331	SWRIO	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	333	SWRIO	if( cldtot(i,j,L).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F	334	SWRIO	tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./pkg/fizhi/fizhi_swrad.F	335	SWRIO	tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F	337	SWRIO	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	338	SWRIO	tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	351	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	353	SWRIO	taulow(i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F	354	SWRIO	if( cldlow(i,j).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F	356	SWRIO	taulow(i,j) = taulow(i,j) + tau(i,j,L)
./pkg/fizhi/fizhi_swrad.F	358	SWRIO	tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F	360	SWRIO	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	370	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	372	SWRIO	taumid(i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F	373	SWRIO	if( cldmid(i,j).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F	375	SWRIO	taumid(i,j) = taumid(i,j) + tau(i,j,L)
./pkg/fizhi/fizhi_swrad.F	377	SWRIO	tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F	379	SWRIO	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	389	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	391	SWRIO	tauhi(i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F	392	SWRIO	if( cldhi(i,j).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F	394	SWRIO	tauhi(i,j) = tauhi(i,j) + tau(i,j,L)
./pkg/fizhi/fizhi_swrad.F	396	SWRIO	tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F	398	SWRIO	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	42	SWRIO	integer i,j,L,nn,nsecf
./pkg/fizhi/fizhi_swrad.F	512	SWRIO	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	514	SWRIO	if( albedo(i,j).ne.undef ) then
./pkg/fizhi/fizhi_swrad.F	515	SWRIO	tmpdiag(i,j) = albedo(i,j)
./pkg/fizhi/fizhi_swrad.F	516	SWRIO	tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F	518	SWRIO	tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	519	SWRIO	tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F	537	SWRIO	do j = 1,jm
./pkg/fizhi/fizhi_swrad.F	539	SWRIO	fccave(i,j,L) = 0.
./pkg/fizhi/fizhi_swrad.F	540	SWRIO	qliqave(i,j,L) = 0.
./pkg/fizhi/fizhi_swrad.F	579	OPTHK	integer im,jm,lm,i,j,L
./pkg/fizhi/fizhi_swrad.F	596	OPTHK	do j=1,jm
./pkg/fizhi/fizhi_swrad.F	598	OPTHK	alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0)
./pkg/fizhi/fizhi_swrad.F	599	OPTHK	dp = ple(i,j,L+1)-ple(i,j,L)
./pkg/fizhi/fizhi_swrad.F	600	OPTHK	tau(i,j,L,1) = 0.0
./pkg/fizhi/fizhi_swrad.F	601	OPTHK	tau(i,j,L,2) = 0.0
./pkg/fizhi/fizhi_swrad.F	602	OPTHK	tau(i,j,L,3) = 0.0
./pkg/fizhi/fizhi_swrad.F	603	OPTHK	if( cf(i,j,L).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F	607	OPTHK	fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L)
./pkg/fizhi/fizhi_swrad.F	618	OPTHK	tauice = max( 0.0002 _d 0, 0.002min(500lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F	620	OPTHK	tau(i,j,L,1) = fracls(1-alf)tauice*dp
./pkg/fizhi/fizhi_swrad.F	625	OPTHK	if( lwi(i,j).le.10 ) then
./pkg/fizhi/fizhi_swrad.F	626	OPTHK	tauh2o = max( 0.0020 _d 0, 0.200min(200lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F	628	OPTHK	tau(i,j,L,3) = fraclsalftauh2o*dp
./pkg/fizhi/fizhi_swrad.F	631	OPTHK	if( lz(i,j,L).eq.0.0 ) then
./pkg/fizhi/fizhi_swrad.F	633	OPTHK	tau(i,j,L,2) = fraclsalftauh2o*dp
./pkg/fizhi/fizhi_swrad.F	636	OPTHK	tauh2o = max( 0.0020 _d 0, 0.120min( 20lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F	638	OPTHK	tau(i,j,L,3) = fraclsalftauh2o*dp
./pkg/fizhi/fizhi_swrad.F	644	OPTHK	if( tl(i,j,L).gt.210.0 ) then
./pkg/fizhi/fizhi_swrad.F	646	OPTHK	tau(i,j,L,3) = tau(i,j,L,3) + fraccutaurasdp
./pkg/fizhi/fizhi_swrad.F	649	OPTHK	tau(i,j,L,1) = tau(i,j,L,1) + fraccutaurasdp
./pkg/fizhi/fizhi_swrad.F	787	SORAD	integer i,j,k
./pkg/fizhi/fizhi_swrad.F	795	SORAD	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	798	SORAD	swh(i,j,1)=0.
./pkg/fizhi/fizhi_swrad.F	799	SORAD	so2(i,j,1)=0.
./pkg/fizhi/fizhi_swrad.F	804	SORAD	csm(i,j)=35./sqrt(1224.cosz(i,j)cosz(i,j)+1.)
./pkg/fizhi/fizhi_swrad.F	811	SORAD	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	818	SORAD	dp(i,j,k)=pl(i,j,k+1)-pl(i,j,k)
./pkg/fizhi/fizhi_swrad.F	819	SORAD	scal(i,j,k)=dp(i,j,k)(.5(pl(i,j,k)+pl(i,j,k+1))/300.)**.8
./pkg/fizhi/fizhi_swrad.F	823	SORAD	wh(i,j,k)=1.02wa(i,j,k)scal(i,j,k)*
./pkg/fizhi/fizhi_swrad.F	824	SORAD	* (1.+0.00135*(ta(i,j,k)-240.))
./pkg/fizhi/fizhi_swrad.F	825	SORAD	swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k)
./pkg/fizhi/fizhi_swrad.F	829	SORAD	oh(i,j,k)=1.02oa(i,j,k)dp(i,j,k)*466.7
./pkg/fizhi/fizhi_swrad.F	848	SORAD	do j=1, n
./pkg/fizhi/fizhi_swrad.F	850	SORAD	flx(i,j,k)=0.
./pkg/fizhi/fizhi_swrad.F	851	SORAD	flc(i,j,k)=0.
./pkg/fizhi/fizhi_swrad.F	852	SORAD	df(i,j,k)=0.
./pkg/fizhi/fizhi_swrad.F	871	SORAD	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	873	SORAD	so2(i,j,k+1)=so2(i,j,k)+165.22*scal(i,j,k)
./pkg/fizhi/fizhi_swrad.F	883	SORAD	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	885	SORAD	x=so2(i,j,k)*csm(i,j)
./pkg/fizhi/fizhi_swrad.F	886	SORAD	df(i,j,k)=df(i,j,k)+0.0287(1.-expmn(-0.00027sqrt(x)))
./pkg/fizhi/fizhi_swrad.F	894	SORAD	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	896	SORAD	so2(i,j,k+1)=so2(i,j,k)+co2789.scal(i,j,k)
./pkg/fizhi/fizhi_swrad.F	909	SORAD	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	911	SORAD	flc(i,j,k)=flc(i,j,k)-df(i,j,k)
./pkg/fizhi/fizhi_swrad.F	920	SORAD	do j=1,n
./pkg/fizhi/fizhi_swrad.F	922	SORAD	sdf(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F	923	SORAD	sclr(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F	928	SORAD	do j=1,n
./pkg/fizhi/fizhi_swrad.F	934	SORAD	if(fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F	935	SORAD	sdf(i,j)=sdf(i,j)+df(i,j,k)sclr(i,j)fcld(i,j,k)
./pkg/fizhi/fizhi_swrad.F	936	SORAD	sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F	938	SORAD	flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j)
./pkg/fizhi/fizhi_swrad.F	945	SORAD	do j= 1, n
./pkg/fizhi/fizhi_swrad.F	947	SORAD	x = (1.-rsirdf(i,j))fdifir(i,j) + (1.-rsirbm(i,j))fdirir(i,j)
./pkg/fizhi/fizhi_swrad.F	948	SORAD	x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x
./pkg/fizhi/fizhi_swrad.F	949	SORAD	fdirir(i,j)=fdirir(i,j)*(1.+x)
./pkg/fizhi/fizhi_swrad.F	950	SORAD	fdifir(i,j)=fdifir(i,j)*(1.+x)
./pkg/fizhi/fizhi_tendency_apply.F	126	FIZHI_TENDENCY_APPLY_V	INTEGER i, j
./pkg/fizhi/fizhi_tendency_apply.F	138	FIZHI_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	140	FIZHI_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/fizhi/fizhi_tendency_apply.F	141	FIZHI_TENDENCY_APPLY_V	& + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	142	FIZHI_TENDENCY_APPLY_V	& *( gvphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	143	FIZHI_TENDENCY_APPLY_V	& - rayleighdrag*vVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F	148	FIZHI_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	150	FIZHI_TENDENCY_APPLY_V	tmpdiag(i,j) = maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	151	FIZHI_TENDENCY_APPLY_V	& *( gvphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	152	FIZHI_TENDENCY_APPLY_V	& - rayleighdrag*vVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F	160	FIZHI_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	162	FIZHI_TENDENCY_APPLY_V	tmpdiag(i,j) = -1. _d 0 * rayleighdrag *
./pkg/fizhi/fizhi_tendency_apply.F	163	FIZHI_TENDENCY_APPLY_V	& maskS(i,j,kLev,bi,bj)vVel(i,j,kLev,bi,bj) 86400
./pkg/fizhi/fizhi_tendency_apply.F	208	FIZHI_TENDENCY_APPLY_T	INTEGER i, j
./pkg/fizhi/fizhi_tendency_apply.F	223	FIZHI_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	225	FIZHI_TENDENCY_APPLY_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/fizhi/fizhi_tendency_apply.F	226	FIZHI_TENDENCY_APPLY_T	& + ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	228	FIZHI_TENDENCY_APPLY_T	& *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	229	FIZHI_TENDENCY_APPLY_T	& uVel(i,j,kLev,bi,bj)uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	230	FIZHI_TENDENCY_APPLY_T	& + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	231	FIZHI_TENDENCY_APPLY_T	& uVel(i+1,j,kLev,bi,bj)uVel(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	232	FIZHI_TENDENCY_APPLY_T	& + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	233	FIZHI_TENDENCY_APPLY_T	& vVel(i,j,kLev,bi,bj)vVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	234	FIZHI_TENDENCY_APPLY_T	& + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	235	FIZHI_TENDENCY_APPLY_T	& vVel(i,j+1,kLev,bi,bj)vVel(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	241	FIZHI_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	243	FIZHI_TENDENCY_APPLY_T	tmpdiag(i,j) =
./pkg/fizhi/fizhi_tendency_apply.F	244	FIZHI_TENDENCY_APPLY_T	& ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	246	FIZHI_TENDENCY_APPLY_T	& *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	247	FIZHI_TENDENCY_APPLY_T	& uVel(i,j,kLev,bi,bj)uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	248	FIZHI_TENDENCY_APPLY_T	& + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	249	FIZHI_TENDENCY_APPLY_T	& uVel(i+1,j,kLev,bi,bj)uVel(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	250	FIZHI_TENDENCY_APPLY_T	& + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	251	FIZHI_TENDENCY_APPLY_T	& vVel(i,j,kLev,bi,bj)vVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	252	FIZHI_TENDENCY_APPLY_T	& + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	253	FIZHI_TENDENCY_APPLY_T	& vVel(i,j+1,kLev,bi,bj)vVel(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	261	FIZHI_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	263	FIZHI_TENDENCY_APPLY_T	tmpdiag(i,j) = ( rayleighdrag * 0.5
./pkg/fizhi/fizhi_tendency_apply.F	264	FIZHI_TENDENCY_APPLY_T	& *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	265	FIZHI_TENDENCY_APPLY_T	& uVel(i,j,kLev,bi,bj)uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	266	FIZHI_TENDENCY_APPLY_T	& + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	267	FIZHI_TENDENCY_APPLY_T	& uVel(i+1,j,kLev,bi,bj)uVel(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	268	FIZHI_TENDENCY_APPLY_T	& + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	269	FIZHI_TENDENCY_APPLY_T	& vVel(i,j,kLev,bi,bj)vVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	270	FIZHI_TENDENCY_APPLY_T	& + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	271	FIZHI_TENDENCY_APPLY_T	& vVel(i,j+1,kLev,bi,bj)vVel(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	316	FIZHI_TENDENCY_APPLY_S	INTEGER i, j
./pkg/fizhi/fizhi_tendency_apply.F	322	FIZHI_TENDENCY_APPLY_S	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	324	FIZHI_TENDENCY_APPLY_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/fizhi/fizhi_tendency_apply.F	325	FIZHI_TENDENCY_APPLY_S	& + maskC(i,j,kLev,bi,bj)*gsphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	330	FIZHI_TENDENCY_APPLY_S	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	332	FIZHI_TENDENCY_APPLY_S	tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F	43	FIZHI_TENDENCY_APPLY_U	INTEGER i, j
./pkg/fizhi/fizhi_tendency_apply.F	55	FIZHI_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	57	FIZHI_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/fizhi/fizhi_tendency_apply.F	58	FIZHI_TENDENCY_APPLY_U	& + maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	59	FIZHI_TENDENCY_APPLY_U	& *( guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	60	FIZHI_TENDENCY_APPLY_U	& - rayleighdrag*uVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F	65	FIZHI_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	67	FIZHI_TENDENCY_APPLY_U	tmpdiag(i,j) = maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	68	FIZHI_TENDENCY_APPLY_U	& *( guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F	69	FIZHI_TENDENCY_APPLY_U	& - rayleighdrag*uVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F	77	FIZHI_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/fizhi/fizhi_tendency_apply.F	79	FIZHI_TENDENCY_APPLY_U	tmpdiag(i,j) = -1. _d 0 * rayleighdrag *
./pkg/fizhi/fizhi_tendency_apply.F	80	FIZHI_TENDENCY_APPLY_U	& maskW(i,j,kLev,bi,bj)uVel(i,j,kLev,bi,bj) 86400
./pkg/fizhi/fizhi_utils.F	123	PASTE	INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F	141	PSTBMP	INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F	159	STRINT	INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F	395	STRIPIT	integer i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F	402	STRIPIT	do 100 j=1,l
./pkg/fizhi/fizhi_utils.F	404	STRIPIT	b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F	407	STRIPIT	do 200 j=1,l
./pkg/fizhi/fizhi_utils.F	409	STRIPIT	b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F	412	STRIPIT	b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F	422	STRIPITINT	integer i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F	429	STRIPITINT	do 100 j=1,l
./pkg/fizhi/fizhi_utils.F	431	STRIPITINT	b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F	434	STRIPITINT	do 200 j=1,l
./pkg/fizhi/fizhi_utils.F	436	STRIPITINT	b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F	439	STRIPITINT	b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F	449	PASTIT	integer i,j
./pkg/fizhi/fizhi_utils.F	456	PASTIT	do 100 j=1,L
./pkg/fizhi/fizhi_utils.F	458	PASTIT	a(i+offset-1,j) = b(i,j)
./pkg/fizhi/fizhi_utils.F	468	PSTBITINT	integer i,j
./pkg/fizhi/fizhi_utils.F	474	PSTBITINT	do 100 j=1,L
./pkg/fizhi/fizhi_utils.F	476	PSTBITINT	a(i+offset-1,j) = a(i+offset-1,j) + float(b(i,j))
./pkg/fizhi/fizhi_utils.F	486	PSTBMPIT	integer i,j
./pkg/fizhi/fizhi_utils.F	492	PSTBMPIT	do 100 j=1,L
./pkg/fizhi/fizhi_utils.F	494	PSTBMPIT	a(i+offset-1,j) = a(i+offset-1,j) + b(i,j)
./pkg/fizhi/fizhi_utils.F	65	STRIP	INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F	925	PKAPPA	integer i,j,L
./pkg/fizhi/fizhi_utils.F	930	PKAPPA	do j = 1,jm
./pkg/fizhi/fizhi_utils.F	932	PKAPPA	pkz(i,j,L) = ( ple (i,j,l+1)*pkle(i,j,l+1)
./pkg/fizhi/fizhi_utils.F	933	PKAPPA	. - ple (i,j,l)*pkle(i,j,l) )
./pkg/fizhi/fizhi_utils.F	934	PKAPPA	. / ( akap1* (ple (i,j,l+1)-ple (i,j,l)) )
./pkg/fizhi/fizhi_utils.F	94	STRIPINT	INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_wrapper.F	102	FIZHI_WRAPPER	do j = 1,sNy+1
./pkg/fizhi/fizhi_wrapper.F	104	FIZHI_WRAPPER	vdynbef(i,j,L,bi,bj) = vvel(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	116	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	118	FIZHI_WRAPPER	thbef(i,j,L,bi,bj) = thphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	123	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	125	FIZHI_WRAPPER	thdynbef(i,j,L,bi,bj) = theta(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	137	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	139	FIZHI_WRAPPER	sbef(i,j,L,bi,bj) = sphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	144	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	146	FIZHI_WRAPPER	sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	162	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	164	FIZHI_WRAPPER	pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj))
./pkg/fizhi/fizhi_wrapper.F	166	FIZHI_WRAPPER	pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	170	FIZHI_WRAPPER	pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	172	FIZHI_WRAPPER	if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_wrapper.F	173	FIZHI_WRAPPER	& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_wrapper.F	177	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	180	FIZHI_WRAPPER	pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_wrapper.F	184	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	186	FIZHI_WRAPPER	Lbotij = kSurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	188	FIZHI_WRAPPER	& pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj))
./pkg/fizhi/fizhi_wrapper.F	191	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	193	FIZHI_WRAPPER	Lbotij = kSurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	195	FIZHI_WRAPPER	pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./pkg/fizhi/fizhi_wrapper.F	196	FIZHI_WRAPPER	& drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	199	FIZHI_WRAPPER	if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_wrapper.F	200	FIZHI_WRAPPER	& pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_wrapper.F	211	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	214	FIZHI_WRAPPER	tempphy(i,j,L,bi,bj) = pephy4fiz(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	236	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	238	FIZHI_WRAPPER	tempdiag(i,j) = topoZ(i,j,bi,bj)*grav
./pkg/fizhi/fizhi_wrapper.F	239	FIZHI_WRAPPER	tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100.
./pkg/fizhi/fizhi_wrapper.F	243	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	245	FIZHI_WRAPPER	tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100.
./pkg/fizhi/fizhi_wrapper.F	246	FIZHI_WRAPPER	tempLdiag2(i,j,L) = thphy(i,j,L,bi,bj) *
./pkg/fizhi/fizhi_wrapper.F	247	FIZHI_WRAPPER	& (1.+0.609*sphy(i,j,L,bi,bj))
./pkg/fizhi/fizhi_wrapper.F	287	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	290	FIZHI_WRAPPER	tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	296	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	299	FIZHI_WRAPPER	tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	305	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	308	FIZHI_WRAPPER	tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	314	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	317	FIZHI_WRAPPER	tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	53	FIZHI_WRAPPER	INTEGER i, j, L, Lbotij, bi, bj
./pkg/fizhi/fizhi_wrapper.F	74	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	76	FIZHI_WRAPPER	ubef(i,j,L,bi,bj) = uphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	81	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	83	FIZHI_WRAPPER	udynbef(i,j,L,bi,bj) = uvel(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F	95	FIZHI_WRAPPER	do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F	97	FIZHI_WRAPPER	vbef(i,j,L,bi,bj) = vphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_write_pickup.F	49	FIZHI_WRITE_PICKUP	integer i,j,k,bi,bj
./pkg/fizhi/fizhi_write_pickup.F	55	FIZHI_WRITE_PICKUP	do j = 1-OLy,sNy+OLy
./pkg/fizhi/fizhi_write_pickup.F	57	FIZHI_WRITE_PICKUP	temp(i,j,k,bi,bj) = 0.
./pkg/fizhi/fizhi_write_pickup.F	93	FIZHI_WRITE_PICKUP	do j = 1,sNy
./pkg/fizhi/fizhi_write_pickup.F	95	FIZHI_WRITE_PICKUP	temp(i,j,1,bi,bj) = raincon(i,j,bi,bj)
./pkg/fizhi/fizhi_write_pickup.F	96	FIZHI_WRITE_PICKUP	temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj)
./pkg/fizhi/fizhi_write_pickup.F	97	FIZHI_WRITE_PICKUP	temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	101	STEP_FIZHI_CORR	if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./pkg/fizhi/step_fizhi_corr.F	102	STEP_FIZHI_CORR	. pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./pkg/fizhi/step_fizhi_corr.F	106	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	108	STEP_FIZHI_CORR	pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	110	STEP_FIZHI_CORR	pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	113	STEP_FIZHI_CORR	if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./pkg/fizhi/step_fizhi_corr.F	114	STEP_FIZHI_CORR	. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./pkg/fizhi/step_fizhi_corr.F	121	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	123	STEP_FIZHI_CORR	windphy(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F	124	STEP_FIZHI_CORR	. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	125	STEP_FIZHI_CORR	. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj))
./pkg/fizhi/step_fizhi_corr.F	140	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	142	STEP_FIZHI_CORR	tempphy(i,j,Nrphys+1-L,bi,bj) = uphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	149	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	151	STEP_FIZHI_CORR	tempphy(i,j,Nrphys+1-L,bi,bj) = vphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	158	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	160	STEP_FIZHI_CORR	tempphy(i,j,Nrphys+1-L,bi,bj) = thphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	167	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	169	STEP_FIZHI_CORR	tempphy(i,j,Nrphys+1-L,bi,bj) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	192	STEP_FIZHI_CORR	do j = jdim1,jdim2
./pkg/fizhi/step_fizhi_corr.F	194	STEP_FIZHI_CORR	udyntemp(i,j,L,bi,bj)=uvel(i,j,L,bi,bj)-udyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	195	STEP_FIZHI_CORR	vdyntemp(i,j,L,bi,bj)=vvel(i,j,L,bi,bj)-vdyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	196	STEP_FIZHI_CORR	thdyntemp(i,j,L,bi,bj)=theta(i,j,L,bi,bj)-thdyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	197	STEP_FIZHI_CORR	sdyntemp(i,j,L,bi,bj)=salt(i,j,L,bi,bj)-sdyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	220	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	222	STEP_FIZHI_CORR	uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	229	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	231	STEP_FIZHI_CORR	vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	238	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	240	STEP_FIZHI_CORR	thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	247	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	249	STEP_FIZHI_CORR	sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	285	STEP_FIZHI_CORR	do j=jm1,jm2
./pkg/fizhi/step_fizhi_corr.F	287	STEP_FIZHI_CORR	tempij(i,j) = (uphy (i,j,L,bi,bj)-ubef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F	297	STEP_FIZHI_CORR	do j=jm1,jm2
./pkg/fizhi/step_fizhi_corr.F	299	STEP_FIZHI_CORR	tempij(i,j) = (vphy (i,j,L,bi,bj)-vbef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F	309	STEP_FIZHI_CORR	do j=jm1,jm2
./pkg/fizhi/step_fizhi_corr.F	311	STEP_FIZHI_CORR	tempij(i,j) = (thphy (i,j,L,bi,bj)-thbef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F	321	STEP_FIZHI_CORR	do j=jm1,jm2
./pkg/fizhi/step_fizhi_corr.F	323	STEP_FIZHI_CORR	tempij(i,j) = (sphy (i,j,L,bi,bj)-sbef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F	344	STEP_FIZHI_CORR	do j=jm1,jm2
./pkg/fizhi/step_fizhi_corr.F	346	STEP_FIZHI_CORR	udyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F	347	STEP_FIZHI_CORR	. (uvel(i,j,L,bi,bj)-udynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F	348	STEP_FIZHI_CORR	. guphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	349	STEP_FIZHI_CORR	vdyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F	350	STEP_FIZHI_CORR	. (vvel(i,j,L,bi,bj)-vdynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F	351	STEP_FIZHI_CORR	. gvphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	363	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	365	STEP_FIZHI_CORR	windphy(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F	366	STEP_FIZHI_CORR	. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	367	STEP_FIZHI_CORR	. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj))
./pkg/fizhi/step_fizhi_corr.F	377	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	379	STEP_FIZHI_CORR	uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	386	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	388	STEP_FIZHI_CORR	vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	394	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	396	STEP_FIZHI_CORR	uphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F	397	STEP_FIZHI_CORR	. ( (uphy(i,j,L,bi,bj)-ubef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F	398	STEP_FIZHI_CORR	. - duphy(i,j,L,bi,bj) - uphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F	399	STEP_FIZHI_CORR	vphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F	400	STEP_FIZHI_CORR	. ( (vphy(i,j,L,bi,bj)-vbef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F	401	STEP_FIZHI_CORR	. - dvphy(i,j,L,bi,bj) - vphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F	426	STEP_FIZHI_CORR	do j=jm1,jm2
./pkg/fizhi/step_fizhi_corr.F	428	STEP_FIZHI_CORR	thdyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F	429	STEP_FIZHI_CORR	. (theta(i,j,L,bi,bj)-thdynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F	430	STEP_FIZHI_CORR	. gthphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	441	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	443	STEP_FIZHI_CORR	thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	449	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	451	STEP_FIZHI_CORR	thphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F	452	STEP_FIZHI_CORR	. ( (thphy(i,j,L,bi,bj)-thbef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F	453	STEP_FIZHI_CORR	. - dthphy(i,j,L,bi,bj) - thphytemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	473	STEP_FIZHI_CORR	do j=jm1,jm2
./pkg/fizhi/step_fizhi_corr.F	475	STEP_FIZHI_CORR	sdyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F	476	STEP_FIZHI_CORR	. (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F	477	STEP_FIZHI_CORR	. gsphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	488	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	490	STEP_FIZHI_CORR	sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	496	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	498	STEP_FIZHI_CORR	sphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F	499	STEP_FIZHI_CORR	. ( (sphy(i,j,L,bi,bj)-sbef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F	500	STEP_FIZHI_CORR	. - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F	56	STEP_FIZHI_CORR	integer i, j, L, Lbotij, bi, bj
./pkg/fizhi/step_fizhi_corr.F	79	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	82	STEP_FIZHI_CORR	pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/step_fizhi_corr.F	86	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	88	STEP_FIZHI_CORR	Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	90	STEP_FIZHI_CORR	. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	93	STEP_FIZHI_CORR	do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F	95	STEP_FIZHI_CORR	Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F	97	STEP_FIZHI_CORR	pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./pkg/fizhi/step_fizhi_corr.F	98	STEP_FIZHI_CORR	. drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/step_fizhi_fg.F	32	STEP_FIZHI_FG	integer i,j,L
./pkg/fizhi/step_fizhi_fg.F	54	STEP_FIZHI_FG	do j = jm1,jm2
./pkg/fizhi/step_fizhi_fg.F	56	STEP_FIZHI_FG	tempij(i,j) = uphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F	62	STEP_FIZHI_FG	do j = jm1,jm2
./pkg/fizhi/step_fizhi_fg.F	64	STEP_FIZHI_FG	tempij(i,j) = vphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F	70	STEP_FIZHI_FG	do j = jm1,jm2
./pkg/fizhi/step_fizhi_fg.F	72	STEP_FIZHI_FG	tempij(i,j) = thphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F	78	STEP_FIZHI_FG	do j = jm1,jm2
./pkg/fizhi/step_fizhi_fg.F	80	STEP_FIZHI_FG	tempij(i,j) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F	93	STEP_FIZHI_FG	do j = jm1,jm2
./pkg/fizhi/step_fizhi_fg.F	95	STEP_FIZHI_FG	tempij(i,j) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_physics.F	25	STEP_PHYSICS	integer i,j,L
./pkg/fizhi/step_physics.F	28	STEP_PHYSICS	do j = jm1,jm2
./pkg/fizhi/step_physics.F	30	STEP_PHYSICS	uphy(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) + duphy(i,j,L,bi,bj) * dt
./pkg/fizhi/step_physics.F	31	STEP_PHYSICS	vphy(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) + dvphy(i,j,L,bi,bj) * dt
./pkg/fizhi/step_physics.F	32	STEP_PHYSICS	thphy(i,j,L,bi,bj)=thphy(i,j,L,bi,bj) + dthphy(i,j,L,bi,bj)* dt
./pkg/fizhi/step_physics.F	33	STEP_PHYSICS	sphy(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) + dsphy(i,j,L,bi,bj) * dt
./pkg/fizhi/update_chemistry_exports.F	35	UPDATE_CHEMISTRY_EXPORTS	integer i, j, L, LL, bi, bj
./pkg/fizhi/update_chemistry_exports.F	54	UPDATE_CHEMISTRY_EXPORTS	do j = 1,sNy
./pkg/fizhi/update_chemistry_exports.F	56	UPDATE_CHEMISTRY_EXPORTS	pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj))
./pkg/fizhi/update_chemistry_exports.F	59	UPDATE_CHEMISTRY_EXPORTS	pephy(i,j,LL,bi,bj)=pephy(i,j,LL+1,bi,bj)-dpphys(i,j,L-1,bi,bj)
./pkg/fizhi/update_chemistry_exports.F	63	UPDATE_CHEMISTRY_EXPORTS	do j = 1,sNy
./pkg/fizhi/update_chemistry_exports.F	66	UPDATE_CHEMISTRY_EXPORTS	pphy(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)+pephy(i,j,L,bi,bj))
./pkg/fizhi/update_chemistry_exports.F	72	UPDATE_CHEMISTRY_EXPORTS	do j = 1,sNy
./pkg/fizhi/update_chemistry_exports.F	74	UPDATE_CHEMISTRY_EXPORTS	xlat(i,j) = yC(i,j,bi,bj)
./pkg/fizhi/update_chemistry_exports.F	76	UPDATE_CHEMISTRY_EXPORTS	waterin(i,j,L) = sphy(i,j,L,bi,bj)
./pkg/fizhi/update_chemistry_exports.F	85	UPDATE_CHEMISTRY_EXPORTS	do j = 1,nlatsoz
./pkg/fizhi/update_chemistry_exports.F	86	UPDATE_CHEMISTRY_EXPORTS	oz1(j,L) = ozone(j,L,imns)facm + ozone(j,L,ipls)facp
./pkg/fizhi/update_chemistry_exports.F	91	UPDATE_CHEMISTRY_EXPORTS	do j = 1,nlatsq
./pkg/fizhi/update_chemistry_exports.F	92	UPDATE_CHEMISTRY_EXPORTS	strq1(j,L) = stratq(j,L,imns)facm + stratq(j,L,ipls)facp
./pkg/fizhi/update_earth_exports.F	1004	GETEMISS	INTEGER i,j,k,n
./pkg/fizhi/update_earth_exports.F	1020	GETEMISS	do j = 1,jm
./pkg/fizhi/update_earth_exports.F	1022	GETEMISS	tmpij(i,j) = 0.0
./pkg/fizhi/update_earth_exports.F	1027	GETEMISS	do j = 1,jm
./pkg/fizhi/update_earth_exports.F	1029	GETEMISS	emiss(i,j,k,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F	1049	EMISSIVITY	INTEGER i,j
./pkg/fizhi/update_earth_exports.F	1103	EMISSIVITY	DATA ((emis(i,j),i=1,12),j=1,11) /
./pkg/fizhi/update_earth_exports.F	1235	GET_LANDFRAC	INTEGER i,j,k
./pkg/fizhi/update_earth_exports.F	1237	GET_LANDFRAC	do j=1,jm
./pkg/fizhi/update_earth_exports.F	1239	GET_LANDFRAC	frac(i,j) = 0.0
./pkg/fizhi/update_earth_exports.F	1244	GET_LANDFRAC	do j=1,jm
./pkg/fizhi/update_earth_exports.F	1246	GET_LANDFRAC	if( (surftype(i,j,k,bi,bj).lt.100.).and.
./pkg/fizhi/update_earth_exports.F	1247	GET_LANDFRAC	& (tilefrac(i,j,k,bi,bj).gt.0.0))then
./pkg/fizhi/update_earth_exports.F	1248	GET_LANDFRAC	frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj)
./pkg/fizhi/update_earth_exports.F	136	UPDATE_EARTH_EXPORTS	do j = jm1,jm2
./pkg/fizhi/update_earth_exports.F	138	UPDATE_EARTH_EXPORTS	tmpij(i,j) = 0.
./pkg/fizhi/update_earth_exports.F	146	UPDATE_EARTH_EXPORTS	do j = jm1,jm2
./pkg/fizhi/update_earth_exports.F	148	UPDATE_EARTH_EXPORTS	tgz(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F	149	UPDATE_EARTH_EXPORTS	if(fracl(i,j).lt.0.3.and.sice(i,j,bi,bj).eq.0.0)
./pkg/fizhi/update_earth_exports.F	150	UPDATE_EARTH_EXPORTS	& tgz(i,j,bi,bj) = sst(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F	53	UPDATE_EARTH_EXPORTS	INTEGER i, j, n, bi, bj
./pkg/fizhi/update_earth_exports.F	75	UPDATE_EARTH_EXPORTS	do j = jm1,jm2
./pkg/fizhi/update_earth_exports.F	77	UPDATE_EARTH_EXPORTS	lons(i,j) = xC(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F	78	UPDATE_EARTH_EXPORTS	lats(i,j) = yC(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F	85	UPDATE_EARTH_EXPORTS	do j = jm1,jm2
./pkg/fizhi/update_earth_exports.F	87	UPDATE_EARTH_EXPORTS	if(sice(i,j,bi,bj).gt.0.) then
./pkg/fizhi/update_earth_exports.F	885	GETALB	INTEGER i,j
./pkg/fizhi/update_earth_exports.F	88	UPDATE_EARTH_EXPORTS	fraci(i,j) = 1.
./pkg/fizhi/update_earth_exports.F	90	UPDATE_EARTH_EXPORTS	fraci(i,j) = 0.
./pkg/fizhi/update_earth_exports.F	910	GETALB	tmpij(i,j) = albvr(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F	918	GETALB	albvr(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F	923	GETALB	tmpij(i,j) = albvf(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F	930	GETALB	albvf(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F	935	GETALB	tmpij(i,j) = albnr(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F	942	GETALB	albnr(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F	947	GETALB	tmpij(i,j) = albnf(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F	954	GETALB	albnf(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_ocean_exports.F	102	UPDATE_OCEAN_EXPORTS	do j=jm1,jm2
./pkg/fizhi/update_ocean_exports.F	104	UPDATE_OCEAN_EXPORTS	if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin)
./pkg/fizhi/update_ocean_exports.F	105	UPDATE_OCEAN_EXPORTS	. sst(i,j,bi,bj) = sstmin
./pkg/fizhi/update_ocean_exports.F	184	GETSICE	integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F	34	UPDATE_OCEAN_EXPORTS	integer i, j, bi, bj, bislot, bjslot
./pkg/fizhi/update_ocean_exports.F	352	GETSICE	do j = jm1,jm2
./pkg/fizhi/update_ocean_exports.F	354	GETSICE	sice(i,j,bi,bj) = sicebc1(i+bislot,j+bjslot)*fac1
./pkg/fizhi/update_ocean_exports.F	355	GETSICE	. + sicebc2(i+bislot,j+bjslot)*fac2
./pkg/fizhi/update_ocean_exports.F	358	GETSICE	if (sice(i,j,bi,bj) .ge. 0.5) then
./pkg/fizhi/update_ocean_exports.F	359	GETSICE	sice(i,j,bi,bj) = 1.
./pkg/fizhi/update_ocean_exports.F	361	GETSICE	sice(i,j,bi,bj) = 0.
./pkg/fizhi/update_ocean_exports.F	367	GETSICE	do j = jm1,jm2
./pkg/fizhi/update_ocean_exports.F	369	GETSICE	if (sice(i,j,bi,bj) .eq. 1.) then
./pkg/fizhi/update_ocean_exports.F	370	GETSICE	sice(i,j,bi,bj) = 3.
./pkg/fizhi/update_ocean_exports.F	445	GETSST	integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F	614	GETSST	do j = jm1,jm2
./pkg/fizhi/update_ocean_exports.F	616	GETSST	sst(i,j,bi,bj) = sstbc1(i+bislot,j+bjslot)*fac1
./pkg/fizhi/update_ocean_exports.F	617	GETSST	. + sstbc2(i+bislot,j+bjslot)*fac2
./pkg/fizhi/update_ocean_exports.F	652	BCDATA	integer i,j
./pkg/fizhi/update_ocean_exports.F	663	BCDATA	do j=1,jm
./pkg/fizhi/update_ocean_exports.F	665	BCDATA	field1(i,j) = f1(i,j)
./pkg/fizhi/update_ocean_exports.F	666	BCDATA	field2(i,j) = f2(i,j)
./pkg/flt/exch2_send_put_vec.F	119	EXCH2_SEND_PUT_VEC_RL	DO j=1,nSy
./pkg/flt/exch2_send_put_vec.F	121	EXCH2_SEND_PUT_VEC_RL	IF ( W2_myTileList(i,j).EQ.tgT ) THEN
./pkg/flt/exch2_send_put_vec.F	123	EXCH2_SEND_PUT_VEC_RL	sBj = j
./pkg/flt/flt_mapping.F	120	FLT_MAP_IJLOCAL2XY	INTEGER i, j
./pkg/flt/flt_mapping.F	129	FLT_MAP_IJLOCAL2XY	j = NINT(jy)
./pkg/flt/flt_mapping.F	131	FLT_MAP_IJLOCAL2XY	ddy = 0.5 _d 0 + jy - DFLOAT(j)
./pkg/flt/flt_mapping.F	133	FLT_MAP_IJLOCAL2XY	xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	134	FLT_MAP_IJLOCAL2XY	yy = yG(i,j,bi,bj) + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	139	FLT_MAP_IJLOCAL2XY	j = NINT(jy)
./pkg/flt/flt_mapping.F	141	FLT_MAP_IJLOCAL2XY	ddy = 0.5 _d 0 + jy - DFLOAT(j)
./pkg/flt/flt_mapping.F	144	FLT_MAP_IJLOCAL2XY	xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	145	FLT_MAP_IJLOCAL2XY	& + ddy*( xG(i,j+1,bi,bj) - xG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	146	FLT_MAP_IJLOCAL2XY	& + ddxddy( xG(i+1,j+1,bi,bj) - xG(i+1,j,bi,bj)
./pkg/flt/flt_mapping.F	147	FLT_MAP_IJLOCAL2XY	& - xG(i,j+1,bi,bj) + xG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	148	FLT_MAP_IJLOCAL2XY	yy = yG(i,j,bi,bj) + ddx*( yG(i+1,j,bi,bj) - yG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	149	FLT_MAP_IJLOCAL2XY	& + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	150	FLT_MAP_IJLOCAL2XY	& + ddxddy( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj)
./pkg/flt/flt_mapping.F	151	FLT_MAP_IJLOCAL2XY	& - yG(i,j+1,bi,bj) + yG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F	46	FLT_MAP_XY2IJLOCAL	INTEGER i, j
./pkg/flt/flt_mapping.F	57	FLT_MAP_XY2IJLOCAL	j = 1
./pkg/flt/flt_mapping.F	60	FLT_MAP_XY2IJLOCAL	IF ( xG(i,j,bi,bj).LE.xx .AND. xx.LT.xG(i+1,j,bi,bj) ) THEN
./pkg/flt/flt_mapping.F	61	FLT_MAP_XY2IJLOCAL	dist = xG(i+1,j,bi,bj) - xG(i,j,bi,bj)
./pkg/flt/flt_mapping.F	62	FLT_MAP_XY2IJLOCAL	fm = ( xx - xG(i,j,bi,bj) ) / dist
./pkg/flt/flt_mapping.F	69	FLT_MAP_XY2IJLOCAL	DO j=0,sNy+1
./pkg/flt/flt_mapping.F	71	FLT_MAP_XY2IJLOCAL	IF ( yG(i,j,bi,bj).LE.yy .AND. yy.LT.yG(i,j+1,bi,bj) ) THEN
./pkg/flt/flt_mapping.F	72	FLT_MAP_XY2IJLOCAL	dist = yG(i,j+1,bi,bj) - yG(i,j,bi,bj)
./pkg/flt/flt_mapping.F	73	FLT_MAP_XY2IJLOCAL	fm = ( yy - yG(i,j,bi,bj) ) / dist
./pkg/flt/flt_mapping.F	74	FLT_MAP_XY2IJLOCAL	jy = DFLOAT(j)+fm-0.5 _d 0
./pkg/frazil/frazil_calc_rhs.F	42	FRAZIL_CALC_RHS	INTEGER bi,bj,i,j,k,kTop
./pkg/frazil/frazil_calc_rhs.F	58	FRAZIL_CALC_RHS	DO j=1-Oly,sNy+OLy
./pkg/frazil/frazil_calc_rhs.F	60	FRAZIL_CALC_RHS	FrazilForcingT(i,j,k,bi,bj) = 0. _d 0
./pkg/frazil/frazil_calc_rhs.F	67	FRAZIL_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/frazil/frazil_calc_rhs.F	69	FRAZIL_CALC_RHS	IF ( maskC(i,j,k-1,bi,bj) .NE. 0. _d 0 .AND.
./pkg/frazil/frazil_calc_rhs.F	70	FRAZIL_CALC_RHS	& maskC(i,j,k, bi,bj) .NE. 0. _d 0 ) THEN
./pkg/frazil/frazil_calc_rhs.F	73	FRAZIL_CALC_RHS	sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0)
./pkg/frazil/frazil_calc_rhs.F	74	FRAZIL_CALC_RHS	tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0)
./pkg/frazil/frazil_calc_rhs.F	92	FRAZIL_CALC_RHS	kTop = kSurfC(i,j,bi,bj)
./pkg/frazil/frazil_calc_rhs.F	95	FRAZIL_CALC_RHS	& * drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/frazil/frazil_calc_rhs.F	96	FRAZIL_CALC_RHS	FrazilForcingT(i,j,k,bi,bj) = Tresid / dTtracerLev(k)
./pkg/frazil/frazil_calc_rhs.F	97	FRAZIL_CALC_RHS	FrazilForcingT(i,j,kTop,bi,bj) =
./pkg/frazil/frazil_calc_rhs.F	98	FRAZIL_CALC_RHS	& FrazilForcingT(i,j,kTop,bi,bj)
./pkg/frazil/frazil_init_varia.F	32	FRAZIL_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/frazil/frazil_init_varia.F	38	FRAZIL_INIT_VARIA	DO j=1-Oly,sNy+OLy
./pkg/frazil/frazil_init_varia.F	40	FRAZIL_INIT_VARIA	FrazilForcingT(i,j,k,bi,bj) = 0. _d 0
./pkg/frazil/frazil_tendency_apply.F	53	FRAZIL_TENDENCY_APPLY_T	INTEGER i, j
./pkg/frazil/frazil_tendency_apply.F	57	FRAZIL_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/frazil/frazil_tendency_apply.F	59	FRAZIL_TENDENCY_APPLY_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/frazil/frazil_tendency_apply.F	60	FRAZIL_TENDENCY_APPLY_T	& + FrazilForcingT(i,j,k,bi,bj)
./pkg/frazil/frazil_tendency_apply.F	62	FRAZIL_TENDENCY_APPLY_T	& * recip_drF(k) * _recip_hFacC(i,j,k,bi,bj)
./pkg/gchem/gchem_add_tendency.F	53	GCHEM_ADD_TENDENCY	INTEGER i,j
./pkg/gchem/gchem_add_tendency.F	60	GCHEM_ADD_TENDENCY	DO j=jMin,jMax
./pkg/gchem/gchem_add_tendency.F	62	GCHEM_ADD_TENDENCY	gPtracer(i,j) = gPtracer(i,j)
./pkg/gchem/gchem_add_tendency.F	63	GCHEM_ADD_TENDENCY	& + gchemTendency(i,j,k,bi,bj,iTracer)
./pkg/gchem/gchem_calc_tendency.F	50	GCHEM_CALC_TENDENCY	INTEGER i,j
./pkg/gchem/gchem_calc_tendency.F	59	GCHEM_CALC_TENDENCY	DO j = 1-OLy, sNy+OLy
./pkg/gchem/gchem_calc_tendency.F	61	GCHEM_CALC_TENDENCY	gchemTendency(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/gchem/gchem_surfmean.F	32	GCHEM_SURFMEAN	INTEGER i,j,bi,bj
./pkg/gchem/gchem_surfmean.F	47	GCHEM_SURFMEAN	DO j=1,sNy
./pkg/gchem/gchem_surfmean.F	50	GCHEM_SURFMEAN	& + tracer(i,j,ks,bi,bj)rA(i,j,bi,bj)maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	131	GAD_ADVECTION	INTEGER i,j,k,kUp,kDown
./pkg/generic_advdiff/gad_advection.F	214	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	225	GAD_ADVECTION	rTrans(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F	226	GAD_ADVECTION	fVerT(i,j,1) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F	227	GAD_ADVECTION	fVerT(i,j,2) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F	230	GAD_ADVECTION	localVol(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F	232	GAD_ADVECTION	localTij(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F	275	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	277	GAD_ADVECTION	xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_advection.F	278	GAD_ADVECTION	& drF(k)_hFacW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F	279	GAD_ADVECTION	yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_advection.F	280	GAD_ADVECTION	& drF(k)_hFacS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F	285	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	287	GAD_ADVECTION	uTrans(i,j) = uFld(i,j,k)xA(i,j)rhoFacC(k)
./pkg/generic_advdiff/gad_advection.F	288	GAD_ADVECTION	vTrans(i,j) = vFld(i,j,k)yA(i,j)rhoFacC(k)
./pkg/generic_advdiff/gad_advection.F	293	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	295	GAD_ADVECTION	localTij(i,j) = tracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F	297	GAD_ADVECTION	localVol(i,j) = rA(i,j,bi,bj)*deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	298	GAD_ADVECTION	& rhoFacC(k)drF(k)*hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F	299	GAD_ADVECTION	& + ( oneRS - maskC(i,j,k,bi,bj) )
./pkg/generic_advdiff/gad_advection.F	302	GAD_ADVECTION	maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	303	GAD_ADVECTION	maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	305	GAD_ADVECTION	maskLocW(i,j) = _maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F	306	GAD_ADVECTION	maskLocS(i,j) = _maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F	359	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	361	GAD_ADVECTION	af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F	387	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	389	GAD_ADVECTION	af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F	465	GAD_ADVECTION	DO j=1-OLy,0
./pkg/generic_advdiff/gad_advection.F	468	GAD_ADVECTION	tmpTrac = localTij(i,j)*localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	469	GAD_ADVECTION	& -deltaTLev(k)*( af(i+1,j) - af(i,j) )
./pkg/generic_advdiff/gad_advection.F	470	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	471	GAD_ADVECTION	localVol(i,j) = localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	472	GAD_ADVECTION	& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) )
./pkg/generic_advdiff/gad_advection.F	473	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	474	GAD_ADVECTION	localTij(i,j) = tmpTrac/localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	476	GAD_ADVECTION	localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F	478	GAD_ADVECTION	& _recip_hFacC(i,j,k,bi,bj)recip_drF(k)
./pkg/generic_advdiff/gad_advection.F	479	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	480	GAD_ADVECTION	& *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F	481	GAD_ADVECTION	& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F	482	GAD_ADVECTION	& )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	488	GAD_ADVECTION	DO j=sNy+1,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	491	GAD_ADVECTION	tmpTrac = localTij(i,j)*localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	492	GAD_ADVECTION	& -deltaTLev(k)*( af(i+1,j) - af(i,j) )
./pkg/generic_advdiff/gad_advection.F	493	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	494	GAD_ADVECTION	localVol(i,j) = localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	495	GAD_ADVECTION	& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) )
./pkg/generic_advdiff/gad_advection.F	496	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	497	GAD_ADVECTION	localTij(i,j) = tmpTrac/localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	499	GAD_ADVECTION	localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F	501	GAD_ADVECTION	& _recip_hFacC(i,j,k,bi,bj)recip_drF(k)
./pkg/generic_advdiff/gad_advection.F	502	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	503	GAD_ADVECTION	& *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F	504	GAD_ADVECTION	& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F	505	GAD_ADVECTION	& )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	517	GAD_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/generic_advdiff/gad_advection.F	520	GAD_ADVECTION	tmpTrac = localTij(i,j)*localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	521	GAD_ADVECTION	& -deltaTLev(k)*( af(i+1,j) - af(i,j) )
./pkg/generic_advdiff/gad_advection.F	522	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	523	GAD_ADVECTION	localVol(i,j) = localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	524	GAD_ADVECTION	& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) )
./pkg/generic_advdiff/gad_advection.F	525	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	526	GAD_ADVECTION	localTij(i,j) = tmpTrac/localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	528	GAD_ADVECTION	localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F	530	GAD_ADVECTION	& _recip_hFacC(i,j,k,bi,bj)recip_drF(k)
./pkg/generic_advdiff/gad_advection.F	531	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	532	GAD_ADVECTION	& *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F	533	GAD_ADVECTION	& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F	534	GAD_ADVECTION	& )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	539	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	541	GAD_ADVECTION	afx(i,j) = af(i,j)
./pkg/generic_advdiff/gad_advection.F	556	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	558	GAD_ADVECTION	af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F	584	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	586	GAD_ADVECTION	af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F	662	GAD_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/generic_advdiff/gad_advection.F	665	GAD_ADVECTION	tmpTrac = localTij(i,j)*localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	666	GAD_ADVECTION	& -deltaTLev(k)*( af(i,j+1) - af(i,j) )
./pkg/generic_advdiff/gad_advection.F	667	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	668	GAD_ADVECTION	localVol(i,j) = localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	669	GAD_ADVECTION	& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) )
./pkg/generic_advdiff/gad_advection.F	670	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	671	GAD_ADVECTION	localTij(i,j) = tmpTrac/localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	673	GAD_ADVECTION	localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F	675	GAD_ADVECTION	& _recip_hFacC(i,j,k,bi,bj)recip_drF(k)
./pkg/generic_advdiff/gad_advection.F	676	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	677	GAD_ADVECTION	& *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F	678	GAD_ADVECTION	& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F	679	GAD_ADVECTION	& )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	685	GAD_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/generic_advdiff/gad_advection.F	688	GAD_ADVECTION	tmpTrac = localTij(i,j)*localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	689	GAD_ADVECTION	& -deltaTLev(k)*( af(i,j+1) - af(i,j) )
./pkg/generic_advdiff/gad_advection.F	690	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	691	GAD_ADVECTION	localVol(i,j) = localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	692	GAD_ADVECTION	& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) )
./pkg/generic_advdiff/gad_advection.F	693	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	694	GAD_ADVECTION	localTij(i,j) = tmpTrac/localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	696	GAD_ADVECTION	localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F	698	GAD_ADVECTION	& _recip_hFacC(i,j,k,bi,bj)recip_drF(k)
./pkg/generic_advdiff/gad_advection.F	699	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	700	GAD_ADVECTION	& *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F	701	GAD_ADVECTION	& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F	702	GAD_ADVECTION	& )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	714	GAD_ADVECTION	DO j=1-OLy+1,sNy+OLy-1
./pkg/generic_advdiff/gad_advection.F	717	GAD_ADVECTION	tmpTrac = localTij(i,j)*localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	718	GAD_ADVECTION	& -deltaTLev(k)*( af(i,j+1) - af(i,j) )
./pkg/generic_advdiff/gad_advection.F	719	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	720	GAD_ADVECTION	localVol(i,j) = localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	721	GAD_ADVECTION	& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) )
./pkg/generic_advdiff/gad_advection.F	722	GAD_ADVECTION	& *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	723	GAD_ADVECTION	localTij(i,j) = tmpTrac/localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	725	GAD_ADVECTION	localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F	727	GAD_ADVECTION	& _recip_hFacC(i,j,k,bi,bj)recip_drF(k)
./pkg/generic_advdiff/gad_advection.F	728	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	729	GAD_ADVECTION	& *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F	730	GAD_ADVECTION	& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F	731	GAD_ADVECTION	& )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	736	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	738	GAD_ADVECTION	afy(i,j) = af(i,j)
./pkg/generic_advdiff/gad_advection.F	756	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	758	GAD_ADVECTION	gTracer(i,j,k) =
./pkg/generic_advdiff/gad_advection.F	759	GAD_ADVECTION	& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k)
./pkg/generic_advdiff/gad_advection.F	764	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	767	GAD_ADVECTION	locVol3d(i,j,k) = localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	769	GAD_ADVECTION	localT3d(i,j,k) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F	830	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	832	GAD_ADVECTION	rTransKp(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F	833	GAD_ADVECTION	rTrans(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F	834	GAD_ADVECTION	fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F	841	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	843	GAD_ADVECTION	rTransKp(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F	844	GAD_ADVECTION	rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	846	GAD_ADVECTION	& *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_advection.F	847	GAD_ADVECTION	fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F	904	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	906	GAD_ADVECTION	tmpTrac = localT3d(i,j,k)*locVol3d(i,j,k)
./pkg/generic_advdiff/gad_advection.F	907	GAD_ADVECTION	& -deltaTLev(k)*( fVerT(i,j,kDown)-fVerT(i,j,kUp) )
./pkg/generic_advdiff/gad_advection.F	908	GAD_ADVECTION	& rkSignmaskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	909	GAD_ADVECTION	localVol(i,j) = locVol3d(i,j,k)
./pkg/generic_advdiff/gad_advection.F	910	GAD_ADVECTION	& -deltaTLev(k)*( rTransKp(i,j) - rTrans(i,j) )
./pkg/generic_advdiff/gad_advection.F	911	GAD_ADVECTION	& rkSignmaskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	913	GAD_ADVECTION	localTij(i,j) = tmpTrac/localVol(i,j)
./pkg/generic_advdiff/gad_advection.F	921	GAD_ADVECTION	gTracer(i,j,k) =
./pkg/generic_advdiff/gad_advection.F	922	GAD_ADVECTION	& ( tmpTrac - tracer(i,j,k,bi,bj)*localVol(i,j) )
./pkg/generic_advdiff/gad_advection.F	923	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	924	GAD_ADVECTION	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F	930	GAD_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_advection.F	932	GAD_ADVECTION	localTij(i,j) = localT3d(i,j,k)
./pkg/generic_advdiff/gad_advection.F	934	GAD_ADVECTION	& _recip_hFacC(i,j,k,bi,bj)recip_drF(k)
./pkg/generic_advdiff/gad_advection.F	935	GAD_ADVECTION	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F	936	GAD_ADVECTION	& *( fVerT(i,j,kDown)-fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_advection.F	937	GAD_ADVECTION	& -tracer(i,j,k,bi,bj)*(rTransKp(i,j)-rTrans(i,j))
./pkg/generic_advdiff/gad_advection.F	938	GAD_ADVECTION	& )rkSignmaskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F	939	GAD_ADVECTION	gTracer(i,j,k) =
./pkg/generic_advdiff/gad_advection.F	940	GAD_ADVECTION	& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k)
./pkg/generic_advdiff/gad_biharm_r.F	48	GAD_BIHARM_R	INTEGER i, j, n
./pkg/generic_advdiff/gad_biharm_r.F	62	GAD_BIHARM_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_biharm_r.F	64	GAD_BIHARM_R	gradR(i,j,n) = 0.
./pkg/generic_advdiff/gad_biharm_r.F	69	GAD_BIHARM_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_biharm_r.F	71	GAD_BIHARM_R	gradR(i,j,n) = ( tracer(i,j,kl)-tracer(i,j,km) )
./pkg/generic_advdiff/gad_biharm_r.F	72	GAD_BIHARM_R	& tmpFacmaskC(i,j,kl,bi,bj)*maskC(i,j,km,bi,bj)
./pkg/generic_advdiff/gad_biharm_r.F	83	GAD_BIHARM_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_biharm_r.F	85	GAD_BIHARM_R	del2T(i,j,n) = ( gradR(i,j,n+1)-gradR(i,j,n) )
./pkg/generic_advdiff/gad_biharm_r.F	86	GAD_BIHARM_R	& *_recip_hFacC(i,j,kl,bi,bj)
./pkg/generic_advdiff/gad_biharm_r.F	93	GAD_BIHARM_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_biharm_r.F	95	GAD_BIHARM_R	d4f(i,j) = d4f(i,j)
./pkg/generic_advdiff/gad_biharm_r.F	96	GAD_BIHARM_R	& + diffKr4(k)*( del2T(i,j,2)-del2T(i,j,1) )
./pkg/generic_advdiff/gad_biharm_r.F	97	GAD_BIHARM_R	& tmpFac_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_biharm_x.F	47	GAD_BIHARM_X	INTEGER i,j
./pkg/generic_advdiff/gad_biharm_x.F	51	GAD_BIHARM_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_biharm_x.F	55	GAD_BIHARM_X	dfx(i,j) = dfx(i,j) + diffK4*xA(i,j)
./pkg/generic_advdiff/gad_biharm_x.F	56	GAD_BIHARM_X	& _recip_dxC(i,j,bi,bj)recip_deepFacC(k)
./pkg/generic_advdiff/gad_biharm_x.F	57	GAD_BIHARM_X	& *(del2T(i,j)-del2T(i-1,j))
./pkg/generic_advdiff/gad_biharm_x.F	59	GAD_BIHARM_X	& *sqCosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_biharm_x.F	61	GAD_BIHARM_X	& *cosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_biharm_y.F	47	GAD_BIHARM_Y	INTEGER i,j
./pkg/generic_advdiff/gad_biharm_y.F	54	GAD_BIHARM_Y	DO j=1-Oly+1,sNy+Oly
./pkg/generic_advdiff/gad_biharm_y.F	57	GAD_BIHARM_Y	dfy(i,j) = dfy(i,j) + diffK4*yA(i,j)
./pkg/generic_advdiff/gad_biharm_y.F	58	GAD_BIHARM_Y	& _recip_dyC(i,j,bi,bj)recip_deepFacC(k)
./pkg/generic_advdiff/gad_biharm_y.F	59	GAD_BIHARM_Y	& *(del2T(i,j)-del2T(i,j-1))
./pkg/generic_advdiff/gad_biharm_y.F	62	GAD_BIHARM_Y	& *sqCosFacV(j,bi,bj)
./pkg/generic_advdiff/gad_biharm_y.F	64	GAD_BIHARM_Y	& *cosFacV(j,bi,bj)
./pkg/generic_advdiff/gad_c2_adv_r.F	49	GAD_C2_ADV_R	INTEGER i,j,km1
./pkg/generic_advdiff/gad_c2_adv_r.F	55	GAD_C2_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_c2_adv_r.F	57	GAD_C2_ADV_R	wT(i,j) = 0.
./pkg/generic_advdiff/gad_c2_adv_r.F	61	GAD_C2_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_c2_adv_r.F	63	GAD_C2_ADV_R	wT(i,j) = maskC(i,j,km1,bi,bj)*
./pkg/generic_advdiff/gad_c2_adv_r.F	64	GAD_C2_ADV_R	& rTrans(i,j)*
./pkg/generic_advdiff/gad_c2_adv_r.F	65	GAD_C2_ADV_R	& (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0
./pkg/generic_advdiff/gad_c2_adv_x.F	46	GAD_C2_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_c2_adv_x.F	49	GAD_C2_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_c2_adv_x.F	50	GAD_C2_ADV_X	uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_c2_adv_x.F	52	GAD_C2_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_c2_adv_x.F	54	GAD_C2_ADV_X	uT(i,j) =
./pkg/generic_advdiff/gad_c2_adv_x.F	55	GAD_C2_ADV_X	& uTrans(i,j)(Tracer(i,j)+Tracer(i-1,j))0.5 _d 0
./pkg/generic_advdiff/gad_c2_adv_y.F	46	GAD_C2_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_c2_adv_y.F	52	GAD_C2_ADV_Y	DO j=1-Oly+1,sNy+Oly
./pkg/generic_advdiff/gad_c2_adv_y.F	54	GAD_C2_ADV_Y	vT(i,j) =
./pkg/generic_advdiff/gad_c2_adv_y.F	55	GAD_C2_ADV_Y	& vTrans(i,j)(Tracer(i,j)+Tracer(i,j-1))0.5 _d 0
./pkg/generic_advdiff/gad_c2_impl_r.F	55	GAD_C2_IMPL_R	INTEGER i,j
./pkg/generic_advdiff/gad_c2_impl_r.F	63	GAD_C2_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_c2_impl_r.F	65	GAD_C2_IMPL_R	rCenter = 0.5 _d 0 rTrans(i,j)recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_c2_impl_r.F	66	GAD_C2_IMPL_R	a3d(i,j,k) = a3d(i,j,k)
./pkg/generic_advdiff/gad_c2_impl_r.F	68	GAD_C2_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_c2_impl_r.F	69	GAD_C2_IMPL_R	b3d(i,j,k) = b3d(i,j,k)
./pkg/generic_advdiff/gad_c2_impl_r.F	71	GAD_C2_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_c2_impl_r.F	72	GAD_C2_IMPL_R	b3d(i,j,k-1) = b3d(i,j,k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F	74	GAD_C2_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F	75	GAD_C2_IMPL_R	c3d(i,j,k-1) = c3d(i,j,k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F	77	GAD_C2_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_c4_adv_r.F	56	GAD_C4_ADV_R	INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_c4_adv_r.F	68	GAD_C4_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_c4_adv_r.F	70	GAD_C4_ADV_R	wT(i,j) = 0.
./pkg/generic_advdiff/gad_c4_adv_r.F	74	GAD_C4_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_c4_adv_r.F	76	GAD_C4_ADV_R	maskBound = maskPMmaskC(i,j,km2,bi,bj)maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F	77	GAD_C4_ADV_R	Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F	78	GAD_C4_ADV_R	Rj = (tracer(i,j, k )-tracer(i,j,km1))
./pkg/generic_advdiff/gad_c4_adv_r.F	79	GAD_C4_ADV_R	Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F	83	GAD_C4_ADV_R	wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_c4_adv_r.F	84	GAD_C4_ADV_R	& rTrans(i,j)( (tracer(i,j,k)+tracer(i,j,km1))0.5 _d 0
./pkg/generic_advdiff/gad_c4_adv_r.F	86	GAD_C4_ADV_R	& +ABS(rTrans(i,j))*
./pkg/generic_advdiff/gad_c4_adv_x.F	54	GAD_C4_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_c4_adv_x.F	58	GAD_C4_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_c4_adv_x.F	59	GAD_C4_ADV_X	uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_c4_adv_x.F	60	GAD_C4_ADV_X	uT(2-Olx,j)=0.
./pkg/generic_advdiff/gad_c4_adv_x.F	61	GAD_C4_ADV_X	uT(sNx+Olx,j)=0.
./pkg/generic_advdiff/gad_c4_adv_x.F	63	GAD_C4_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_c4_adv_x.F	65	GAD_C4_ADV_X	Rjp = (tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_c4_adv_x.F	66	GAD_C4_ADV_X	Rj = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_c4_adv_x.F	67	GAD_C4_ADV_X	Rjm = (tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_c4_adv_x.F	70	GAD_C4_ADV_X	uT(i,j) =
./pkg/generic_advdiff/gad_c4_adv_x.F	71	GAD_C4_ADV_X	& uTrans(i,j)*(
./pkg/generic_advdiff/gad_c4_adv_x.F	72	GAD_C4_ADV_X	& Tracer(i,j)+Tracer(i-1,j)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_c4_adv_x.F	74	GAD_C4_ADV_X	& +ABS( uTrans(i,j) )0.5 _d 0oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_c4_adv_x.F	75	GAD_C4_ADV_X	& ( 1. _d 0 - maskW(i-1,j,k,bi,bj)maskW(i+1,j,k,bi,bj) )
./pkg/generic_advdiff/gad_c4_adv_y.F	54	GAD_C4_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_c4_adv_y.F	63	GAD_C4_ADV_Y	DO j=1-Oly+2,sNy+Oly-1
./pkg/generic_advdiff/gad_c4_adv_y.F	65	GAD_C4_ADV_Y	Rjp = (tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_c4_adv_y.F	66	GAD_C4_ADV_Y	Rj = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_c4_adv_y.F	67	GAD_C4_ADV_Y	Rjm = (tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_c4_adv_y.F	70	GAD_C4_ADV_Y	vT(i,j) =
./pkg/generic_advdiff/gad_c4_adv_y.F	71	GAD_C4_ADV_Y	& vTrans(i,j)*(
./pkg/generic_advdiff/gad_c4_adv_y.F	72	GAD_C4_ADV_Y	& Tracer(i,j)+Tracer(i,j-1)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_c4_adv_y.F	74	GAD_C4_ADV_Y	& +ABS( vTrans(i,j) )0.5 _d 0oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_c4_adv_y.F	75	GAD_C4_ADV_Y	& ( 1. _d 0 - maskS(i,j-1,k,bi,bj)maskS(i,j+1,k,bi,bj) )
./pkg/generic_advdiff/gad_calc_rhs.F	137	GAD_CALC_RHS	INTEGER i,j
./pkg/generic_advdiff/gad_calc_rhs.F	173	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	175	GAD_CALC_RHS	fZon(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	176	GAD_CALC_RHS	fMer(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	177	GAD_CALC_RHS	fVerT(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	178	GAD_CALC_RHS	df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	179	GAD_CALC_RHS	df4(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	185	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	187	GAD_CALC_RHS	localT(i,j)=TracerN(i,j,k)
./pkg/generic_advdiff/gad_calc_rhs.F	188	GAD_CALC_RHS	locABT(i,j)= TracAB(i,j,k)
./pkg/generic_advdiff/gad_calc_rhs.F	192	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	194	GAD_CALC_RHS	localT(i,j)=TracerN(i,j,k)
./pkg/generic_advdiff/gad_calc_rhs.F	195	GAD_CALC_RHS	locABT(i,j)=TracerN(i,j,k)
./pkg/generic_advdiff/gad_calc_rhs.F	208	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	210	GAD_CALC_RHS	fZon(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	224	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	227	GAD_CALC_RHS	maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	229	GAD_CALC_RHS	maskLocW(i,j) = _maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	279	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	281	GAD_CALC_RHS	fZon(i,j) = fZon(i,j) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F	296	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	298	GAD_CALC_RHS	df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	319	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	321	GAD_CALC_RHS	fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F	341	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	343	GAD_CALC_RHS	fMer(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	357	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	360	GAD_CALC_RHS	maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	362	GAD_CALC_RHS	maskLocS(i,j) = _maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	412	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	414	GAD_CALC_RHS	fMer(i,j) = fMer(i,j) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F	429	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	431	GAD_CALC_RHS	df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	452	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	454	GAD_CALC_RHS	fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F	571	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	573	GAD_CALC_RHS	fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	591	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	593	GAD_CALC_RHS	df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	615	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	617	GAD_CALC_RHS	fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F	639	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	641	GAD_CALC_RHS	df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F	667	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_calc_rhs.F	669	GAD_CALC_RHS	fVerT(i,j,kUp) = fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F	670	GAD_CALC_RHS	& + df(i,j)maskUp(i,j)rhoFacF(k)
./pkg/generic_advdiff/gad_calc_rhs.F	699	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy-1
./pkg/generic_advdiff/gad_calc_rhs.F	703	GAD_CALC_RHS	& _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F	704	GAD_CALC_RHS	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F	705	GAD_CALC_RHS	& *( MAX(0. _d 0,fZon(i+1,j)) + MAX(0. _d 0,-fZon(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F	706	GAD_CALC_RHS	& +MAX(0. _d 0,fMer(i,j+1)) + MAX(0. _d 0,-fMer(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F	707	GAD_CALC_RHS	& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F	708	GAD_CALC_RHS	& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F	710	GAD_CALC_RHS	trac = localT(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F	718	GAD_CALC_RHS	IF (fZon(i+1,j).GT.0. _d 0) fZon(i+1,j)=fac*fZon(i+1,j)
./pkg/generic_advdiff/gad_calc_rhs.F	719	GAD_CALC_RHS	IF (-fZon(i,j) .GT.0. _d 0) fZon(i,j) =fac*fZon(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F	720	GAD_CALC_RHS	IF (fMer(i,j+1).GT.0. _d 0) fMer(i,j+1)=fac*fMer(i,j+1)
./pkg/generic_advdiff/gad_calc_rhs.F	721	GAD_CALC_RHS	IF (-fMer(i,j) .GT.0. _d 0) fMer(i,j) =fac*fMer(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F	722	GAD_CALC_RHS	IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0)
./pkg/generic_advdiff/gad_calc_rhs.F	723	GAD_CALC_RHS	& fVerT(i,j,kUp)=fac*fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F	725	GAD_CALC_RHS	IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_calc_rhs.F	736	GAD_CALC_RHS	gTrFac = gTrFac/rStarExpC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	742	GAD_CALC_RHS	gTracer(i,j,k+1) = gTracer(i,j,k+1)
./pkg/generic_advdiff/gad_calc_rhs.F	744	GAD_CALC_RHS	& _recip_hFacC(i,j,k+1,bi,bj)recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F	745	GAD_CALC_RHS	& recip_rA(i,j,bi,bj)recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F	747	GAD_CALC_RHS	& ( -fVerT(i,j,kDown)rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F	749	GAD_CALC_RHS	fVerT(i,j,kDown)=fac*fVerT(i,j,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F	751	GAD_CALC_RHS	gTracer(i,j,k+1) = gTracer(i,j,k+1)
./pkg/generic_advdiff/gad_calc_rhs.F	753	GAD_CALC_RHS	& _recip_hFacC(i,j,k+1,bi,bj)recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F	754	GAD_CALC_RHS	& recip_rA(i,j,bi,bj)recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F	756	GAD_CALC_RHS	& ( fVerT(i,j,kDown)rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F	768	GAD_CALC_RHS	DO j=1-OLy,sNy+OLy-1
./pkg/generic_advdiff/gad_calc_rhs.F	770	GAD_CALC_RHS	gTracer(i,j,k) = gTracer(i,j,k)
./pkg/generic_advdiff/gad_calc_rhs.F	771	GAD_CALC_RHS	& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F	772	GAD_CALC_RHS	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F	773	GAD_CALC_RHS	& ( (fZon(i+1,j)-fZon(i,j))maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	774	GAD_CALC_RHS	& +(fMer(i,j+1)-fMer(i,j))*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F	775	GAD_CALC_RHS	& +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F	776	GAD_CALC_RHS	& -localT(i,j)( (uTrans(i+1,j)-uTrans(i,j))advFac
./pkg/generic_advdiff/gad_calc_rhs.F	777	GAD_CALC_RHS	& +(vTrans(i,j+1)-vTrans(i,j))*advFac
./pkg/generic_advdiff/gad_calc_rhs.F	778	GAD_CALC_RHS	& +(rTransKp1(i,j)-rTrans(i,j))*rAdvFac
./pkg/generic_advdiff/gad_calc_rhs.F	779	GAD_CALC_RHS	& )*maskInC(i,j,bi,bj)
./model/inc/RECIP_HFACC_MACROS.h	36	NO PROCEDURE	# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_del2.F	44	GAD_DEL2	INTEGER i,j
./pkg/generic_advdiff/gad_del2.F	48	GAD_DEL2	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_del2.F	50	GAD_DEL2	del2(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_del2.F	56	GAD_DEL2	DO j=1-Oly,sNy+Oly-1
./pkg/generic_advdiff/gad_del2.F	58	GAD_DEL2	del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_del2.F	59	GAD_DEL2	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_del2.F	60	GAD_DEL2	& *( ( dTdx(i+1,j)-dTdx(i,j) )
./pkg/generic_advdiff/gad_del2.F	61	GAD_DEL2	& +( dTdy(i,j+1)-dTdy(i,j) )
./pkg/generic_advdiff/gad_diagnostics_state.F	117	GAD_DIAGNOSTICS_STATE	DO j = 1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_diagnostics_state.F	119	GAD_DIAGNOSTICS_STATE	recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_diagnostics_state.F	120	GAD_DIAGNOSTICS_STATE	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_diagnostics_state.F	122	GAD_DIAGNOSTICS_STATE	locVar(i,j,k) = (
./pkg/generic_advdiff/gad_diagnostics_state.F	123	GAD_DIAGNOSTICS_STATE	& ( som_S(i,j,k,bi,bj,1)*som_S(i,j,k,bi,bj,1)
./pkg/generic_advdiff/gad_diagnostics_state.F	124	GAD_DIAGNOSTICS_STATE	& + som_S(i,j,k,bi,bj,2)*som_S(i,j,k,bi,bj,2)
./pkg/generic_advdiff/gad_diagnostics_state.F	125	GAD_DIAGNOSTICS_STATE	& + som_S(i,j,k,bi,bj,3)*som_S(i,j,k,bi,bj,3)
./pkg/generic_advdiff/gad_diagnostics_state.F	127	GAD_DIAGNOSTICS_STATE	& + ( som_S(i,j,k,bi,bj,4)*som_S(i,j,k,bi,bj,4)
./pkg/generic_advdiff/gad_diagnostics_state.F	128	GAD_DIAGNOSTICS_STATE	& + som_S(i,j,k,bi,bj,5)*som_S(i,j,k,bi,bj,5)
./pkg/generic_advdiff/gad_diagnostics_state.F	129	GAD_DIAGNOSTICS_STATE	& + som_S(i,j,k,bi,bj,6)*som_S(i,j,k,bi,bj,6)
./pkg/generic_advdiff/gad_diagnostics_state.F	131	GAD_DIAGNOSTICS_STATE	& + ( som_S(i,j,k,bi,bj,7)*som_S(i,j,k,bi,bj,7)
./pkg/generic_advdiff/gad_diagnostics_state.F	132	GAD_DIAGNOSTICS_STATE	& + som_S(i,j,k,bi,bj,8)*som_S(i,j,k,bi,bj,8)
./pkg/generic_advdiff/gad_diagnostics_state.F	133	GAD_DIAGNOSTICS_STATE	& + som_S(i,j,k,bi,bj,9)*som_S(i,j,k,bi,bj,9)
./pkg/generic_advdiff/gad_diagnostics_state.F	45	GAD_DIAGNOSTICS_STATE	INTEGER i,j,k,bi,bj,n
./pkg/generic_advdiff/gad_diagnostics_state.F	72	GAD_DIAGNOSTICS_STATE	DO j = 1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_diagnostics_state.F	74	GAD_DIAGNOSTICS_STATE	recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_diagnostics_state.F	75	GAD_DIAGNOSTICS_STATE	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_diagnostics_state.F	77	GAD_DIAGNOSTICS_STATE	locVar(i,j,k) = (
./pkg/generic_advdiff/gad_diagnostics_state.F	78	GAD_DIAGNOSTICS_STATE	& ( som_T(i,j,k,bi,bj,1)*som_T(i,j,k,bi,bj,1)
./pkg/generic_advdiff/gad_diagnostics_state.F	79	GAD_DIAGNOSTICS_STATE	& + som_T(i,j,k,bi,bj,2)*som_T(i,j,k,bi,bj,2)
./pkg/generic_advdiff/gad_diagnostics_state.F	80	GAD_DIAGNOSTICS_STATE	& + som_T(i,j,k,bi,bj,3)*som_T(i,j,k,bi,bj,3)
./pkg/generic_advdiff/gad_diagnostics_state.F	82	GAD_DIAGNOSTICS_STATE	& + ( som_T(i,j,k,bi,bj,4)*som_T(i,j,k,bi,bj,4)
./pkg/generic_advdiff/gad_diagnostics_state.F	83	GAD_DIAGNOSTICS_STATE	& + som_T(i,j,k,bi,bj,5)*som_T(i,j,k,bi,bj,5)
./pkg/generic_advdiff/gad_diagnostics_state.F	84	GAD_DIAGNOSTICS_STATE	& + som_T(i,j,k,bi,bj,6)*som_T(i,j,k,bi,bj,6)
./pkg/generic_advdiff/gad_diagnostics_state.F	86	GAD_DIAGNOSTICS_STATE	& + ( som_T(i,j,k,bi,bj,7)*som_T(i,j,k,bi,bj,7)
./pkg/generic_advdiff/gad_diagnostics_state.F	87	GAD_DIAGNOSTICS_STATE	& + som_T(i,j,k,bi,bj,8)*som_T(i,j,k,bi,bj,8)
./pkg/generic_advdiff/gad_diagnostics_state.F	88	GAD_DIAGNOSTICS_STATE	& + som_T(i,j,k,bi,bj,9)*som_T(i,j,k,bi,bj,9)
./pkg/generic_advdiff/gad_diff_r.F	49	GAD_DIFF_R	INTEGER i,j,km1
./pkg/generic_advdiff/gad_diff_r.F	55	GAD_DIFF_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_diff_r.F	57	GAD_DIFF_R	dfr(i,j) = 0.
./pkg/generic_advdiff/gad_diff_r.F	61	GAD_DIFF_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_diff_r.F	63	GAD_DIFF_R	dfr(i,j) = -KappaR(i,j)
./pkg/generic_advdiff/gad_diff_r.F	64	GAD_DIFF_R	& _rA(i,j,bi,bj)deepFac2F(k)*rhoFacF(k)
./pkg/generic_advdiff/gad_diff_r.F	66	GAD_DIFF_R	& (tracer(i,j,k)-tracer(i,j,km1))rkSign
./pkg/generic_advdiff/gad_diff_x.F	48	GAD_DIFF_X	INTEGER i,j
./pkg/generic_advdiff/gad_diff_x.F	51	GAD_DIFF_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_diff_x.F	52	GAD_DIFF_X	dfx(1-Olx,j)=0.
./pkg/generic_advdiff/gad_diff_x.F	54	GAD_DIFF_X	dfx(i,j) = -diffKh*xA(i,j)
./pkg/generic_advdiff/gad_diff_x.F	55	GAD_DIFF_X	& _recip_dxC(i,j,bi,bj)recip_deepFacC(k)
./pkg/generic_advdiff/gad_diff_x.F	56	GAD_DIFF_X	& *(tracer(i,j)-tracer(i-1,j))
./pkg/generic_advdiff/gad_diff_x.F	57	GAD_DIFF_X	& *cosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_diff_y.F	48	GAD_DIFF_Y	INTEGER i,j
./pkg/generic_advdiff/gad_diff_y.F	54	GAD_DIFF_Y	DO j=1-Oly+1,sNy+Oly
./pkg/generic_advdiff/gad_diff_y.F	56	GAD_DIFF_Y	dfy(i,j) = -diffKh*yA(i,j)
./pkg/generic_advdiff/gad_diff_y.F	57	GAD_DIFF_Y	& _recip_dyC(i,j,bi,bj)recip_deepFacC(k)
./pkg/generic_advdiff/gad_diff_y.F	58	GAD_DIFF_Y	& *(tracer(i,j)-tracer(i,j-1))
./pkg/generic_advdiff/gad_diff_y.F	60	GAD_DIFF_Y	& *cosFacV(j,bi,bj)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	56	GAD_DST2U1_ADV_R	INTEGER i,j,km1
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	66	GAD_DST2U1_ADV_R	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	68	GAD_DST2U1_ADV_R	wT(i,j) = 0.
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	72	GAD_DST2U1_ADV_R	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	75	GAD_DST2U1_ADV_R	wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	88	GAD_DST2U1_ADV_R	wAbs = ABS(rTrans(i,j))*rkSign
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	90	GAD_DST2U1_ADV_R	wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	91	GAD_DST2U1_ADV_R	& ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F	92	GAD_DST2U1_ADV_R	& + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	56	GAD_DST2U1_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	63	GAD_DST2U1_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	64	GAD_DST2U1_ADV_X	uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	66	GAD_DST2U1_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	69	GAD_DST2U1_ADV_X	uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	70	GAD_DST2U1_ADV_X	IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	71	GAD_DST2U1_ADV_X	& recip_dxC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	81	GAD_DST2U1_ADV_X	uAbs = ABS(uTrans(i,j))
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	83	GAD_DST2U1_ADV_X	uT(i,j) = ( uTrans(i,j)+uAbs )* 0.5 _d 0 * tracer(i-1,j)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F	84	GAD_DST2U1_ADV_X	& + ( uTrans(i,j)-uAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	55	GAD_DST2U1_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	65	GAD_DST2U1_ADV_Y	DO j=1-Oly+1,sNy+Oly
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	68	GAD_DST2U1_ADV_Y	vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	69	GAD_DST2U1_ADV_Y	IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	70	GAD_DST2U1_ADV_Y	& recip_dyC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	80	GAD_DST2U1_ADV_Y	vAbs = ABS(vTrans(i,j))
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	82	GAD_DST2U1_ADV_Y	vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F	83	GAD_DST2U1_ADV_Y	& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	62	GAD_DST2U1_IMPL_R	INTEGER i,j
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	77	GAD_DST2U1_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	79	GAD_DST2U1_IMPL_R	w_CFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	80	GAD_DST2U1_IMPL_R	& recip_rA(i,j,bi,bj)recip_drC(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	81	GAD_DST2U1_IMPL_R	rCenter = 0.5 _d 0 rTrans(i,j)recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	85	GAD_DST2U1_IMPL_R	a3d(i,j,k) = a3d(i,j,k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	87	GAD_DST2U1_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	88	GAD_DST2U1_IMPL_R	b3d(i,j,k) = b3d(i,j,k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	90	GAD_DST2U1_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	91	GAD_DST2U1_IMPL_R	b3d(i,j,k-1) = b3d(i,j,k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	93	GAD_DST2U1_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	94	GAD_DST2U1_IMPL_R	c3d(i,j,k-1) = c3d(i,j,k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F	96	GAD_DST2U1_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./model/inc/RECIP_HFACS_MACROS.h	36	NO PROCEDURE	# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F	108	GAD_DST3_ADV_R	wT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_r.F	109	GAD_DST3_ADV_R	& 0.5*(rTrans(i,j)+ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F	110	GAD_DST3_ADV_R	& ( tracer(i,j, k ) + psiMRj )
./pkg/generic_advdiff/gad_dst3_adv_r.F	111	GAD_DST3_ADV_R	& +0.5*(rTrans(i,j)-ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F	112	GAD_DST3_ADV_R	& ( tracer(i,j,km1) - psiPRj )
./pkg/generic_advdiff/gad_dst3_adv_r.F	114	GAD_DST3_ADV_R	wT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_r.F	115	GAD_DST3_ADV_R	& 0.5*(rTrans(i,j)+ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F	116	GAD_DST3_ADV_R	& ( tracer(i,j, k ) + (d0Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_r.F	117	GAD_DST3_ADV_R	& +0.5*(rTrans(i,j)-ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F	118	GAD_DST3_ADV_R	& ( tracer(i,j,km1) - (d0Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_r.F	59	GAD_DST3_ADV_R	INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_dst3_adv_r.F	77	GAD_DST3_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_dst3_adv_r.F	79	GAD_DST3_ADV_R	Rjp=(tracer(i,j,k)-tracer(i,j,kp1))
./pkg/generic_advdiff/gad_dst3_adv_r.F	80	GAD_DST3_ADV_R	& *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F	81	GAD_DST3_ADV_R	Rj =(tracer(i,j,km1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_dst3_adv_r.F	82	GAD_DST3_ADV_R	& maskC(i,j,k,bi,bj)maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F	83	GAD_DST3_ADV_R	Rjm=(tracer(i,j,km2)-tracer(i,j,km1))
./pkg/generic_advdiff/gad_dst3_adv_r.F	84	GAD_DST3_ADV_R	& *maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F	86	GAD_DST3_ADV_R	wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F	107	GAD_DST3_ADV_X	uT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_x.F	108	GAD_DST3_ADV_X	& 0.5*(uTrans(i,j)+ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F	109	GAD_DST3_ADV_X	& ( Tracer(i-1,j) + psiPRj )
./pkg/generic_advdiff/gad_dst3_adv_x.F	110	GAD_DST3_ADV_X	& +0.5*(uTrans(i,j)-ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F	111	GAD_DST3_ADV_X	& ( Tracer( i ,j) - psiMRj )
./pkg/generic_advdiff/gad_dst3_adv_x.F	113	GAD_DST3_ADV_X	uT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_x.F	114	GAD_DST3_ADV_X	& 0.5*(uTrans(i,j)+ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F	115	GAD_DST3_ADV_X	& ( Tracer(i-1,j) + (d0Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_x.F	116	GAD_DST3_ADV_X	& +0.5*(uTrans(i,j)-ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F	117	GAD_DST3_ADV_X	& ( Tracer( i ,j) - (d0Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_x.F	60	GAD_DST3_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_dst3_adv_x.F	74	GAD_DST3_ADV_X	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_dst3_adv_x.F	75	GAD_DST3_ADV_X	uT(1-OLx,j)=0.
./pkg/generic_advdiff/gad_dst3_adv_x.F	76	GAD_DST3_ADV_X	uT(2-OLx,j)=0.
./pkg/generic_advdiff/gad_dst3_adv_x.F	77	GAD_DST3_ADV_X	uT(sNx+OLx,j)=0.
./pkg/generic_advdiff/gad_dst3_adv_x.F	79	GAD_DST3_ADV_X	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_dst3_adv_x.F	81	GAD_DST3_ADV_X	Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F	82	GAD_DST3_ADV_X	Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F	83	GAD_DST3_ADV_X	Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F	85	GAD_DST3_ADV_X	uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F	86	GAD_DST3_ADV_X	IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3_adv_x.F	87	GAD_DST3_ADV_X	& recip_dxC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3_adv_y.F	106	GAD_DST3_ADV_Y	vT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_y.F	107	GAD_DST3_ADV_Y	& 0.5*(vTrans(i,j)+ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F	108	GAD_DST3_ADV_Y	& ( Tracer(i,j-1) + psiPRj )
./pkg/generic_advdiff/gad_dst3_adv_y.F	109	GAD_DST3_ADV_Y	& +0.5*(vTrans(i,j)-ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F	110	GAD_DST3_ADV_Y	& ( Tracer(i, j ) - psiMRj )
./pkg/generic_advdiff/gad_dst3_adv_y.F	112	GAD_DST3_ADV_Y	vT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_y.F	113	GAD_DST3_ADV_Y	& 0.5*(vTrans(i,j)+ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F	114	GAD_DST3_ADV_Y	& ( Tracer(i,j-1) + (d0Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_y.F	115	GAD_DST3_ADV_Y	& +0.5*(vTrans(i,j)-ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F	116	GAD_DST3_ADV_Y	& ( Tracer(i, j ) - (d0Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_y.F	59	GAD_DST3_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_dst3_adv_y.F	78	GAD_DST3_ADV_Y	DO j=1-OLy+2,sNy+OLy-1
./pkg/generic_advdiff/gad_dst3_adv_y.F	80	GAD_DST3_ADV_Y	Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_dst3_adv_y.F	81	GAD_DST3_ADV_Y	Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_dst3_adv_y.F	82	GAD_DST3_ADV_Y	Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_dst3_adv_y.F	84	GAD_DST3_ADV_Y	vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_dst3_adv_y.F	85	GAD_DST3_ADV_Y	IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3_adv_y.F	86	GAD_DST3_ADV_Y	& recip_dyC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	113	GAD_DST3FL_ADV_R	wT(i,j)=
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	114	GAD_DST3FL_ADV_R	& 0.5*(rTrans(i,j)+ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	115	GAD_DST3FL_ADV_R	& ( tracer(i,j, k ) + psiMRj )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	116	GAD_DST3FL_ADV_R	& +0.5*(rTrans(i,j)-ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	117	GAD_DST3FL_ADV_R	& ( tracer(i,j,km1) - psiPRj )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	55	GAD_DST3FL_ADV_R	INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	66	GAD_DST3FL_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	73	GAD_DST3FL_ADV_R	Rjp=(tracer(i,j,k)-tracer(i,j,kp1))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	74	GAD_DST3FL_ADV_R	& *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	75	GAD_DST3FL_ADV_R	Rj =(tracer(i,j,km1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	76	GAD_DST3FL_ADV_R	& maskC(i,j,k,bi,bj)maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	77	GAD_DST3FL_ADV_R	Rjm=(tracer(i,j,km2)-tracer(i,j,km1))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	78	GAD_DST3FL_ADV_R	& *maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F	80	GAD_DST3FL_ADV_R	wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	36	GAD_DST3FL_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	45	GAD_DST3FL_ADV_X	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	46	GAD_DST3FL_ADV_X	uT(1-OLx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	47	GAD_DST3FL_ADV_X	uT(2-OLx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	48	GAD_DST3FL_ADV_X	uT(sNx+OLx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	50	GAD_DST3FL_ADV_X	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	57	GAD_DST3FL_ADV_X	Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	58	GAD_DST3FL_ADV_X	Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	59	GAD_DST3FL_ADV_X	Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	61	GAD_DST3FL_ADV_X	uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	62	GAD_DST3FL_ADV_X	IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	63	GAD_DST3FL_ADV_X	& recip_dxC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	95	GAD_DST3FL_ADV_X	uT(i,j)=
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	96	GAD_DST3FL_ADV_X	& 0.5*(uTrans(i,j)+ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	97	GAD_DST3FL_ADV_X	& ( Tracer(i-1,j) + psiPRj )
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	98	GAD_DST3FL_ADV_X	& +0.5*(uTrans(i,j)-ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_x.F	99	GAD_DST3FL_ADV_X	& ( Tracer( i ,j) - psiMRj )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	36	GAD_DST3FL_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	46	GAD_DST3FL_ADV_Y	DO j=1-OLy+2,sNy+OLy-1
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	53	GAD_DST3FL_ADV_Y	Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	54	GAD_DST3FL_ADV_Y	Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	55	GAD_DST3FL_ADV_Y	Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	57	GAD_DST3FL_ADV_Y	vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	58	GAD_DST3FL_ADV_Y	IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	59	GAD_DST3FL_ADV_Y	& recip_dyC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	91	GAD_DST3FL_ADV_Y	vT(i,j)=
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	92	GAD_DST3FL_ADV_Y	& 0.5*(vTrans(i,j)+ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	93	GAD_DST3FL_ADV_Y	& ( Tracer(i,j-1) + psiPRj )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	94	GAD_DST3FL_ADV_Y	& +0.5*(vTrans(i,j)-ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_y.F	95	GAD_DST3FL_ADV_Y	& ( Tracer(i, j ) - psiMRj )
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	100	GAD_DST3FL_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	102	GAD_DST3FL_IMPL_R	wCFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	103	GAD_DST3FL_IMPL_R	& recip_rA(i,j,bi,bj)recip_drC(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	109	GAD_DST3FL_IMPL_R	Rj =(tFld(i,j,k) -tFld(i,j,k-1))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	110	GAD_DST3FL_IMPL_R	IF ( rTrans(i,j).GT.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	111	GAD_DST3FL_IMPL_R	Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	113	GAD_DST3FL_IMPL_R	Rjh = (tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	117	GAD_DST3FL_IMPL_R	lowFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	118	GAD_DST3FL_IMPL_R	highFac(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	126	GAD_DST3FL_IMPL_R	lowFac(i,j) = cL1
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	127	GAD_DST3FL_IMPL_R	highFac(i,j)= cH3
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	130	GAD_DST3FL_IMPL_R	lowFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	131	GAD_DST3FL_IMPL_R	highFac(i,j)= cM2
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	134	GAD_DST3FL_IMPL_R	lowFac(i,j) = 1. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	135	GAD_DST3FL_IMPL_R	highFac(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	142	GAD_DST3FL_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	144	GAD_DST3FL_IMPL_R	rCenter= 0.5 _d 0 rTrans(i,j)recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	145	GAD_DST3FL_IMPL_R	mskM = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	146	GAD_DST3FL_IMPL_R	mskP = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	147	GAD_DST3FL_IMPL_R	rUpwind= (0.5 _d 0 -lowFac(i,j))ABS(rCenter)2. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	148	GAD_DST3FL_IMPL_R	rC4km = highFac(i,j)(rCenter+ABS(rCenter))mskM
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	149	GAD_DST3FL_IMPL_R	rC4kp = highFac(i,j)(rCenter-ABS(rCenter))mskP
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	151	GAD_DST3FL_IMPL_R	a5d(i,j,k) = a5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	154	GAD_DST3FL_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	155	GAD_DST3FL_IMPL_R	b5d(i,j,k) = b5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	158	GAD_DST3FL_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	159	GAD_DST3FL_IMPL_R	c5d(i,j,k) = c5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	162	GAD_DST3FL_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	163	GAD_DST3FL_IMPL_R	d5d(i,j,k) = d5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	166	GAD_DST3FL_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	167	GAD_DST3FL_IMPL_R	b5d(i,j,k-1) = b5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	170	GAD_DST3FL_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	171	GAD_DST3FL_IMPL_R	c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	174	GAD_DST3FL_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	175	GAD_DST3FL_IMPL_R	d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	178	GAD_DST3FL_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	179	GAD_DST3FL_IMPL_R	e5d(i,j,k-1) = e5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	182	GAD_DST3FL_IMPL_R	& recip_hFacC(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F	73	GAD_DST3FL_IMPL_R	INTEGER i,j,kp1,km2
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	100	GAD_FLUXLIMIT_ADV_R	IF (rTrans(i,j).LT.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	107	GAD_FLUXLIMIT_ADV_R	wT(i,j) = maskC(i,j,kM1,bi,bj)*(
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	108	GAD_FLUXLIMIT_ADV_R	& rTrans(i,j)*
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	109	GAD_FLUXLIMIT_ADV_R	& (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	110	GAD_FLUXLIMIT_ADV_R	& +ABS(rTrans(i,j))((1.-Cr)+wCFLCr)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	64	GAD_FLUXLIMIT_ADV_R	INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	76	GAD_FLUXLIMIT_ADV_R	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	78	GAD_FLUXLIMIT_ADV_R	wT(i,j) = 0.
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	82	GAD_FLUXLIMIT_ADV_R	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	85	GAD_FLUXLIMIT_ADV_R	wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	87	GAD_FLUXLIMIT_ADV_R	Rjp=(tracer(i,j,kp1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	88	GAD_FLUXLIMIT_ADV_R	& *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	89	GAD_FLUXLIMIT_ADV_R	Rj= (tracer(i,j,k) -tracer(i,j,kM1))
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	90	GAD_FLUXLIMIT_ADV_R	Rjm=(tracer(i,j,km1)-tracer(i,j,kM2))
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	91	GAD_FLUXLIMIT_ADV_R	& *maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F	94	GAD_FLUXLIMIT_ADV_R	IF (rTrans(i,j).LT.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	61	GAD_FLUXLIMIT_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	68	GAD_FLUXLIMIT_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	69	GAD_FLUXLIMIT_ADV_X	uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	70	GAD_FLUXLIMIT_ADV_X	uT(2-Olx,j)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	71	GAD_FLUXLIMIT_ADV_X	uT(sNx+Olx,j)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	73	GAD_FLUXLIMIT_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	76	GAD_FLUXLIMIT_ADV_X	uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	77	GAD_FLUXLIMIT_ADV_X	IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	78	GAD_FLUXLIMIT_ADV_X	& recip_dxC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	79	GAD_FLUXLIMIT_ADV_X	Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	80	GAD_FLUXLIMIT_ADV_X	Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	81	GAD_FLUXLIMIT_ADV_X	Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	84	GAD_FLUXLIMIT_ADV_X	IF (uTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	90	GAD_FLUXLIMIT_ADV_X	IF (uTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	97	GAD_FLUXLIMIT_ADV_X	uT(i,j) =
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	98	GAD_FLUXLIMIT_ADV_X	& uTrans(i,j)(Tracer(i,j)+Tracer(i-1,j))0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F	99	GAD_FLUXLIMIT_ADV_X	& -ABS(uTrans(i,j))((1.-Cr)+uCFLCr)
./model/inc/RECIP_HFACW_MACROS.h	36	NO PROCEDURE	# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	61	GAD_FLUXLIMIT_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	73	GAD_FLUXLIMIT_ADV_Y	DO j=1-Oly+2,sNy+Oly-1
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	76	GAD_FLUXLIMIT_ADV_Y	vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	77	GAD_FLUXLIMIT_ADV_Y	IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	78	GAD_FLUXLIMIT_ADV_Y	& recip_dyC(i,j,bi,bj)recip_deepFacC(k) )
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	79	GAD_FLUXLIMIT_ADV_Y	Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	80	GAD_FLUXLIMIT_ADV_Y	Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	81	GAD_FLUXLIMIT_ADV_Y	Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	84	GAD_FLUXLIMIT_ADV_Y	IF (vTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	90	GAD_FLUXLIMIT_ADV_Y	IF (vTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	97	GAD_FLUXLIMIT_ADV_Y	vT(i,j) =
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	98	GAD_FLUXLIMIT_ADV_Y	& vTrans(i,j)(Tracer(i,j)+Tracer(i,j-1))0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F	99	GAD_FLUXLIMIT_ADV_Y	& -ABS(vTrans(i,j))((1.-Cr)+vCFLCr)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	101	GAD_FLUXLIMIT_IMPL_R	upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) )
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	103	GAD_FLUXLIMIT_IMPL_R	upwindFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	109	GAD_FLUXLIMIT_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	111	GAD_FLUXLIMIT_IMPL_R	rCenter = 0.5 _d 0 rTrans(i,j)recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	112	GAD_FLUXLIMIT_IMPL_R	rUpwind = ABS(rCenter)*upwindFac(i,j)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	113	GAD_FLUXLIMIT_IMPL_R	a3d(i,j,k) = a3d(i,j,k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	115	GAD_FLUXLIMIT_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	116	GAD_FLUXLIMIT_IMPL_R	b3d(i,j,k) = b3d(i,j,k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	118	GAD_FLUXLIMIT_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	119	GAD_FLUXLIMIT_IMPL_R	b3d(i,j,k-1) = b3d(i,j,k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	121	GAD_FLUXLIMIT_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	122	GAD_FLUXLIMIT_IMPL_R	c3d(i,j,k-1) = c3d(i,j,k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	124	GAD_FLUXLIMIT_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	67	GAD_FLUXLIMIT_IMPL_R	INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	86	GAD_FLUXLIMIT_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	88	GAD_FLUXLIMIT_IMPL_R	w_CFL = deltaTcflrTrans(i,j)recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	89	GAD_FLUXLIMIT_IMPL_R	Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	90	GAD_FLUXLIMIT_IMPL_R	Rj =(tFld(i,j,k) -tFld(i,j,km1))
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	91	GAD_FLUXLIMIT_IMPL_R	Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	94	GAD_FLUXLIMIT_IMPL_R	IF (rTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F	99	GAD_FLUXLIMIT_IMPL_R	upwindFac(i,j) = 1. _d 0
./pkg/generic_advdiff/gad_grad_x.F	47	GAD_GRAD_X	INTEGER i,j
./pkg/generic_advdiff/gad_grad_x.F	59	GAD_GRAD_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_grad_x.F	60	GAD_GRAD_X	dTdx(1-Olx,j)=0.
./pkg/generic_advdiff/gad_grad_x.F	62	GAD_GRAD_X	dTdx(i,j) = xA(i,j)
./pkg/generic_advdiff/gad_grad_x.F	63	GAD_GRAD_X	& _recip_dxC(i,j,bi,bj)recip_deepFacC(k)
./pkg/generic_advdiff/gad_grad_x.F	64	GAD_GRAD_X	& *(tracer(i,j)-tracer(i-1,j))
./pkg/generic_advdiff/gad_grad_x.F	66	GAD_GRAD_X	& *sqCosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_grad_x.F	69	GAD_GRAD_X	& *maskInW(i,j,bi,bj)
./pkg/generic_advdiff/gad_grad_y.F	47	GAD_GRAD_Y	INTEGER i,j
./pkg/generic_advdiff/gad_grad_y.F	62	GAD_GRAD_Y	DO j=1-Oly+1,sNy+Oly
./pkg/generic_advdiff/gad_grad_y.F	64	GAD_GRAD_Y	dTdy(i,j) = yA(i,j)
./pkg/generic_advdiff/gad_grad_y.F	65	GAD_GRAD_Y	& _recip_dyC(i,j,bi,bj)recip_deepFacC(k)
./pkg/generic_advdiff/gad_grad_y.F	66	GAD_GRAD_Y	& *(tracer(i,j)-tracer(i,j-1))
./pkg/generic_advdiff/gad_grad_y.F	69	GAD_GRAD_Y	& *sqCosFacV(j,bi,bj)
./pkg/generic_advdiff/gad_grad_y.F	73	GAD_GRAD_Y	& *maskInS(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	105	GAD_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F	107	GAD_IMPLICIT_R	a5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	108	GAD_IMPLICIT_R	b5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	109	GAD_IMPLICIT_R	c5d(i,j,k) = 1. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	110	GAD_IMPLICIT_R	d5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	111	GAD_IMPLICIT_R	e5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	122	GAD_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F	124	GAD_IMPLICIT_R	localTijk(i,j,k) = gTracer(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F	130	GAD_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F	132	GAD_IMPLICIT_R	localTijk(i,j,k) = tracer(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F	144	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	146	GAD_IMPLICIT_R	b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	147	GAD_IMPLICIT_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F	148	GAD_IMPLICIT_R	& kappaRX(i,j, k )recip_drC( k )
./pkg/generic_advdiff/gad_implicit_r.F	154	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	156	GAD_IMPLICIT_R	d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	157	GAD_IMPLICIT_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F	158	GAD_IMPLICIT_R	& KappaRX(i,j,k+1)recip_drC(k+1)
./pkg/generic_advdiff/gad_implicit_r.F	164	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	166	GAD_IMPLICIT_R	c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F	180	GAD_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F	182	GAD_IMPLICIT_R	rTrans(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	186	GAD_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F	188	GAD_IMPLICIT_R	rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	189	GAD_IMPLICIT_R	& *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	286	GAD_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F	288	GAD_IMPLICIT_R	flx(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	293	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	295	GAD_IMPLICIT_R	df(i,j) =
./pkg/generic_advdiff/gad_implicit_r.F	299	GAD_IMPLICIT_R	& -rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	301	GAD_IMPLICIT_R	& * KappaRX(i,j,k)recip_drC(k)rkSign
./pkg/generic_advdiff/gad_implicit_r.F	302	GAD_IMPLICIT_R	& * (gTracer(i,j,k) - gTracer(i,j,k-1))
./pkg/generic_advdiff/gad_implicit_r.F	303	GAD_IMPLICIT_R	& * maskC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	304	GAD_IMPLICIT_R	& * maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	308	GAD_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F	310	GAD_IMPLICIT_R	df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F	336	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	338	GAD_IMPLICIT_R	div(i,j) = gTracer(i,j,k)*( c5d(i,j,k) - 1. _d 0 )
./pkg/generic_advdiff/gad_implicit_r.F	339	GAD_IMPLICIT_R	& + gTracer(i,j,km1)*b5d(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F	340	GAD_IMPLICIT_R	& + gTracer(i,j,kp1)*d5d(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F	344	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	346	GAD_IMPLICIT_R	div(i,j) = div(i,j)
./pkg/generic_advdiff/gad_implicit_r.F	347	GAD_IMPLICIT_R	& + gTracer(i,j,km2)*a5d(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F	348	GAD_IMPLICIT_R	& + gTracer(i,j,kp2)*e5d(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F	356	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	358	GAD_IMPLICIT_R	div(i,j) = div(i,j)h0FacC(i,j,k,bi,bj)drF(k)
./pkg/generic_advdiff/gad_implicit_r.F	359	GAD_IMPLICIT_R	& *rStarFacC(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F	363	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	365	GAD_IMPLICIT_R	div(i,j) = div(i,j)*(
./pkg/generic_advdiff/gad_implicit_r.F	366	GAD_IMPLICIT_R	& _hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F	367	GAD_IMPLICIT_R	& + dBHybSigF(k)dEtaHdt(i,j,bi,bj)deltaTFreeSurf
./pkg/generic_advdiff/gad_implicit_r.F	372	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	374	GAD_IMPLICIT_R	IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/generic_advdiff/gad_implicit_r.F	375	GAD_IMPLICIT_R	div(i,j) = div(i,j)hFac_surfC(i,j,bi,bj)drF(k)
./pkg/generic_advdiff/gad_implicit_r.F	377	GAD_IMPLICIT_R	div(i,j) = div(i,j)_hFacC(i,j,k,bi,bj)drF(k)
./pkg/generic_advdiff/gad_implicit_r.F	387	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	389	GAD_IMPLICIT_R	div(i,j) = div(i,j)_hFacC(i,j,k,bi,bj)drF(k)
./pkg/generic_advdiff/gad_implicit_r.F	393	GAD_IMPLICIT_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_implicit_r.F	395	GAD_IMPLICIT_R	flx(i,j) = flx(i,j)
./pkg/generic_advdiff/gad_implicit_r.F	399	GAD_IMPLICIT_R	& - rkSigndiv(i,j)rA(i,j,bi,bj)/deltaTLev(k)
./pkg/generic_advdiff/gad_implicit_r.F	401	GAD_IMPLICIT_R	af(i,j) = flx(i,j) - df(i,j)
./pkg/generic_advdiff/gad_implicit_r.F	79	GAD_IMPLICIT_R	INTEGER i,j,k
./pkg/generic_advdiff/gad_init_varia.F	37	GAD_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/generic_advdiff/gad_init_varia.F	46	GAD_INIT_VARIA	DO j=1-Oly,sNy+OLy
./pkg/generic_advdiff/gad_init_varia.F	49	GAD_INIT_VARIA	som_T(i,j,k,bi,bj,n) = 0. _d 0
./pkg/generic_advdiff/gad_init_varia.F	51	GAD_INIT_VARIA	som_S(i,j,k,bi,bj,n) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F	112	GAD_OS7MP_ADV_R	IF (wTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F	202	GAD_OS7MP_ADV_R	wT(i,j) = wTrans(i,j)( Qi + PsiDelIp )
./pkg/generic_advdiff/gad_os7mp_adv_r.F	204	GAD_OS7MP_ADV_R	wT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F	34	GAD_OS7MP_ADV_R	INTEGER i,j,kp3,kp2,kp1,km1,km2,km3,km4
./pkg/generic_advdiff/gad_os7mp_adv_r.F	59	GAD_OS7MP_ADV_R	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_os7mp_adv_r.F	62	GAD_OS7MP_ADV_R	wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	65	GAD_OS7MP_ADV_R	IF (wTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F	66	GAD_OS7MP_ADV_R	Qippp = Q(i,j,kp2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	67	GAD_OS7MP_ADV_R	Qipp = Q(i,j,kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	68	GAD_OS7MP_ADV_R	Qip = Q(i,j,k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	69	GAD_OS7MP_ADV_R	Qi = Q(i,j,km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	70	GAD_OS7MP_ADV_R	Qim = Q(i,j,km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	71	GAD_OS7MP_ADV_R	Qimm = Q(i,j,km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	72	GAD_OS7MP_ADV_R	Qimmm = Q(i,j,km4)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	74	GAD_OS7MP_ADV_R	MskIpp = maskC(i,j,kp2,bi,bj) * float(kp2-kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	75	GAD_OS7MP_ADV_R	MskIp = maskC(i,j,kp1,bi,bj) * float(kp1-k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	76	GAD_OS7MP_ADV_R	MskI = maskC(i,j,k,bi,bj) * float(k-km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	77	GAD_OS7MP_ADV_R	MskIm = maskC(i,j,km1,bi,bj) * float(km1-km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	78	GAD_OS7MP_ADV_R	MskImm = maskC(i,j,km2,bi,bj) * float(km2-km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	79	GAD_OS7MP_ADV_R	MskImmm = maskC(i,j,km3,bi,bj) * float(km3-km4)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	80	GAD_OS7MP_ADV_R	ELSEIF (wTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F	81	GAD_OS7MP_ADV_R	Qippp = Q(i,j,km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	82	GAD_OS7MP_ADV_R	Qipp = Q(i,j,km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	83	GAD_OS7MP_ADV_R	Qip = Q(i,j,km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	84	GAD_OS7MP_ADV_R	Qi = Q(i,j,k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	85	GAD_OS7MP_ADV_R	Qim = Q(i,j,kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	86	GAD_OS7MP_ADV_R	Qimm = Q(i,j,kp2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	87	GAD_OS7MP_ADV_R	Qimmm = Q(i,j,kp3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	89	GAD_OS7MP_ADV_R	MskIpp = maskC(i,j,km2,bi,bj) * float(km2-km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	90	GAD_OS7MP_ADV_R	MskIp = maskC(i,j,km1,bi,bj) * float(km1-km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	91	GAD_OS7MP_ADV_R	MskI = maskC(i,j,k,bi,bj) * float(k-km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	92	GAD_OS7MP_ADV_R	MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	93	GAD_OS7MP_ADV_R	MskImm = maskC(i,j,kp2,bi,bj) * float(kp2-kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F	94	GAD_OS7MP_ADV_R	MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	116	GAD_OS7MP_ADV_X	IF (uTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F	206	GAD_OS7MP_ADV_X	uT(i,j) = uTrans(i,j)( Qi + PsiDelIp )
./pkg/generic_advdiff/gad_os7mp_adv_x.F	208	GAD_OS7MP_ADV_X	uT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	36	GAD_OS7MP_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_os7mp_adv_x.F	53	GAD_OS7MP_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_os7mp_adv_x.F	54	GAD_OS7MP_ADV_X	uT(1-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	55	GAD_OS7MP_ADV_X	uT(2-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	56	GAD_OS7MP_ADV_X	uT(3-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	57	GAD_OS7MP_ADV_X	uT(4-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	58	GAD_OS7MP_ADV_X	uT(sNx+Olx-2,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	59	GAD_OS7MP_ADV_X	uT(sNx+Olx-1,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	60	GAD_OS7MP_ADV_X	uT(sNx+Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F	62	GAD_OS7MP_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_os7mp_adv_x.F	65	GAD_OS7MP_ADV_X	uLoc = uFld(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	67	GAD_OS7MP_ADV_X	IF ( calcCFL ) cfl = abs(uLocdeltaTlocrecip_dxC(i,j,bi,bj))
./pkg/generic_advdiff/gad_os7mp_adv_x.F	69	GAD_OS7MP_ADV_X	IF (uTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F	70	GAD_OS7MP_ADV_X	Qippp = Q(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	71	GAD_OS7MP_ADV_X	Qipp = Q(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	72	GAD_OS7MP_ADV_X	Qip = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	73	GAD_OS7MP_ADV_X	Qi = Q(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	74	GAD_OS7MP_ADV_X	Qim = Q(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	75	GAD_OS7MP_ADV_X	Qimm = Q(i-3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	76	GAD_OS7MP_ADV_X	Qimmm = Q(i-4,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	78	GAD_OS7MP_ADV_X	MskIpp = maskLocW(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	79	GAD_OS7MP_ADV_X	MskIp = maskLocW(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	80	GAD_OS7MP_ADV_X	MskI = maskLocW(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	81	GAD_OS7MP_ADV_X	MskIm = maskLocW(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	82	GAD_OS7MP_ADV_X	MskImm = maskLocW(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	83	GAD_OS7MP_ADV_X	MskImmm = maskLocW(i-3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	84	GAD_OS7MP_ADV_X	ELSEIF (uTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F	85	GAD_OS7MP_ADV_X	Qippp = Q(i-3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	86	GAD_OS7MP_ADV_X	Qipp = Q(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	87	GAD_OS7MP_ADV_X	Qip = Q(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	88	GAD_OS7MP_ADV_X	Qi = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	89	GAD_OS7MP_ADV_X	Qim = Q(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	90	GAD_OS7MP_ADV_X	Qimm = Q(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	91	GAD_OS7MP_ADV_X	Qimmm = Q(i+3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	93	GAD_OS7MP_ADV_X	MskIpp = maskLocW(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	94	GAD_OS7MP_ADV_X	MskIp = maskLocW(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	95	GAD_OS7MP_ADV_X	MskI = maskLocW(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	96	GAD_OS7MP_ADV_X	MskIm = maskLocW(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	97	GAD_OS7MP_ADV_X	MskImm = maskLocW(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F	98	GAD_OS7MP_ADV_X	MskImmm = maskLocW(i+3,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	116	GAD_OS7MP_ADV_Y	IF (vTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F	206	GAD_OS7MP_ADV_Y	vT(i,j) = vTrans(i,j)( Qi + PsiDelIp )
./pkg/generic_advdiff/gad_os7mp_adv_y.F	208	GAD_OS7MP_ADV_Y	vT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F	36	GAD_OS7MP_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_os7mp_adv_y.F	62	GAD_OS7MP_ADV_Y	DO j=1-Oly+4,sNy+Oly-3
./pkg/generic_advdiff/gad_os7mp_adv_y.F	65	GAD_OS7MP_ADV_Y	vLoc = vFld(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	67	GAD_OS7MP_ADV_Y	IF ( calcCFL ) cfl = abs(vLocdeltaTlocrecip_dyC(i,j,bi,bj))
./pkg/generic_advdiff/gad_os7mp_adv_y.F	69	GAD_OS7MP_ADV_Y	IF (vTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F	70	GAD_OS7MP_ADV_Y	Qippp = Q(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	71	GAD_OS7MP_ADV_Y	Qipp = Q(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	72	GAD_OS7MP_ADV_Y	Qip = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	73	GAD_OS7MP_ADV_Y	Qi = Q(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	74	GAD_OS7MP_ADV_Y	Qim = Q(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	75	GAD_OS7MP_ADV_Y	Qimm = Q(i,j-3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	76	GAD_OS7MP_ADV_Y	Qimmm = Q(i,j-4)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	78	GAD_OS7MP_ADV_Y	MskIpp = maskLocS(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	79	GAD_OS7MP_ADV_Y	MskIp = maskLocS(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	80	GAD_OS7MP_ADV_Y	MskI = maskLocS(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	81	GAD_OS7MP_ADV_Y	MskIm = maskLocS(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	82	GAD_OS7MP_ADV_Y	MskImm = maskLocS(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	83	GAD_OS7MP_ADV_Y	MskImmm = maskLocS(i,j-3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	84	GAD_OS7MP_ADV_Y	ELSEIF (vTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F	85	GAD_OS7MP_ADV_Y	Qippp = Q(i,j-3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	86	GAD_OS7MP_ADV_Y	Qipp = Q(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	87	GAD_OS7MP_ADV_Y	Qip = Q(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	88	GAD_OS7MP_ADV_Y	Qi = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	89	GAD_OS7MP_ADV_Y	Qim = Q(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	90	GAD_OS7MP_ADV_Y	Qimm = Q(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	91	GAD_OS7MP_ADV_Y	Qimmm = Q(i,j+3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	93	GAD_OS7MP_ADV_Y	MskIpp = maskLocS(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	94	GAD_OS7MP_ADV_Y	MskIp = maskLocS(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	95	GAD_OS7MP_ADV_Y	MskI = maskLocS(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	96	GAD_OS7MP_ADV_Y	MskIm = maskLocS(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	97	GAD_OS7MP_ADV_Y	MskImm = maskLocS(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F	98	GAD_OS7MP_ADV_Y	MskImmm = maskLocS(i,j+3)
./pkg/generic_advdiff/gad_som_adv_r.F	111	GAD_SOM_ADV_R	INTEGER i,j
./pkg/generic_advdiff/gad_som_adv_r.F	154	GAD_SOM_ADV_R	DO j=jMinAdvR,jMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F	156	GAD_SOM_ADV_R	wLoc = rTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F	160	GAD_SOM_ADV_R	fp_v (i,j,kUp) = MAX( zeroRL, wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F	161	GAD_SOM_ADV_R	alp (i,j,kUp) = fp_v(i,j,kUp)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F	162	GAD_SOM_ADV_R	alpq = alp(i,j,kUp)*alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	163	GAD_SOM_ADV_R	alp1 = 1. _d 0 - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	166	GAD_SOM_ADV_R	fp_o (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F	167	GAD_SOM_ADV_R	& ( sm_o(i,j, k ) + alp1*sm_z(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	168	GAD_SOM_ADV_R	& + alp1(alp1-alp(i,j,kUp))sm_zz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	170	GAD_SOM_ADV_R	fp_z (i,j,kUp) = alpq*
./pkg/generic_advdiff/gad_som_adv_r.F	171	GAD_SOM_ADV_R	& ( sm_z(i,j, k ) + threealp1sm_zz(i,j, k ) )
./pkg/generic_advdiff/gad_som_adv_r.F	172	GAD_SOM_ADV_R	fp_zz(i,j,kUp) = alp(i,j,kUp)alpqsm_zz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	173	GAD_SOM_ADV_R	fp_x (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F	174	GAD_SOM_ADV_R	& ( sm_x(i,j, k ) + alp1*sm_xz(i,j, k ) )
./pkg/generic_advdiff/gad_som_adv_r.F	175	GAD_SOM_ADV_R	fp_y (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F	176	GAD_SOM_ADV_R	& ( sm_y(i,j, k ) + alp1*sm_yz(i,j, k ) )
./pkg/generic_advdiff/gad_som_adv_r.F	177	GAD_SOM_ADV_R	fp_xz(i,j,kUp) = alpq *sm_xz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	178	GAD_SOM_ADV_R	fp_yz(i,j,kUp) = alpq *sm_yz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	179	GAD_SOM_ADV_R	fp_xx(i,j,kUp) = alp(i,j,kUp)*sm_xx(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	180	GAD_SOM_ADV_R	fp_yy(i,j,kUp) = alp(i,j,kUp)*sm_yy(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	181	GAD_SOM_ADV_R	fp_xy(i,j,kUp) = alp(i,j,kUp)*sm_xy(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F	187	GAD_SOM_ADV_R	DO j=jMinAdvR,jMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F	189	GAD_SOM_ADV_R	wLoc = rTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F	192	GAD_SOM_ADV_R	fn_v (i,j,kUp) = MAX( zeroRL, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F	193	GAD_SOM_ADV_R	aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	194	GAD_SOM_ADV_R	alnq = aln(i,j,kUp)*aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	195	GAD_SOM_ADV_R	aln1 = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	198	GAD_SOM_ADV_R	fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	199	GAD_SOM_ADV_R	fn_z (i,j,kUp) = zeroRL
./pkg/generic_advdiff/gad_som_adv_r.F	200	GAD_SOM_ADV_R	fn_zz(i,j,kUp) = zeroRL
./pkg/generic_advdiff/gad_som_adv_r.F	201	GAD_SOM_ADV_R	fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	202	GAD_SOM_ADV_R	fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	203	GAD_SOM_ADV_R	fn_xz(i,j,kUp) = zeroRL
./pkg/generic_advdiff/gad_som_adv_r.F	204	GAD_SOM_ADV_R	fn_yz(i,j,kUp) = zeroRL
./pkg/generic_advdiff/gad_som_adv_r.F	205	GAD_SOM_ADV_R	fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	206	GAD_SOM_ADV_R	fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	207	GAD_SOM_ADV_R	fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	209	GAD_SOM_ADV_R	wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F	215	GAD_SOM_ADV_R	DO j=jMinAdvR,jMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F	217	GAD_SOM_ADV_R	wLoc = maskUp(i,j)rTrans(i,j)deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F	219	GAD_SOM_ADV_R	fn_v (i,j,kUp) = MAX( zeroRL, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F	220	GAD_SOM_ADV_R	aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	221	GAD_SOM_ADV_R	alnq = aln(i,j,kUp)*aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	222	GAD_SOM_ADV_R	aln1 = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	225	GAD_SOM_ADV_R	fn_o (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F	226	GAD_SOM_ADV_R	& ( sm_o(i,j,km1) - aln1*sm_z(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	227	GAD_SOM_ADV_R	& + aln1(aln1-aln(i,j,kUp))sm_zz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	229	GAD_SOM_ADV_R	fn_z (i,j,kUp) = alnq*
./pkg/generic_advdiff/gad_som_adv_r.F	230	GAD_SOM_ADV_R	& ( sm_z(i,j,km1) - threealn1sm_zz(i,j,km1) )
./pkg/generic_advdiff/gad_som_adv_r.F	231	GAD_SOM_ADV_R	fn_zz(i,j,kUp) = aln(i,j,kUp)alnqsm_zz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	232	GAD_SOM_ADV_R	fn_x (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F	233	GAD_SOM_ADV_R	& ( sm_x(i,j,km1) - aln1*sm_xz(i,j,km1) )
./pkg/generic_advdiff/gad_som_adv_r.F	234	GAD_SOM_ADV_R	fn_y (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F	235	GAD_SOM_ADV_R	& ( sm_y(i,j,km1) - aln1*sm_yz(i,j,km1) )
./pkg/generic_advdiff/gad_som_adv_r.F	236	GAD_SOM_ADV_R	fn_xz(i,j,kUp) = alnq *sm_xz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	237	GAD_SOM_ADV_R	fn_yz(i,j,kUp) = alnq *sm_yz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	238	GAD_SOM_ADV_R	fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	239	GAD_SOM_ADV_R	fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	240	GAD_SOM_ADV_R	fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	242	GAD_SOM_ADV_R	wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F	255	GAD_SOM_ADV_R	DO j=jMinAdvR,jMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F	257	GAD_SOM_ADV_R	wLoc = rTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F	258	GAD_SOM_ADV_R	IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/generic_advdiff/gad_som_adv_r.F	260	GAD_SOM_ADV_R	fn_v (i,j,kUp) = MAX( zeroRL, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F	261	GAD_SOM_ADV_R	aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	264	GAD_SOM_ADV_R	fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	265	GAD_SOM_ADV_R	fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	266	GAD_SOM_ADV_R	fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	267	GAD_SOM_ADV_R	fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	268	GAD_SOM_ADV_R	fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	269	GAD_SOM_ADV_R	fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F	271	GAD_SOM_ADV_R	wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F	280	GAD_SOM_ADV_R	DO j=jMinAdvR,jMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F	283	GAD_SOM_ADV_R	IF ( maskIn(i,j).NE.zeroRS ) THEN
./pkg/generic_advdiff/gad_som_adv_r.F	285	GAD_SOM_ADV_R	alf1 = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	287	GAD_SOM_ADV_R	alpmn = alp(i,j,kUp) - aln(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	288	GAD_SOM_ADV_R	sm_v (i,j,k) = sm_v (i,j,k) - fn_v (i,j,kDw) - fp_v (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	289	GAD_SOM_ADV_R	sm_o (i,j,k) = sm_o (i,j,k) - fn_o (i,j,kDw) - fp_o (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	290	GAD_SOM_ADV_R	sm_z (i,j,k) = alf1q( sm_z(i,j,k) - threealpmn*sm_zz(i,j,k) )
./pkg/generic_advdiff/gad_som_adv_r.F	291	GAD_SOM_ADV_R	sm_zz(i,j,k) = alf1alf1qsm_zz(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F	292	GAD_SOM_ADV_R	sm_xz(i,j,k) = alf1q*sm_xz(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F	293	GAD_SOM_ADV_R	sm_yz(i,j,k) = alf1q*sm_yz(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F	294	GAD_SOM_ADV_R	sm_x (i,j,k) = sm_x (i,j,k) - fn_x (i,j,kDw) - fp_x (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	295	GAD_SOM_ADV_R	sm_xx(i,j,k) = sm_xx(i,j,k) - fn_xx(i,j,kDw) - fp_xx(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	296	GAD_SOM_ADV_R	sm_y (i,j,k) = sm_y (i,j,k) - fn_y (i,j,kDw) - fp_y (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	297	GAD_SOM_ADV_R	sm_yy(i,j,k) = sm_yy(i,j,k) - fn_yy(i,j,kDw) - fp_yy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	298	GAD_SOM_ADV_R	sm_xy(i,j,k) = sm_xy(i,j,k) - fn_xy(i,j,kDw) - fp_xy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	308	GAD_SOM_ADV_R	DO j=jMinAdvR,jMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F	311	GAD_SOM_ADV_R	IF ( maskIn(i,j).NE.zeroRS ) THEN
./pkg/generic_advdiff/gad_som_adv_r.F	313	GAD_SOM_ADV_R	sm_v (i,j,k) = sm_v (i,j,k) + fp_v (i,j,kDw) + fn_v (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	314	GAD_SOM_ADV_R	alfp = fp_v(i,j,kDw)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F	315	GAD_SOM_ADV_R	alfn = fn_v(i,j,kUp)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F	320	GAD_SOM_ADV_R	locTp = alfpsm_o(i,j,k) - alp1fp_o(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	321	GAD_SOM_ADV_R	locTn = alfnsm_o(i,j,k) - aln1fn_o(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	322	GAD_SOM_ADV_R	sm_zz(i,j,k) = alf1alf1sm_zz(i,j,k) + alfpalfpfp_zz(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	323	GAD_SOM_ADV_R	& + alfnalfnfn_zz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	324	GAD_SOM_ADV_R	& - 5. _d 0(-alpmnalf1sm_z(i,j,k) + alfpalp1*fp_z(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	325	GAD_SOM_ADV_R	& - alfnaln1fn_z(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	326	GAD_SOM_ADV_R	& + twoRLalfpalfnsm_o(i,j,k) + (alp1-alfp)locTp
./pkg/generic_advdiff/gad_som_adv_r.F	329	GAD_SOM_ADV_R	sm_xz(i,j,k) = alf1sm_xz(i,j,k) + alfpfp_xz(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	330	GAD_SOM_ADV_R	& + alfn*fn_xz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	331	GAD_SOM_ADV_R	& + three( alpmnsm_x(i,j,k) - alp1*fp_x(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	332	GAD_SOM_ADV_R	& + aln1*fn_x(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	334	GAD_SOM_ADV_R	sm_yz(i,j,k) = alf1sm_yz(i,j,k) + alfpfp_yz(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	335	GAD_SOM_ADV_R	& + alfn*fn_yz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	336	GAD_SOM_ADV_R	& + three( alpmnsm_y(i,j,k) - alp1*fp_y(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	337	GAD_SOM_ADV_R	& + aln1*fn_y(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	339	GAD_SOM_ADV_R	sm_z (i,j,k) = alf1sm_z(i,j,k) + alfpfp_z(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F	340	GAD_SOM_ADV_R	& + alfn*fn_z(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	342	GAD_SOM_ADV_R	sm_o (i,j,k) = sm_o (i,j,k) + fp_o (i,j,kDw) + fn_o (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	343	GAD_SOM_ADV_R	sm_x (i,j,k) = sm_x (i,j,k) + fp_x (i,j,kDw) + fn_x (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	344	GAD_SOM_ADV_R	sm_xx(i,j,k) = sm_xx(i,j,k) + fp_xx(i,j,kDw) + fn_xx(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	345	GAD_SOM_ADV_R	sm_y (i,j,k) = sm_y (i,j,k) + fp_y (i,j,kDw) + fn_y (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	346	GAD_SOM_ADV_R	sm_yy(i,j,k) = sm_yy(i,j,k) + fp_yy(i,j,kDw) + fn_yy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F	347	GAD_SOM_ADV_R	sm_xy(i,j,k) = sm_xy(i,j,k) + fp_xy(i,j,kDw) + fn_xy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_x.F	155	GAD_SOM_ADV_X	DO j=jMinUpd(ns),jMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_x.F	160	GAD_SOM_ADV_X	IF ( sm_o(i,j).GT.zeroRL ) slpmax = sm_o(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	162	GAD_SOM_ADV_X	s1new = MIN( s1max, MAX(-s1max,sm_x(i,j)) )
./pkg/generic_advdiff/gad_som_adv_x.F	164	GAD_SOM_ADV_X	& MAX(ABS(s1new)-slpmax,sm_xx(i,j)) )
./pkg/generic_advdiff/gad_som_adv_x.F	165	GAD_SOM_ADV_X	sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) )
./pkg/generic_advdiff/gad_som_adv_x.F	166	GAD_SOM_ADV_X	sm_xz(i,j) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j)) )
./pkg/generic_advdiff/gad_som_adv_x.F	167	GAD_SOM_ADV_X	sm_x (i,j) = s1new
./pkg/generic_advdiff/gad_som_adv_x.F	168	GAD_SOM_ADV_X	sm_xx(i,j) = s2new
./pkg/generic_advdiff/gad_som_adv_x.F	175	GAD_SOM_ADV_X	DO j=jMinUpd(ns),jMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_x.F	177	GAD_SOM_ADV_X	uLoc = uTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_x.F	179	GAD_SOM_ADV_X	fp_v (i,j) = MAX( zeroRL, uLoc )
./pkg/generic_advdiff/gad_som_adv_x.F	180	GAD_SOM_ADV_X	alp (i,j) = fp_v(i,j)/sm_v(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	181	GAD_SOM_ADV_X	alpq = alp(i,j)*alp(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	182	GAD_SOM_ADV_X	alp1 = 1. _d 0 - alp(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	185	GAD_SOM_ADV_X	fp_o (i,j) = alp(i,j)( sm_o(i-1,j) + alp1sm_x(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	186	GAD_SOM_ADV_X	& + alp1(alp1-alp(i,j))sm_xx(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	188	GAD_SOM_ADV_X	fp_x (i,j) = alpq ( sm_x(i-1,j) + threealp1*sm_xx(i-1,j) )
./pkg/generic_advdiff/gad_som_adv_x.F	189	GAD_SOM_ADV_X	fp_xx(i,j) = alp(i,j)alpqsm_xx(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	190	GAD_SOM_ADV_X	fp_y (i,j) = alp(i,j)( sm_y(i-1,j) + alp1sm_xy(i-1,j) )
./pkg/generic_advdiff/gad_som_adv_x.F	191	GAD_SOM_ADV_X	fp_z (i,j) = alp(i,j)( sm_z(i-1,j) + alp1sm_xz(i-1,j) )
./pkg/generic_advdiff/gad_som_adv_x.F	192	GAD_SOM_ADV_X	fp_xy(i,j) = alpq *sm_xy(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	193	GAD_SOM_ADV_X	fp_xz(i,j) = alpq *sm_xz(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	194	GAD_SOM_ADV_X	fp_yy(i,j) = alp(i,j)*sm_yy(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	195	GAD_SOM_ADV_X	fp_zz(i,j) = alp(i,j)*sm_zz(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	196	GAD_SOM_ADV_X	fp_yz(i,j) = alp(i,j)*sm_yz(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	198	GAD_SOM_ADV_X	fn_v (i,j) = MAX( zeroRL, -uLoc )
./pkg/generic_advdiff/gad_som_adv_x.F	199	GAD_SOM_ADV_X	aln (i,j) = fn_v(i,j)/sm_v( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	200	GAD_SOM_ADV_X	alnq = aln(i,j)*aln(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	201	GAD_SOM_ADV_X	aln1 = 1. _d 0 - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	204	GAD_SOM_ADV_X	fn_o (i,j) = aln(i,j)( sm_o( i ,j) - aln1sm_x( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	205	GAD_SOM_ADV_X	& + aln1(aln1-aln(i,j))sm_xx( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	207	GAD_SOM_ADV_X	fn_x (i,j) = alnq ( sm_x( i ,j) - threealn1*sm_xx( i ,j) )
./pkg/generic_advdiff/gad_som_adv_x.F	208	GAD_SOM_ADV_X	fn_xx(i,j) = aln(i,j)alnqsm_xx( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	209	GAD_SOM_ADV_X	fn_y (i,j) = aln(i,j)( sm_y( i ,j) - aln1sm_xy( i ,j) )
./pkg/generic_advdiff/gad_som_adv_x.F	210	GAD_SOM_ADV_X	fn_z (i,j) = aln(i,j)( sm_z( i ,j) - aln1sm_xz( i ,j) )
./pkg/generic_advdiff/gad_som_adv_x.F	211	GAD_SOM_ADV_X	fn_xy(i,j) = alnq *sm_xy( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	212	GAD_SOM_ADV_X	fn_xz(i,j) = alnq *sm_xz( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	213	GAD_SOM_ADV_X	fn_yy(i,j) = aln(i,j)*sm_yy( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	214	GAD_SOM_ADV_X	fn_zz(i,j) = aln(i,j)*sm_zz( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	215	GAD_SOM_ADV_X	fn_yz(i,j) = aln(i,j)*sm_yz( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F	217	GAD_SOM_ADV_X	uT(i,j) = ( fp_o(i,j) - fn_o(i,j) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_x.F	230	GAD_SOM_ADV_X	DO j=jMinUpd(ns),jMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_x.F	233	GAD_SOM_ADV_X	IF ( maskIn(i,j).NE.zeroRS ) THEN
./pkg/generic_advdiff/gad_som_adv_x.F	235	GAD_SOM_ADV_X	alf1 = 1. _d 0 - aln(i,j) - alp(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	237	GAD_SOM_ADV_X	alpmn = alp(i+1,j) - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	238	GAD_SOM_ADV_X	sm_v (i,j) = sm_v (i,j) - fn_v (i,j) - fp_v (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	239	GAD_SOM_ADV_X	sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	240	GAD_SOM_ADV_X	sm_x (i,j) = alf1q( sm_x(i,j) - threealpmn*sm_xx(i,j) )
./pkg/generic_advdiff/gad_som_adv_x.F	241	GAD_SOM_ADV_X	sm_xx(i,j) = alf1alf1qsm_xx(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	242	GAD_SOM_ADV_X	sm_xy(i,j) = alf1q*sm_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	243	GAD_SOM_ADV_X	sm_xz(i,j) = alf1q*sm_xz(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	244	GAD_SOM_ADV_X	sm_y (i,j) = sm_y (i,j) - fn_y (i,j) - fp_y (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	245	GAD_SOM_ADV_X	sm_yy(i,j) = sm_yy(i,j) - fn_yy(i,j) - fp_yy(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	246	GAD_SOM_ADV_X	sm_z (i,j) = sm_z (i,j) - fn_z (i,j) - fp_z (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	247	GAD_SOM_ADV_X	sm_zz(i,j) = sm_zz(i,j) - fn_zz(i,j) - fp_zz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	248	GAD_SOM_ADV_X	sm_yz(i,j) = sm_yz(i,j) - fn_yz(i,j) - fp_yz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	258	GAD_SOM_ADV_X	DO j=jMinUpd(ns),jMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_x.F	261	GAD_SOM_ADV_X	IF ( maskIn(i,j).NE.zeroRS ) THEN
./pkg/generic_advdiff/gad_som_adv_x.F	263	GAD_SOM_ADV_X	sm_v (i,j) = sm_v (i,j) + fp_v (i,j) + fn_v (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	264	GAD_SOM_ADV_X	alfp = fp_v( i ,j)/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	265	GAD_SOM_ADV_X	alfn = fn_v(i+1,j)/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	270	GAD_SOM_ADV_X	locTp = alfpsm_o(i,j) - alp1fp_o(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	271	GAD_SOM_ADV_X	locTn = alfnsm_o(i,j) - aln1fn_o(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	272	GAD_SOM_ADV_X	sm_xx(i,j) = alf1alf1sm_xx(i,j) + alfpalfpfp_xx(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	273	GAD_SOM_ADV_X	& + alfnalfnfn_xx(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	274	GAD_SOM_ADV_X	& - 5. _d 0(-alpmnalf1sm_x(i,j) + alfpalp1*fp_x(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	275	GAD_SOM_ADV_X	& - alfnaln1fn_x(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	276	GAD_SOM_ADV_X	& + twoRLalfpalfnsm_o(i,j) + (alp1-alfp)locTp
./pkg/generic_advdiff/gad_som_adv_x.F	279	GAD_SOM_ADV_X	sm_xy(i,j) = alf1sm_xy(i,j) + alfpfp_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	280	GAD_SOM_ADV_X	& + alfn*fn_xy(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	281	GAD_SOM_ADV_X	& + three( alpmnsm_y(i,j) - alp1*fp_y(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	282	GAD_SOM_ADV_X	& + aln1*fn_y(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	284	GAD_SOM_ADV_X	sm_xz(i,j) = alf1sm_xz(i,j) + alfpfp_xz(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	285	GAD_SOM_ADV_X	& + alfn*fn_xz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	286	GAD_SOM_ADV_X	& + three( alpmnsm_z(i,j) - alp1*fp_z(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F	287	GAD_SOM_ADV_X	& + aln1*fn_z(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	289	GAD_SOM_ADV_X	sm_x (i,j) = alf1sm_x(i,j) + alfpfp_x(i,j) + alfn*fn_x(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	291	GAD_SOM_ADV_X	sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	292	GAD_SOM_ADV_X	sm_y (i,j) = sm_y (i,j) + fp_y (i,j) + fn_y (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	293	GAD_SOM_ADV_X	sm_yy(i,j) = sm_yy(i,j) + fp_yy(i,j) + fn_yy(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	294	GAD_SOM_ADV_X	sm_z (i,j) = sm_z (i,j) + fp_z (i,j) + fn_z (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	295	GAD_SOM_ADV_X	sm_zz(i,j) = sm_zz(i,j) + fp_zz(i,j) + fn_zz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	296	GAD_SOM_ADV_X	sm_yz(i,j) = sm_yz(i,j) + fp_yz(i,j) + fn_yz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F	89	GAD_SOM_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_som_adv_y.F	155	GAD_SOM_ADV_Y	DO j=jMinUpd(1)-1,jMaxUpd(1)+1
./pkg/generic_advdiff/gad_som_adv_y.F	160	GAD_SOM_ADV_Y	IF ( sm_o(i,j).GT.0. ) slpmax = sm_o(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	162	GAD_SOM_ADV_Y	s1new = MIN( s1max, MAX(-s1max,sm_y(i,j)) )
./pkg/generic_advdiff/gad_som_adv_y.F	164	GAD_SOM_ADV_Y	& MAX(ABS(s1new)-slpmax,sm_yy(i,j)) )
./pkg/generic_advdiff/gad_som_adv_y.F	165	GAD_SOM_ADV_Y	sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) )
./pkg/generic_advdiff/gad_som_adv_y.F	166	GAD_SOM_ADV_Y	sm_yz(i,j) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j)) )
./pkg/generic_advdiff/gad_som_adv_y.F	167	GAD_SOM_ADV_Y	sm_y (i,j) = s1new
./pkg/generic_advdiff/gad_som_adv_y.F	168	GAD_SOM_ADV_Y	sm_yy(i,j) = s2new
./pkg/generic_advdiff/gad_som_adv_y.F	175	GAD_SOM_ADV_Y	DO j=jMinUpd(1),jMaxUpd(1)+1
./pkg/generic_advdiff/gad_som_adv_y.F	177	GAD_SOM_ADV_Y	vLoc = vTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_y.F	179	GAD_SOM_ADV_Y	fp_v (i,j) = MAX( zeroRL, vLoc )
./pkg/generic_advdiff/gad_som_adv_y.F	180	GAD_SOM_ADV_Y	alp (i,j) = fp_v(i,j)/sm_v(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	181	GAD_SOM_ADV_Y	alpq = alp(i,j)*alp(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	182	GAD_SOM_ADV_Y	alp1 = 1. _d 0 - alp(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	185	GAD_SOM_ADV_Y	fp_o (i,j) = alp(i,j)( sm_o(i,j-1) + alp1sm_y(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	186	GAD_SOM_ADV_Y	& + alp1(alp1-alp(i,j))sm_yy(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	188	GAD_SOM_ADV_Y	fp_y (i,j) = alpq ( sm_y(i,j-1) + threealp1*sm_yy(i,j-1) )
./pkg/generic_advdiff/gad_som_adv_y.F	189	GAD_SOM_ADV_Y	fp_yy(i,j) = alp(i,j)alpqsm_yy(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	190	GAD_SOM_ADV_Y	fp_x (i,j) = alp(i,j)( sm_x(i,j-1) + alp1sm_xy(i,j-1) )
./pkg/generic_advdiff/gad_som_adv_y.F	191	GAD_SOM_ADV_Y	fp_z (i,j) = alp(i,j)( sm_z(i,j-1) + alp1sm_yz(i,j-1) )
./pkg/generic_advdiff/gad_som_adv_y.F	193	GAD_SOM_ADV_Y	fp_xy(i,j) = alpq *sm_xy(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	194	GAD_SOM_ADV_Y	fp_yz(i,j) = alpq *sm_yz(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	195	GAD_SOM_ADV_Y	fp_xx(i,j) = alp(i,j)*sm_xx(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	196	GAD_SOM_ADV_Y	fp_zz(i,j) = alp(i,j)*sm_zz(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	197	GAD_SOM_ADV_Y	fp_xz(i,j) = alp(i,j)*sm_xz(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F	199	GAD_SOM_ADV_Y	fn_v (i,j) = MAX( zeroRL, -vLoc )
./pkg/generic_advdiff/gad_som_adv_y.F	200	GAD_SOM_ADV_Y	aln (i,j) = fn_v(i,j)/sm_v(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	201	GAD_SOM_ADV_Y	alnq = aln(i,j)*aln(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	202	GAD_SOM_ADV_Y	aln1 = 1. _d 0 - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	205	GAD_SOM_ADV_Y	fn_o (i,j) = aln(i,j)( sm_o(i, j ) - aln1sm_y(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	206	GAD_SOM_ADV_Y	& + aln1(aln1-aln(i,j))sm_yy(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	208	GAD_SOM_ADV_Y	fn_y (i,j) = alnq ( sm_y(i, j ) - threealn1*sm_yy(i, j ) )
./pkg/generic_advdiff/gad_som_adv_y.F	209	GAD_SOM_ADV_Y	fn_yy(i,j) = aln(i,j)alnqsm_yy(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	210	GAD_SOM_ADV_Y	fn_x (i,j) = aln(i,j)( sm_x(i, j ) - aln1sm_xy(i, j ) )
./pkg/generic_advdiff/gad_som_adv_y.F	211	GAD_SOM_ADV_Y	fn_z (i,j) = aln(i,j)( sm_z(i, j ) - aln1sm_yz(i, j ) )
./pkg/generic_advdiff/gad_som_adv_y.F	212	GAD_SOM_ADV_Y	fn_xy(i,j) = alnq *sm_xy(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	213	GAD_SOM_ADV_Y	fn_yz(i,j) = alnq *sm_yz(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	214	GAD_SOM_ADV_Y	fn_xx(i,j) = aln(i,j)*sm_xx(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	215	GAD_SOM_ADV_Y	fn_zz(i,j) = aln(i,j)*sm_zz(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	216	GAD_SOM_ADV_Y	fn_xz(i,j) = aln(i,j)*sm_xz(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F	218	GAD_SOM_ADV_Y	vT(i,j) = ( fp_o(i,j) - fn_o(i,j) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_y.F	231	GAD_SOM_ADV_Y	DO j=jMinUpd(1),jMaxUpd(1)
./pkg/generic_advdiff/gad_som_adv_y.F	234	GAD_SOM_ADV_Y	IF ( maskIn(i,j).NE.zeroRS ) THEN
./pkg/generic_advdiff/gad_som_adv_y.F	236	GAD_SOM_ADV_Y	alf1 = 1. _d 0 - aln(i,j) - alp(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	238	GAD_SOM_ADV_Y	alpmn = alp(i,j+1) - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	239	GAD_SOM_ADV_Y	sm_v (i,j) = sm_v (i,j) - fn_v (i,j) - fp_v (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	240	GAD_SOM_ADV_Y	sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	241	GAD_SOM_ADV_Y	sm_y (i,j) = alf1q( sm_y(i,j) - threealpmn*sm_yy(i,j) )
./pkg/generic_advdiff/gad_som_adv_y.F	242	GAD_SOM_ADV_Y	sm_yy(i,j) = alf1alf1qsm_yy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	243	GAD_SOM_ADV_Y	sm_xy(i,j) = alf1q*sm_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	244	GAD_SOM_ADV_Y	sm_yz(i,j) = alf1q*sm_yz(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	245	GAD_SOM_ADV_Y	sm_x (i,j) = sm_x (i,j) - fn_x (i,j) - fp_x (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	246	GAD_SOM_ADV_Y	sm_xx(i,j) = sm_xx(i,j) - fn_xx(i,j) - fp_xx(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	247	GAD_SOM_ADV_Y	sm_z (i,j) = sm_z (i,j) - fn_z (i,j) - fp_z (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	248	GAD_SOM_ADV_Y	sm_zz(i,j) = sm_zz(i,j) - fn_zz(i,j) - fp_zz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	249	GAD_SOM_ADV_Y	sm_xz(i,j) = sm_xz(i,j) - fn_xz(i,j) - fp_xz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	259	GAD_SOM_ADV_Y	DO j=jMinUpd(1),jMaxUpd(1)
./pkg/generic_advdiff/gad_som_adv_y.F	262	GAD_SOM_ADV_Y	IF ( maskIn(i,j).NE.zeroRS ) THEN
./pkg/generic_advdiff/gad_som_adv_y.F	264	GAD_SOM_ADV_Y	sm_v (i,j) = sm_v (i,j) + fp_v (i,j) + fn_v (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	265	GAD_SOM_ADV_Y	alfp = fp_v(i, j )/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	266	GAD_SOM_ADV_Y	alfn = fn_v(i,j+1)/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	271	GAD_SOM_ADV_Y	locTp = alfpsm_o(i,j) - alp1fp_o(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	272	GAD_SOM_ADV_Y	locTn = alfnsm_o(i,j) - aln1fn_o(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	273	GAD_SOM_ADV_Y	sm_yy(i,j) = alf1alf1sm_yy(i,j) + alfpalfpfp_yy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	274	GAD_SOM_ADV_Y	& + alfnalfnfn_yy(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	275	GAD_SOM_ADV_Y	& - 5. _d 0(-alpmnalf1sm_y(i,j) + alfpalp1*fp_y(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	276	GAD_SOM_ADV_Y	& - alfnaln1fn_y(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	277	GAD_SOM_ADV_Y	& + twoRLalfpalfnsm_o(i,j) + (alp1-alfp)locTp
./pkg/generic_advdiff/gad_som_adv_y.F	280	GAD_SOM_ADV_Y	sm_xy(i,j) = alf1sm_xy(i,j) + alfpfp_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	281	GAD_SOM_ADV_Y	& + alfn*fn_xy(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	282	GAD_SOM_ADV_Y	& + three( alpmnsm_x(i,j) - alp1*fp_x(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	283	GAD_SOM_ADV_Y	& + aln1*fn_x(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	285	GAD_SOM_ADV_Y	sm_yz(i,j) = alf1sm_yz(i,j) + alfpfp_yz(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	286	GAD_SOM_ADV_Y	& + alfn*fn_yz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	287	GAD_SOM_ADV_Y	& + three( alpmnsm_z(i,j) - alp1*fp_z(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F	288	GAD_SOM_ADV_Y	& + aln1*fn_z(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	290	GAD_SOM_ADV_Y	sm_y (i,j) = alf1sm_y(i,j) + alfpfp_y(i,j) + alfn*fn_y(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	292	GAD_SOM_ADV_Y	sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	293	GAD_SOM_ADV_Y	sm_x (i,j) = sm_x (i,j) + fp_x (i,j) + fn_x (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	294	GAD_SOM_ADV_Y	sm_xx(i,j) = sm_xx(i,j) + fp_xx(i,j) + fn_xx(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	295	GAD_SOM_ADV_Y	sm_z (i,j) = sm_z (i,j) + fp_z (i,j) + fn_z (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	296	GAD_SOM_ADV_Y	sm_zz(i,j) = sm_zz(i,j) + fp_zz(i,j) + fn_zz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	297	GAD_SOM_ADV_Y	sm_xz(i,j) = sm_xz(i,j) + fp_xz(i,j) + fn_xz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F	89	GAD_SOM_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_som_advect.F	175	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	177	GAD_SOM_ADVECT	afx(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F	178	GAD_SOM_ADVECT	afy(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F	191	GAD_SOM_ADVECT	DO j=1,OLy
./pkg/generic_advdiff/gad_som_advect.F	193	GAD_SOM_ADVECT	smCorners(i,j,k,n) = 0.
./pkg/generic_advdiff/gad_som_advect.F	244	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	246	GAD_SOM_ADVECT	xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_som_advect.F	247	GAD_SOM_ADVECT	& drF(k)_hFacW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	248	GAD_SOM_ADVECT	yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_som_advect.F	249	GAD_SOM_ADVECT	& drF(k)_hFacS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	254	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	256	GAD_SOM_ADVECT	uTrans(i,j) = uFld(i,j,k)xA(i,j)rhoFacC(k)
./pkg/generic_advdiff/gad_som_advect.F	257	GAD_SOM_ADVECT	vTrans(i,j) = vFld(i,j,k)yA(i,j)rhoFacC(k)
./pkg/generic_advdiff/gad_som_advect.F	262	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	264	GAD_SOM_ADVECT	smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F	265	GAD_SOM_ADVECT	& drF(k)hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	267	GAD_SOM_ADVECT	smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k)
./pkg/generic_advdiff/gad_som_advect.F	269	GAD_SOM_ADVECT	smVol(i,j,k) = smVol(i,j,k)
./pkg/generic_advdiff/gad_som_advect.F	270	GAD_SOM_ADVECT	& + (1. _d 0 - maskC(i,j,k,bi,bj))
./pkg/generic_advdiff/gad_som_advect.F	402	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	409	GAD_SOM_ADVECT	gTracer(i,j,k) =
./pkg/generic_advdiff/gad_som_advect.F	410	GAD_SOM_ADVECT	& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) )
./pkg/generic_advdiff/gad_som_advect.F	411	GAD_SOM_ADVECT	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F	412	GAD_SOM_ADVECT	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	473	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	475	GAD_SOM_ADVECT	alp (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	476	GAD_SOM_ADVECT	aln (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	477	GAD_SOM_ADVECT	fp_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	478	GAD_SOM_ADVECT	fn_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	479	GAD_SOM_ADVECT	fp_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	480	GAD_SOM_ADVECT	fn_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	481	GAD_SOM_ADVECT	fp_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	482	GAD_SOM_ADVECT	fn_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	483	GAD_SOM_ADVECT	fp_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	484	GAD_SOM_ADVECT	fn_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	485	GAD_SOM_ADVECT	fp_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	486	GAD_SOM_ADVECT	fn_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	487	GAD_SOM_ADVECT	fp_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	488	GAD_SOM_ADVECT	fn_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	489	GAD_SOM_ADVECT	fp_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	490	GAD_SOM_ADVECT	fn_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	491	GAD_SOM_ADVECT	fp_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	492	GAD_SOM_ADVECT	fn_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	493	GAD_SOM_ADVECT	fp_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	494	GAD_SOM_ADVECT	fn_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	495	GAD_SOM_ADVECT	fp_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	496	GAD_SOM_ADVECT	fn_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	497	GAD_SOM_ADVECT	fp_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	498	GAD_SOM_ADVECT	fn_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F	514	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	516	GAD_SOM_ADVECT	rTrans(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F	517	GAD_SOM_ADVECT	maskUp(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F	523	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	525	GAD_SOM_ADVECT	rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	527	GAD_SOM_ADVECT	& *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	528	GAD_SOM_ADVECT	maskUp(i,j) = 1.
./pkg/generic_advdiff/gad_som_advect.F	535	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	537	GAD_SOM_ADVECT	rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	539	GAD_SOM_ADVECT	maskUp(i,j) = maskC(i,j,km1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	574	GAD_SOM_ADVECT	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_som_advect.F	586	GAD_SOM_ADVECT	gTracer(i,j,k) =
./pkg/generic_advdiff/gad_som_advect.F	587	GAD_SOM_ADVECT	& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) )
./pkg/generic_advdiff/gad_som_advect.F	588	GAD_SOM_ADVECT	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F	589	GAD_SOM_ADVECT	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F	94	GAD_SOM_ADVECT	INTEGER i,j,k,km1,kUp,kDown
./pkg/generic_advdiff/gad_som_lim_r.F	59	GAD_SOM_LIM_R	INTEGER i,j,k
./pkg/generic_advdiff/gad_som_lim_r.F	65	GAD_SOM_LIM_R	DO j=jMinAdvR,jMaxAdvR
./pkg/generic_advdiff/gad_som_lim_r.F	70	GAD_SOM_LIM_R	IF ( sm_o(i,j,k).GT.0. ) slpmax = sm_o(i,j,k)
./pkg/generic_advdiff/gad_som_lim_r.F	72	GAD_SOM_LIM_R	s1new = MIN( s1max, MAX(-s1max,sm_z(i,j,k)) )
./pkg/generic_advdiff/gad_som_lim_r.F	74	GAD_SOM_LIM_R	& MAX(ABS(s1new)-slpmax,sm_zz(i,j,k)) )
./pkg/generic_advdiff/gad_som_lim_r.F	75	GAD_SOM_LIM_R	sm_xz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j,k)) )
./pkg/generic_advdiff/gad_som_lim_r.F	76	GAD_SOM_LIM_R	sm_yz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j,k)) )
./pkg/generic_advdiff/gad_som_lim_r.F	77	GAD_SOM_LIM_R	sm_z (i,j,k) = s1new
./pkg/generic_advdiff/gad_som_lim_r.F	78	GAD_SOM_LIM_R	sm_zz(i,j,k) = s2new
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	129	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	131	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,1,-1) = smVol(i-OLx,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	132	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,1, 0) = smTr0(i-OLx,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	134	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,1,n) = smTr (i-OLx,j-OLy,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	140	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	142	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,2,-1) = smVol(sNx+i,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	143	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,2, 0) = smTr0(sNx+i,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	145	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,2,n) = smTr (sNx+i,j-OLy,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	151	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	153	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,3,-1) = smVol(sNx+i,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	154	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,3, 0) = smTr0(sNx+i,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	156	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,3,n) = smTr (sNx+i,sNy+j,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	162	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	164	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,4,-1) = smVol(i-OLx,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	165	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,4, 0) = smTr0(i-OLx,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	167	GAD_SOM_PREP_CS_CORNER	smCorners(i,j,4,n) = smTr (i-OLx,sNy+j,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	182	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	184	GAD_SOM_PREP_CS_CORNER	smVol(i-OLx,j-OLy,k ) = smCorners(i,j,1,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	185	GAD_SOM_PREP_CS_CORNER	smTr0(i-OLx,j-OLy,k ) = smCorners(i,j,1, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	187	GAD_SOM_PREP_CS_CORNER	smTr(i-OLx,j-OLy,k,bi,bj,n) = smCorners(i,j,1, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	193	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	195	GAD_SOM_PREP_CS_CORNER	smVol(sNx+i,j-OLy,k ) = smCorners(i,j,2,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	196	GAD_SOM_PREP_CS_CORNER	smTr0(sNx+i,j-OLy,k ) = smCorners(i,j,2, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	198	GAD_SOM_PREP_CS_CORNER	smTr(sNx+i,j-OLy,k,bi,bj,n) = smCorners(i,j,2, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	204	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	206	GAD_SOM_PREP_CS_CORNER	smVol(sNx+i,sNy+j,k ) = smCorners(i,j,3,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	207	GAD_SOM_PREP_CS_CORNER	smTr0(sNx+i,sNy+j,k ) = smCorners(i,j,3, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	209	GAD_SOM_PREP_CS_CORNER	smTr(sNx+i,sNy+j,k,bi,bj,n) = smCorners(i,j,3, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	215	GAD_SOM_PREP_CS_CORNER	DO j=1,OLy
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	217	GAD_SOM_PREP_CS_CORNER	smVol(i-OLx,sNy+j,k ) = smCorners(i,j,4,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	218	GAD_SOM_PREP_CS_CORNER	smTr0(i-OLx,sNy+j,k ) = smCorners(i,j,4, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	220	GAD_SOM_PREP_CS_CORNER	smTr(i-OLx,sNy+j,k,bi,bj,n) = smCorners(i,j,4, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F	62	GAD_SOM_PREP_CS_CORNER	INTEGER i,j, jPass, n
./pkg/generic_advdiff/gad_u3_adv_r.F	54	GAD_U3_ADV_R	INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_u3_adv_r.F	63	GAD_U3_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_u3_adv_r.F	65	GAD_U3_ADV_R	wT(i,j) = 0.
./pkg/generic_advdiff/gad_u3_adv_r.F	69	GAD_U3_ADV_R	DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_u3_adv_r.F	71	GAD_U3_ADV_R	Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_r.F	72	GAD_U3_ADV_R	Rj = (tracer(i,j, k )-tracer(i,j,km1))
./pkg/generic_advdiff/gad_u3_adv_r.F	73	GAD_U3_ADV_R	Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_r.F	76	GAD_U3_ADV_R	wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_u3_adv_r.F	77	GAD_U3_ADV_R	& rTrans(i,j)( (tracer(i,j,k)+tracer(i,j,km1))0.5 _d 0
./pkg/generic_advdiff/gad_u3_adv_r.F	79	GAD_U3_ADV_R	& +ABS(rTrans(i,j))*
./pkg/generic_advdiff/gad_u3_adv_x.F	53	GAD_U3_ADV_X	INTEGER i,j
./pkg/generic_advdiff/gad_u3_adv_x.F	57	GAD_U3_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_u3_adv_x.F	58	GAD_U3_ADV_X	uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_u3_adv_x.F	59	GAD_U3_ADV_X	uT(2-Olx,j)=0.
./pkg/generic_advdiff/gad_u3_adv_x.F	60	GAD_U3_ADV_X	uT(sNx+Olx,j)=0.
./pkg/generic_advdiff/gad_u3_adv_x.F	62	GAD_U3_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_u3_adv_x.F	64	GAD_U3_ADV_X	Rjp = (tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_u3_adv_x.F	65	GAD_U3_ADV_X	Rj = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_u3_adv_x.F	66	GAD_U3_ADV_X	Rjm = (tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_u3_adv_x.F	69	GAD_U3_ADV_X	uT(i,j) =
./pkg/generic_advdiff/gad_u3_adv_x.F	70	GAD_U3_ADV_X	& uTrans(i,j)*(
./pkg/generic_advdiff/gad_u3_adv_x.F	71	GAD_U3_ADV_X	& Tracer(i,j)+Tracer(i-1,j)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_u3_adv_x.F	73	GAD_U3_ADV_X	& +ABS( uTrans(i,j) )0.5 _d 0oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_u3_adv_y.F	53	GAD_U3_ADV_Y	INTEGER i,j
./pkg/generic_advdiff/gad_u3_adv_y.F	62	GAD_U3_ADV_Y	DO j=1-Oly+2,sNy+Oly-1
./pkg/generic_advdiff/gad_u3_adv_y.F	64	GAD_U3_ADV_Y	Rjp = (tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_u3_adv_y.F	65	GAD_U3_ADV_Y	Rj = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_u3_adv_y.F	66	GAD_U3_ADV_Y	Rjm = (tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_u3_adv_y.F	69	GAD_U3_ADV_Y	vT(i,j) =
./pkg/generic_advdiff/gad_u3_adv_y.F	70	GAD_U3_ADV_Y	& vTrans(i,j)*(
./pkg/generic_advdiff/gad_u3_adv_y.F	71	GAD_U3_ADV_Y	& Tracer(i,j)+Tracer(i,j-1)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_u3_adv_y.F	73	GAD_U3_ADV_Y	& +ABS( vTrans(i,j) )0.5 _d 0oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_u3c4_impl_r.F	100	GAD_U3C4_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_u3c4_impl_r.F	102	GAD_U3C4_IMPL_R	rCenter2D(i,j) =
./pkg/generic_advdiff/gad_u3c4_impl_r.F	103	GAD_U3C4_IMPL_R	& 0.5 _d 0 rTrans(i,j)recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3c4_impl_r.F	104	GAD_U3C4_IMPL_R	mskM = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_u3c4_impl_r.F	105	GAD_U3C4_IMPL_R	mskP = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_u3c4_impl_r.F	107	GAD_U3C4_IMPL_R	rUpwind2D(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_u3c4_impl_r.F	108	GAD_U3C4_IMPL_R	rC4km2D (i,j) = oneSixthrCentermskM
./pkg/generic_advdiff/gad_u3c4_impl_r.F	109	GAD_U3C4_IMPL_R	rC4kp2D (i,j) = oneSixthrCentermskP
./pkg/generic_advdiff/gad_u3c4_impl_r.F	111	GAD_U3C4_IMPL_R	wCFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_u3c4_impl_r.F	112	GAD_U3C4_IMPL_R	& recip_rA(i,j,bi,bj)recip_drC(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	115	GAD_U3C4_IMPL_R	rUpwind2D(i,j) = (2. _d 0rHigh )ABS(rCenter)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	116	GAD_U3C4_IMPL_R	rC4km2D (i,j) = rHigh * (rCenter+ABS(rCenter))*mskM
./pkg/generic_advdiff/gad_u3c4_impl_r.F	117	GAD_U3C4_IMPL_R	rC4kp2D (i,j) = rHigh * (rCenter-ABS(rCenter))*mskP
./pkg/generic_advdiff/gad_u3c4_impl_r.F	119	GAD_U3C4_IMPL_R	rUpwind2D(i,j) = 2. _d 0oneSixthABS(rCenter)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	120	GAD_U3C4_IMPL_R	rC4km2D (i,j) = oneSixth(rCenter+ABS(rCenter))mskM
./pkg/generic_advdiff/gad_u3c4_impl_r.F	121	GAD_U3C4_IMPL_R	rC4kp2D (i,j) = oneSixth(rCenter-ABS(rCenter))mskP
./pkg/generic_advdiff/gad_u3c4_impl_r.F	126	GAD_U3C4_IMPL_R	DO j=jMin,jMax
./pkg/generic_advdiff/gad_u3c4_impl_r.F	129	GAD_U3C4_IMPL_R	rC4km = rC4km2D (i,j)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	130	GAD_U3C4_IMPL_R	rC4kp = rC4kp2D (i,j)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	131	GAD_U3C4_IMPL_R	rCenter = rCenter2D(i,j)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	132	GAD_U3C4_IMPL_R	rUpwind = rUpwind2D(i,j)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	134	GAD_U3C4_IMPL_R	rCenter= 0.5 _d 0 rTrans(i,j)recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3c4_impl_r.F	135	GAD_U3C4_IMPL_R	mskM = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_u3c4_impl_r.F	136	GAD_U3C4_IMPL_R	mskP = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_u3c4_impl_r.F	142	GAD_U3C4_IMPL_R	wCFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_u3c4_impl_r.F	143	GAD_U3C4_IMPL_R	& recip_rA(i,j,bi,bj)recip_drC(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	155	GAD_U3C4_IMPL_R	a5d(i,j,k) = a5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	158	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	159	GAD_U3C4_IMPL_R	b5d(i,j,k) = b5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	162	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	163	GAD_U3C4_IMPL_R	c5d(i,j,k) = c5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	166	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	167	GAD_U3C4_IMPL_R	d5d(i,j,k) = d5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	170	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k)recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	171	GAD_U3C4_IMPL_R	b5d(i,j,k-1) = b5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	174	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	175	GAD_U3C4_IMPL_R	c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	178	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	179	GAD_U3C4_IMPL_R	d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	182	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	183	GAD_U3C4_IMPL_R	e5d(i,j,k-1) = e5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	186	GAD_U3C4_IMPL_R	& recip_hFac(i,j,k-1)recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F	72	GAD_U3C4_IMPL_R	INTEGER i,j,kp1,km2
./pkg/generic_advdiff/salt_fill.F	101	SALT_FILL	if(salt(i,j,1,bi,bj).lt.0.0 _d 0)
./pkg/generic_advdiff/salt_fill.F	102	SALT_FILL	. salt(i,j,1,bi,bj) = 0.0 _d 0
./pkg/generic_advdiff/salt_fill.F	62	SALT_FILL	INTEGER bi,bj,i,j,L,LM1
./pkg/generic_advdiff/salt_fill.F	88	SALT_FILL	do j=1,sNy
./pkg/generic_advdiff/salt_fill.F	90	SALT_FILL	if( salt(i,j,L,bi,bj).lt.0.0 _d 0) then
./pkg/generic_advdiff/salt_fill.F	91	SALT_FILL	salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) +
./pkg/generic_advdiff/salt_fill.F	92	SALT_FILL	. salt(i,j,L,bi,bj)*dpratio
./pkg/generic_advdiff/salt_fill.F	93	SALT_FILL	salt(i,j,L,bi,bj) = 0.0 _d 0
./pkg/generic_advdiff/salt_fill.F	99	SALT_FILL	do j=1,sNy
./pkg/ggl90/ggl90_calc.F	137	GGL90_CALC	DO j=1-OLy,sNy+OLy
./pkg/ggl90/ggl90_calc.F	139	GGL90_CALC	KappaE(i,j,k) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	140	GGL90_CALC	TKEPrandtlNumber(i,j,k) = 1. _d 0
./pkg/ggl90/ggl90_calc.F	141	GGL90_CALC	GGL90mixingLength(i,j,k) = GGL90mixingLengthMin
./pkg/ggl90/ggl90_calc.F	142	GGL90_CALC	GGL90visctmp(i,j,k) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	144	GGL90_CALC	a3d(i,j,k) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	145	GGL90_CALC	b3d(i,j,k) = 1. _d 0
./pkg/ggl90/ggl90_calc.F	146	GGL90_CALC	c3d(i,j,k) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	151	GGL90_CALC	DO j=1-OLy,sNy+OLy
./pkg/ggl90/ggl90_calc.F	153	GGL90_CALC	totalDepth(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F	154	GGL90_CALC	rMixingLength(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	155	GGL90_CALC	mxLength_Dn(i,j,1) = GGL90mixingLengthMin
./pkg/ggl90/ggl90_calc.F	156	GGL90_CALC	SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) )
./pkg/ggl90/ggl90_calc.F	164	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	166	GGL90_CALC	SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) )
./pkg/ggl90/ggl90_calc.F	169	GGL90_CALC	Nsquare(i,j,k) = gravitygravitySignrecip_rhoConst
./pkg/ggl90/ggl90_calc.F	170	GGL90_CALC	& * sigmaR(i,j,k)
./pkg/ggl90/ggl90_calc.F	185	GGL90_CALC	GGL90mixingLength(i,j,k) = SQRTTWO *
./pkg/ggl90/ggl90_calc.F	186	GGL90_CALC	& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) )
./pkg/ggl90/ggl90_calc.F	193	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	195	GGL90_CALC	GGL90mixingLength(i,j,2)=drF(1)
./pkg/ggl90/ggl90_calc.F	204	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	206	GGL90_CALC	MaxLength=totalDepth(i,j)
./pkg/ggl90/ggl90_calc.F	207	GGL90_CALC	GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	214	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	216	GGL90_CALC	GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	218	GGL90_CALC	rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F	226	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	228	GGL90_CALC	MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj))
./pkg/ggl90/ggl90_calc.F	230	GGL90_CALC	GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	237	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	239	GGL90_CALC	GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	241	GGL90_CALC	rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F	249	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	251	GGL90_CALC	GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	252	GGL90_CALC	& GGL90mixingLength(i,j,k-1)+drF(k-1))
./pkg/ggl90/ggl90_calc.F	256	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	258	GGL90_CALC	GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr),
./pkg/ggl90/ggl90_calc.F	263	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	265	GGL90_CALC	GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	266	GGL90_CALC	& GGL90mixingLength(i,j,k+1)+drF(k))
./pkg/ggl90/ggl90_calc.F	272	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	274	GGL90_CALC	GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	276	GGL90_CALC	rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F	284	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	286	GGL90_CALC	mxLength_Dn(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	287	GGL90_CALC	& mxLength_Dn(i,j,k-1)+drF(k-1))
./pkg/ggl90/ggl90_calc.F	291	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	293	GGL90_CALC	GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr),
./pkg/ggl90/ggl90_calc.F	298	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	300	GGL90_CALC	GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	301	GGL90_CALC	& GGL90mixingLength(i,j,k+1)+drF(k))
./pkg/ggl90/ggl90_calc.F	307	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	309	GGL90_CALC	GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F	310	GGL90_CALC	& mxLength_Dn(i,j,k))
./pkg/ggl90/ggl90_calc.F	311	GGL90_CALC	tmpmlx = SQRT( GGL90mixingLength(i,j,k)*mxLength_Dn(i,j,k) )
./pkg/ggl90/ggl90_calc.F	313	GGL90_CALC	rMixingLength(i,j,k) = 1. _d 0 / tmpmlx
./pkg/ggl90/ggl90_calc.F	341	GGL90_CALC	DO j=1-OLy,sNy+OLy
./pkg/ggl90/ggl90_calc.F	343	GGL90_CALC	xA(i,j) = _dyG(i,j,bi,bj)drC(k)
./pkg/ggl90/ggl90_calc.F	344	GGL90_CALC	& (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F	345	GGL90_CALC	& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) )
./pkg/ggl90/ggl90_calc.F	346	GGL90_CALC	yA(i,j) = _dxG(i,j,bi,bj)drC(k)
./pkg/ggl90/ggl90_calc.F	347	GGL90_CALC	& (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F	348	GGL90_CALC	& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) )
./pkg/ggl90/ggl90_calc.F	353	GGL90_CALC	DO j=1-OLy,sNy+OLy
./pkg/ggl90/ggl90_calc.F	354	GGL90_CALC	dfx(1-OLx,j)=0. _d 0
./pkg/ggl90/ggl90_calc.F	356	GGL90_CALC	dfx(i,j) = -GGL90diffTKEh*xA(i,j)
./pkg/ggl90/ggl90_calc.F	357	GGL90_CALC	& *_recip_dxC(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F	358	GGL90_CALC	& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj))
./pkg/ggl90/ggl90_calc.F	360	GGL90_CALC	& *CosFacU(j,bi,bj)
./pkg/ggl90/ggl90_calc.F	368	GGL90_CALC	DO j=1-OLy+1,sNy+OLy
./pkg/ggl90/ggl90_calc.F	370	GGL90_CALC	dfy(i,j) = -GGL90diffTKEh*yA(i,j)
./pkg/ggl90/ggl90_calc.F	371	GGL90_CALC	& *_recip_dyC(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F	372	GGL90_CALC	& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj))
./pkg/ggl90/ggl90_calc.F	374	GGL90_CALC	& *CosFacV(j,bi,bj)
./pkg/ggl90/ggl90_calc.F	379	GGL90_CALC	DO j=1-OLy,sNy+OLy-1
./pkg/ggl90/ggl90_calc.F	381	GGL90_CALC	hFac = min(.5 _d 0,_hFacC(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F	382	GGL90_CALC	& min(.5 _d 0,_hFacC(i,j,k ,bi,bj) )
./pkg/ggl90/ggl90_calc.F	383	GGL90_CALC	gTKE(i,j) = 0.0
./pkg/ggl90/ggl90_calc.F	385	GGL90_CALC	& gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj)/hFac
./pkg/ggl90/ggl90_calc.F	386	GGL90_CALC	& *((dfx(i+1,j)-dfx(i,j))
./pkg/ggl90/ggl90_calc.F	387	GGL90_CALC	& +(dfy(i,j+1)-dfy(i,j)) )
./pkg/ggl90/ggl90_calc.F	394	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	397	GGL90_CALC	tempU= .5 _d 0*( uVel(i,j,km1,bi,bj)+uVel(i+1,j,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F	398	GGL90_CALC	& -( uVel(i,j,k ,bi,bj)+uVel(i+1,j,k ,bi,bj)) )
./pkg/ggl90/ggl90_calc.F	400	GGL90_CALC	tempV= .5 _d 0*( vVel(i,j,km1,bi,bj)+vVel(i,j+1,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F	401	GGL90_CALC	& -( vVel(i,j,k ,bi,bj)+vVel(i,j+1,k ,bi,bj)) )
./pkg/ggl90/ggl90_calc.F	404	GGL90_CALC	RiNumber = MAX(Nsquare(i,j,k),0. _d 0)/(verticalShear+GGL90eps)
./pkg/ggl90/ggl90_calc.F	408	GGL90_CALC	TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp)
./pkg/ggl90/ggl90_calc.F	412	GGL90_CALC	KappaM = GGL90ckGGL90mixingLength(i,j,k)SQRTTKE(i,j,k)
./pkg/ggl90/ggl90_calc.F	413	GGL90_CALC	GGL90visctmp(i,j,k) = MAX(KappaM,diffKrNrT(k))
./pkg/ggl90/ggl90_calc.F	414	GGL90_CALC	& * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	417	GGL90_CALC	KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	418	GGL90_CALC	KappaH = KappaM/TKEPrandtlNumber(i,j,k)
./pkg/ggl90/ggl90_calc.F	419	GGL90_CALC	KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	423	GGL90_CALC	& SQRTTKE(i,j,k)rMixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F	424	GGL90_CALC	& *GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	426	GGL90_CALC	GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	429	GGL90_CALC	& - KappaH*Nsquare(i,j,k)
./pkg/ggl90/ggl90_calc.F	438	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	440	GGL90_CALC	GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	441	GGL90_CALC	& + gTKE(i,j)*deltaTggl90
./pkg/ggl90/ggl90_calc.F	456	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	458	GGL90_CALC	a3d(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	463	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	468	GGL90_CALC	a3d(i,j,k) = -deltaTggl90
./pkg/ggl90/ggl90_calc.F	469	GGL90_CALC	& recip_drF(k-1)recip_hFacC(i,j,k-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	470	GGL90_CALC	& .5 _d 0(KappaE(i,j, k )+KappaE(i,j,km1))
./pkg/ggl90/ggl90_calc.F	471	GGL90_CALC	& recip_drC(k)maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	476	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	478	GGL90_CALC	c3d(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	482	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	484	GGL90_CALC	kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1))
./pkg/ggl90/ggl90_calc.F	488	GGL90_CALC	c3d(i,j,k) = -deltaTggl90
./pkg/ggl90/ggl90_calc.F	489	GGL90_CALC	& recip_drF( k ) recip_hFacC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	490	GGL90_CALC	& .5 _d 0(KappaE(i,j,k)+KappaE(i,j,kp1))
./pkg/ggl90/ggl90_calc.F	491	GGL90_CALC	& recip_drC(k)maskC(i,j,k-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	498	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	500	GGL90_CALC	b3d(i,j,k) = 1. _d 0 - c3d(i,j,k) - a3d(i,j,k)
./pkg/ggl90/ggl90_calc.F	501	GGL90_CALC	& + implDissFacdeltaTggl90GGL90ceps*SQRTTKE(i,j,k)
./pkg/ggl90/ggl90_calc.F	502	GGL90_CALC	& * rMixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F	503	GGL90_CALC	& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F	511	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	515	GGL90_CALC	& ( .5 _d 0*( surfaceForcingU(i, j, bi,bj)
./pkg/ggl90/ggl90_calc.F	516	GGL90_CALC	& + surfaceForcingU(i+1,j, bi,bj) ) )**2
./pkg/ggl90/ggl90_calc.F	517	GGL90_CALC	& + ( .5 _d 0*( surfaceForcingV(i, j, bi,bj)
./pkg/ggl90/ggl90_calc.F	518	GGL90_CALC	& + surfaceForcingV(i, j+1,bi,bj) ) )**2
./pkg/ggl90/ggl90_calc.F	521	GGL90_CALC	GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F	523	GGL90_CALC	GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj)
./pkg/ggl90/ggl90_calc.F	524	GGL90_CALC	& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F	525	GGL90_CALC	a3d(i,j,kp1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	527	GGL90_CALC	kBottom = MAX(kLowC(i,j,bi,bj),1)
./pkg/ggl90/ggl90_calc.F	528	GGL90_CALC	GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj)
./pkg/ggl90/ggl90_calc.F	529	GGL90_CALC	& - GGL90TKEbottom*c3d(i,j,kBottom)
./pkg/ggl90/ggl90_calc.F	530	GGL90_CALC	c3d(i,j,kBottom) = 0. _d 0
./pkg/ggl90/ggl90_calc.F	542	GGL90_CALC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F	545	GGL90_CALC	GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F	546	GGL90_CALC	& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin )
./pkg/ggl90/ggl90_calc.F	555	GGL90_CALC	DO j=1,sNy
./pkg/ggl90/ggl90_calc.F	560	GGL90_CALC	& p4 * GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	561	GGL90_CALC	& +p8 ( GGL90visctmp(i-1,j ,k) mskCor(i-1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	562	GGL90_CALC	& + GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	563	GGL90_CALC	& + GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	564	GGL90_CALC	& + GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F	565	GGL90_CALC	& +p16( GGL90visctmp(i+1,j+1,k) mskCor(i+1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F	566	GGL90_CALC	& + GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	567	GGL90_CALC	& + GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F	568	GGL90_CALC	& + GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F	571	GGL90_CALC	& +p8 ( maskC(i-1,j ,k,bi,bj) mskCor(i-1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	572	GGL90_CALC	& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	573	GGL90_CALC	& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	574	GGL90_CALC	& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F	575	GGL90_CALC	& +p16( maskC(i+1,j+1,k,bi,bj) mskCor(i+1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F	576	GGL90_CALC	& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	577	GGL90_CALC	& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F	578	GGL90_CALC	& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F	579	GGL90_CALC	& )maskC(i,j,k,bi,bj)mskCor(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F	581	GGL90_CALC	tmpVisc = GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc.F	583	GGL90_CALC	tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax)
./pkg/ggl90/ggl90_calc.F	584	GGL90_CALC	GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrT(k) )
./pkg/ggl90/ggl90_calc.F	590	GGL90_CALC	DO j=1,sNy
./pkg/ggl90/ggl90_calc.F	595	GGL90_CALC	& p4 (GGL90visctmp(i ,j ,k) mskCor(i ,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	596	GGL90_CALC	& +GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj))
./pkg/ggl90/ggl90_calc.F	597	GGL90_CALC	& +p8 (GGL90visctmp(i-1,j-1,k) mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	598	GGL90_CALC	& +GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F	599	GGL90_CALC	& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	600	GGL90_CALC	& +GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F	603	GGL90_CALC	& +p8 ( maskC(i-1,j-1,k,bi,bj) mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	604	GGL90_CALC	& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F	605	GGL90_CALC	& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	606	GGL90_CALC	& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F	608	GGL90_CALC	& maskC(i ,j,k,bi,bj)mskCor(i ,j,bi,bj)
./pkg/ggl90/ggl90_calc.F	609	GGL90_CALC	& maskC(i-1,j,k,bi,bj)mskCor(i-1,j,bi,bj)
./pkg/ggl90/ggl90_calc.F	611	GGL90_CALC	tmpVisc = _maskW(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc.F	612	GGL90_CALC	& (.5 _d 0*(GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc.F	613	GGL90_CALC	& +GGL90visctmp(i-1,j,k))
./pkg/ggl90/ggl90_calc.F	617	GGL90_CALC	GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) )
./pkg/ggl90/ggl90_calc.F	623	GGL90_CALC	DO j=1,sNy+1
./pkg/ggl90/ggl90_calc.F	628	GGL90_CALC	& p4 (GGL90visctmp(i ,j ,k) mskCor(i ,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	629	GGL90_CALC	& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F	630	GGL90_CALC	& +p8 (GGL90visctmp(i-1,j ,k) mskCor(i-1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	631	GGL90_CALC	& +GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	632	GGL90_CALC	& +GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	633	GGL90_CALC	& +GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F	636	GGL90_CALC	& +p8 ( maskC(i-1,j ,k,bi,bj) mskCor(i-1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	637	GGL90_CALC	& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	638	GGL90_CALC	& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	639	GGL90_CALC	& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F	641	GGL90_CALC	& maskC(i,j ,k,bi,bj)mskCor(i,j ,bi,bj)
./pkg/ggl90/ggl90_calc.F	642	GGL90_CALC	& maskC(i,j-1,k,bi,bj)mskCor(i,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F	644	GGL90_CALC	tmpVisc = _maskS(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc.F	645	GGL90_CALC	& (.5 _d 0*(GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc.F	646	GGL90_CALC	& +GGL90visctmp(i,j-1,k))
./pkg/ggl90/ggl90_calc.F	651	GGL90_CALC	GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) )
./pkg/ggl90/ggl90_calc.F	78	GGL90_CALC	INTEGER i, j, k, kp1, km1, kSurf, kBottom
./pkg/ggl90/ggl90_calc_diff.F	45	GGL90_CALC_DIFF	INTEGER i,j,k
./pkg/ggl90/ggl90_calc_diff.F	51	GGL90_CALC_DIFF	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc_diff.F	53	GGL90_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/ggl90/ggl90_calc_diff.F	54	GGL90_CALC_DIFF	& +( GGL90diffKr(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc_diff.F	62	GGL90_CALC_DIFF	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc_diff.F	64	GGL90_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/ggl90/ggl90_calc_diff.F	65	GGL90_CALC_DIFF	& +( GGL90diffKr(i,j,kArg,bi,bj)
./pkg/ggl90/ggl90_calc_visc.F	40	GGL90_CALC_VISC	INTEGER i,j
./pkg/ggl90/ggl90_calc_visc.F	47	GGL90_CALC_VISC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc_visc.F	49	GGL90_CALC_VISC	KappaRU(i,j,k) = KappaRU(i,j,k) +
./pkg/ggl90/ggl90_calc_visc.F	50	GGL90_CALC_VISC	& (GGL90viscArU(i,j,k,bi,bj) - viscArNr(k) )
./pkg/ggl90/ggl90_calc_visc.F	54	GGL90_CALC_VISC	DO j=jMin,jMax
./pkg/ggl90/ggl90_calc_visc.F	56	GGL90_CALC_VISC	KappaRV(i,j,k) = KappaRV(i,j,k) + _maskS(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc_visc.F	57	GGL90_CALC_VISC	& (GGL90viscArV(i,j,k,bi,bj) - viscArNr(k) )
./pkg/ggl90/ggl90_init_fixed.F	31	GGL90_INIT_FIXED	INTEGER i, j, bi, bj
./pkg/ggl90/ggl90_init_fixed.F	49	GGL90_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/ggl90/ggl90_init_fixed.F	51	GGL90_INIT_FIXED	mskCor(i,j,bi,bj) = 1. _d 0
./pkg/gmredi/gmredi_calc_diff.F	49	GMREDI_CALC_DIFF	INTEGER i,j,k
./pkg/gmredi/gmredi_calc_diff.F	55	GMREDI_CALC_DIFF	DO j=jMin,jMax
./pkg/gmredi/gmredi_calc_diff.F	58	GMREDI_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	59	GMREDI_CALC_DIFF	& *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	62	GMREDI_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	64	GMREDI_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	66	GMREDI_CALC_DIFF	& *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	74	GMREDI_CALC_DIFF	DO j=jMin,jMax
./pkg/gmredi/gmredi_calc_diff.F	77	GMREDI_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	78	GMREDI_CALC_DIFF	& *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	81	GMREDI_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	83	GMREDI_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F	85	GMREDI_CALC_DIFF	& *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_eigs.F	102	GMREDI_CALC_EIGS	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_eigs.F	103	GMREDI_CALC_EIGS	fCori2(i,j) = fCori(i,j,bi,bj)*fCori(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_eigs.F	108	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	111	GMREDI_CALC_EIGS	vec(m,i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	123	GMREDI_CALC_EIGS	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_eigs.F	125	GMREDI_CALC_EIGS	IF (kLow(i,j) .GT. 0) THEN
./pkg/gmredi/gmredi_calc_eigs.F	127	GMREDI_CALC_EIGS	a3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	128	GMREDI_CALC_EIGS	c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	129	GMREDI_CALC_EIGS	& recip_drC(k+1)recip_drF(k)/N2(i,j,k+1)
./pkg/gmredi/gmredi_calc_eigs.F	130	GMREDI_CALC_EIGS	b3d(i,j,k) = -c3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	132	GMREDI_CALC_EIGS	ELSEIF (k.LT.kLow(i,j)) THEN
./pkg/gmredi/gmredi_calc_eigs.F	133	GMREDI_CALC_EIGS	a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	134	GMREDI_CALC_EIGS	& recip_drF(k)recip_drC(k)/N2(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	135	GMREDI_CALC_EIGS	c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	136	GMREDI_CALC_EIGS	& recip_drF(k)recip_drC(k+1)/N2(i,j,k+1)
./pkg/gmredi/gmredi_calc_eigs.F	137	GMREDI_CALC_EIGS	b3d(i,j,k) = -a3d(i,j,k)-c3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	139	GMREDI_CALC_EIGS	ELSEIF (k.EQ.kLow(i,j)) THEN
./pkg/gmredi/gmredi_calc_eigs.F	140	GMREDI_CALC_EIGS	a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	141	GMREDI_CALC_EIGS	& recip_drF(k)recip_drC(k)/N2(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	142	GMREDI_CALC_EIGS	c3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	143	GMREDI_CALC_EIGS	b3d(i,j,k) = -a3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	146	GMREDI_CALC_EIGS	a3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	147	GMREDI_CALC_EIGS	b3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	148	GMREDI_CALC_EIGS	c3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	152	GMREDI_CALC_EIGS	a3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	153	GMREDI_CALC_EIGS	b3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	154	GMREDI_CALC_EIGS	c3d(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	160	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	162	GMREDI_CALC_EIGS	IF (kLow(i,j).GT.0) THEN
./pkg/gmredi/gmredi_calc_eigs.F	170	GMREDI_CALC_EIGS	array(k,k) = b3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	171	GMREDI_CALC_EIGS	array(k,k+1) = c3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	173	GMREDI_CALC_EIGS	array(k,k-1) = a3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	174	GMREDI_CALC_EIGS	array(k,k) = b3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	175	GMREDI_CALC_EIGS	array(k,k+1) = c3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	178	GMREDI_CALC_EIGS	array(k,k-1) = a3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	179	GMREDI_CALC_EIGS	array(k,k) = b3d(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	186	GMREDI_CALC_EIGS	& '(',i,',',j,')', 'error code =',info
./pkg/gmredi/gmredi_calc_eigs.F	192	GMREDI_CALC_EIGS	& '(',i,',',j,')', 'error code =',info
./pkg/gmredi/gmredi_calc_eigs.F	203	GMREDI_CALC_EIGS	DO k=1,kLow(i,j)
./pkg/gmredi/gmredi_calc_eigs.F	206	GMREDI_CALC_EIGS	DO m=1,MIN(nmodes,klow(i,j)-1)
./pkg/gmredi/gmredi_calc_eigs.F	207	GMREDI_CALC_EIGS	DO k=1,kLow(i,j)
./pkg/gmredi/gmredi_calc_eigs.F	215	GMREDI_CALC_EIGS	vec(m,i,j,k) = -vecs(k,idx)
./pkg/gmredi/gmredi_calc_eigs.F	219	GMREDI_CALC_EIGS	vec(m,i,j,k) = vecs(k,idx)
./pkg/gmredi/gmredi_calc_eigs.F	223	GMREDI_CALC_EIGS	val(i,j) = eigval(1)
./pkg/gmredi/gmredi_calc_eigs.F	225	GMREDI_CALC_EIGS	val(i,j)=zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	228	GMREDI_CALC_EIGS	vec(m,i,j,k)=zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	237	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	239	GMREDI_CALC_EIGS	IF (kLow(i,j).GT.2 .AND. val(i,j).NE.zeroRL) THEN
./pkg/gmredi/gmredi_calc_eigs.F	240	GMREDI_CALC_EIGS	Rmid(i,j) = 1.0/(SQRT(ABS(val(i,j)))+small)
./pkg/gmredi/gmredi_calc_eigs.F	242	GMREDI_CALC_EIGS	Rmid(i,j) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	250	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	252	GMREDI_CALC_EIGS	BuoyFreq(i,j,k) = mask(i,j,k)*SQRT(N2(i,j,k))
./pkg/gmredi/gmredi_calc_eigs.F	257	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	259	GMREDI_CALC_EIGS	BuoyFreq(i,j,k) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	269	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	271	GMREDI_CALC_EIGS	intN(i,j,k) = op5BuoyFreq(i,j,k)drNr
./pkg/gmredi/gmredi_calc_eigs.F	275	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	277	GMREDI_CALC_EIGS	intN(i,j,k) = intN(i,j,k+1)
./pkg/gmredi/gmredi_calc_eigs.F	278	GMREDI_CALC_EIGS	& + drC(k)( op25BuoyFreq(i,j,k+2) + op5*BuoyFreq(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	279	GMREDI_CALC_EIGS	& + op25*BuoyFreq(i,j,k+1) )
./pkg/gmredi/gmredi_calc_eigs.F	287	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	289	GMREDI_CALC_EIGS	intN0(i,j) = intN(i,j,1)
./pkg/gmredi/gmredi_calc_eigs.F	290	GMREDI_CALC_EIGS	& + drC(1)op5BuoyFreq(i,j,2)
./pkg/gmredi/gmredi_calc_eigs.F	294	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	296	GMREDI_CALC_EIGS	c1(i,j) = intN0(i,j)/pi
./pkg/gmredi/gmredi_calc_eigs.F	297	GMREDI_CALC_EIGS	Rmid(i,j) = c1(i,j)/ABS(fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_eigs.F	301	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	303	GMREDI_CALC_EIGS	nEigs(i,j) = MIN(klow(i,j),nmodes)
./pkg/gmredi/gmredi_calc_eigs.F	307	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	309	GMREDI_CALC_EIGS	IF (mask(i,j,k).NE.0.0) THEN
./pkg/gmredi/gmredi_calc_eigs.F	310	GMREDI_CALC_EIGS	DO m=1,nEigs(i,j)
./pkg/gmredi/gmredi_calc_eigs.F	311	GMREDI_CALC_EIGS	vec(m,i,j,k) = -COS(intN(i,j,k)/(m*c1(i,j)))
./pkg/gmredi/gmredi_calc_eigs.F	320	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	322	GMREDI_CALC_EIGS	DO m=1,nEigs(i,j)
./pkg/gmredi/gmredi_calc_eigs.F	323	GMREDI_CALC_EIGS	vecint(m,i,j) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	328	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	330	GMREDI_CALC_EIGS	DO m=1,nEigs(i,j)
./pkg/gmredi/gmredi_calc_eigs.F	331	GMREDI_CALC_EIGS	vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)vec(m,i,j,k)drF(k)
./pkg/gmredi/gmredi_calc_eigs.F	336	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	338	GMREDI_CALC_EIGS	DO m=1,nEigs(i,j)
./pkg/gmredi/gmredi_calc_eigs.F	339	GMREDI_CALC_EIGS	vecint(m,i,j) = vecint(m,i,j)/(-rlow(i,j)+small)
./pkg/gmredi/gmredi_calc_eigs.F	344	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	346	GMREDI_CALC_EIGS	DO m=1,nEigs(i,j)
./pkg/gmredi/gmredi_calc_eigs.F	347	GMREDI_CALC_EIGS	vec(m,i,j,k) = vec(m,i,j,k) - vecint(m,i,j)
./pkg/gmredi/gmredi_calc_eigs.F	355	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	358	GMREDI_CALC_EIGS	vecint(m,i,j) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F	364	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	367	GMREDI_CALC_EIGS	vecint(m,i,j) = vecint(m,i,j) +
./pkg/gmredi/gmredi_calc_eigs.F	368	GMREDI_CALC_EIGS	& mask(i,j,k)drF(k)hfac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	369	GMREDI_CALC_EIGS	& vec(m,i,j,k)vec(m,i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F	375	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	378	GMREDI_CALC_EIGS	vecint(m,i,j) = SQRT(vecint(m,i,j))
./pkg/gmredi/gmredi_calc_eigs.F	384	GMREDI_CALC_EIGS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_eigs.F	387	GMREDI_CALC_EIGS	vec(m,i,j,k) = vec(m,i,j,k)/(vecint(m,i,j)+small)
./pkg/gmredi/gmredi_calc_eigs.F	52	GMREDI_CALC_EIGS	INTEGER i,j,k,kk,m
./pkg/gmredi/gmredi_calc_psi_b.F	100	GMREDI_CALC_PSI_B	dSigmaDrW(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F	101	GMREDI_CALC_PSI_B	dSigmaDrS(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F	107	GMREDI_CALC_PSI_B	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_b.F	109	GMREDI_CALC_PSI_B	SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F	110	GMREDI_CALC_PSI_B	& *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	111	GMREDI_CALC_PSI_B	dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F	112	GMREDI_CALC_PSI_B	& *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	115	GMREDI_CALC_PSI_B	DO j=1-OLy+1,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_b.F	117	GMREDI_CALC_PSI_B	SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F	118	GMREDI_CALC_PSI_B	& *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	119	GMREDI_CALC_PSI_B	dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F	120	GMREDI_CALC_PSI_B	& *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	142	GMREDI_CALC_PSI_B	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_b.F	144	GMREDI_CALC_PSI_B	GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F	146	GMREDI_CALC_PSI_B	& *( kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	149	GMREDI_CALC_PSI_B	& *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F	152	GMREDI_CALC_PSI_B	& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F	154	GMREDI_CALC_PSI_B	& )*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	156	GMREDI_CALC_PSI_B	& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	160	GMREDI_CALC_PSI_B	DO j=1-OLy+1,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_b.F	162	GMREDI_CALC_PSI_B	GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F	164	GMREDI_CALC_PSI_B	& *( kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	167	GMREDI_CALC_PSI_B	& *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F	170	GMREDI_CALC_PSI_B	& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F	172	GMREDI_CALC_PSI_B	& )*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	174	GMREDI_CALC_PSI_B	& +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F	61	GMREDI_CALC_PSI_B	INTEGER i,j,k, km1
./pkg/gmredi/gmredi_calc_psi_b.F	96	GMREDI_CALC_PSI_B	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_b.F	98	GMREDI_CALC_PSI_B	SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F	99	GMREDI_CALC_PSI_B	SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	100	GMREDI_CALC_PSI_BVP	GM_c3d(i,j,k) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	110	GMREDI_CALC_PSI_BVP	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	112	GMREDI_CALC_PSI_BVP	sigmaX_W = op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_bvp.F	113	GMREDI_CALC_PSI_BVP	& *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	114	GMREDI_CALC_PSI_BVP	dSigmaDrW = op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_bvp.F	115	GMREDI_CALC_PSI_BVP	& *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	117	GMREDI_CALC_PSI_BVP	wkb_cW(i,j) = wkb_cW(i,j)
./pkg/gmredi/gmredi_calc_psi_bvp.F	122	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = MAX( -dSigmaDrW, GM_Small_Number )
./pkg/gmredi/gmredi_calc_psi_bvp.F	125	GMREDI_CALC_PSI_BVP	GM_PsiX(i,j,k,bi,bj) = half_K*sigmaX_W
./pkg/gmredi/gmredi_calc_psi_bvp.F	126	GMREDI_CALC_PSI_BVP	& *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_bvp.F	140	GMREDI_CALC_PSI_BVP	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	142	GMREDI_CALC_PSI_BVP	IF ( maskW(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_psi_bvp.F	143	GMREDI_CALC_PSI_BVP	c2 = MAX( wkb_cW(i,j)*wkb_cW(i,j), GM_BVP_cHat2Min )
./pkg/gmredi/gmredi_calc_psi_bvp.F	144	GMREDI_CALC_PSI_BVP	GM_a3d(i,j,k) = -c2*recip_drC(k)
./pkg/gmredi/gmredi_calc_psi_bvp.F	145	GMREDI_CALC_PSI_BVP	& recip_drF(km1)recip_hFacW(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	146	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = GM_b3d(i,j,k)
./pkg/gmredi/gmredi_calc_psi_bvp.F	148	GMREDI_CALC_PSI_BVP	& (recip_drF(km1)recip_hFacW(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	149	GMREDI_CALC_PSI_BVP	& +recip_drF(k)*recip_hFacW(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_calc_psi_bvp.F	150	GMREDI_CALC_PSI_BVP	GM_c3d(i,j,k) = -c2*recip_drC(k)
./pkg/gmredi/gmredi_calc_psi_bvp.F	151	GMREDI_CALC_PSI_BVP	& recip_drF(k)recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	153	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = 1. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	175	GMREDI_CALC_PSI_BVP	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	177	GMREDI_CALC_PSI_BVP	GM_a3d(i,j,k) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	178	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = 1. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	179	GMREDI_CALC_PSI_BVP	GM_c3d(i,j,k) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	188	GMREDI_CALC_PSI_BVP	DO j=1-OLy+1,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	190	GMREDI_CALC_PSI_BVP	sigmaY_W = op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_bvp.F	191	GMREDI_CALC_PSI_BVP	& *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	192	GMREDI_CALC_PSI_BVP	dSigmaDrS = op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_bvp.F	193	GMREDI_CALC_PSI_BVP	& *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	195	GMREDI_CALC_PSI_BVP	wkb_cS(i,j) = wkb_cS(i,j)
./pkg/gmredi/gmredi_calc_psi_bvp.F	200	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = MAX( -dSigmaDrS, GM_Small_Number )
./pkg/gmredi/gmredi_calc_psi_bvp.F	203	GMREDI_CALC_PSI_BVP	GM_PsiY(i,j,k,bi,bj) = half_K*sigmaY_W
./pkg/gmredi/gmredi_calc_psi_bvp.F	204	GMREDI_CALC_PSI_BVP	& *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_bvp.F	211	GMREDI_CALC_PSI_BVP	DO j=1-OLy+1,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	213	GMREDI_CALC_PSI_BVP	IF ( maskS(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_psi_bvp.F	214	GMREDI_CALC_PSI_BVP	c2 = MAX( wkb_cS(i,j)*wkb_cS(i,j), GM_BVP_cHat2Min )
./pkg/gmredi/gmredi_calc_psi_bvp.F	215	GMREDI_CALC_PSI_BVP	GM_a3d(i,j,k) = -c2*recip_drC(k)
./pkg/gmredi/gmredi_calc_psi_bvp.F	216	GMREDI_CALC_PSI_BVP	& recip_drF(km1)recip_hFacS(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	217	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = GM_b3d(i,j,k)
./pkg/gmredi/gmredi_calc_psi_bvp.F	219	GMREDI_CALC_PSI_BVP	& (recip_drF(km1)recip_hFacS(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	220	GMREDI_CALC_PSI_BVP	& +recip_drF(k)*recip_hFacS(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_calc_psi_bvp.F	221	GMREDI_CALC_PSI_BVP	GM_c3d(i,j,k) = -c2*recip_drC(k)
./pkg/gmredi/gmredi_calc_psi_bvp.F	222	GMREDI_CALC_PSI_BVP	& recip_drF(k)recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F	224	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = 1. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	51	GMREDI_CALC_PSI_BVP	INTEGER i,j,k, km1
./pkg/gmredi/gmredi_calc_psi_bvp.F	79	GMREDI_CALC_PSI_BVP	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	81	GMREDI_CALC_PSI_BVP	wkb_cW(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	82	GMREDI_CALC_PSI_BVP	wkb_cS(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	87	GMREDI_CALC_PSI_BVP	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	89	GMREDI_CALC_PSI_BVP	GM_PsiX(i,j,1,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	90	GMREDI_CALC_PSI_BVP	GM_PsiY(i,j,1,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	96	GMREDI_CALC_PSI_BVP	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_psi_bvp.F	98	GMREDI_CALC_PSI_BVP	GM_a3d(i,j,k) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F	99	GMREDI_CALC_PSI_BVP	GM_b3d(i,j,k) = 1. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	1000	GMREDI_CALC_TENSOR	& ( maskC(i,j-1,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	1001	GMREDI_CALC_TENSOR	& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	1002	GMREDI_CALC_TENSOR	& +maskC(i, j ,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	1003	GMREDI_CALC_TENSOR	& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	1005	GMREDI_CALC_TENSOR	tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F	1006	GMREDI_CALC_TENSOR	& * _hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	1007	GMREDI_CALC_TENSOR	& * tmp1k(i,j) * dTdz
./pkg/gmredi/gmredi_calc_tensor.F	1097	GMREDI_CALC_TENSOR_DUMMY	INTEGER i, j, k
./pkg/gmredi/gmredi_calc_tensor.F	1100	GMREDI_CALC_TENSOR_DUMMY	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	1102	GMREDI_CALC_TENSOR_DUMMY	Kwx(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F	1103	GMREDI_CALC_TENSOR_DUMMY	Kwy(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F	1104	GMREDI_CALC_TENSOR_DUMMY	Kwz(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F	149	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	151	GMREDI_CALC_TENSOR	VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	163	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	165	GMREDI_CALC_TENSOR	IF (fCori(i,j,bi,bj).NE.0.) THEN
./pkg/gmredi/gmredi_calc_tensor.F	166	GMREDI_CALC_TENSOR	ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	168	GMREDI_CALC_TENSOR	ldd97_LrhoC(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F	170	GMREDI_CALC_TENSOR	ldd97_LrhoC(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoC(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F	174	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	175	GMREDI_CALC_TENSOR	kLow_W(1-OLx,j) = 0
./pkg/gmredi/gmredi_calc_tensor.F	176	GMREDI_CALC_TENSOR	ldd97_LrhoW(1-OLx,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F	178	GMREDI_CALC_TENSOR	kLow_W(i,j) = MIN(kLowC(i-1,j,bi,bj),kLowC(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	179	GMREDI_CALC_TENSOR	fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	181	GMREDI_CALC_TENSOR	ldd97_LrhoW(i,j) = Cspd/ABS(fCoriLoc)
./pkg/gmredi/gmredi_calc_tensor.F	183	GMREDI_CALC_TENSOR	ldd97_LrhoW(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F	185	GMREDI_CALC_TENSOR	ldd97_LrhoW(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoW(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F	193	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	195	GMREDI_CALC_TENSOR	kLow_S(i,j) = MIN(kLowC(i,j-1,bi,bj),kLowC(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	196	GMREDI_CALC_TENSOR	fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	198	GMREDI_CALC_TENSOR	ldd97_LrhoS(i,j) = Cspd/ABS(fCoriLoc)
./pkg/gmredi/gmredi_calc_tensor.F	200	GMREDI_CALC_TENSOR	ldd97_LrhoS(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F	202	GMREDI_CALC_TENSOR	ldd97_LrhoS(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoS(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F	207	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	209	GMREDI_CALC_TENSOR	ldd97_LrhoC(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	210	GMREDI_CALC_TENSOR	ldd97_LrhoW(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	211	GMREDI_CALC_TENSOR	ldd97_LrhoS(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	218	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	220	GMREDI_CALC_TENSOR	GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	221	GMREDI_CALC_TENSOR	GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	228	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	230	GMREDI_CALC_TENSOR	Kwx(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	231	GMREDI_CALC_TENSOR	Kwy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	232	GMREDI_CALC_TENSOR	Kwz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	234	GMREDI_CALC_TENSOR	Kux(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	235	GMREDI_CALC_TENSOR	Kvy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	238	GMREDI_CALC_TENSOR	Kuz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	239	GMREDI_CALC_TENSOR	Kvz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	247	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	249	GMREDI_CALC_TENSOR	hTransLay(i,j) = R_low(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	250	GMREDI_CALC_TENSOR	baseSlope(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	251	GMREDI_CALC_TENSOR	recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	252	GMREDI_CALC_TENSOR	locMixLayer(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	257	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	259	GMREDI_CALC_TENSOR	locMixLayer(i,j) = KPPhbl(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	266	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	268	GMREDI_CALC_TENSOR	locMixLayer(i,j) = hMixLayer(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	296	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	298	GMREDI_CALC_TENSOR	SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	299	GMREDI_CALC_TENSOR	SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	300	GMREDI_CALC_TENSOR	dSigmaDx(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	301	GMREDI_CALC_TENSOR	dSigmaDy(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	302	GMREDI_CALC_TENSOR	dSigmaDr(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	303	GMREDI_CALC_TENSOR	SlopeSqr(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	304	GMREDI_CALC_TENSOR	taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	309	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	312	GMREDI_CALC_TENSOR	dSigmaDx(i,j)=op25*( sigmaX(i+1,j,k-1)+sigmaX(i,j,k-1)
./pkg/gmredi/gmredi_calc_tensor.F	313	GMREDI_CALC_TENSOR	& +sigmaX(i+1,j, k )+sigmaX(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F	314	GMREDI_CALC_TENSOR	& )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	315	GMREDI_CALC_TENSOR	dSigmaDy(i,j)=op25*( sigmaY(i,j+1,k-1)+sigmaY(i,j,k-1)
./pkg/gmredi/gmredi_calc_tensor.F	316	GMREDI_CALC_TENSOR	& +sigmaY(i,j+1, k )+sigmaY(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F	317	GMREDI_CALC_TENSOR	& )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	327	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	329	GMREDI_CALC_TENSOR	dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 )
./pkg/gmredi/gmredi_calc_tensor.F	341	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	343	GMREDI_CALC_TENSOR	IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_tensor.F	344	GMREDI_CALC_TENSOR	integrDepth = -rC( kLowC(i,j,bi,bj) )
./pkg/gmredi/gmredi_calc_tensor.F	361	GMREDI_CALC_TENSOR	dSigmaR = ( dSigmaDr(i,j)*4. _d 0
./pkg/gmredi/gmredi_calc_tensor.F	362	GMREDI_CALC_TENSOR	& + dSigmaDr(i-1,j)
./pkg/gmredi/gmredi_calc_tensor.F	363	GMREDI_CALC_TENSOR	& + dSigmaDr(i+1,j)
./pkg/gmredi/gmredi_calc_tensor.F	364	GMREDI_CALC_TENSOR	& + dSigmaDr(i,j-1)
./pkg/gmredi/gmredi_calc_tensor.F	365	GMREDI_CALC_TENSOR	& + dSigmaDr(i,j+1)
./pkg/gmredi/gmredi_calc_tensor.F	367	GMREDI_CALC_TENSOR	& + maskC(i-1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	368	GMREDI_CALC_TENSOR	& + maskC(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	369	GMREDI_CALC_TENSOR	& + maskC(i,j-1,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	370	GMREDI_CALC_TENSOR	& + maskC(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	372	GMREDI_CALC_TENSOR	dSigmaH = dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	373	GMREDI_CALC_TENSOR	& + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	394	GMREDI_CALC_TENSOR	VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	403	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	405	GMREDI_CALC_TENSOR	dSigmaDr(i,j)=sigmaR(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F	429	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	432	GMREDI_CALC_TENSOR	SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	433	GMREDI_CALC_TENSOR	SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	434	GMREDI_CALC_TENSOR	SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	447	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	449	GMREDI_CALC_TENSOR	Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	450	GMREDI_CALC_TENSOR	Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	451	GMREDI_CALC_TENSOR	Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	457	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	462	GMREDI_CALC_TENSOR	Ssq(i,j)=SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	478	GMREDI_CALC_TENSOR	IF ( Ssq(i,j).NE.0. .AND. dSigmaDr(i,j).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_tensor.F	479	GMREDI_CALC_TENSOR	N2loc = -gravityrecip_rhoConstdSigmaDr(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	480	GMREDI_CALC_TENSOR	SNloc = SQRT(Ssq(i,j)*N2loc )
./pkg/gmredi/gmredi_calc_tensor.F	481	GMREDI_CALC_TENSOR	VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	500	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	502	GMREDI_CALC_TENSOR	VisbeckK(i,j,bi,bj)=
./pkg/gmredi/gmredi_calc_tensor.F	503	GMREDI_CALC_TENSOR	& MIN( MAX( VisbeckK(i,j,bi,bj), GM_Visbeck_minVal_K ),
./pkg/gmredi/gmredi_calc_tensor.F	531	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	534	GMREDI_CALC_TENSOR	Kgm_tmp = kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	536	GMREDI_CALC_TENSOR	Kgm_tmp = isopycK*GM_isoFac2d(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	539	GMREDI_CALC_TENSOR	& + GM_skewflx*kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	541	GMREDI_CALC_TENSOR	& + GM_skewflxbolus_KGM_bolFac2d(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	544	GMREDI_CALC_TENSOR	& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx)
./pkg/gmredi/gmredi_calc_tensor.F	547	GMREDI_CALC_TENSOR	& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	550	GMREDI_CALC_TENSOR	Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	551	GMREDI_CALC_TENSOR	Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	553	GMREDI_CALC_TENSOR	Kwz(i,j,k,bi,bj)= ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	555	GMREDI_CALC_TENSOR	Kwz(i,j,k,bi,bj)= ( isopycK*GM_isoFac2d(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	558	GMREDI_CALC_TENSOR	& + VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	561	GMREDI_CALC_TENSOR	& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	563	GMREDI_CALC_TENSOR	& )*Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	623	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	625	GMREDI_CALC_TENSOR	locMixLayer(i,j) = ( KPPhbl(i-1,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	626	GMREDI_CALC_TENSOR	& + KPPhbl( i ,j,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F	633	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	635	GMREDI_CALC_TENSOR	locMixLayer(i,j) = ( hMixLayer(i-1,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	636	GMREDI_CALC_TENSOR	& + hMixLayer( i ,j,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F	640	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	642	GMREDI_CALC_TENSOR	hTransLay(i,j) = 0.
./pkg/gmredi/gmredi_calc_tensor.F	643	GMREDI_CALC_TENSOR	baseSlope(i,j) = 0.
./pkg/gmredi/gmredi_calc_tensor.F	644	GMREDI_CALC_TENSOR	recipLambda(i,j)= 0.
./pkg/gmredi/gmredi_calc_tensor.F	647	GMREDI_CALC_TENSOR	hTransLay(i,j) = MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) )
./pkg/gmredi/gmredi_calc_tensor.F	660	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	662	GMREDI_CALC_TENSOR	dSigmaDx(i,j)=sigmaX(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F	663	GMREDI_CALC_TENSOR	& *_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	664	GMREDI_CALC_TENSOR	dSigmaDy(i,j)=op25*( sigmaY(i-1,j+1,k)+sigmaY(i,j+1,k)
./pkg/gmredi/gmredi_calc_tensor.F	665	GMREDI_CALC_TENSOR	& +sigmaY(i-1, j ,k)+sigmaY(i, j ,k)
./pkg/gmredi/gmredi_calc_tensor.F	666	GMREDI_CALC_TENSOR	& )*_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	667	GMREDI_CALC_TENSOR	dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F	668	GMREDI_CALC_TENSOR	& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1
./pkg/gmredi/gmredi_calc_tensor.F	669	GMREDI_CALC_TENSOR	& )*_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	702	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	704	GMREDI_CALC_TENSOR	Kux(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F	706	GMREDI_CALC_TENSOR	& ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	709	GMREDI_CALC_TENSOR	& op5(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	712	GMREDI_CALC_TENSOR	& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	715	GMREDI_CALC_TENSOR	& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	717	GMREDI_CALC_TENSOR	& )*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	725	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	727	GMREDI_CALC_TENSOR	Kux(i,j,k,bi,bj) = MAX( Kux(i,j,k,bi,bj), GM_Kmin_horiz )
./pkg/gmredi/gmredi_calc_tensor.F	72	GMREDI_CALC_TENSOR	INTEGER i,j,k
./pkg/gmredi/gmredi_calc_tensor.F	740	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	742	GMREDI_CALC_TENSOR	Kuz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F	744	GMREDI_CALC_TENSOR	& ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	747	GMREDI_CALC_TENSOR	& op5(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	750	GMREDI_CALC_TENSOR	& - GM_skewflx*kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	753	GMREDI_CALC_TENSOR	& op5(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	756	GMREDI_CALC_TENSOR	& +op5(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))GM_advect
./pkg/gmredi/gmredi_calc_tensor.F	759	GMREDI_CALC_TENSOR	& +op5(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))GM_advect
./pkg/gmredi/gmredi_calc_tensor.F	761	GMREDI_CALC_TENSOR	& )SlopeX(i,j)taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	770	GMREDI_CALC_TENSOR	DO j=1,sNy
./pkg/gmredi/gmredi_calc_tensor.F	774	GMREDI_CALC_TENSOR	tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	776	GMREDI_CALC_TENSOR	tmp1k(i,j) = ( GM_isopycK*GM_isoFac1d(k)
./pkg/gmredi/gmredi_calc_tensor.F	777	GMREDI_CALC_TENSOR	& op5(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	780	GMREDI_CALC_TENSOR	& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F	783	GMREDI_CALC_TENSOR	& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	785	GMREDI_CALC_TENSOR	& )SlopeX(i,j)taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	788	GMREDI_CALC_TENSOR	DO j=1,sNy
./pkg/gmredi/gmredi_calc_tensor.F	793	GMREDI_CALC_TENSOR	& ( maskC(i-1,j,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	794	GMREDI_CALC_TENSOR	& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	795	GMREDI_CALC_TENSOR	& +maskC( i ,j,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	796	GMREDI_CALC_TENSOR	& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	799	GMREDI_CALC_TENSOR	& ( maskC(i-1,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	800	GMREDI_CALC_TENSOR	& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	801	GMREDI_CALC_TENSOR	& +maskC( i ,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	802	GMREDI_CALC_TENSOR	& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	804	GMREDI_CALC_TENSOR	tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F	805	GMREDI_CALC_TENSOR	& * _hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	806	GMREDI_CALC_TENSOR	& * tmp1k(i,j) * dTdz
./pkg/gmredi/gmredi_calc_tensor.F	821	GMREDI_CALC_TENSOR	DO j=2-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	823	GMREDI_CALC_TENSOR	locMixLayer(i,j) = ( KPPhbl(i,j-1,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	824	GMREDI_CALC_TENSOR	& + KPPhbl(i, j ,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F	831	GMREDI_CALC_TENSOR	DO j=2-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	833	GMREDI_CALC_TENSOR	locMixLayer(i,j) = ( hMixLayer(i,j-1,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	834	GMREDI_CALC_TENSOR	& + hMixLayer(i, j ,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F	838	GMREDI_CALC_TENSOR	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	840	GMREDI_CALC_TENSOR	hTransLay(i,j) = 0.
./pkg/gmredi/gmredi_calc_tensor.F	841	GMREDI_CALC_TENSOR	baseSlope(i,j) = 0.
./pkg/gmredi/gmredi_calc_tensor.F	842	GMREDI_CALC_TENSOR	recipLambda(i,j)= 0.
./pkg/gmredi/gmredi_calc_tensor.F	845	GMREDI_CALC_TENSOR	DO j=2-OLy,sNy+OLy
./pkg/gmredi/gmredi_calc_tensor.F	847	GMREDI_CALC_TENSOR	hTransLay(i,j) = MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) )
./pkg/gmredi/gmredi_calc_tensor.F	860	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	862	GMREDI_CALC_TENSOR	dSigmaDx(i,j)=op25*( sigmaX(i, j ,k) +sigmaX(i+1, j ,k)
./pkg/gmredi/gmredi_calc_tensor.F	863	GMREDI_CALC_TENSOR	& +sigmaX(i,j-1,k) +sigmaX(i+1,j-1,k)
./pkg/gmredi/gmredi_calc_tensor.F	864	GMREDI_CALC_TENSOR	& )*_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	865	GMREDI_CALC_TENSOR	dSigmaDy(i,j)=sigmaY(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F	866	GMREDI_CALC_TENSOR	& *_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	867	GMREDI_CALC_TENSOR	dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F	868	GMREDI_CALC_TENSOR	& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1
./pkg/gmredi/gmredi_calc_tensor.F	869	GMREDI_CALC_TENSOR	& )*_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	903	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	905	GMREDI_CALC_TENSOR	Kvy(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F	907	GMREDI_CALC_TENSOR	& ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	910	GMREDI_CALC_TENSOR	& op5(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	913	GMREDI_CALC_TENSOR	& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	916	GMREDI_CALC_TENSOR	& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	918	GMREDI_CALC_TENSOR	& )*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	926	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	928	GMREDI_CALC_TENSOR	Kvy(i,j,k,bi,bj) = MAX( Kvy(i,j,k,bi,bj), GM_Kmin_horiz )
./pkg/gmredi/gmredi_calc_tensor.F	941	GMREDI_CALC_TENSOR	DO j=1-OLy+1,sNy+OLy-1
./pkg/gmredi/gmredi_calc_tensor.F	943	GMREDI_CALC_TENSOR	Kvz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F	945	GMREDI_CALC_TENSOR	& ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	948	GMREDI_CALC_TENSOR	& op5(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	951	GMREDI_CALC_TENSOR	& - GM_skewflx*kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	954	GMREDI_CALC_TENSOR	& op5(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	957	GMREDI_CALC_TENSOR	& +op5(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))GM_advect
./pkg/gmredi/gmredi_calc_tensor.F	960	GMREDI_CALC_TENSOR	& +op5(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))GM_advect
./pkg/gmredi/gmredi_calc_tensor.F	962	GMREDI_CALC_TENSOR	& )SlopeY(i,j)taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	971	GMREDI_CALC_TENSOR	DO j=1,sNy+1
./pkg/gmredi/gmredi_calc_tensor.F	975	GMREDI_CALC_TENSOR	tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F	977	GMREDI_CALC_TENSOR	tmp1k(i,j) = ( GM_isopycK*GM_isoFac1d(k)
./pkg/gmredi/gmredi_calc_tensor.F	978	GMREDI_CALC_TENSOR	& op5(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	981	GMREDI_CALC_TENSOR	& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F	984	GMREDI_CALC_TENSOR	& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	986	GMREDI_CALC_TENSOR	& )SlopeY(i,j)taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F	989	GMREDI_CALC_TENSOR	DO j=1,sNy+1
./pkg/gmredi/gmredi_calc_tensor.F	994	GMREDI_CALC_TENSOR	& ( maskC(i,j-1,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	995	GMREDI_CALC_TENSOR	& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F	996	GMREDI_CALC_TENSOR	& +maskC(i, j ,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F	997	GMREDI_CALC_TENSOR	& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj))
./pkg/gmredi/gmredi_calc_urms.F	43	GMREDI_CALC_URMS	INTEGER i,j,k
./pkg/gmredi/gmredi_calc_urms.F	50	GMREDI_CALC_URMS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_urms.F	52	GMREDI_CALC_URMS	bbc(i,j) = zeroRL
./pkg/gmredi/gmredi_calc_urms.F	58	GMREDI_CALC_URMS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_urms.F	60	GMREDI_CALC_URMS	k = kLowC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_urms.F	62	GMREDI_CALC_URMS	const(i,j) = (urms(i,j,k)-urms(i,j,1))
./pkg/gmredi/gmredi_calc_urms.F	63	GMREDI_CALC_URMS	& /(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj))
./pkg/gmredi/gmredi_calc_urms.F	65	GMREDI_CALC_URMS	const(i,j) = zeroRL
./pkg/gmredi/gmredi_calc_urms.F	71	GMREDI_CALC_URMS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_urms.F	73	GMREDI_CALC_URMS	IF (k.LT.kLowC(i,j,bi,bj)) THEN
./pkg/gmredi/gmredi_calc_urms.F	74	GMREDI_CALC_URMS	urms(i,j,k) = urms(i,j,1) +
./pkg/gmredi/gmredi_calc_urms.F	75	GMREDI_CALC_URMS	& const(i,j)*(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj))
./pkg/gmredi/gmredi_calc_urms.F	77	GMREDI_CALC_URMS	urms(i,j,k)=zeroRL
./pkg/gmredi/gmredi_calc_urms.F	84	GMREDI_CALC_URMS	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_urms.F	86	GMREDI_CALC_URMS	if (kLowC(i,j,bi,bj).EQ.0) urms(i,j,1) = zeroRL
./pkg/gmredi/gmredi_diagnostics_fill.F	39	GMREDI_DIAGNOSTICS_FILL	INTEGER i,j,k
./pkg/gmredi/gmredi_diagnostics_fill.F	77	GMREDI_DIAGNOSTICS_FILL	DO j = 1, sny
./pkg/gmredi/gmredi_diagnostics_fill.F	79	GMREDI_DIAGNOSTICS_FILL	tmpfld3dloc(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_diagnostics_fill.F	80	GMREDI_DIAGNOSTICS_FILL	& 0.5rhoConstfCori(i,j,bi,bj)*
./pkg/gmredi/gmredi_diagnostics_fill.F	81	GMREDI_DIAGNOSTICS_FILL	& Kwy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_diagnostics_fill.F	91	GMREDI_DIAGNOSTICS_FILL	DO j = 1, sny
./pkg/gmredi/gmredi_diagnostics_fill.F	93	GMREDI_DIAGNOSTICS_FILL	tmpfld3dloc(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_diagnostics_fill.F	94	GMREDI_DIAGNOSTICS_FILL	& -0.5rhoConstfCori(i,j,bi,bj)*
./pkg/gmredi/gmredi_diagnostics_fill.F	95	GMREDI_DIAGNOSTICS_FILL	& Kwx(i,j,k,bi,bj)
./pkg/gmredi/gmredi_diagnostics_impl.F	45	GMREDI_DIAGNOSTICS_IMPL	INTEGER i,j,k
./pkg/gmredi/gmredi_diagnostics_impl.F	58	GMREDI_DIAGNOSTICS_IMPL	DO j = 1, sNy
./pkg/gmredi/gmredi_diagnostics_impl.F	60	GMREDI_DIAGNOSTICS_IMPL	tmpVar(i,j) = -recip_drC(k)*rkSign
./pkg/gmredi/gmredi_diagnostics_impl.F	61	GMREDI_DIAGNOSTICS_IMPL	& *(theta(i,j,k,bi,bj)-theta(i,j,k-1,bi,bj))
./pkg/gmredi/gmredi_diagnostics_impl.F	62	GMREDI_DIAGNOSTICS_IMPL	& * maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_diagnostics_impl.F	63	GMREDI_DIAGNOSTICS_IMPL	tmpVar(i,j) = tmpVar(i,j)*Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_diagnostics_impl.F	64	GMREDI_DIAGNOSTICS_IMPL	& *rA(i,j,bi,bj)
./pkg/gmredi/gmredi_init_fixed.F	42	GMREDI_INIT_FIXED	INTEGER i,j,k
./pkg/gmredi/gmredi_init_fixed.F	48	GMREDI_INIT_FIXED	DO j=1-Oly,sNy+OLy
./pkg/gmredi/gmredi_init_fixed.F	50	GMREDI_INIT_FIXED	GM_isoFac2d(i,j,bi,bj) = 1. _d 0
./pkg/gmredi/gmredi_init_fixed.F	51	GMREDI_INIT_FIXED	GM_bolFac2d(i,j,bi,bj) = 1. _d 0
./pkg/gmredi/gmredi_init_varia.F	39	GMREDI_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/gmredi/gmredi_init_varia.F	46	GMREDI_INIT_VARIA	DO j=1-Oly,sNy+OLy
./pkg/gmredi/gmredi_init_varia.F	48	GMREDI_INIT_VARIA	Kwx(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	49	GMREDI_INIT_VARIA	Kwy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	50	GMREDI_INIT_VARIA	Kwz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	52	GMREDI_INIT_VARIA	Kuz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	53	GMREDI_INIT_VARIA	Kvz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	56	GMREDI_INIT_VARIA	Kux(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	57	GMREDI_INIT_VARIA	Kvy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	60	GMREDI_INIT_VARIA	GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	61	GMREDI_INIT_VARIA	GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	64	GMREDI_INIT_VARIA	VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F	67	GMREDI_INIT_VARIA	K3D(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_k3d.F	1001	GMREDI_K3D	& (uKdqdyInt(i,j)-uInt(i,j)*KdqdyInt(i,j)/R_low(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F	1002	GMREDI_K3D	& -(vKdqdxInt(i,j)-vInt(i,j)*KdqdxInt(i,j)/R_low(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F	1003	GMREDI_K3D	denominator = uXiyInt(i,j) - vXixInt(i,j)
./pkg/gmredi/gmredi_k3d.F	1012	GMREDI_K3D	Renorm(i,j) = ABS(numerator/denominator)
./pkg/gmredi/gmredi_k3d.F	1013	GMREDI_K3D	Renorm(i,j) = MAX(Renorm(i,j),GM_K3D_minRenorm)
./pkg/gmredi/gmredi_k3d.F	1014	GMREDI_K3D	Renorm(i,j) = MIN(Renorm(i,j),GM_K3D_maxRenorm)
./pkg/gmredi/gmredi_k3d.F	1020	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_k3d.F	1022	GMREDI_K3D	RenormU(i,j) = op5*(Renorm(i-1,j)+Renorm(i,j))
./pkg/gmredi/gmredi_k3d.F	1023	GMREDI_K3D	RenormV(i,j) = op5*(Renorm(i,j-1)+Renorm(i,j))
./pkg/gmredi/gmredi_k3d.F	1029	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	1031	GMREDI_K3D	ustar(i,j,k) = -RenormU(i,j)*Xix(i,j,k)/coriU(i,j)
./pkg/gmredi/gmredi_k3d.F	1038	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	1040	GMREDI_K3D	vstar(i,j,k) = -RenormV(i,j)*Xiy(i,j,k)/coriV(i,j)
./pkg/gmredi/gmredi_k3d.F	1050	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	1052	GMREDI_K3D	psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)drF(k)vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F	1056	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	1058	GMREDI_K3D	psistar(i,j,k) = psistar(i,j,k+1)
./pkg/gmredi/gmredi_k3d.F	1059	GMREDI_K3D	& - hfacS(i,j,k,bi,bj)drF(k)vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F	1068	GMREDI_K3D	DO j=1-Oly+1,sNy+1
./pkg/gmredi/gmredi_k3d.F	1070	GMREDI_K3D	GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)drF(k)ustar(i,j,k)
./pkg/gmredi/gmredi_k3d.F	1071	GMREDI_K3D	GM_PsiY(i,j,k,bi,bj) = -hfacS(i,j,k,bi,bj)drF(k)vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F	1075	GMREDI_K3D	DO j=1-Oly+1,sNy+1
./pkg/gmredi/gmredi_k3d.F	1077	GMREDI_K3D	GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k+1,bi,bj)
./pkg/gmredi/gmredi_k3d.F	1078	GMREDI_K3D	& - hfacW(i,j,k,bi,bj)drF(k)ustar(i,j,k)
./pkg/gmredi/gmredi_k3d.F	1079	GMREDI_K3D	GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k+1,bi,bj)
./pkg/gmredi/gmredi_k3d.F	1080	GMREDI_K3D	& - hfacS(i,j,k,bi,bj)drF(k)vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F	1132	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	1134	GMREDI_K3D	K3D(i,j,k,bi,bj) = GM_K3D_constK
./pkg/gmredi/gmredi_k3d.F	222	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	224	GMREDI_K3D	kLow_C(i,j) = kLowC(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	227	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	229	GMREDI_K3D	kLow_U(i,j) = MIN( kLow_C(i,j), kLow_C(i-1,j) )
./pkg/gmredi/gmredi_k3d.F	232	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	234	GMREDI_K3D	kLow_V(i,j) = MIN( kLow_C(i,j), kLow_C(i,j-1) )
./pkg/gmredi/gmredi_k3d.F	241	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	242	GMREDI_K3D	kLow_U(i,j) = 0
./pkg/gmredi/gmredi_k3d.F	244	GMREDI_K3D	j=1-Oly
./pkg/gmredi/gmredi_k3d.F	246	GMREDI_K3D	kLow_V(i,j) = 0
./pkg/gmredi/gmredi_k3d.F	251	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	253	GMREDI_K3D	dfdx(i,j) = ( fCori(i,j,bi,bj)-fCori(i-1,j,bi,bj) )
./pkg/gmredi/gmredi_k3d.F	254	GMREDI_K3D	& *recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	255	GMREDI_K3D	dfdy(i,j) = ( fCori(i,j,bi,bj)-fCori(i,j-1,bi,bj) )
./pkg/gmredi/gmredi_k3d.F	256	GMREDI_K3D	& *recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	262	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	264	GMREDI_K3D	cori(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ),
./pkg/gmredi/gmredi_k3d.F	265	GMREDI_K3D	& fCori(i,j,bi,bj) )
./pkg/gmredi/gmredi_k3d.F	269	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	272	GMREDI_K3D	coriU(i,j) = op5*( cori(i,j)+cori(i-1,j) )
./pkg/gmredi/gmredi_k3d.F	273	GMREDI_K3D	coriU(i,j) = SIGN( MAX( ABS(coriU(i,j)),GM_K3D_minCori ),
./pkg/gmredi/gmredi_k3d.F	274	GMREDI_K3D	& coriU(i,j) )
./pkg/gmredi/gmredi_k3d.F	277	GMREDI_K3D	fCoriU(i,j) = op5*( fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj) )
./pkg/gmredi/gmredi_k3d.F	280	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	283	GMREDI_K3D	coriV(i,j) = op5*( cori(i,j)+cori(i,j-1) )
./pkg/gmredi/gmredi_k3d.F	284	GMREDI_K3D	coriV(i,j) = SIGN( MAX( ABS(coriV(i,j)),GM_K3D_minCori ),
./pkg/gmredi/gmredi_k3d.F	285	GMREDI_K3D	& coriV(i,j) )
./pkg/gmredi/gmredi_k3d.F	288	GMREDI_K3D	fCoriV(i,j) = op5*( fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj) )
./pkg/gmredi/gmredi_k3d.F	291	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	293	GMREDI_K3D	gradf(i,j) = recip_rSphere*fCoriCos(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	298	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	299	GMREDI_K3D	coriU(i,j)=cori(i,j)
./pkg/gmredi/gmredi_k3d.F	300	GMREDI_K3D	fCoriU(i,j)=fCori(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	302	GMREDI_K3D	j=1-Oly
./pkg/gmredi/gmredi_k3d.F	304	GMREDI_K3D	coriV(i,j)=cori(i,j)
./pkg/gmredi/gmredi_k3d.F	305	GMREDI_K3D	fCoriV(i,j)=fCori(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	309	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	311	GMREDI_K3D	eady(i,j) = zeroRL
./pkg/gmredi/gmredi_k3d.F	312	GMREDI_K3D	BVint(i,j) = zeroRL
./pkg/gmredi/gmredi_k3d.F	313	GMREDI_K3D	Ubaro(i,j) = zeroRL
./pkg/gmredi/gmredi_k3d.F	314	GMREDI_K3D	deltaH(i,j) = zeroRL
./pkg/gmredi/gmredi_k3d.F	318	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	320	GMREDI_K3D	slopeC(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	326	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	328	GMREDI_K3D	dfdy(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	329	GMREDI_K3D	dfdy(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	330	GMREDI_K3D	Rurms(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	331	GMREDI_K3D	RRhines(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	332	GMREDI_K3D	Rmix(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	337	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	339	GMREDI_K3D	N2loc(i,j,k)=GM_K3D_minN2
./pkg/gmredi/gmredi_k3d.F	340	GMREDI_K3D	N2W(i,j,k) = GM_K3D_minN2
./pkg/gmredi/gmredi_k3d.F	341	GMREDI_K3D	N2S(i,j,k) = GM_K3D_minN2
./pkg/gmredi/gmredi_k3d.F	342	GMREDI_K3D	M4loc(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	343	GMREDI_K3D	M4onN2(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	344	GMREDI_K3D	urms(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	345	GMREDI_K3D	SlopeX(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	346	GMREDI_K3D	SlopeY(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	347	GMREDI_K3D	dSigmaDx(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	348	GMREDI_K3D	dSigmaDy(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	349	GMREDI_K3D	gradqx(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	350	GMREDI_K3D	gradqy(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F	372	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	374	GMREDI_K3D	N2(i,j,k) = -gravityrecip_rhoConstsigmaR(i,j,k)
./pkg/gmredi/gmredi_k3d.F	380	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	382	GMREDI_K3D	N2(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	383	GMREDI_K3D	N(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	388	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	390	GMREDI_K3D	IF (N2(i,j,k).LT.GM_K3D_minN2) N2(i,j,k)=GM_K3D_minN2
./pkg/gmredi/gmredi_k3d.F	391	GMREDI_K3D	N(i,j,k) = SQRT(N2(i,j,k))
./pkg/gmredi/gmredi_k3d.F	402	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	404	GMREDI_K3D	Ubaro(i,j) = Ubaro(i,j) +
./pkg/gmredi/gmredi_k3d.F	405	GMREDI_K3D	& maskW(i,j,k,bi,bj)drF(k)hfacC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	406	GMREDI_K3D	& *ubar(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	410	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	412	GMREDI_K3D	IF (kLow_C(i,j).GT.0) THEN
./pkg/gmredi/gmredi_k3d.F	414	GMREDI_K3D	Ubaro(i,j) = -Ubaro(i,j)/r_Low(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	421	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	423	GMREDI_K3D	IF (k.LT.kLow_C(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F	424	GMREDI_K3D	BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F	425	GMREDI_K3D	& *(N(i,j,k)+N(i,j,k+1))
./pkg/gmredi/gmredi_k3d.F	426	GMREDI_K3D	ELSEIF (k.EQ.kLow_C(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F	428	GMREDI_K3D	BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)drF(k)N(i,j,k)
./pkg/gmredi/gmredi_k3d.F	433	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	435	GMREDI_K3D	BVint(i,j) = op5*BVint(i,j)
./pkg/gmredi/gmredi_k3d.F	449	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	451	GMREDI_K3D	Req = SQRT(BVint(i,j)/(2pigradf(i,j)))
./pkg/gmredi/gmredi_k3d.F	452	GMREDI_K3D	Rdef(i,j,bi,bj) = MIN(Rmid(i,j),Req)
./pkg/gmredi/gmredi_k3d.F	460	GMREDI_K3D	DO j=1-Oly,sNy+Oly-1
./pkg/gmredi/gmredi_k3d.F	462	GMREDI_K3D	dSigmaDx(i,j,k) = op5*(sigmaX(i,j,k)+sigmaX(i+1,j,k))
./pkg/gmredi/gmredi_k3d.F	463	GMREDI_K3D	dSigmaDy(i,j,k) = op5*(sigmaY(i,j,k)+sigmaY(i,j+1,k))
./pkg/gmredi/gmredi_k3d.F	473	GMREDI_K3D	DO j=1-Oly,sNy+Oly-1
./pkg/gmredi/gmredi_k3d.F	475	GMREDI_K3D	M4loc(i,j,k) = g_reciprho_sq( dSigmaDx(i,j,k)*2
./pkg/gmredi/gmredi_k3d.F	476	GMREDI_K3D	& +dSigmaDy(i,j,k)**2 )
./pkg/gmredi/gmredi_k3d.F	477	GMREDI_K3D	IF (k.NE.kLow_C(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F	478	GMREDI_K3D	N2loc(i,j,k) = op5*(N2(i,j,k)+N2(i,j,k+1))
./pkg/gmredi/gmredi_k3d.F	480	GMREDI_K3D	N2loc(i,j,k) = op5*N2(i,j,k)
./pkg/gmredi/gmredi_k3d.F	493	GMREDI_K3D	DO j=1-Oly,sNy+Oly-1
./pkg/gmredi/gmredi_k3d.F	495	GMREDI_K3D	IF ( (kLow_C(i,j).GE.k) .AND.
./pkg/gmredi/gmredi_k3d.F	496	GMREDI_K3D	& (-hMixLayer(i,j,bi,bj).LE.-rC(k)) ) THEN
./pkg/gmredi/gmredi_k3d.F	498	GMREDI_K3D	slopeC(i,j,k) = SQRT(M4loc(i,j,k))/N2loc(i,j,k)
./pkg/gmredi/gmredi_k3d.F	500	GMREDI_K3D	IF (slopeC(i,j,k).LE.GM_maxSlope) THEN
./pkg/gmredi/gmredi_k3d.F	501	GMREDI_K3D	M4onN2(i,j,k) = M4loc(i,j,k)/N2loc(i,j,k)
./pkg/gmredi/gmredi_k3d.F	503	GMREDI_K3D	slopeC(i,j,k) = GM_maxslope
./pkg/gmredi/gmredi_k3d.F	504	GMREDI_K3D	M4onN2(i,j,k) = SQRT(M4loc(i,j,k))*GM_maxslope
./pkg/gmredi/gmredi_k3d.F	506	GMREDI_K3D	eady(i,j) = eady(i,j)
./pkg/gmredi/gmredi_k3d.F	507	GMREDI_K3D	& + hfacC(i,j,k,bi,bj)drF(k)M4onN2(i,j,k)
./pkg/gmredi/gmredi_k3d.F	508	GMREDI_K3D	deltaH(i,j) = deltaH(i,j) + drF(k)
./pkg/gmredi/gmredi_k3d.F	514	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	51	GMREDI_K3D	INTEGER i,j,k,kk,m
./pkg/gmredi/gmredi_k3d.F	521	GMREDI_K3D	IF (deltaH(i,j).EQ.zeroRL) THEN
./pkg/gmredi/gmredi_k3d.F	522	GMREDI_K3D	eady(i,j) = small
./pkg/gmredi/gmredi_k3d.F	527	GMREDI_K3D	eady(i,j) = SQRT(eady(i,j)/deltaH(i,j))
./pkg/gmredi/gmredi_k3d.F	537	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	540	GMREDI_K3D	Rurms(i,j) = MIN(Rdef(i,j,bi,bj),GM_K3D_Rmax)
./pkg/gmredi/gmredi_k3d.F	541	GMREDI_K3D	urms(i,j,1) = GM_K3D_Lambdaeady(i,j)Rurms(i,j)
./pkg/gmredi/gmredi_k3d.F	543	GMREDI_K3D	k=kLow_C(i,j)
./pkg/gmredi/gmredi_k3d.F	544	GMREDI_K3D	IF (k.GT.0) urms(i,j,k) = 0.0
./pkg/gmredi/gmredi_k3d.F	547	GMREDI_K3D	RRhines(i,j) = SQRT(urms(i,j,1)/gradf(i,j))
./pkg/gmredi/gmredi_k3d.F	550	GMREDI_K3D	Rmix(i,j) = MIN(Rdef(i,j,bi,bj), RRhines(i,j))
./pkg/gmredi/gmredi_k3d.F	551	GMREDI_K3D	Rmix(i,j) = MAX(Rmix(i,j),GM_K3D_Rmin)
./pkg/gmredi/gmredi_k3d.F	555	GMREDI_K3D	cDopp(i,j) = op5*( Ubaro(i,j)+Ubaro(i+1,j) )
./pkg/gmredi/gmredi_k3d.F	556	GMREDI_K3D	& - gradf(i,j)Rdef(i,j,bi,bj)Rdef(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	558	GMREDI_K3D	IF (ABS(cDopp(i,j)).GT.GM_K3D_maxC) THEN
./pkg/gmredi/gmredi_k3d.F	559	GMREDI_K3D	cDopp(i,j) = MAX(GM_K3D_maxC, cDopp(i,j))
./pkg/gmredi/gmredi_k3d.F	572	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	574	GMREDI_K3D	IF (k.LE.kLow_C(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F	575	GMREDI_K3D	IF (deltaH(i,j).EQ.zeroRL) THEN
./pkg/gmredi/gmredi_k3d.F	576	GMREDI_K3D	K3D(i,j,k,bi,bj) = GM_K3D_smallK
./pkg/gmredi/gmredi_k3d.F	578	GMREDI_K3D	IF (urms(i,j,k).EQ.0.0) THEN
./pkg/gmredi/gmredi_k3d.F	579	GMREDI_K3D	K3D(i,j,k,bi,bj) = GM_K3D_smallK
./pkg/gmredi/gmredi_k3d.F	581	GMREDI_K3D	umc(i,j,k) =ubar(i,j,k,bi,bj) - cDopp(i,j)
./pkg/gmredi/gmredi_k3d.F	582	GMREDI_K3D	supp(i,j,k)=1/(1+GM_K3D_b1umc(i,j,k)2/urms(i,j,1)*2)
./pkg/gmredi/gmredi_k3d.F	584	GMREDI_K3D	K3D(i,j,k,bi,bj) = GM_K3D_gamma*urms(i,j,k)
./pkg/gmredi/gmredi_k3d.F	585	GMREDI_K3D	& 2Rmix(i,j)*supp(i,j,k)
./pkg/gmredi/gmredi_k3d.F	589	GMREDI_K3D	IF (K3D(i,j,k,bi,bj).LT.GM_K3D_smallK)
./pkg/gmredi/gmredi_k3d.F	590	GMREDI_K3D	& K3D(i,j,k,bi,bj) = GM_K3D_smallK
./pkg/gmredi/gmredi_k3d.F	591	GMREDI_K3D	IF (K3D(i,j,k,bi,bj).GT.GM_maxK3D)
./pkg/gmredi/gmredi_k3d.F	592	GMREDI_K3D	& K3D(i,j,k,bi,bj) = GM_maxK3D
./pkg/gmredi/gmredi_k3d.F	607	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	609	GMREDI_K3D	surfkz(i,j) = MIN(-GM_K3D_surfMinDepth,-hMixLayer(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F	610	GMREDI_K3D	surfkz(i,j) = MAX(surfkz(i,j),R_low(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F	611	GMREDI_K3D	IF(maskC(i,j,1,bi,bj).EQ.0.0) surfkz(i,j)=0.0
./pkg/gmredi/gmredi_k3d.F	612	GMREDI_K3D	surfk(i,j) = 0
./pkg/gmredi/gmredi_k3d.F	616	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	618	GMREDI_K3D	IF (rF(k).GT.surfkz(i,j) .AND. surfkz(i,j).GE.rF(k+1))
./pkg/gmredi/gmredi_k3d.F	619	GMREDI_K3D	& surfk(i,j) = k
./pkg/gmredi/gmredi_k3d.F	625	GMREDI_K3D	DO j=1-Oly,sNy+Oly-1
./pkg/gmredi/gmredi_k3d.F	627	GMREDI_K3D	SlopeX(i,j,1) = zeroRL
./pkg/gmredi/gmredi_k3d.F	628	GMREDI_K3D	SlopeY(i,j,1) = zeroRL
./pkg/gmredi/gmredi_k3d.F	632	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	634	GMREDI_K3D	IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN
./pkg/gmredi/gmredi_k3d.F	637	GMREDI_K3D	SlopeX(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	638	GMREDI_K3D	SlopeY(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	642	GMREDI_K3D	sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i-1,j,k)), maxDRhoDz )
./pkg/gmredi/gmredi_k3d.F	643	GMREDI_K3D	sigx = op5*( sigmaX(i,j,k)+sigmaX(i,j,k-1) )
./pkg/gmredi/gmredi_k3d.F	647	GMREDI_K3D	SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)maskW(i,j,k,bi,bj)slope
./pkg/gmredi/gmredi_k3d.F	650	GMREDI_K3D	sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i,j-1,k)), maxDRhoDz )
./pkg/gmredi/gmredi_k3d.F	651	GMREDI_K3D	sigy = op5*( sigmaY(i,j,k) + sigmaY(i,j,k-1) )
./pkg/gmredi/gmredi_k3d.F	655	GMREDI_K3D	SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)maskS(i,j,k,bi,bj)slope
./pkg/gmredi/gmredi_k3d.F	665	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	668	GMREDI_K3D	tfluxX(i,j,k) = -fCoriU(i,j)*SlopeX(i,j,k)
./pkg/gmredi/gmredi_k3d.F	669	GMREDI_K3D	& recip_drF(k)recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	671	GMREDI_K3D	tfluxY(i,j,k) = -fCoriV(i,j)*SlopeY(i,j,k)
./pkg/gmredi/gmredi_k3d.F	672	GMREDI_K3D	& recip_drF(k)recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	676	GMREDI_K3D	KPV(i,j,k) = K3D(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	683	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	686	GMREDI_K3D	tfluxX(i,j,k)=-fCoriU(i,j)*(SlopeX(i,j,k)-SlopeX(i,j,k+1))
./pkg/gmredi/gmredi_k3d.F	687	GMREDI_K3D	& recip_drF(k)recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	688	GMREDI_K3D	& *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	691	GMREDI_K3D	tfluxY(i,j,k)=-fCoriV(i,j)*(SlopeY(i,j,k)-SlopeY(i,j,k+1))
./pkg/gmredi/gmredi_k3d.F	692	GMREDI_K3D	& recip_drF(k)recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	693	GMREDI_K3D	& *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	697	GMREDI_K3D	KPV(i,j,k) = K3D(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	707	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	709	GMREDI_K3D	IF(k.LE.surfk(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F	719	GMREDI_K3D	IF(kLow_U(i,j).LT.surfk(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F	720	GMREDI_K3D	kk=kLow_U(i,j)
./pkg/gmredi/gmredi_k3d.F	721	GMREDI_K3D	hsurf = -rLowW(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	723	GMREDI_K3D	kk=surfk(i,j)
./pkg/gmredi/gmredi_k3d.F	724	GMREDI_K3D	hsurf = -surfkz(i,j)
./pkg/gmredi/gmredi_k3d.F	728	GMREDI_K3D	tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	729	GMREDI_K3D	& *SlopeX(i,j,kk)/hsurf
./pkg/gmredi/gmredi_k3d.F	731	GMREDI_K3D	tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	732	GMREDI_K3D	& *( SlopeX(i,j,kk)-SlopeX(i,j,kk+1) )/hsurf
./pkg/gmredi/gmredi_k3d.F	735	GMREDI_K3D	tfluxX(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	738	GMREDI_K3D	IF(kLow_V(i,j).LT.surfk(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F	739	GMREDI_K3D	kk=kLow_V(i,j)
./pkg/gmredi/gmredi_k3d.F	740	GMREDI_K3D	hsurf = -rLowS(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F	742	GMREDI_K3D	kk=surfk(i,j)
./pkg/gmredi/gmredi_k3d.F	743	GMREDI_K3D	hsurf = -surfkz(i,j)
./pkg/gmredi/gmredi_k3d.F	747	GMREDI_K3D	tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	748	GMREDI_K3D	& *SlopeY(i,j,kk)/hsurf
./pkg/gmredi/gmredi_k3d.F	750	GMREDI_K3D	tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	751	GMREDI_K3D	& *( SlopeY(i,j,kk)-SlopeY(i,j,kk+1) )/hsurf
./pkg/gmredi/gmredi_k3d.F	754	GMREDI_K3D	tfluxY(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	760	GMREDI_K3D	KPV(i,j,k) = GM_K3D_constK
./pkg/gmredi/gmredi_k3d.F	772	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	774	GMREDI_K3D	gradqx(i,j,k) = maskW(i,j,k,bi,bj)*tfluxX(i,j,k)
./pkg/gmredi/gmredi_k3d.F	775	GMREDI_K3D	gradqy(i,j,k) = maskS(i,j,k,bi,bj)*tfluxY(i,j,k)
./pkg/gmredi/gmredi_k3d.F	783	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	785	GMREDI_K3D	gradqx(i,j,k) = maskW(i,j,k,bi,bj)*(dfdx(i,j)+tfluxX(i,j,k))
./pkg/gmredi/gmredi_k3d.F	786	GMREDI_K3D	gradqy(i,j,k) = maskS(i,j,k,bi,bj)*(dfdy(i,j)+tfluxY(i,j,k))
./pkg/gmredi/gmredi_k3d.F	798	GMREDI_K3D	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	800	GMREDI_K3D	N2W(i,j,k) = maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	801	GMREDI_K3D	& *( N2(i,j,k)+N2(i-1,j,k) )
./pkg/gmredi/gmredi_k3d.F	802	GMREDI_K3D	N2S(i,j,k) = maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	803	GMREDI_K3D	& *( N2(i,j,k)+N2(i,j-1,k) )
./pkg/gmredi/gmredi_k3d.F	814	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	816	GMREDI_K3D	KPV(i,j,k) = GM_K3D_constK
./pkg/gmredi/gmredi_k3d.F	827	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	829	GMREDI_K3D	Xix(i,j,k) = -maskW(i,j,k,bi,bj)KPV(i,j,k)gradqx(i,j,k)
./pkg/gmredi/gmredi_k3d.F	830	GMREDI_K3D	Xiy(i,j,k) = -maskS(i,j,k,bi,bj)KPV(i,j,k)gradqy(i,j,k)
./pkg/gmredi/gmredi_k3d.F	852	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	855	GMREDI_K3D	XimX(m,i,j) = zeroRL
./pkg/gmredi/gmredi_k3d.F	860	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	863	GMREDI_K3D	Kdqdx(i,j,k) = KPV(i,j,k)*gradqx(i,j,k)
./pkg/gmredi/gmredi_k3d.F	864	GMREDI_K3D	XimX(m,i,j) = XimX(m,i,j)
./pkg/gmredi/gmredi_k3d.F	865	GMREDI_K3D	& - maskW(i,j,k,bi,bj)drF(k)hfacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	866	GMREDI_K3D	& Kdqdx(i,j,k)modesW(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	874	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	876	GMREDI_K3D	Xix(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	881	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	884	GMREDI_K3D	Xix(i,j,k) = Xix(i,j,k)
./pkg/gmredi/gmredi_k3d.F	885	GMREDI_K3D	& + maskW(i,j,k,bi,bj)XimX(m,i,j)modesW(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	903	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	906	GMREDI_K3D	XimY(m,i,j) = zeroRL
./pkg/gmredi/gmredi_k3d.F	911	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	914	GMREDI_K3D	Kdqdy(i,j,k) = KPV(i,j,k)*gradqy(i,j,k)
./pkg/gmredi/gmredi_k3d.F	915	GMREDI_K3D	XimY(m,i,j) = XimY(m,i,j)
./pkg/gmredi/gmredi_k3d.F	916	GMREDI_K3D	& - drF(k)*hfacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	917	GMREDI_K3D	& Kdqdy(i,j,k)modesS(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	925	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	927	GMREDI_K3D	Xiy(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F	932	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	935	GMREDI_K3D	Xiy(i,j,k) = Xiy(i,j,k)
./pkg/gmredi/gmredi_k3d.F	936	GMREDI_K3D	& + maskS(i,j,k,bi,bj)XimY(m,i,j)modesS(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F	947	GMREDI_K3D	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_k3d.F	949	GMREDI_K3D	uInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	950	GMREDI_K3D	vInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	951	GMREDI_K3D	KdqdyInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	952	GMREDI_K3D	KdqdxInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	953	GMREDI_K3D	uKdqdyInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	954	GMREDI_K3D	vKdqdxInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	955	GMREDI_K3D	uXiyInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	956	GMREDI_K3D	vXixInt(i,j)=zeroRL
./pkg/gmredi/gmredi_k3d.F	957	GMREDI_K3D	Renorm(i,j)=oneRL
./pkg/gmredi/gmredi_k3d.F	958	GMREDI_K3D	RenormU(i,j)=oneRL
./pkg/gmredi/gmredi_k3d.F	959	GMREDI_K3D	RenormV(i,j)=oneRL
./pkg/gmredi/gmredi_k3d.F	963	GMREDI_K3D	DO j=1-Oly,sNy+Oly-1
./pkg/gmredi/gmredi_k3d.F	965	GMREDI_K3D	centreX = op5*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/gmredi/gmredi_k3d.F	966	GMREDI_K3D	centreY = op5*(Kdqdy(i,j,k) +Kdqdy(i,j+1,k) )
./pkg/gmredi/gmredi_k3d.F	968	GMREDI_K3D	uInt(i,j) = uInt(i,j)
./pkg/gmredi/gmredi_k3d.F	969	GMREDI_K3D	& + centreXhfacC(i,j,k,bi,bj)drF(k)
./pkg/gmredi/gmredi_k3d.F	970	GMREDI_K3D	KdqdyInt(i,j) = KdqdyInt(i,j)
./pkg/gmredi/gmredi_k3d.F	971	GMREDI_K3D	& + centreYhfacC(i,j,k,bi,bj)drF(k)
./pkg/gmredi/gmredi_k3d.F	972	GMREDI_K3D	uKdqdyInt(i,j) = uKdqdyInt(i,j)
./pkg/gmredi/gmredi_k3d.F	973	GMREDI_K3D	& + centreXcentreYhfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F	975	GMREDI_K3D	centreY = op5*(Xiy(i,j,k) + Xiy(i,j+1,k))
./pkg/gmredi/gmredi_k3d.F	976	GMREDI_K3D	uXiyInt(i,j) = uXiyInt(i,j)
./pkg/gmredi/gmredi_k3d.F	977	GMREDI_K3D	& + centreXcentreYhfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F	979	GMREDI_K3D	centreX = op5*(Kdqdx(i,j,k) +Kdqdx(i+1,j,k))
./pkg/gmredi/gmredi_k3d.F	980	GMREDI_K3D	centreY = op5*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj) )
./pkg/gmredi/gmredi_k3d.F	982	GMREDI_K3D	vInt(i,j) = vInt(i,j)
./pkg/gmredi/gmredi_k3d.F	983	GMREDI_K3D	& + centreYhfacC(i,j,k,bi,bj)drF(k)
./pkg/gmredi/gmredi_k3d.F	984	GMREDI_K3D	KdqdxInt(i,j) = KdqdxInt(i,j)
./pkg/gmredi/gmredi_k3d.F	985	GMREDI_K3D	& + CentreXhfacC(i,j,k,bi,bj)drF(k)
./pkg/gmredi/gmredi_k3d.F	986	GMREDI_K3D	vKdqdxInt(i,j) = vKdqdxInt(i,j)
./pkg/gmredi/gmredi_k3d.F	987	GMREDI_K3D	& + centreYcentreXhfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F	989	GMREDI_K3D	centreX = op5*(Xix(i,j,k) + Xix(i+1,j,k))
./pkg/gmredi/gmredi_k3d.F	990	GMREDI_K3D	vXixInt(i,j) = vXixInt(i,j)
./pkg/gmredi/gmredi_k3d.F	991	GMREDI_K3D	& + centreYcentreXhfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F	997	GMREDI_K3D	DO j=1-Oly,sNy+Oly-1
./pkg/gmredi/gmredi_k3d.F	999	GMREDI_K3D	IF (kLowC(i,j,bi,bj).GT.0) THEN
./pkg/gmredi/gmredi_read_pickup.F	140	GMREDI_READ_PICKUP	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_read_pickup.F	142	GMREDI_READ_PICKUP	modesC(1,i,j,k,bi,bj) = vec(i,j,k,bi,bj)
./pkg/gmredi/gmredi_read_pickup.F	158	GMREDI_READ_PICKUP	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_read_pickup.F	160	GMREDI_READ_PICKUP	modesW(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj)
./pkg/gmredi/gmredi_read_pickup.F	177	GMREDI_READ_PICKUP	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_read_pickup.F	179	GMREDI_READ_PICKUP	modesS(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj)
./pkg/gmredi/gmredi_read_pickup.F	215	GMREDI_READ_PICKUP	DO j=1,nMissing
./pkg/gmredi/gmredi_read_pickup.F	46	GMREDI_READ_PICKUP	INTEGER i,j,k,n,nm,ioUnit,bi,bj
./pkg/gmredi/gmredi_residual_flow.F	103	GMREDI_RESIDUAL_FLOW	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_residual_flow.F	105	GMREDI_RESIDUAL_FLOW	delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F	106	GMREDI_RESIDUAL_FLOW	& - GM_PsiX(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	107	GMREDI_RESIDUAL_FLOW	ustar = delPsirecip_drF(k)_recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	108	GMREDI_RESIDUAL_FLOW	uMean(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) - ustar
./pkg/gmredi/gmredi_residual_flow.F	111	GMREDI_RESIDUAL_FLOW	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_residual_flow.F	113	GMREDI_RESIDUAL_FLOW	delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F	114	GMREDI_RESIDUAL_FLOW	& - GM_PsiY(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	115	GMREDI_RESIDUAL_FLOW	vstar = delPsirecip_drF(k)_recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	116	GMREDI_RESIDUAL_FLOW	vMean(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) - vstar
./pkg/gmredi/gmredi_residual_flow.F	47	GMREDI_RESIDUAL_FLOW	INTEGER i, j, k
./pkg/gmredi/gmredi_residual_flow.F	64	GMREDI_RESIDUAL_FLOW	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_residual_flow.F	66	GMREDI_RESIDUAL_FLOW	delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F	67	GMREDI_RESIDUAL_FLOW	& - GM_PsiX(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	68	GMREDI_RESIDUAL_FLOW	uFld(i,j,k) = uFld(i,j,k)
./pkg/gmredi/gmredi_residual_flow.F	69	GMREDI_RESIDUAL_FLOW	& + delPsirecip_drF(k)_recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	72	GMREDI_RESIDUAL_FLOW	DO j=1-OLy,sNy+OLy
./pkg/gmredi/gmredi_residual_flow.F	74	GMREDI_RESIDUAL_FLOW	delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F	75	GMREDI_RESIDUAL_FLOW	& - GM_PsiY(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	76	GMREDI_RESIDUAL_FLOW	vFld(i,j,k) = vFld(i,j,k)
./pkg/gmredi/gmredi_residual_flow.F	77	GMREDI_RESIDUAL_FLOW	& + delPsirecip_drF(k)_recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	80	GMREDI_RESIDUAL_FLOW	DO j=1-OLy,sNy+OLy-1
./pkg/gmredi/gmredi_residual_flow.F	82	GMREDI_RESIDUAL_FLOW	delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	83	GMREDI_RESIDUAL_FLOW	& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	84	GMREDI_RESIDUAL_FLOW	& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	85	GMREDI_RESIDUAL_FLOW	& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	86	GMREDI_RESIDUAL_FLOW	& )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F	87	GMREDI_RESIDUAL_FLOW	wFld(i,j,k) = wFld(i,j,k) + delPsi*recip_rA(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	100	GMREDI_RTRANSPORT	& (Tracer(i,j,k-1)-Tracer(i-1,j,k-1)) )
./pkg/gmredi/gmredi_rtransport.F	103	GMREDI_RTRANSPORT	dTdy(i,j) = op5*(
./pkg/gmredi/gmredi_rtransport.F	104	GMREDI_RTRANSPORT	& +op5*(_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	105	GMREDI_RTRANSPORT	& _recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	106	GMREDI_RTRANSPORT	& (Tracer(i,j,k)-Tracer(i,j-1,k))
./pkg/gmredi/gmredi_rtransport.F	107	GMREDI_RTRANSPORT	& +_maskS(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	108	GMREDI_RTRANSPORT	& _recip_dyC(i,j+1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	109	GMREDI_RTRANSPORT	& (Tracer(i,j+1,k)-Tracer(i,j,k)) )
./pkg/gmredi/gmredi_rtransport.F	110	GMREDI_RTRANSPORT	& +op5*(_maskS(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	111	GMREDI_RTRANSPORT	& _recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	112	GMREDI_RTRANSPORT	& (Tracer(i,j,k-1)-Tracer(i,j-1,k-1))
./pkg/gmredi/gmredi_rtransport.F	113	GMREDI_RTRANSPORT	& +_maskS(i,j+1,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	114	GMREDI_RTRANSPORT	& _recip_dyC(i,j+1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	115	GMREDI_RTRANSPORT	& (Tracer(i,j+1,k-1)-Tracer(i,j,k-1)) )
./pkg/gmredi/gmredi_rtransport.F	130	GMREDI_RTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_rtransport.F	132	GMREDI_RTRANSPORT	df(i,j) = df(i,j)
./pkg/gmredi/gmredi_rtransport.F	133	GMREDI_RTRANSPORT	& - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	134	GMREDI_RTRANSPORT	& ( LS_Kwx(i,j,k,bi,bj)dTdx(i,j)
./pkg/gmredi/gmredi_rtransport.F	135	GMREDI_RTRANSPORT	& + LS_Kwy(i,j,k,bi,bj)*dTdy(i,j) )
./pkg/gmredi/gmredi_rtransport.F	140	GMREDI_RTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_rtransport.F	142	GMREDI_RTRANSPORT	df(i,j) = df(i,j)
./pkg/gmredi/gmredi_rtransport.F	143	GMREDI_RTRANSPORT	& - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	144	GMREDI_RTRANSPORT	& ( Kwx(i,j,k,bi,bj)dTdx(i,j)
./pkg/gmredi/gmredi_rtransport.F	145	GMREDI_RTRANSPORT	& + Kwy(i,j,k,bi,bj)*dTdy(i,j) )
./pkg/gmredi/gmredi_rtransport.F	155	GMREDI_RTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_rtransport.F	157	GMREDI_RTRANSPORT	rTrans(i,j) =
./pkg/gmredi/gmredi_rtransport.F	158	GMREDI_RTRANSPORT	& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	159	GMREDI_RTRANSPORT	& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	160	GMREDI_RTRANSPORT	& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	161	GMREDI_RTRANSPORT	& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	168	GMREDI_RTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_rtransport.F	170	GMREDI_RTRANSPORT	df(i,j) = df(i,j)
./pkg/gmredi/gmredi_rtransport.F	171	GMREDI_RTRANSPORT	& +rTrans(i,j)*op5
./pkg/gmredi/gmredi_rtransport.F	172	GMREDI_RTRANSPORT	& *(Tracer(i,j,k)+Tracer(i,j,k-1))
./pkg/gmredi/gmredi_rtransport.F	173	GMREDI_RTRANSPORT	& *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	53	GMREDI_RTRANSPORT	INTEGER i, j
./pkg/gmredi/gmredi_rtransport.F	86	GMREDI_RTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_rtransport.F	88	GMREDI_RTRANSPORT	dTdx(i,j) = op5*(
./pkg/gmredi/gmredi_rtransport.F	89	GMREDI_RTRANSPORT	& +op5*(_maskW(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	90	GMREDI_RTRANSPORT	& _recip_dxC(i+1,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	91	GMREDI_RTRANSPORT	& (Tracer(i+1,j,k)-Tracer(i,j,k))
./pkg/gmredi/gmredi_rtransport.F	92	GMREDI_RTRANSPORT	& +_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	93	GMREDI_RTRANSPORT	& _recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	94	GMREDI_RTRANSPORT	& (Tracer(i,j,k)-Tracer(i-1,j,k)) )
./pkg/gmredi/gmredi_rtransport.F	95	GMREDI_RTRANSPORT	& +op5*(_maskW(i+1,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	96	GMREDI_RTRANSPORT	& _recip_dxC(i+1,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	97	GMREDI_RTRANSPORT	& (Tracer(i+1,j,k-1)-Tracer(i,j,k-1))
./pkg/gmredi/gmredi_rtransport.F	98	GMREDI_RTRANSPORT	& +_maskW(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F	99	GMREDI_RTRANSPORT	& _recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_slope_limit.F	114	GMREDI_SLOPE_LIMIT	INTEGER i,j
./pkg/gmredi/gmredi_slope_limit.F	141	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	143	GMREDI_SLOPE_LIMIT	dSigmMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	144	GMREDI_SLOPE_LIMIT	tmpFld(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	162	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	164	GMREDI_SLOPE_LIMIT	tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F	165	GMREDI_SLOPE_LIMIT	& + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F	166	GMREDI_SLOPE_LIMIT	IF ( tmpFld(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	167	GMREDI_SLOPE_LIMIT	dSigmMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	169	GMREDI_SLOPE_LIMIT	dSigmMod(i,j) = SQRT( tmpFld(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	179	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	181	GMREDI_SLOPE_LIMIT	IF (dSigmMod(i,j) .NE. 0.) THEN
./pkg/gmredi/gmredi_slope_limit.F	182	GMREDI_SLOPE_LIMIT	tmpFld(i,j) = -dSigmMod(i,j)*GM_rMaxSlope
./pkg/gmredi/gmredi_slope_limit.F	183	GMREDI_SLOPE_LIMIT	IF ( dSigmaDr(i,j) .GE. tmpFld(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	184	GMREDI_SLOPE_LIMIT	& dSigmaDr(i,j) = tmpFld(i,j)
./pkg/gmredi/gmredi_slope_limit.F	195	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	197	GMREDI_SLOPE_LIMIT	IF (dSigmMod(i,j) .EQ. 0.) THEN
./pkg/gmredi/gmredi_slope_limit.F	198	GMREDI_SLOPE_LIMIT	SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	199	GMREDI_SLOPE_LIMIT	SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	201	GMREDI_SLOPE_LIMIT	dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	202	GMREDI_SLOPE_LIMIT	SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F	203	GMREDI_SLOPE_LIMIT	SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F	213	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	215	GMREDI_SLOPE_LIMIT	SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F	216	GMREDI_SLOPE_LIMIT	& +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F	217	GMREDI_SLOPE_LIMIT	taperFct(i,j)=1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	234	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	236	GMREDI_SLOPE_LIMIT	IF ( k.GT.kLow(i,j) ) THEN
./pkg/gmredi/gmredi_slope_limit.F	238	GMREDI_SLOPE_LIMIT	SlopeX (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	239	GMREDI_SLOPE_LIMIT	SlopeY (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	240	GMREDI_SLOPE_LIMIT	SlopeMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	241	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	244	GMREDI_SLOPE_LIMIT	IF ( dSigmaDr(i,j).GE. -GM_Small_Number )
./pkg/gmredi/gmredi_slope_limit.F	245	GMREDI_SLOPE_LIMIT	& dSigmaDr(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_limit.F	246	GMREDI_SLOPE_LIMIT	tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F	247	GMREDI_SLOPE_LIMIT	& + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F	248	GMREDI_SLOPE_LIMIT	IF ( tmpFld(i,j).GT.0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	249	GMREDI_SLOPE_LIMIT	locVar(i,j) = SQRT( tmpFld(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	250	GMREDI_SLOPE_LIMIT	SlopeX (i,j) = dSigmaDx(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F	251	GMREDI_SLOPE_LIMIT	SlopeY (i,j) = dSigmaDy(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F	252	GMREDI_SLOPE_LIMIT	SlopeMod(i,j) = -locVar(i,j)/dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F	253	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	255	GMREDI_SLOPE_LIMIT	SlopeX (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	256	GMREDI_SLOPE_LIMIT	SlopeY (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	257	GMREDI_SLOPE_LIMIT	SlopeMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	258	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	270	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	272	GMREDI_SLOPE_LIMIT	IF ( hTransLay(i,j).LE.0. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F	274	GMREDI_SLOPE_LIMIT	tmpFld(i,j) = Lrho(i,j)*SlopeMod(i,j)
./pkg/gmredi/gmredi_slope_limit.F	278	GMREDI_SLOPE_LIMIT	& MIN( MAX( tmpFld(i,j), minTransLay ),
./pkg/gmredi/gmredi_slope_limit.F	279	GMREDI_SLOPE_LIMIT	& MAX( GM_facTrL2ML*hMixLay(i,j), GM_maxTransLay ) )
./pkg/gmredi/gmredi_slope_limit.F	280	GMREDI_SLOPE_LIMIT	IF ( k.GE.kLow(i,j) ) THEN
./pkg/gmredi/gmredi_slope_limit.F	282	GMREDI_SLOPE_LIMIT	recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	283	GMREDI_SLOPE_LIMIT	baseSlope(i,j) = SlopeMod(i,j)
./pkg/gmredi/gmredi_slope_limit.F	287	GMREDI_SLOPE_LIMIT	ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	289	GMREDI_SLOPE_LIMIT	hTransLay(i,j) = -depthZ(k+1)
./pkg/gmredi/gmredi_slope_limit.F	291	GMREDI_SLOPE_LIMIT	IF ( baseSlope(i,j).GT.0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	292	GMREDI_SLOPE_LIMIT	recipLambda(i,j) = recipLambda(i,j)
./pkg/gmredi/gmredi_slope_limit.F	293	GMREDI_SLOPE_LIMIT	& / MIN( baseSlope(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F	295	GMREDI_SLOPE_LIMIT	recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	298	GMREDI_SLOPE_LIMIT	IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	299	GMREDI_SLOPE_LIMIT	rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) )
./pkg/gmredi/gmredi_slope_limit.F	300	GMREDI_SLOPE_LIMIT	recipLambda(i,j) = MAX( recipLambda(i,j), rLambMin )
./pkg/gmredi/gmredi_slope_limit.F	304	GMREDI_SLOPE_LIMIT	recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F	305	GMREDI_SLOPE_LIMIT	& - MIN( baseSlope(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F	307	GMREDI_SLOPE_LIMIT	baseSlope(i,j) = SlopeMod(i,j)
./pkg/gmredi/gmredi_slope_limit.F	315	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	317	GMREDI_SLOPE_LIMIT	IF ( hTransLay(i,j).GT.0. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F	320	GMREDI_SLOPE_LIMIT	DoverLamb = (hTransLay(i,j)-hMixLay(i,j))*recipLambda(i,j)
./pkg/gmredi/gmredi_slope_limit.F	321	GMREDI_SLOPE_LIMIT	IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN
./pkg/gmredi/gmredi_slope_limit.F	324	GMREDI_SLOPE_LIMIT	& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F	329	GMREDI_SLOPE_LIMIT	& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F	336	GMREDI_SLOPE_LIMIT	& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F	339	GMREDI_SLOPE_LIMIT	& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F	340	GMREDI_SLOPE_LIMIT	& /( hTransLay(i,j)*hTransLay(i,j)
./pkg/gmredi/gmredi_slope_limit.F	341	GMREDI_SLOPE_LIMIT	& - hMixLay(i,j)*hMixLay(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	342	GMREDI_SLOPE_LIMIT	& ( 1. _d 0 + hTransLay(i,j)recipLambda(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	346	GMREDI_SLOPE_LIMIT	& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F	350	GMREDI_SLOPE_LIMIT	& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F	351	GMREDI_SLOPE_LIMIT	& /( hTransLay(i,j)*hTransLay(i,j)
./pkg/gmredi/gmredi_slope_limit.F	352	GMREDI_SLOPE_LIMIT	& - hMixLay(i,j)*hMixLay(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	353	GMREDI_SLOPE_LIMIT	& ( 1. _d 0 + hTransLay(i,j)recipLambda(i,j)*2. _d 0 )
./pkg/gmredi/gmredi_slope_limit.F	359	GMREDI_SLOPE_LIMIT	Smod = MIN( baseSlope(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F	360	GMREDI_SLOPE_LIMIT	SlopeX(i,j) = SlopeX(i,j)SmodtaperFctLoc
./pkg/gmredi/gmredi_slope_limit.F	361	GMREDI_SLOPE_LIMIT	SlopeY(i,j) = SlopeY(i,j)SmodtaperFctLoc
./pkg/gmredi/gmredi_slope_limit.F	364	GMREDI_SLOPE_LIMIT	SlopeSqr(i,j) = MIN( baseSlope(i,j), GM_bigSlope )
./pkg/gmredi/gmredi_slope_limit.F	371	GMREDI_SLOPE_LIMIT	Smod = MIN( SlopeMod(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F	372	GMREDI_SLOPE_LIMIT	SlopeX(i,j) = SlopeX(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F	373	GMREDI_SLOPE_LIMIT	SlopeY(i,j) = SlopeY(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F	376	GMREDI_SLOPE_LIMIT	SlopeSqr(i,j) = MIN( SlopeMod(i,j), GM_bigSlope )
./pkg/gmredi/gmredi_slope_limit.F	400	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	402	GMREDI_SLOPE_LIMIT	dRdSigmaLtd(i,j)=
./pkg/gmredi/gmredi_slope_limit.F	403	GMREDI_SLOPE_LIMIT	& dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F	404	GMREDI_SLOPE_LIMIT	& + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F	405	GMREDI_SLOPE_LIMIT	& + dSigmaDr(i,j)*dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F	406	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	408	GMREDI_SLOPE_LIMIT	IF (dRdSigmaLtd(i,j).NE.0.) THEN
./pkg/gmredi/gmredi_slope_limit.F	409	GMREDI_SLOPE_LIMIT	dRdSigmaLtd(i,j)=1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	410	GMREDI_SLOPE_LIMIT	& / ( dRdSigmaLtd(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	411	GMREDI_SLOPE_LIMIT	SlopeSqr(i,j)=(dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F	412	GMREDI_SLOPE_LIMIT	& +dSigmaDy(i,j)dSigmaDy(i,j))dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F	413	GMREDI_SLOPE_LIMIT	SlopeX(i,j)=-dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F	414	GMREDI_SLOPE_LIMIT	& dRdSigmaLtd(i,j)dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F	415	GMREDI_SLOPE_LIMIT	SlopeY(i,j)=-dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F	416	GMREDI_SLOPE_LIMIT	& dRdSigmaLtd(i,j)dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F	421	GMREDI_SLOPE_LIMIT	IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND.
./pkg/gmredi/gmredi_slope_limit.F	422	GMREDI_SLOPE_LIMIT	& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F	423	GMREDI_SLOPE_LIMIT	taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j)
./pkg/gmredi/gmredi_slope_limit.F	424	GMREDI_SLOPE_LIMIT	ELSE IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F	425	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	450	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	452	GMREDI_SLOPE_LIMIT	IF ( dSigmaDr(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	453	GMREDI_SLOPE_LIMIT	IF (dSigmaDr(i,j).GE.(-GM_Small_Number))
./pkg/gmredi/gmredi_slope_limit.F	454	GMREDI_SLOPE_LIMIT	& dSigmaDr(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_limit.F	465	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	467	GMREDI_SLOPE_LIMIT	IF ( dSigmaDr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	468	GMREDI_SLOPE_LIMIT	IF ( dSigmaDx(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	469	GMREDI_SLOPE_LIMIT	SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	471	GMREDI_SLOPE_LIMIT	SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	473	GMREDI_SLOPE_LIMIT	IF ( dSigmaDy(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	474	GMREDI_SLOPE_LIMIT	SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	476	GMREDI_SLOPE_LIMIT	SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	479	GMREDI_SLOPE_LIMIT	dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F	480	GMREDI_SLOPE_LIMIT	SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F	481	GMREDI_SLOPE_LIMIT	SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F	493	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	495	GMREDI_SLOPE_LIMIT	SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F	496	GMREDI_SLOPE_LIMIT	& +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F	497	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	498	GMREDI_SLOPE_LIMIT	IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F	499	GMREDI_SLOPE_LIMIT	slopeSqr(i,j) = GM_slopeSqCutoff
./pkg/gmredi/gmredi_slope_limit.F	500	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F	511	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	514	GMREDI_SLOPE_LIMIT	IF ( SlopeSqr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	515	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	516	GMREDI_SLOPE_LIMIT	ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND.
./pkg/gmredi/gmredi_slope_limit.F	517	GMREDI_SLOPE_LIMIT	& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F	518	GMREDI_SLOPE_LIMIT	taperFct(i,j) = SQRT(maxSlopeSqr / SlopeSqr(i,j))
./pkg/gmredi/gmredi_slope_limit.F	519	GMREDI_SLOPE_LIMIT	slopeSqr(i,j) = MIN( slopeSqr(i,j),GM_bigSlope*GM_bigSlope )
./pkg/gmredi/gmredi_slope_limit.F	529	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	532	GMREDI_SLOPE_LIMIT	IF ( SlopeSqr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	533	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	534	GMREDI_SLOPE_LIMIT	ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND.
./pkg/gmredi/gmredi_slope_limit.F	535	GMREDI_SLOPE_LIMIT	& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F	536	GMREDI_SLOPE_LIMIT	taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j)
./pkg/gmredi/gmredi_slope_limit.F	545	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	548	GMREDI_SLOPE_LIMIT	IF ( SlopeSqr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F	549	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	550	GMREDI_SLOPE_LIMIT	ELSE IF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F	551	GMREDI_SLOPE_LIMIT	Smod=SQRT(SlopeSqr(i,j))
./pkg/gmredi/gmredi_slope_limit.F	552	GMREDI_SLOPE_LIMIT	taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_limit.F	560	GMREDI_SLOPE_LIMIT	DO j=1-Oly+1,sNy+Oly-1
./pkg/gmredi/gmredi_slope_limit.F	563	GMREDI_SLOPE_LIMIT	IF (SlopeSqr(i,j) .EQ. 0.) THEN
./pkg/gmredi/gmredi_slope_limit.F	564	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F	565	GMREDI_SLOPE_LIMIT	ELSEIF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F	566	GMREDI_SLOPE_LIMIT	Smod=SQRT(SlopeSqr(i,j))
./pkg/gmredi/gmredi_slope_limit.F	568	GMREDI_SLOPE_LIMIT	Rnondim= -depthZ(k)/(Lrho(i,j)*Smod)
./pkg/gmredi/gmredi_slope_limit.F	574	GMREDI_SLOPE_LIMIT	taperFct(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_limit.F	597	GMREDI_SLOPE_LIMIT	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_limit.F	599	GMREDI_SLOPE_LIMIT	slopeTmpSpec=sqrt( SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F	600	GMREDI_SLOPE_LIMIT	& +SlopeY(i,j)*SlopeY(i,j) )
./pkg/gmredi/gmredi_slope_limit.F	602	GMREDI_SLOPE_LIMIT	SlopeX(i,j)=SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F	603	GMREDI_SLOPE_LIMIT	SlopeY(i,j)=SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F	605	GMREDI_SLOPE_LIMIT	SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F	606	GMREDI_SLOPE_LIMIT	& +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F	607	GMREDI_SLOPE_LIMIT	taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F	103	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	105	GMREDI_SLOPE_PSI	dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F	111	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	113	GMREDI_SLOPE_PSI	dSigmaDrLtd(i,j) = -(GM_Small_Number+
./pkg/gmredi/gmredi_slope_psi.F	114	GMREDI_SLOPE_PSI	& ABS(SlopeX(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F	121	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	123	GMREDI_SLOPE_PSI	IF (dSigmaDrW(i,j).GE.dSigmaDrLtd(i,j))
./pkg/gmredi/gmredi_slope_psi.F	124	GMREDI_SLOPE_PSI	& dSigmaDrW(i,j) = dSigmaDrLtd(i,j)
./pkg/gmredi/gmredi_slope_psi.F	130	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	132	GMREDI_SLOPE_PSI	SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F	133	GMREDI_SLOPE_PSI	taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F	140	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	142	GMREDI_SLOPE_PSI	dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F	146	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	148	GMREDI_SLOPE_PSI	dSigmaDrLtd(i,j) = -(GM_Small_Number+
./pkg/gmredi/gmredi_slope_psi.F	149	GMREDI_SLOPE_PSI	& ABS(SlopeY(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F	156	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	158	GMREDI_SLOPE_PSI	IF (dSigmaDrS(i,j).GE.dSigmaDrLtd(i,j))
./pkg/gmredi/gmredi_slope_psi.F	159	GMREDI_SLOPE_PSI	& dSigmaDrS(i,j) = dSigmaDrLtd(i,j)
./pkg/gmredi/gmredi_slope_psi.F	165	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	167	GMREDI_SLOPE_PSI	SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F	168	GMREDI_SLOPE_PSI	taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F	193	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	195	GMREDI_SLOPE_PSI	IF (dSigmaDrW(i,j).GE.-GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F	196	GMREDI_SLOPE_PSI	& dSigmaDrW(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_psi.F	202	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	204	GMREDI_SLOPE_PSI	SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F	205	GMREDI_SLOPE_PSI	taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F	212	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	214	GMREDI_SLOPE_PSI	IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F	215	GMREDI_SLOPE_PSI	SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F	216	GMREDI_SLOPE_PSI	taperX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F	227	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	229	GMREDI_SLOPE_PSI	IF (dSigmaDrS(i,j).GE.-GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F	230	GMREDI_SLOPE_PSI	& dSigmaDrS(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_psi.F	236	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	238	GMREDI_SLOPE_PSI	SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F	239	GMREDI_SLOPE_PSI	taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F	246	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	248	GMREDI_SLOPE_PSI	IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F	249	GMREDI_SLOPE_PSI	SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F	250	GMREDI_SLOPE_PSI	taperY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F	266	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	268	GMREDI_SLOPE_PSI	Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F	271	GMREDI_SLOPE_PSI	& taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F	274	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	276	GMREDI_SLOPE_PSI	Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F	279	GMREDI_SLOPE_PSI	& taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F	287	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	289	GMREDI_SLOPE_PSI	IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F	290	GMREDI_SLOPE_PSI	& ABS(SlopeX(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F	291	GMREDI_SLOPE_PSI	& taperX(i,j)=maxSlopeSqr/
./pkg/gmredi/gmredi_slope_psi.F	292	GMREDI_SLOPE_PSI	& ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F	295	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	297	GMREDI_SLOPE_PSI	IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F	298	GMREDI_SLOPE_PSI	& ABS(SlopeY(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F	299	GMREDI_SLOPE_PSI	& taperY(i,j)=maxSlopeSqr/
./pkg/gmredi/gmredi_slope_psi.F	300	GMREDI_SLOPE_PSI	& ( SlopeY(i,j)*SlopeY(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F	307	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	309	GMREDI_SLOPE_PSI	Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F	310	GMREDI_SLOPE_PSI	taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F	313	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	315	GMREDI_SLOPE_PSI	Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F	316	GMREDI_SLOPE_PSI	taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F	324	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	326	GMREDI_SLOPE_PSI	Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F	330	GMREDI_SLOPE_PSI	Rnondim = -depthZ/(LrhoW(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F	339	GMREDI_SLOPE_PSI	taperX(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_psi.F	344	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	346	GMREDI_SLOPE_PSI	Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F	350	GMREDI_SLOPE_PSI	Rnondim = -depthZ/(LrhoS(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F	359	GMREDI_SLOPE_PSI	taperY(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_psi.F	381	GMREDI_SLOPE_PSI	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	383	GMREDI_SLOPE_PSI	slopeTmpSpec=ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F	385	GMREDI_SLOPE_PSI	SlopeX(i,j)=5.SlopeX(i,j)slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F	387	GMREDI_SLOPE_PSI	SlopeX(i,j)=5.*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_psi.F	389	GMREDI_SLOPE_PSI	taperX(i,j)=1.
./pkg/gmredi/gmredi_slope_psi.F	392	GMREDI_SLOPE_PSI	DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F	394	GMREDI_SLOPE_PSI	slopeTmpSpec=ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F	396	GMREDI_SLOPE_PSI	SlopeY(i,j)=5.SlopeY(i,j)slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F	398	GMREDI_SLOPE_PSI	SlopeY(i,j)=5.*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_psi.F	400	GMREDI_SLOPE_PSI	taperY(i,j)=1.
./pkg/gmredi/gmredi_slope_psi.F	64	GMREDI_SLOPE_PSI	INTEGER i,j
./pkg/gmredi/gmredi_write_pickup.F	102	GMREDI_WRITE_PICKUP	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_write_pickup.F	104	GMREDI_WRITE_PICKUP	vec(i,j,k,bi,bj) = modesW(n,i,j,k,bi,bj)
./pkg/gmredi/gmredi_write_pickup.F	122	GMREDI_WRITE_PICKUP	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_write_pickup.F	124	GMREDI_WRITE_PICKUP	vec(i,j,k,bi,bj) = modesS(n,i,j,k,bi,bj)
./pkg/gmredi/gmredi_write_pickup.F	54	GMREDI_WRITE_PICKUP	INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar
./pkg/gmredi/gmredi_write_pickup.F	83	GMREDI_WRITE_PICKUP	DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_write_pickup.F	85	GMREDI_WRITE_PICKUP	vec(i,j,k,bi,bj) = modesC(1,i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F	111	GMREDI_XTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_xtransport.F	113	GMREDI_XTRANSPORT	df(i,j) = df(i,j)
./pkg/gmredi/gmredi_xtransport.F	114	GMREDI_XTRANSPORT	& -xA(i,j)
./pkg/gmredi/gmredi_xtransport.F	116	GMREDI_XTRANSPORT	& *Kux(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F	119	GMREDI_XTRANSPORT	& *(kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F	124	GMREDI_XTRANSPORT	& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_xtransport.F	128	GMREDI_XTRANSPORT	& *_recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_xtransport.F	129	GMREDI_XTRANSPORT	& *(Tracer(i,j,k)-Tracer(i-1,j,k))
./pkg/gmredi/gmredi_xtransport.F	139	GMREDI_XTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_xtransport.F	141	GMREDI_XTRANSPORT	dTdz(i,j) = op5*(
./pkg/gmredi/gmredi_xtransport.F	143	GMREDI_XTRANSPORT	& ( maskC(i-1,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F	144	GMREDI_XTRANSPORT	& (Tracer(i-1,j,km1)-Tracer(i-1,j,k))
./pkg/gmredi/gmredi_xtransport.F	145	GMREDI_XTRANSPORT	& +maskC( i ,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F	146	GMREDI_XTRANSPORT	& (Tracer( i ,j,km1)-Tracer( i ,j,k))
./pkg/gmredi/gmredi_xtransport.F	149	GMREDI_XTRANSPORT	& ( maskC(i-1,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F	150	GMREDI_XTRANSPORT	& (Tracer(i-1,j,k)-Tracer(i-1,j,kp1))
./pkg/gmredi/gmredi_xtransport.F	151	GMREDI_XTRANSPORT	& +maskC( i ,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F	152	GMREDI_XTRANSPORT	& (Tracer( i ,j,k)-Tracer( i ,j,kp1))
./pkg/gmredi/gmredi_xtransport.F	162	GMREDI_XTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_xtransport.F	164	GMREDI_XTRANSPORT	df(i,j) = df(i,j) - xA(i,j)Kuz(i,j,k,bi,bj)dTdz(i,j)
./pkg/gmredi/gmredi_xtransport.F	176	GMREDI_XTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_xtransport.F	178	GMREDI_XTRANSPORT	uTrans(i,j) = dyG(i,j,bi,bj)( GM_PsiX(i,j,kp1,bi,bj)maskp1
./pkg/gmredi/gmredi_xtransport.F	179	GMREDI_XTRANSPORT	& -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_xtransport.F	180	GMREDI_XTRANSPORT	& *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F	187	GMREDI_XTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_xtransport.F	189	GMREDI_XTRANSPORT	df(i,j) = df(i,j)
./pkg/gmredi/gmredi_xtransport.F	190	GMREDI_XTRANSPORT	& +uTrans(i,j)op5(Tracer(i,j,k)+Tracer(i-1,j,k))
./pkg/gmredi/gmredi_xtransport.F	204	GMREDI_XTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_xtransport.F	206	GMREDI_XTRANSPORT	tmp1k(i,j) = dyG(i,j,bi,bj)( GM_PsiX(i,j,kp1,bi,bj)maskp1
./pkg/gmredi/gmredi_xtransport.F	207	GMREDI_XTRANSPORT	& -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_xtransport.F	208	GMREDI_XTRANSPORT	& *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F	209	GMREDI_XTRANSPORT	& op5(Tracer(i,j,k)+Tracer(i-1,j,k))
./pkg/gmredi/gmredi_xtransport.F	57	GMREDI_XTRANSPORT	INTEGER i, j
./pkg/gmredi/gmredi_ytransport.F	111	GMREDI_YTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_ytransport.F	113	GMREDI_YTRANSPORT	df(i,j) = df(i,j)
./pkg/gmredi/gmredi_ytransport.F	114	GMREDI_YTRANSPORT	& -yA(i,j)
./pkg/gmredi/gmredi_ytransport.F	116	GMREDI_YTRANSPORT	& *Kvy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F	119	GMREDI_YTRANSPORT	& *(kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F	124	GMREDI_YTRANSPORT	& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F	128	GMREDI_YTRANSPORT	& *_recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_ytransport.F	129	GMREDI_YTRANSPORT	& *(Tracer(i,j,k)-Tracer(i,j-1,k))
./pkg/gmredi/gmredi_ytransport.F	139	GMREDI_YTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_ytransport.F	141	GMREDI_YTRANSPORT	dTdz(i,j) = op5*(
./pkg/gmredi/gmredi_ytransport.F	143	GMREDI_YTRANSPORT	& ( maskC(i,j-1,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F	144	GMREDI_YTRANSPORT	& (Tracer(i,j-1,km1)-Tracer(i,j-1,k))
./pkg/gmredi/gmredi_ytransport.F	145	GMREDI_YTRANSPORT	& +maskC(i, j ,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F	146	GMREDI_YTRANSPORT	& (Tracer(i, j ,km1)-Tracer(i, j ,k))
./pkg/gmredi/gmredi_ytransport.F	149	GMREDI_YTRANSPORT	& ( maskC(i,j-1,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F	150	GMREDI_YTRANSPORT	& (Tracer(i,j-1,k)-Tracer(i,j-1,kp1))
./pkg/gmredi/gmredi_ytransport.F	151	GMREDI_YTRANSPORT	& +maskC(i, j ,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F	152	GMREDI_YTRANSPORT	& (Tracer(i, j ,k)-Tracer(i, j ,kp1))
./pkg/gmredi/gmredi_ytransport.F	161	GMREDI_YTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_ytransport.F	163	GMREDI_YTRANSPORT	df(i,j) = df(i,j) - yA(i,j)Kvz(i,j,k,bi,bj)dTdz(i,j)
./pkg/gmredi/gmredi_ytransport.F	176	GMREDI_YTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_ytransport.F	178	GMREDI_YTRANSPORT	vTrans(i,j) = dxG(i,j,bi,bj)( GM_PsiY(i,j,kp1,bi,bj)maskp1
./pkg/gmredi/gmredi_ytransport.F	179	GMREDI_YTRANSPORT	& -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_ytransport.F	180	GMREDI_YTRANSPORT	& *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F	187	GMREDI_YTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_ytransport.F	189	GMREDI_YTRANSPORT	df(i,j) = df(i,j)
./pkg/gmredi/gmredi_ytransport.F	190	GMREDI_YTRANSPORT	& +vTrans(i,j)op5(Tracer(i,j,k)+Tracer(i,j-1,k))
./pkg/gmredi/gmredi_ytransport.F	203	GMREDI_YTRANSPORT	DO j=jMin,jMax
./pkg/gmredi/gmredi_ytransport.F	205	GMREDI_YTRANSPORT	tmp1k(i,j) = dxG(i,j,bi,bj)( GM_PsiY(i,j,kp1,bi,bj)maskp1
./pkg/gmredi/gmredi_ytransport.F	206	GMREDI_YTRANSPORT	& -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_ytransport.F	207	GMREDI_YTRANSPORT	& *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F	208	GMREDI_YTRANSPORT	& op5(Tracer(i,j,k)+Tracer(i,j-1,k))
./pkg/gmredi/gmredi_ytransport.F	57	GMREDI_YTRANSPORT	INTEGER i, j
./pkg/gmredi/submeso_calc_psi.F	103	SUBMESO_CALC_PSI	DO j=1-OLy,sNy+OLy
./pkg/gmredi/submeso_calc_psi.F	105	SUBMESO_CALC_PSI	dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) )
./pkg/gmredi/submeso_calc_psi.F	106	SUBMESO_CALC_PSI	dBuoyX_Hu(i,j) = dBuoyX_Hu(i,j) + sigmaX(i,j,k)*dzLoc
./pkg/gmredi/submeso_calc_psi.F	109	SUBMESO_CALC_PSI	DO j=1-OLy+1,sNy+OLy
./pkg/gmredi/submeso_calc_psi.F	111	SUBMESO_CALC_PSI	dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) )
./pkg/gmredi/submeso_calc_psi.F	112	SUBMESO_CALC_PSI	dBuoyY_Hv(i,j) = dBuoyY_Hv(i,j) + sigmaY(i,j,k)*dzLoc
./pkg/gmredi/submeso_calc_psi.F	117	SUBMESO_CALC_PSI	DO j=1-OLy,sNy+OLy
./pkg/gmredi/submeso_calc_psi.F	120	SUBMESO_CALC_PSI	IF ( locMixLayer(i,j)+rC(k-1).GE.0. ) dzLoc = drC(k)
./pkg/gmredi/submeso_calc_psi.F	121	SUBMESO_CALC_PSI	NHmixLay(i,j) = NHmixLay(i,j)
./pkg/gmredi/submeso_calc_psi.F	122	SUBMESO_CALC_PSI	& + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 )
./pkg/gmredi/submeso_calc_psi.F	126	SUBMESO_CALC_PSI	DO j=1-OLy,sNy+OLy
./pkg/gmredi/submeso_calc_psi.F	128	SUBMESO_CALC_PSI	dBuoyX_Hu(i,j)= -dBuoyX_Hu(i,j)gravityrecip_rhoConst
./pkg/gmredi/submeso_calc_psi.F	129	SUBMESO_CALC_PSI	dBuoyY_Hv(i,j)= -dBuoyY_Hv(i,j)gravityrecip_rhoConst
./pkg/gmredi/submeso_calc_psi.F	130	SUBMESO_CALC_PSI	NHmixLay(i,j) = SQRT( NHmixLay(i,j)gravityrecip_rhoConst
./pkg/gmredi/submeso_calc_psi.F	131	SUBMESO_CALC_PSI	& *locMixLayer(i,j) )
./pkg/gmredi/submeso_calc_psi.F	134	SUBMESO_CALC_PSI	DO j=2-OLy,sNy+OLy-1
./pkg/gmredi/submeso_calc_psi.F	136	SUBMESO_CALC_PSI	MsquareH(i,j)= SQRT( op25*(
./pkg/gmredi/submeso_calc_psi.F	137	SUBMESO_CALC_PSI	& (dBuoyX_Hu(i,j) + dBuoyX_Hu(i+1,j))**2
./pkg/gmredi/submeso_calc_psi.F	138	SUBMESO_CALC_PSI	& + (dBuoyY_Hv(i,j) + dBuoyY_Hv(i,j+1))**2
./pkg/gmredi/submeso_calc_psi.F	143	SUBMESO_CALC_PSI	DO j=2-OLy,sNy+OLy-1
./pkg/gmredi/submeso_calc_psi.F	145	SUBMESO_CALC_PSI	lengthScaleF(i,j)= MAX(
./pkg/gmredi/submeso_calc_psi.F	146	SUBMESO_CALC_PSI	& MsquareH(i,j)/(fcorLoc(i,j)*fcorLoc(i,j)) ,
./pkg/gmredi/submeso_calc_psi.F	147	SUBMESO_CALC_PSI	& NHmixLay(i,j)/fcorLoc(i,j) ,
./pkg/gmredi/submeso_calc_psi.F	153	SUBMESO_CALC_PSI	DO j=2-OLy,sNy+OLy-1
./pkg/gmredi/submeso_calc_psi.F	155	SUBMESO_CALC_PSI	PsiLoc(i,j) = -subMeso_Ceff*dBuoyX_Hu(i,j)
./pkg/gmredi/submeso_calc_psi.F	156	SUBMESO_CALC_PSI	& *mixLayerU(i,j)
./pkg/gmredi/submeso_calc_psi.F	157	SUBMESO_CALC_PSI	& *MIN( dxC(i,j,bi,bj), subMeso_Lmax )
./pkg/gmredi/submeso_calc_psi.F	158	SUBMESO_CALC_PSI	& *2. _d 0/(lengthScaleF(i-1,j)+lengthScaleF(i,j))
./pkg/gmredi/submeso_calc_psi.F	159	SUBMESO_CALC_PSI	& *2. _d 0/(fcorLoc(i-1,j)+fcorLoc(i,j))
./pkg/gmredi/submeso_calc_psi.F	164	SUBMESO_CALC_PSI	DO j=2-OLy,sNy+OLy-1
./pkg/gmredi/submeso_calc_psi.F	166	SUBMESO_CALC_PSI	IF ( mixLayerU(i,j).GT.0. _d 0 ) THEN
./pkg/gmredi/submeso_calc_psi.F	167	SUBMESO_CALC_PSI	z2H = 2. _d 0*rF(k)/mixLayerU(i,j)
./pkg/gmredi/submeso_calc_psi.F	174	SUBMESO_CALC_PSI	GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k,bi,bj)
./pkg/gmredi/submeso_calc_psi.F	175	SUBMESO_CALC_PSI	& + mu_z*PsiLoc(i,j)
./pkg/gmredi/submeso_calc_psi.F	196	SUBMESO_CALC_PSI	DO j=3-OLy,sNy+OLy-1
./pkg/gmredi/submeso_calc_psi.F	198	SUBMESO_CALC_PSI	PsiLoc(i,j) = -subMeso_Ceff*dBuoyY_Hv(i,j)
./pkg/gmredi/submeso_calc_psi.F	199	SUBMESO_CALC_PSI	& *mixLayerV(i,j)
./pkg/gmredi/submeso_calc_psi.F	200	SUBMESO_CALC_PSI	& *MIN( dyC(i,j,bi,bj), subMeso_Lmax )
./pkg/gmredi/submeso_calc_psi.F	201	SUBMESO_CALC_PSI	& *2. _d 0/(lengthScaleF(i,j-1)+lengthScaleF(i,j))
./pkg/gmredi/submeso_calc_psi.F	202	SUBMESO_CALC_PSI	& *2. _d 0/(fcorLoc(i,j-1)+fcorLoc(i,j))
./pkg/gmredi/submeso_calc_psi.F	207	SUBMESO_CALC_PSI	DO j=3-OLy,sNy+OLy-1
./pkg/gmredi/submeso_calc_psi.F	209	SUBMESO_CALC_PSI	IF ( mixLayerV(i,j).GT.0. _d 0 ) THEN
./pkg/gmredi/submeso_calc_psi.F	210	SUBMESO_CALC_PSI	z2H = 2. _d 0*rF(k)/mixLayerV(i,j)
./pkg/gmredi/submeso_calc_psi.F	217	SUBMESO_CALC_PSI	GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k,bi,bj)
./pkg/gmredi/submeso_calc_psi.F	218	SUBMESO_CALC_PSI	& + mu_z*PsiLoc(i,j)
./pkg/gmredi/submeso_calc_psi.F	50	SUBMESO_CALC_PSI	INTEGER i,j,k
./pkg/gmredi/submeso_calc_psi.F	79	SUBMESO_CALC_PSI	DO j=1-OLy,sNy+OLy
./pkg/gmredi/submeso_calc_psi.F	81	SUBMESO_CALC_PSI	mixLayerU(i,j) = op5*( locMixLayer(i-1,j)+locMixLayer(i,j) )
./pkg/gmredi/submeso_calc_psi.F	82	SUBMESO_CALC_PSI	mixLayerU(i,j) = MIN( mixLayerU(i,j), -rLowW(i,j,bi,bj) )
./pkg/gmredi/submeso_calc_psi.F	85	SUBMESO_CALC_PSI	DO j=1-OLy+1,sNy+OLy
./pkg/gmredi/submeso_calc_psi.F	87	SUBMESO_CALC_PSI	mixLayerV(i,j)=op5*( locMixLayer(i,j-1)+locMixLayer(i,j) )
./pkg/gmredi/submeso_calc_psi.F	88	SUBMESO_CALC_PSI	mixLayerV(i,j) = MIN( mixLayerV(i,j), -rLowS(i,j,bi,bj) )
./pkg/gmredi/submeso_calc_psi.F	93	SUBMESO_CALC_PSI	DO j=1-OLy,sNy+OLy
./pkg/gmredi/submeso_calc_psi.F	95	SUBMESO_CALC_PSI	dBuoyX_Hu(i,j)= 0.
./pkg/gmredi/submeso_calc_psi.F	96	SUBMESO_CALC_PSI	dBuoyY_Hv(i,j)= 0.
./pkg/gmredi/submeso_calc_psi.F	97	SUBMESO_CALC_PSI	NHmixLay(i,j) = 0.
./pkg/gmredi/submeso_calc_psi.F	98	SUBMESO_CALC_PSI	fcorLoc(i,j) = SQRT( fCori(i,j,bi,bj)*fCori(i,j,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F	135	GRDCHK_GET_OBCS_MASK	do j = jmin,jmax
./pkg/grdchk/grdchk_get_obcs_mask.F	136	GRDCHK_GET_OBCS_MASK	grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F	137	GRDCHK_GET_OBCS_MASK	& tmpfldyz(j,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F	158	GRDCHK_GET_OBCS_MASK	do j = jmin,jmax
./pkg/grdchk/grdchk_get_obcs_mask.F	159	GRDCHK_GET_OBCS_MASK	grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F	160	GRDCHK_GET_OBCS_MASK	& tmpfldyz(j,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F	41	GRDCHK_GET_OBCS_MASK	integer i,j,k
./pkg/grdchk/grdchk_get_position.F	140	GRDCHK_GET_POSITION	do j = jwrk, ncvarymax(grdchkvarindex)
./pkg/grdchk/grdchk_get_position.F	144	GRDCHK_GET_POSITION	if ( maskC(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F	147	GRDCHK_GET_POSITION	wetlocal = maskC(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F	149	GRDCHK_GET_POSITION	if ( _maskS(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F	152	GRDCHK_GET_POSITION	wetlocal = _maskS(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F	154	GRDCHK_GET_POSITION	if ( _maskW(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F	157	GRDCHK_GET_POSITION	wetlocal = _maskW(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F	161	GRDCHK_GET_POSITION	if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F	164	GRDCHK_GET_POSITION	wetlocal = maskSHI(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F	170	GRDCHK_GET_POSITION	& .and. j.eq. OB_Jn(I,bi,bj) ) then
./pkg/grdchk/grdchk_get_position.F	178	GRDCHK_GET_POSITION	& .and. j.eq. OB_Js(I,bi,bj) ) then
./pkg/grdchk/grdchk_get_position.F	185	GRDCHK_GET_POSITION	if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F	189	GRDCHK_GET_POSITION	wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F	193	GRDCHK_GET_POSITION	if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F	197	GRDCHK_GET_POSITION	wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F	203	GRDCHK_GET_POSITION	& j .EQ. jtilepos .AND.
./pkg/grdchk/grdchk_get_position.F	59	GRDCHK_GET_POSITION	integer i,j,k
./pkg/grdchk/grdchk_getadxx.F	79	GRDCHK_GETADXX	integer i,j,k
./pkg/grdchk/grdchk_init.F	43	GRDCHK_INIT	integer i,j,k
./pkg/grdchk/grdchk_loc.F	188	GRDCHK_LOC	do j = jwrk, ncvarymax(grdchkvarindex)
./pkg/grdchk/grdchk_loc.F	192	GRDCHK_LOC	if ( maskC(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F	195	GRDCHK_LOC	jtmp = j
./pkg/grdchk/grdchk_loc.F	198	GRDCHK_LOC	if ( _maskS(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F	201	GRDCHK_LOC	jtmp = j
./pkg/grdchk/grdchk_loc.F	204	GRDCHK_LOC	if ( _maskW(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F	207	GRDCHK_LOC	jtmp = j
./pkg/grdchk/grdchk_loc.F	211	GRDCHK_LOC	if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F	214	GRDCHK_LOC	jtmp = j
./pkg/grdchk/grdchk_loc.F	221	GRDCHK_LOC	& .and. j.eq. OB_Jn(I,bi,bj) ) then
./pkg/grdchk/grdchk_loc.F	230	GRDCHK_LOC	& .and. j.eq. OB_Js(I,bi,bj) ) then
./pkg/grdchk/grdchk_loc.F	238	GRDCHK_LOC	if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F	242	GRDCHK_LOC	jtmp = j
./pkg/grdchk/grdchk_loc.F	247	GRDCHK_LOC	if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F	251	GRDCHK_LOC	jtmp = j
./pkg/grdchk/grdchk_loc.F	74	GRDCHK_LOC	integer i,j,k
./pkg/grdchk/grdchk_main.F	101	GRDCHK_MAIN	INTEGER i, j, k
./pkg/grdchk/grdchk_main.F	180	GRDCHK_MAIN	DO j = jMin, jMax
./pkg/grdchk/grdchk_main.F	182	GRDCHK_MAIN	tmpplot1(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F	183	GRDCHK_MAIN	tmpplot2(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F	184	GRDCHK_MAIN	tmpplot3(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F	289	GRDCHK_MAIN	DO j=1,sNy
./pkg/grdchk/grdchk_main.F	291	GRDCHK_MAIN	g_objf_state_final(i,j,1,1,k) = 0.
./pkg/grdchk/grdchk_setxx.F	64	GRDCHK_SETXX	integer i,j,k
./pkg/gridalt/dyn2phys.F	102	DYN2PHYS	dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj)
./pkg/gridalt/dyn2phys.F	108	DYN2PHYS	dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj)
./pkg/gridalt/dyn2phys.F	109	DYN2PHYS	windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn
./pkg/gridalt/dyn2phys.F	114	DYN2PHYS	weights(i,j,Lphy) = 1.
./pkg/gridalt/dyn2phys.F	116	DYN2PHYS	. weights(i,j,Lphy)=windphy(i,j,Lphy,bi,bj)/windsum
./pkg/gridalt/dyn2phys.F	117	DYN2PHYS	if( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).lt.10000.)) then
./pkg/gridalt/dyn2phys.F	118	DYN2PHYS	weights(i,j,Lphy) =
./pkg/gridalt/dyn2phys.F	119	DYN2PHYS	. (qd-5. + (10.*(pedyn(i,j,L,bi,bj)-pphy(i,j,Lphy))/dpkedyn))/qd
./pkg/gridalt/dyn2phys.F	120	DYN2PHYS	elseif( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).ge.10000.)) then
./pkg/gridalt/dyn2phys.F	121	DYN2PHYS	weights(i,j,Lphy) = 1.
./pkg/gridalt/dyn2phys.F	123	DYN2PHYS	qphy(i,j,Lphy,bi,bj) = qd * weights(i,j,Lphy)
./pkg/gridalt/dyn2phys.F	59	DYN2PHYS	integer i,j,L,Lout1,Lout2,Lphy
./pkg/gridalt/dyn2phys.F	77	DYN2PHYS	do j = jdim1,jdim2
./pkg/gridalt/dyn2phys.F	79	DYN2PHYS	pphy(i,j,Lphy) =
./pkg/gridalt/dyn2phys.F	80	DYN2PHYS	. (pephy(i,j,Lphy,bi,bj)+pephy(i,j,Lphy+1,bi,bj))/2.
./pkg/gridalt/dyn2phys.F	88	DYN2PHYS	do j = jdim1,jdim2
./pkg/gridalt/dyn2phys.F	90	DYN2PHYS	qd = qdyn(i,j,L,bi,bj)
./pkg/gridalt/dyn2phys.F	92	DYN2PHYS	if(L.ge.Lbot(i,j,bi,bj))then
./pkg/gridalt/dyn2phys.F	93	DYN2PHYS	if(L.eq.Lbot(i,j,bi,bj)) then
./pkg/gridalt/dyn2phys.F	96	DYN2PHYS	Lout1 = nlperdyn(i,j,L-1,bi,bj)
./pkg/gridalt/dyn2phys.F	98	DYN2PHYS	Lout2 = nlperdyn(i,j,L,bi,bj)
./pkg/gridalt/gridalt_update.F	31	GRIDALT_UPDATE	integer i,j,L
./pkg/gridalt/gridalt_update.F	53	GRIDALT_UPDATE	do j = j1,j2
./pkg/gridalt/gridalt_update.F	55	GRIDALT_UPDATE	dpphys(i,j,L,bi,bj) = dpphys0(i,j,L,bi,bj) *
./pkg/gridalt/gridalt_update.F	56	GRIDALT_UPDATE	. rstarfacC(i,j,bi,bj)
./pkg/gridalt/gridalt_update.F	74	GRIDALT_UPDATE	do j = j1,j2
./pkg/gridalt/gridalt_update.F	76	GRIDALT_UPDATE	temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1. _d -2
./pkg/gridalt/make_phys_grid.F	121	MAKE_PHYS_GRID	do j = j1,j2
./pkg/gridalt/make_phys_grid.F	123	MAKE_PHYS_GRID	Lbotij = Lbot(i,j,bi,bj)
./pkg/gridalt/make_phys_grid.F	130	MAKE_PHYS_GRID	& (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then
./pkg/gridalt/make_phys_grid.F	144	MAKE_PHYS_GRID	if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge.
./pkg/gridalt/make_phys_grid.F	147	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = dptry(Lnew)
./pkg/gridalt/make_phys_grid.F	152	MAKE_PHYS_GRID	if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)*
./pkg/gridalt/make_phys_grid.F	156	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) =
./pkg/gridalt/make_phys_grid.F	157	MAKE_PHYS_GRID	& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap
./pkg/gridalt/make_phys_grid.F	160	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) +
./pkg/gridalt/make_phys_grid.F	161	MAKE_PHYS_GRID	& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F	163	MAKE_PHYS_GRID	deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F	167	MAKE_PHYS_GRID	nlperdyn(i,j,Lbotij,bi,bj) = nlphys
./pkg/gridalt/make_phys_grid.F	178	MAKE_PHYS_GRID	if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then
./pkg/gridalt/make_phys_grid.F	180	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = dptry(Lnew)
./pkg/gridalt/make_phys_grid.F	187	MAKE_PHYS_GRID	if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap))
./pkg/gridalt/make_phys_grid.F	191	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) =
./pkg/gridalt/make_phys_grid.F	192	MAKE_PHYS_GRID	& (hfacC(i,j,L,bi,bj)*drF(L))-deltap
./pkg/gridalt/make_phys_grid.F	193	MAKE_PHYS_GRID	deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F	196	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) +
./pkg/gridalt/make_phys_grid.F	197	MAKE_PHYS_GRID	& (hfacC(i,j,L,bi,bj)*drF(L)-deltap)
./pkg/gridalt/make_phys_grid.F	198	MAKE_PHYS_GRID	deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F	207	MAKE_PHYS_GRID	if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then
./pkg/gridalt/make_phys_grid.F	209	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1)
./pkg/gridalt/make_phys_grid.F	217	MAKE_PHYS_GRID	if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then
./pkg/gridalt/make_phys_grid.F	219	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1)
./pkg/gridalt/make_phys_grid.F	222	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F	225	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F	231	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F	233	MAKE_PHYS_GRID	nlperdyn(i,j,L,bi,bj) = nlphys
./pkg/gridalt/make_phys_grid.F	240	MAKE_PHYS_GRID	dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs
./pkg/gridalt/make_phys_grid.F	242	MAKE_PHYS_GRID	dpphys(i,j,Lnew,bi,bj) = thindp
./pkg/gridalt/make_phys_grid.F	244	MAKE_PHYS_GRID	nlperdyn(i,j,Nr,bi,bj) = numlevphys
./pkg/gridalt/make_phys_grid.F	56	MAKE_PHYS_GRID	integer i,j,L,Lbotij,Lnew
./pkg/gridalt/make_phys_grid.F	96	MAKE_PHYS_GRID	do j = j1,j2
./pkg/gridalt/make_phys_grid.F	98	MAKE_PHYS_GRID	nlperdyn(i,j,L,bi,bj) = 0
./pkg/gridalt/phys2dyn.F	51	PHYS2DYN	integer i,j,L,Lout1,Lout1p1,Lout2,Lphy
./pkg/gridalt/phys2dyn.F	72	PHYS2DYN	do j = jdim1,jdim2
./pkg/gridalt/phys2dyn.F	74	PHYS2DYN	qdyn(i,j,L,bi,bj) = 0.
./pkg/gridalt/phys2dyn.F	76	PHYS2DYN	if(L.ge.Lbot(i,j,bi,bj))then
./pkg/gridalt/phys2dyn.F	77	PHYS2DYN	if(L.eq.Lbot(i,j,bi,bj)) then
./pkg/gridalt/phys2dyn.F	80	PHYS2DYN	Lout1 = nlperdyn(i,j,L-1,bi,bj)
./pkg/gridalt/phys2dyn.F	82	PHYS2DYN	Lout2 = nlperdyn(i,j,L,bi,bj)
./pkg/gridalt/phys2dyn.F	86	PHYS2DYN	dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj)
./pkg/gridalt/phys2dyn.F	92	PHYS2DYN	dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj)
./pkg/gridalt/phys2dyn.F	93	PHYS2DYN	sum=sum+qphy(i,j,Lphy,bi,bj)*(dpkephy/dpkedyn)
./pkg/gridalt/phys2dyn.F	95	PHYS2DYN	qdyn(i,j,L,bi,bj) = sum
./pkg/icefront/icefront_init_fixed.F	63	ICEFRONT_INIT_FIXED	K_icefront(i,j,bi,bj) = 0
./pkg/icefront/icefront_init_varia.F	39	ICEFRONT_INIT_VARIA	icefront_TendT (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_init_varia.F	40	ICEFRONT_INIT_VARIA	icefront_TendS (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_tendency_apply.F	101	ICEFRONT_TENDENCY_APPLY_S	DO j=1,sNy
./pkg/icefront/icefront_tendency_apply.F	103	ICEFRONT_TENDENCY_APPLY_S	IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN
./pkg/icefront/icefront_tendency_apply.F	104	ICEFRONT_TENDENCY_APPLY_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/icefront/icefront_tendency_apply.F	105	ICEFRONT_TENDENCY_APPLY_S	& + ICEFRONT_TendS(i,j,k,bi,bj)
./pkg/icefront/icefront_tendency_apply.F	46	ICEFRONT_TENDENCY_APPLY_T	INTEGER i, j
./pkg/icefront/icefront_tendency_apply.F	49	ICEFRONT_TENDENCY_APPLY_T	DO j=1,sNy
./pkg/icefront/icefront_tendency_apply.F	51	ICEFRONT_TENDENCY_APPLY_T	IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN
./pkg/icefront/icefront_tendency_apply.F	52	ICEFRONT_TENDENCY_APPLY_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/icefront/icefront_tendency_apply.F	53	ICEFRONT_TENDENCY_APPLY_T	& + ICEFRONT_TendT(i,j,k,bi,bj)
./pkg/icefront/icefront_tendency_apply.F	98	ICEFRONT_TENDENCY_APPLY_S	INTEGER i, j
./pkg/icefront/icefront_thermodynamics.F	155	ICEFRONT_THERMODYNAMICS	icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5
./pkg/icefront/icefront_thermodynamics.F	156	ICEFRONT_THERMODYNAMICS	icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) *
./pkg/icefront/icefront_thermodynamics.F	161	ICEFRONT_THERMODYNAMICS	IF (k .LT. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_thermodynamics.F	162	ICEFRONT_THERMODYNAMICS	icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F	163	ICEFRONT_THERMODYNAMICS	& * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F	164	ICEFRONT_THERMODYNAMICS	icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F	165	ICEFRONT_THERMODYNAMICS	& * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F	166	ICEFRONT_THERMODYNAMICS	ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_thermodynamics.F	169	ICEFRONT_THERMODYNAMICS	icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F	170	ICEFRONT_THERMODYNAMICS	& * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F	173	ICEFRONT_THERMODYNAMICS	icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F	174	ICEFRONT_THERMODYNAMICS	& * ICEFRONTlength(i,j,bi,bj)
./pkg/kl10/kl10_calc_diff.F	45	KL10_CALC_DIFF	INTEGER i,j,k
./pkg/kl10/kl10_calc_diff.F	51	KL10_CALC_DIFF	DO j=jMin,jMax
./pkg/kl10/kl10_calc_diff.F	53	KL10_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/kl10/kl10_calc_diff.F	54	KL10_CALC_DIFF	& +( KLdiffKr(i,j,k,bi,bj)
./pkg/kl10/kl10_calc_diff.F	56	KL10_CALC_DIFF	& - diffKr(i,j,k,bi,bj) )
./pkg/kl10/kl10_calc_diff.F	66	KL10_CALC_DIFF	DO j=jMin,jMax
./pkg/kl10/kl10_calc_diff.F	68	KL10_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/kl10/kl10_calc_diff.F	69	KL10_CALC_DIFF	& +( KLdiffKr(i,j,kArg,bi,bj)
./pkg/kl10/kl10_calc_diff.F	71	KL10_CALC_DIFF	& - diffKr(i,j,kArg,bi,bj) )
./pkg/kl10/kl10_calc_visc.F	40	KL10_CALC_VISC	INTEGER i,j
./pkg/kl10/kl10_calc_visc.F	42	KL10_CALC_VISC	DO j=jMin,jMax
./pkg/kl10/kl10_calc_visc.F	44	KL10_CALC_VISC	KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/kl10/kl10_calc_visc.F	45	KL10_CALC_VISC	& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) *
./pkg/kl10/kl10_calc_visc.F	46	KL10_CALC_VISC	& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i-1,j,k,bi,bj)) )
./pkg/kl10/kl10_calc_visc.F	50	KL10_CALC_VISC	DO j=jMin,jMax
./pkg/kl10/kl10_calc_visc.F	52	KL10_CALC_VISC	KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/kl10/kl10_calc_visc.F	53	KL10_CALC_VISC	& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) *
./pkg/kl10/kl10_calc_visc.F	54	KL10_CALC_VISC	& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i,j-1,k,bi,bj)) )
./pkg/kl10/kl10_init_varia.F	31	KL10_INIT_VARIA	INTEGER i, j, k, bi, bj
./pkg/kl10/kl10_init_varia.F	40	KL10_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/kl10/kl10_init_varia.F	42	KL10_INIT_VARIA	KLviscAr (i,j,k,bi,bj) = viscArNr(k)
./pkg/kl10/kl10_init_varia.F	43	KL10_INIT_VARIA	KLdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./model/src/adams_bashforth2.F	59	ADAMS_BASHFORTH2	INTEGER i, j, k
./model/src/adams_bashforth2.F	75	ADAMS_BASHFORTH2	DO j=1-OLy,sNy+OLy
./model/src/adams_bashforth2.F	77	ADAMS_BASHFORTH2	AB_gTr(i,j) = abFac*( gTracer(i,j,k) - gTrNm1(i,j,k) )
./model/src/adams_bashforth2.F	78	ADAMS_BASHFORTH2	gTrNm1(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j)
./model/src/adams_bashforth2.F	85	ADAMS_BASHFORTH2	DO j=1-OLy,sNy+OLy
./model/src/adams_bashforth2.F	87	ADAMS_BASHFORTH2	AB_gTr(i,j) = abFac*( gTracer(i,j,k) - gTrNm1(i,j,k) )
./model/src/adams_bashforth2.F	88	ADAMS_BASHFORTH2	gTrNm1(i,j,k) = gTracer(i,j,k)
./model/src/adams_bashforth2.F	89	ADAMS_BASHFORTH2	gTracer(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j)
./pkg/kpp/kpp_calc.F	212	KPP_CALC	integer i, j, k, kp1, km1, im1, ip1, jm1, jp1
./pkg/kpp/kpp_calc.F	277	KPP_CALC	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_calc.F	279	KPP_CALC	ghat(i,j,k) = dbloc(i,j,k)
./pkg/kpp/kpp_calc.F	327	KPP_CALC	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_calc.F	332	KPP_CALC	dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	333	KPP_CALC	& * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F	334	KPP_CALC	ghat(i,j,k) = ghat(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	335	KPP_CALC	& * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F	336	KPP_CALC	Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	337	KPP_CALC	& * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F	338	KPP_CALC	if(k.eq.nzmax(i,j,bi,bj)) then
./pkg/kpp/kpp_calc.F	339	KPP_CALC	dbloc(i,j,k) = p0
./pkg/kpp/kpp_calc.F	340	KPP_CALC	ghat(i,j,k) = p0
./pkg/kpp/kpp_calc.F	341	KPP_CALC	Ritop(i,j,k) = p0
./pkg/kpp/kpp_calc.F	347	KPP_CALC	Ritop(i,j,k) = (zgrid(1)-zgrid(k)) * Ritop(i,j,k)
./pkg/kpp/kpp_calc.F	407	KPP_CALC	DO j=jMin,jMax
./pkg/kpp/kpp_calc.F	410	KPP_CALC	temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	411	KPP_CALC	temp2(i,j,1) = 0. _d 0
./pkg/kpp/kpp_calc.F	413	KPP_CALC	temp1(i,j,k) = 0. _d 0
./pkg/kpp/kpp_calc.F	414	KPP_CALC	temp2(i,j,k) = 0. _d 0
./pkg/kpp/kpp_calc.F	418	KPP_CALC	temp1(i,j,k) = SPforcingS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	419	KPP_CALC	temp2(i,j,k) = SPforcingT(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	447	KPP_CALC	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_calc.F	449	KPP_CALC	shsq(i,j,k) = p0
./pkg/kpp/kpp_calc.F	457	KPP_CALC	DO j = jmin, jmax
./pkg/kpp/kpp_calc.F	458	KPP_CALC	jm1 = j - 1
./pkg/kpp/kpp_calc.F	459	KPP_CALC	jp1 = j + 1
./pkg/kpp/kpp_calc.F	463	KPP_CALC	shsq(i,j,k) = p5 * (
./pkg/kpp/kpp_calc.F	464	KPP_CALC	& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F	465	KPP_CALC	& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F	466	KPP_CALC	& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F	467	KPP_CALC	& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F	468	KPP_CALC	& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F	469	KPP_CALC	& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F	473	KPP_CALC	shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * (
./pkg/kpp/kpp_calc.F	482	KPP_CALC	& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F	483	KPP_CALC	& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F	486	KPP_CALC	& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F	487	KPP_CALC	& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F	531	KPP_CALC	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_calc.F	533	KPP_CALC	work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	534	KPP_CALC	work2(i,j) = Fcori(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	560	KPP_CALC	DO j = jmin, jmax
./pkg/kpp/kpp_calc.F	564	KPP_CALC	KPPviscAz(i,j,k,bi,bj) = vddiff(i,j,k-1,1) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	565	KPP_CALC	& * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F	566	KPP_CALC	KPPdiffKzS(i,j,k,bi,bj)= vddiff(i,j,k-1,2) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	567	KPP_CALC	& * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F	568	KPP_CALC	KPPdiffKzT(i,j,k,bi,bj)= vddiff(i,j,k-1,3) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	569	KPP_CALC	& * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F	570	KPP_CALC	KPPghat(i,j,k,bi,bj) = ghat(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	571	KPP_CALC	& * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F	575	KPP_CALC	if ( useShelfIce ) k = kTopC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	577	KPP_CALC	KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F	615	KPP_CALC	DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F	617	KPP_CALC	worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	624	KPP_CALC	DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F	626	KPP_CALC	KPPfrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_calc.F	635	KPP_CALC	DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F	637	KPP_CALC	work2(i,j) = SaltPlumeDepth(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	638	KPP_CALC	worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	640	KPP_CALC	lon(i,j) = XC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	641	KPP_CALC	lat(i,j) = YC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F	652	KPP_CALC	DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F	654	KPP_CALC	KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j)
./pkg/kpp/kpp_calc.F	658	KPP_CALC	DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F	660	KPP_CALC	KPPplumefrac(i,j,bi,bj) = 0. _d 0
./pkg/kpp/kpp_calc.F	710	KPP_CALC_DUMMY	integer i, j, k
./pkg/kpp/kpp_calc.F	712	KPP_CALC_DUMMY	DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F	714	KPP_CALC_DUMMY	KPPhbl (i,j,bi,bj) = 1.0
./pkg/kpp/kpp_calc.F	715	KPP_CALC_DUMMY	KPPfrac(i,j,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F	717	KPP_CALC_DUMMY	KPPplumefrac(i,j,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F	720	KPP_CALC_DUMMY	KPPghat (i,j,k,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F	721	KPP_CALC_DUMMY	KPPviscAz (i,j,k,bi,bj) = viscArNr(1)
./pkg/kpp/kpp_calc_diff_ptr.F	52	KPP_CALC_DIFF_PTR	INTEGER i,j,k
./pkg/kpp/kpp_calc_diff_ptr.F	58	KPP_CALC_DIFF_PTR	DO j=jMin,jMax
./pkg/kpp/kpp_calc_diff_ptr.F	61	KPP_CALC_DIFF_PTR	KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F	63	KPP_CALC_DIFF_PTR	KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F	66	KPP_CALC_DIFF_PTR	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/kpp/kpp_calc_diff_ptr.F	75	KPP_CALC_DIFF_PTR	DO j=jMin,jMax
./pkg/kpp/kpp_calc_diff_ptr.F	78	KPP_CALC_DIFF_PTR	KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F	80	KPP_CALC_DIFF_PTR	KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F	83	KPP_CALC_DIFF_PTR	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/kpp/kpp_calc_diff_s.F	45	KPP_CALC_DIFF_S	INTEGER i,j,k
./pkg/kpp/kpp_calc_diff_s.F	51	KPP_CALC_DIFF_S	DO j=jMin,jMax
./pkg/kpp/kpp_calc_diff_s.F	53	KPP_CALC_DIFF_S	KappaRS(i,j,k) = KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_s.F	60	KPP_CALC_DIFF_S	DO j=jMin,jMax
./pkg/kpp/kpp_calc_diff_s.F	62	KPP_CALC_DIFF_S	KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_t.F	45	KPP_CALC_DIFF_T	INTEGER i,j,k
./pkg/kpp/kpp_calc_diff_t.F	51	KPP_CALC_DIFF_T	DO j=jMin,jMax
./pkg/kpp/kpp_calc_diff_t.F	53	KPP_CALC_DIFF_T	KappaRT(i,j,k) = KPPdiffKzT(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_t.F	60	KPP_CALC_DIFF_T	DO j=jMin,jMax
./pkg/kpp/kpp_calc_diff_t.F	62	KPP_CALC_DIFF_T	KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_visc.F	38	KPP_CALC_VISC	INTEGER i,j
./pkg/kpp/kpp_calc_visc.F	40	KPP_CALC_VISC	DO j=jMin,jMax
./pkg/kpp/kpp_calc_visc.F	42	KPP_CALC_VISC	KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/kpp/kpp_calc_visc.F	43	KPP_CALC_VISC	& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) *
./pkg/kpp/kpp_calc_visc.F	44	KPP_CALC_VISC	& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) )
./pkg/kpp/kpp_calc_visc.F	48	KPP_CALC_VISC	DO j=jMin,jMax
./pkg/kpp/kpp_calc_visc.F	50	KPP_CALC_VISC	KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/kpp/kpp_calc_visc.F	51	KPP_CALC_VISC	& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) *
./pkg/kpp/kpp_calc_visc.F	52	KPP_CALC_VISC	& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i,j-1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F	125	KPP_FORCING_SURF	INTEGER i, j, k, im1, ip1, jm1, jp1
./pkg/kpp/kpp_forcing_surf.F	162	KPP_FORCING_SURF	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_forcing_surf.F	164	KPP_FORCING_SURF	ustar(i,j) = p0
./pkg/kpp/kpp_forcing_surf.F	176	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	177	KPP_FORCING_SURF	jp1 = j + 1
./pkg/kpp/kpp_forcing_surf.F	180	KPP_FORCING_SURF	work3(i,j) =
./pkg/kpp/kpp_forcing_surf.F	181	KPP_FORCING_SURF	& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	182	KPP_FORCING_SURF	& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	183	KPP_FORCING_SURF	& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	184	KPP_FORCING_SURF	& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj))
./pkg/kpp/kpp_forcing_surf.F	190	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	191	KPP_FORCING_SURF	jp1 = j + 1
./pkg/kpp/kpp_forcing_surf.F	195	KPP_FORCING_SURF	if ( work3(i,j) .lt. (phepsiphepsidrF(1)*drF(1)) ) then
./pkg/kpp/kpp_forcing_surf.F	196	KPP_FORCING_SURF	ustar(i,j) = SQRT( phepsi * p5 * drF(1) )
./pkg/kpp/kpp_forcing_surf.F	198	KPP_FORCING_SURF	tempVar2 = SQRT( work3(i,j) ) * p5
./pkg/kpp/kpp_forcing_surf.F	199	KPP_FORCING_SURF	ustar(i,j) = SQRT( tempVar2 )
./pkg/kpp/kpp_forcing_surf.F	205	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	206	KPP_FORCING_SURF	jp1 = j + 1
./pkg/kpp/kpp_forcing_surf.F	210	KPP_FORCING_SURF	& ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+
./pkg/kpp/kpp_forcing_surf.F	211	KPP_FORCING_SURF	& surfForcTice(i,j,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	212	KPP_FORCING_SURF	& SSBETA(I,J,1) * surfForcS(i,j,bi,bj) )
./pkg/kpp/kpp_forcing_surf.F	214	KPP_FORCING_SURF	bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) *
./pkg/kpp/kpp_forcing_surf.F	225	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	230	KPP_FORCING_SURF	& ( SSBETA(I,J,k) * SPforcS(i,j,k) +
./pkg/kpp/kpp_forcing_surf.F	231	KPP_FORCING_SURF	& TTALPHA(I,J,k)* SPforcT(i,j,k) / HeatCapacity_Cp )
./pkg/kpp/kpp_forcing_surf.F	238	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	244	KPP_FORCING_SURF	& * SPforcS(i,j,1)
./pkg/kpp/kpp_forcing_surf.F	277	KPP_FORCING_SURF	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_forcing_surf.F	279	KPP_FORCING_SURF	dVsq(i,j,k) = p0
./pkg/kpp/kpp_forcing_surf.F	294	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	295	KPP_FORCING_SURF	jp1 = j + 1
./pkg/kpp/kpp_forcing_surf.F	301	KPP_FORCING_SURF	work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_forcing_surf.F	303	KPP_FORCING_SURF	IF ( k .LT. nzmax(i,j,bi,bj) .AND.
./pkg/kpp/kpp_forcing_surf.F	305	KPP_FORCING_SURF	& dbloc(i,j,k) / drC(k+1) .GT. dB_dz )
./pkg/kpp/kpp_forcing_surf.F	306	KPP_FORCING_SURF	& work1(i,j) = k
./pkg/kpp/kpp_forcing_surf.F	310	KPP_FORCING_SURF	k = work1(i,j)
./pkg/kpp/kpp_forcing_surf.F	311	KPP_FORCING_SURF	IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN
./pkg/kpp/kpp_forcing_surf.F	312	KPP_FORCING_SURF	zRef(i,j) = p0
./pkg/kpp/kpp_forcing_surf.F	314	KPP_FORCING_SURF	dBdz2 = dbloc(i,j,1) / drC(2)
./pkg/kpp/kpp_forcing_surf.F	315	KPP_FORCING_SURF	zRef(i,j) = drF(1) * dB_dz / dBdz2
./pkg/kpp/kpp_forcing_surf.F	316	KPP_FORCING_SURF	ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN
./pkg/kpp/kpp_forcing_surf.F	317	KPP_FORCING_SURF	dBdz1 = dbloc(i,j,k-1) / drC(k )
./pkg/kpp/kpp_forcing_surf.F	318	KPP_FORCING_SURF	dBdz2 = dbloc(i,j,k ) / drC(k+1)
./pkg/kpp/kpp_forcing_surf.F	319	KPP_FORCING_SURF	zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) /
./pkg/kpp/kpp_forcing_surf.F	322	KPP_FORCING_SURF	zRef(i,j) = rF(k+1)
./pkg/kpp/kpp_forcing_surf.F	327	KPP_FORCING_SURF	& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	328	KPP_FORCING_SURF	& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	329	KPP_FORCING_SURF	& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	330	KPP_FORCING_SURF	& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	331	KPP_FORCING_SURF	& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	332	KPP_FORCING_SURF	& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	340	KPP_FORCING_SURF	z0(i,j) = rF(2) *
./pkg/kpp/kpp_forcing_surf.F	344	KPP_FORCING_SURF	& MAX ( ustar(i,j), phepsi ) )
./pkg/kpp/kpp_forcing_surf.F	345	KPP_FORCING_SURF	z0(i,j) = MAX ( z0(i,j), phepsi )
./pkg/kpp/kpp_forcing_surf.F	348	KPP_FORCING_SURF	zRef(i,j) = MAX ( epsilon * zRef(i,j), z0(i,j) )
./pkg/kpp/kpp_forcing_surf.F	349	KPP_FORCING_SURF	zRef(i,j) = MIN ( zRef(i,j), drF(1) )
./pkg/kpp/kpp_forcing_surf.F	352	KPP_FORCING_SURF	uRef(i,j) = p5 * ( uVel(i,j,1,bi,bj) + uVel(ip1,j,1,bi,bj) )
./pkg/kpp/kpp_forcing_surf.F	353	KPP_FORCING_SURF	vRef(i,j) = p5 * ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) )
./pkg/kpp/kpp_forcing_surf.F	354	KPP_FORCING_SURF	IF ( zRef(i,j) .LT. drF(1) ) THEN
./pkg/kpp/kpp_forcing_surf.F	355	KPP_FORCING_SURF	ustarX = ( surfForcU(i, j,bi,bj) +
./pkg/kpp/kpp_forcing_surf.F	356	KPP_FORCING_SURF	& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1)
./pkg/kpp/kpp_forcing_surf.F	357	KPP_FORCING_SURF	ustarY = ( surfForcV(i,j, bi,bj) +
./pkg/kpp/kpp_forcing_surf.F	365	KPP_FORCING_SURF	tempVar2 = ustar(i,j) *
./pkg/kpp/kpp_forcing_surf.F	366	KPP_FORCING_SURF	& ( LOG ( zRef(i,j) / rF(2) ) +
./pkg/kpp/kpp_forcing_surf.F	367	KPP_FORCING_SURF	& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) /
./pkg/kpp/kpp_forcing_surf.F	369	KPP_FORCING_SURF	uRef(i,j) = uRef(i,j) + ustarX * tempVar2
./pkg/kpp/kpp_forcing_surf.F	370	KPP_FORCING_SURF	vRef(i,j) = vRef(i,j) + ustarY * tempVar2
./pkg/kpp/kpp_forcing_surf.F	377	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	378	KPP_FORCING_SURF	jm1 = j - 1
./pkg/kpp/kpp_forcing_surf.F	379	KPP_FORCING_SURF	jp1 = j + 1
./pkg/kpp/kpp_forcing_surf.F	383	KPP_FORCING_SURF	dVsq(i,j,k) = p5 * (
./pkg/kpp/kpp_forcing_surf.F	384	KPP_FORCING_SURF	& (uRef(i,j) - uVel(i, j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	385	KPP_FORCING_SURF	& (uRef(i,j) - uVel(i, j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	386	KPP_FORCING_SURF	& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	387	KPP_FORCING_SURF	& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	388	KPP_FORCING_SURF	& (vRef(i,j) - vVel(i, j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	389	KPP_FORCING_SURF	& (vRef(i,j) - vVel(i, j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	390	KPP_FORCING_SURF	& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	391	KPP_FORCING_SURF	& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F	393	KPP_FORCING_SURF	dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * (
./pkg/kpp/kpp_forcing_surf.F	394	KPP_FORCING_SURF	& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	395	KPP_FORCING_SURF	& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	396	KPP_FORCING_SURF	& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	397	KPP_FORCING_SURF	& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	398	KPP_FORCING_SURF	& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	399	KPP_FORCING_SURF	& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	400	KPP_FORCING_SURF	& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	401	KPP_FORCING_SURF	& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	402	KPP_FORCING_SURF	& (vRef(i,j) - vVel(im1,j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	403	KPP_FORCING_SURF	& (vRef(i,j) - vVel(im1,j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	404	KPP_FORCING_SURF	& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	405	KPP_FORCING_SURF	& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	406	KPP_FORCING_SURF	& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	407	KPP_FORCING_SURF	& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	408	KPP_FORCING_SURF	& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	409	KPP_FORCING_SURF	& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F	418	KPP_FORCING_SURF	DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F	419	KPP_FORCING_SURF	jm1 = j - 1
./pkg/kpp/kpp_forcing_surf.F	420	KPP_FORCING_SURF	jp1 = j + 1
./pkg/kpp/kpp_forcing_surf.F	424	KPP_FORCING_SURF	dVsq(i,j,k) = p5 * (
./pkg/kpp/kpp_forcing_surf.F	425	KPP_FORCING_SURF	& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	426	KPP_FORCING_SURF	& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	427	KPP_FORCING_SURF	& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	428	KPP_FORCING_SURF	& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	429	KPP_FORCING_SURF	& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	430	KPP_FORCING_SURF	& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	434	KPP_FORCING_SURF	dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * (
./pkg/kpp/kpp_forcing_surf.F	443	KPP_FORCING_SURF	& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	444	KPP_FORCING_SURF	& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F	447	KPP_FORCING_SURF	& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F	448	KPP_FORCING_SURF	& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) +
./pkg/kpp/kpp_init_fixed.F	140	KPP_INIT_FIXED	DO j = 0, nnj + 1
./pkg/kpp/kpp_init_fixed.F	141	KPP_INIT_FIXED	usta = deltau*j + umin
./pkg/kpp/kpp_init_fixed.F	144	KPP_INIT_FIXED	wmt(i,j) = vonkusta/(1. + conc1zeta)
./pkg/kpp/kpp_init_fixed.F	145	KPP_INIT_FIXED	wst(i,j) = wmt(i,j)
./pkg/kpp/kpp_init_fixed.F	148	KPP_INIT_FIXED	wmt(i,j) = vonkusta(1. - conc2zeta)*p25
./pkg/kpp/kpp_init_fixed.F	150	KPP_INIT_FIXED	wmt(i,j) = vonk(conamusta*3 - concmzehat)**p33
./pkg/kpp/kpp_init_fixed.F	153	KPP_INIT_FIXED	wst(i,j) = vonkustaSQRT(1. _d 0 - conc3*zeta)
./pkg/kpp/kpp_init_fixed.F	155	KPP_INIT_FIXED	wst(i,j) = vonk(conasusta*3 - concszehat)**p33
./pkg/kpp/kpp_init_fixed.F	39	KPP_INIT_FIXED	INTEGER i, j, k
./model/src/adams_bashforth3.F	107	ADAMS_BASHFORTH3	DO j=1-OLy,sNy+OLy
./model/src/adams_bashforth3.F	109	ADAMS_BASHFORTH3	AB_gTr(i,j) = ab0*gTracer(i,j,k)
./model/src/adams_bashforth3.F	110	ADAMS_BASHFORTH3	& + ab1*gTrNm(i,j,k,bi,bj,m1)
./model/src/adams_bashforth3.F	111	ADAMS_BASHFORTH3	& + ab2*gTrNm(i,j,k,bi,bj,m2)
./model/src/adams_bashforth3.F	112	ADAMS_BASHFORTH3	gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) + AB_gTr(i,j)
./model/src/adams_bashforth3.F	119	ADAMS_BASHFORTH3	DO j=1-OLy,sNy+OLy
./model/src/adams_bashforth3.F	121	ADAMS_BASHFORTH3	AB_gTr(i,j) = ab0*gTracer(i,j,k)
./model/src/adams_bashforth3.F	122	ADAMS_BASHFORTH3	& + ab1*gTrNm(i,j,k,bi,bj,m1)
./model/src/adams_bashforth3.F	123	ADAMS_BASHFORTH3	& + ab2*gTrNm(i,j,k,bi,bj,m2)
./model/src/adams_bashforth3.F	124	ADAMS_BASHFORTH3	gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k)
./model/src/adams_bashforth3.F	125	ADAMS_BASHFORTH3	gTracer(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j)
./model/src/adams_bashforth3.F	79	ADAMS_BASHFORTH3	INTEGER i,j, k, m1,m2
./pkg/kpp/kpp_init_varia.F	32	KPP_INIT_VARIA	INTEGER i, j, k, bi, bj
./pkg/kpp/kpp_init_varia.F	43	KPP_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_init_varia.F	45	KPP_INIT_VARIA	nzmax(i,j,bi,bj) = kLowC(I,J,bi,bj)
./pkg/kpp/kpp_init_varia.F	64	KPP_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_init_varia.F	66	KPP_INIT_VARIA	KPPhbl(i,j,bi,bj) = 0.
./pkg/kpp/kpp_init_varia.F	70	KPP_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_init_varia.F	72	KPP_INIT_VARIA	KPPghat (i,j,k,bi,bj) = 0.
./pkg/kpp/kpp_init_varia.F	73	KPP_INIT_VARIA	KPPviscAz (i,j,k,bi,bj) = viscArNr(1)
./pkg/kpp/kpp_init_varia.F	74	KPP_INIT_VARIA	KPPdiffKzS (i,j,k,bi,bj) = 0.
./pkg/kpp/kpp_init_varia.F	75	KPP_INIT_VARIA	KPPdiffKzT (i,j,k,bi,bj) = 0.
./pkg/kpp/kpp_output.F	224	KPP_OUTPUT	DO j=1,sNy
./pkg/kpp/kpp_output.F	226	KPP_OUTPUT	KPPghatKStave(i,j,k,bi,bj) = KPPghatKStave(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F	227	KPP_OUTPUT	& + ( KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F	229	KPP_OUTPUT	& +tmpFac*Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F	231	KPP_OUTPUT	& )KPPghat(i,j,k-1,bi,bj)DDTT
./pkg/kpp/kpp_output.F	371	KPP_OUTPUT	DO j=1,sNy
./pkg/kpp/kpp_output.F	373	KPP_OUTPUT	tmpLoc(i,j,1) = 0. _d 0
./pkg/kpp/kpp_output.F	377	KPP_OUTPUT	DO j=1,sNy
./pkg/kpp/kpp_output.F	379	KPP_OUTPUT	tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)*
./pkg/kpp/kpp_output.F	380	KPP_OUTPUT	& ( KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F	382	KPP_OUTPUT	& + tmpFac*Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F	86	KPP_OUTPUT	INTEGER i, j, k
./pkg/kpp/kpp_routines.F	1170	SMOOTH_HORIZ	integer i, j, im1, ip1, jm1, jp1
./pkg/kpp/kpp_routines.F	1180	SMOOTH_HORIZ	DO j = jmin, jmax
./pkg/kpp/kpp_routines.F	1181	SMOOTH_HORIZ	jm1 = j-1
./pkg/kpp/kpp_routines.F	1182	SMOOTH_HORIZ	jp1 = j+1
./pkg/kpp/kpp_routines.F	1187	SMOOTH_HORIZ	& p25 * maskC(i ,j ,k,bi,bj) +
./pkg/kpp/kpp_routines.F	1188	SMOOTH_HORIZ	& p125 * ( maskC(im1,j ,k,bi,bj) +
./pkg/kpp/kpp_routines.F	1189	SMOOTH_HORIZ	& maskC(ip1,j ,k,bi,bj) +
./pkg/kpp/kpp_routines.F	1197	SMOOTH_HORIZ	fld_tmp(i,j) = (
./pkg/kpp/kpp_routines.F	1198	SMOOTH_HORIZ	& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) +
./pkg/kpp/kpp_routines.F	1199	SMOOTH_HORIZ	& p125 (fld(im1,j )maskC(im1,j ,k,bi,bj) +
./pkg/kpp/kpp_routines.F	1200	SMOOTH_HORIZ	& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) +
./pkg/kpp/kpp_routines.F	1209	SMOOTH_HORIZ	fld_tmp(i,j) = fld(i,j)
./pkg/kpp/kpp_routines.F	1215	SMOOTH_HORIZ	DO j = jmin, jmax
./pkg/kpp/kpp_routines.F	1217	SMOOTH_HORIZ	fld(i,j) = fld_tmp(i,j)
./pkg/kpp/kpp_transport_ptr.F	100	KPP_TRANSPORT_PTR	& + tmpFac*LS_Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	102	KPP_TRANSPORT_PTR	& )*LS_KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	104	KPP_TRANSPORT_PTR	& *( KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	106	KPP_TRANSPORT_PTR	& + tmpFac*Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	108	KPP_TRANSPORT_PTR	& )*KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	110	KPP_TRANSPORT_PTR	& *surfaceForcingPTr(i,j,bi,bj,tracerIdentity)
./pkg/kpp/kpp_transport_ptr.F	70	KPP_TRANSPORT_PTR	INTEGER i, j
./pkg/kpp/kpp_transport_ptr.F	79	KPP_TRANSPORT_PTR	DO j=jMin,jMax
./pkg/kpp/kpp_transport_ptr.F	81	KPP_TRANSPORT_PTR	df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	82	KPP_TRANSPORT_PTR	& *KPPghat(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	83	KPP_TRANSPORT_PTR	& *surfaceForcingPTr(i,j,bi,bj,tracerIdentity)
./pkg/kpp/kpp_transport_ptr.F	94	KPP_TRANSPORT_PTR	DO j=jMin,jMax
./pkg/kpp/kpp_transport_ptr.F	96	KPP_TRANSPORT_PTR	df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_ptr.F	98	KPP_TRANSPORT_PTR	& *( LS_KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_s.F	101	KPP_TRANSPORT_S	& + tmpFac1saltPlumeFlux(i,j,bi,bj)recip_rhoConst
./pkg/kpp/kpp_transport_s.F	102	KPP_TRANSPORT_S	& *(1.-KPPplumefrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_s.F	110	KPP_TRANSPORT_S	DO j=jMin,jMax
./pkg/kpp/kpp_transport_s.F	112	KPP_TRANSPORT_S	df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F	113	KPP_TRANSPORT_S	& *KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_s.F	114	KPP_TRANSPORT_S	& *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_s.F	115	KPP_TRANSPORT_S	& *( surfaceForcingS(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F	117	KPP_TRANSPORT_S	& + tmpFac1saltPlumeFlux(i,j,bi,bj)recip_rhoConst
./pkg/kpp/kpp_transport_s.F	118	KPP_TRANSPORT_S	& *(1.-KPPplumefrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_s.F	94	KPP_TRANSPORT_S	DO j=jMin,jMax
./pkg/kpp/kpp_transport_s.F	96	KPP_TRANSPORT_S	df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F	97	KPP_TRANSPORT_S	& ( KPPdiffKzS(i,j,k,bi,bj) + tmpFacKwz(i,j,k,bi,bj) )
./pkg/kpp/kpp_transport_s.F	98	KPP_TRANSPORT_S	& *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_s.F	99	KPP_TRANSPORT_S	& *( surfaceForcingS(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F	100	KPP_TRANSPORT_T	& *(1.-KPPfrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_t.F	61	KPP_TRANSPORT_T	INTEGER i, j
./pkg/kpp/kpp_transport_t.F	77	KPP_TRANSPORT_T	DO j=jMin,jMax
./pkg/kpp/kpp_transport_t.F	79	KPP_TRANSPORT_T	df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F	80	KPP_TRANSPORT_T	& ( KPPdiffKzT(i,j,k,bi,bj) + tmpFacKwz(i,j,k,bi,bj) )
./pkg/kpp/kpp_transport_t.F	81	KPP_TRANSPORT_T	& *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_t.F	82	KPP_TRANSPORT_T	& *( surfaceForcingT(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F	83	KPP_TRANSPORT_T	& +surfaceForcingTice(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F	84	KPP_TRANSPORT_T	& -Qsw(i,j,bi,bj)recip_Cprecip_rhoConst
./pkg/kpp/kpp_transport_t.F	85	KPP_TRANSPORT_T	& *(1.-KPPfrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_t.F	92	KPP_TRANSPORT_T	DO j=jMin,jMax
./pkg/kpp/kpp_transport_t.F	94	KPP_TRANSPORT_T	df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F	95	KPP_TRANSPORT_T	& *KPPdiffKzT(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_t.F	96	KPP_TRANSPORT_T	& *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_t.F	97	KPP_TRANSPORT_T	& *( surfaceForcingT(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F	98	KPP_TRANSPORT_T	& +surfaceForcingTice(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F	99	KPP_TRANSPORT_T	& -Qsw(i,j,bi,bj)recip_Cprecip_rhoConst
./model/src/add_walls2masks.F	110	ADD_WALLS2MASKS	DO j=1-OLy,sNy+OLy
./model/src/add_walls2masks.F	112	ADD_WALLS2MASKS	IF ( tmpFldW(i,j,bi,bj).EQ.oneRS ) THEN
./model/src/add_walls2masks.F	114	ADD_WALLS2MASKS	hFacW(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F	116	ADD_WALLS2MASKS	rLowW (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F	117	ADD_WALLS2MASKS	rSurfW(i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F	119	ADD_WALLS2MASKS	IF ( tmpFldS(i,j,bi,bj).EQ.oneRS ) THEN
./model/src/add_walls2masks.F	121	ADD_WALLS2MASKS	hFacS(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F	123	ADD_WALLS2MASKS	rLowS (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F	124	ADD_WALLS2MASKS	rSurfS(i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F	46	ADD_WALLS2MASKS	INTEGER i, j, k
./model/src/add_walls2masks.F	56	ADD_WALLS2MASKS	DO j=1-OLy,sNy+OLy
./model/src/add_walls2masks.F	58	ADD_WALLS2MASKS	tmpFldW(i,j,bi,bj) = zeroRS
./model/src/add_walls2masks.F	59	ADD_WALLS2MASKS	tmpFldS(i,j,bi,bj) = zeroRS
./model/src/add_walls2masks.F	83	ADD_WALLS2MASKS	DO j=1-OLy,sNy+OLy
./model/src/add_walls2masks.F	85	ADD_WALLS2MASKS	IF ( dyG(i,j,bi,bj).EQ.zeroRS ) THEN
./model/src/add_walls2masks.F	87	ADD_WALLS2MASKS	hFacW(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F	89	ADD_WALLS2MASKS	rLowW (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F	90	ADD_WALLS2MASKS	rSurfW(i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F	92	ADD_WALLS2MASKS	IF ( dxG(i,j,bi,bj).EQ.zeroRS ) THEN
./model/src/add_walls2masks.F	94	ADD_WALLS2MASKS	hFacS(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F	96	ADD_WALLS2MASKS	rLowS (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F	97	ADD_WALLS2MASKS	rSurfS(i,j,bi,bj) = rF(1)
./pkg/land/land_albedo.F	55	LAND_ALBEDO	INTEGER i,j
./pkg/land/land_albedo.F	61	LAND_ALBEDO	DO j=1,sNy
./pkg/land/land_albedo.F	63	LAND_ALBEDO	alb_land(i,j) = grnd_alb(i,j,bi,bj)
./pkg/land/land_albedo.F	64	LAND_ALBEDO	IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_albedo.F	65	LAND_ALBEDO	Tsf = land_skinT(i,j,bi,bj)
./pkg/land/land_albedo.F	67	LAND_ALBEDO	ageSnow = land_snowAge(i,j,bi,bj)/86400. _d 0
./pkg/land/land_albedo.F	68	LAND_ALBEDO	hSnow = land_hSnow(i,j,bi,bj)
./pkg/land/land_albedo.F	86	LAND_ALBEDO	alb_land(i,j) = albSnow
./pkg/land/land_albedo.F	87	LAND_ALBEDO	& +(alb_land(i,j)-albSnow)*exp(-hSnow/hAlbSnow)
./pkg/land/land_impl_temp.F	129	LAND_IMPL_TEMP	DO j=1,sNy
./pkg/land/land_impl_temp.F	131	LAND_IMPL_TEMP	IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_impl_temp.F	135	LAND_IMPL_TEMP	tSurf = land_skinT(i,j,bi,bj)
./pkg/land/land_impl_temp.F	136	LAND_IMPL_TEMP	mSnow = land_rhoSnow*land_hSnow(i,j,bi,bj)
./pkg/land/land_impl_temp.F	137	LAND_IMPL_TEMP	bLoc = -sFlx(i,j,2)
./pkg/land/land_impl_temp.F	138	LAND_IMPL_TEMP	fLoc = sFlx(i,j,1)+bLoc*tSurf
./pkg/land/land_impl_temp.F	139	LAND_IMPL_TEMP	alpha = land_hSnow(i,j,bi,bj)/diffKsnow
./pkg/land/land_impl_temp.F	142	LAND_IMPL_TEMP	eg(k) = land_dzF(k)*land_enthalp(i,j,k,bi,bj)
./pkg/land/land_impl_temp.F	143	LAND_IMPL_TEMP	mW(k) = land_dzF(k)*land_groundW(i,j,k,bi,bj)
./pkg/land/land_impl_temp.F	147	LAND_IMPL_TEMP	tg(k) = land_groundT(i,j,k,bi,bj)
./pkg/land/land_impl_temp.F	150	LAND_IMPL_TEMP	dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_impl_temp.F	154	LAND_IMPL_TEMP	& 'LAND_IMPL_TEMP: 0 , sFlx=', 0,(sFlx(i,j,k),k=0,2)
./pkg/land/land_impl_temp.F	176	LAND_IMPL_TEMP	IF ( tg(2)*land_groundT(i,j,2,bi,bj) .LE. 0. _d 0
./pkg/land/land_impl_temp.F	196	LAND_IMPL_TEMP	& i,j,bi,bj,myIter
./pkg/land/land_impl_temp.F	201	LAND_IMPL_TEMP	& land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj),
./pkg/land/land_impl_temp.F	222	LAND_IMPL_TEMP	IF ( tg(1)*land_groundT(i,j,1,bi,bj) .LE. 0. _d 0
./pkg/land/land_impl_temp.F	236	LAND_IMPL_TEMP	land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT
./pkg/land/land_impl_temp.F	237	LAND_IMPL_TEMP	land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow
./pkg/land/land_impl_temp.F	249	LAND_IMPL_TEMP	& i,j,bi,bj,myIter
./pkg/land/land_impl_temp.F	254	LAND_IMPL_TEMP	& land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj),
./pkg/land/land_impl_temp.F	284	LAND_IMPL_TEMP	& 1, sFlx(i,j,0), fLoc, fLoc-bLoc*tSurf
./pkg/land/land_impl_temp.F	287	LAND_IMPL_TEMP	fLoc = sFlx(i,j,0)
./pkg/land/land_impl_temp.F	288	LAND_IMPL_TEMP	dTsurf(i,j) = 1000.
./pkg/land/land_impl_temp.F	289	LAND_IMPL_TEMP	tg(1) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_impl_temp.F	290	LAND_IMPL_TEMP	tg(2) = land_groundT(i,j,2,bi,bj)
./pkg/land/land_impl_temp.F	306	LAND_IMPL_TEMP	IF ( tg(2)*land_groundT(i,j,2,bi,bj).LE.0. _d 0 ) THEN
./pkg/land/land_impl_temp.F	309	LAND_IMPL_TEMP	ELSEIF ( tg(1)*land_groundT(i,j,1,bi,bj).LE.0. _d 0 ) THEN
./pkg/land/land_impl_temp.F	327	LAND_IMPL_TEMP	land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT
./pkg/land/land_impl_temp.F	328	LAND_IMPL_TEMP	land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow
./pkg/land/land_impl_temp.F	342	LAND_IMPL_TEMP	IF ( dTsurf(i,j) .LE. 999. )
./pkg/land/land_impl_temp.F	343	LAND_IMPL_TEMP	& dTsurf(i,j) = tSurf - land_skinT(i,j,bi,bj)
./pkg/land/land_impl_temp.F	344	LAND_IMPL_TEMP	land_skinT(i,j,bi,bj) = tSurf
./pkg/land/land_impl_temp.F	346	LAND_IMPL_TEMP	land_enthalp(i,j,k,bi,bj) = eg(k)/land_dzF(k)
./pkg/land/land_impl_temp.F	347	LAND_IMPL_TEMP	land_groundT(i,j,k,bi,bj) = tg(k)
./pkg/land/land_impl_temp.F	352	LAND_IMPL_TEMP	& tSurf, tg, dTsurf(i,j)
./pkg/land/land_impl_temp.F	354	LAND_IMPL_TEMP	& (land_enthalp(i,j,k,bi,bj),k=1,2), land_Pr_m_Ev(i,j,bi,bj)
./pkg/land/land_impl_temp.F	87	LAND_IMPL_TEMP	INTEGER i,j,k
./pkg/land/land_ini_vars.F	134	LAND_INI_VARS	DO j=1,sNy
./pkg/land/land_ini_vars.F	139	LAND_INI_VARS	& *land_groundW(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F	141	LAND_INI_VARS	land_enthalp(i,j,k,bi,bj) =
./pkg/land/land_ini_vars.F	142	LAND_INI_VARS	& grd_HeatCp*land_groundT(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F	143	LAND_INI_VARS	IF (land_groundT(i,j,k,bi,bj).LT. 0. _d 0)
./pkg/land/land_ini_vars.F	144	LAND_INI_VARS	& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F	147	LAND_INI_VARS	land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_ini_vars.F	152	LAND_INI_VARS	DO j=1,sNy
./pkg/land/land_ini_vars.F	156	LAND_INI_VARS	& *land_groundW(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F	159	LAND_INI_VARS	temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater)
./pkg/land/land_ini_vars.F	162	LAND_INI_VARS	temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp
./pkg/land/land_ini_vars.F	163	LAND_INI_VARS	land_groundT(i,j,k,bi,bj) =
./pkg/land/land_ini_vars.F	49	LAND_INI_VARS	INTEGER i,j,k,bi,bj
./pkg/land/land_ini_vars.F	65	LAND_INI_VARS	land_groundT(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	66	LAND_INI_VARS	land_enthalp(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	67	LAND_INI_VARS	land_groundW(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	75	LAND_INI_VARS	land_skinT (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	76	LAND_INI_VARS	land_hSnow (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	77	LAND_INI_VARS	land_snowAge(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	78	LAND_INI_VARS	land_runOff (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	79	LAND_INI_VARS	land_enRnOf (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	80	LAND_INI_VARS	land_HeatFLx(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	81	LAND_INI_VARS	land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F	82	LAND_INI_VARS	land_EnWFlux(i,j,bi,bj) = 0. _d 0
./model/src/apply_forcing.F	133	APPLY_FORCING_U	DO j=0,sNy+1
./model/src/apply_forcing.F	135	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./model/src/apply_forcing.F	136	APPLY_FORCING_U	& +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/apply_forcing.F	137	APPLY_FORCING_U	& recip_drF(k)_recip_hFacW(i,j,k,bi,bj)
./model/src/apply_forcing.F	141	APPLY_FORCING_U	DO j=0,sNy+1
./model/src/apply_forcing.F	143	APPLY_FORCING_U	IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F	144	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./model/src/apply_forcing.F	145	APPLY_FORCING_U	& +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/apply_forcing.F	146	APPLY_FORCING_U	& recip_drF(k)_recip_hFacW(i,j,k,bi,bj)
./model/src/apply_forcing.F	239	APPLY_FORCING_V	INTEGER i, j
./model/src/apply_forcing.F	250	APPLY_FORCING_V	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	252	APPLY_FORCING_V	locVar(i,j) = gV(i,j,k,bi,bj)
./model/src/apply_forcing.F	261	APPLY_FORCING_V	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	263	APPLY_FORCING_V	tmpVar(i,j) = gV(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F	264	APPLY_FORCING_V	gV(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F	269	APPLY_FORCING_V	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	271	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j) + tmpVar(i,j)
./model/src/apply_forcing.F	309	APPLY_FORCING_V	DO j=1,sNy+1
./model/src/apply_forcing.F	313	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./model/src/apply_forcing.F	314	APPLY_FORCING_V	& +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/apply_forcing.F	315	APPLY_FORCING_V	& recip_drF(k)_recip_hFacS(i,j,k,bi,bj)
./model/src/apply_forcing.F	319	APPLY_FORCING_V	DO j=1,sNy+1
./model/src/apply_forcing.F	321	APPLY_FORCING_V	IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F	322	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./model/src/apply_forcing.F	323	APPLY_FORCING_V	& +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/apply_forcing.F	324	APPLY_FORCING_V	& recip_drF(k)_recip_hFacS(i,j,k,bi,bj)
./model/src/apply_forcing.F	417	APPLY_FORCING_T	INTEGER i, j
./model/src/apply_forcing.F	438	APPLY_FORCING_T	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	440	APPLY_FORCING_T	locVar(i,j) = gT(i,j,k,bi,bj)
./model/src/apply_forcing.F	449	APPLY_FORCING_T	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	451	APPLY_FORCING_T	tmpVar(i,j) = gT(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F	452	APPLY_FORCING_T	gT(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F	457	APPLY_FORCING_T	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	459	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j) + tmpVar(i,j)
./model/src/apply_forcing.F	502	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	504	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	505	APPLY_FORCING_T	& + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F	506	APPLY_FORCING_T	& *( temp_addMass - theta(i,j,k,bi,bj) )
./model/src/apply_forcing.F	507	APPLY_FORCING_T	& *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F	508	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	513	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	515	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	516	APPLY_FORCING_T	& + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F	518	APPLY_FORCING_T	& *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F	519	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	538	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	540	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	541	APPLY_FORCING_T	& + frictionHeating(i,j,k,bi,bj)
./model/src/apply_forcing.F	542	APPLY_FORCING_T	& tmpFacrecip_rA(i,j,bi,bj)
./model/src/apply_forcing.F	543	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	565	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	567	APPLY_FORCING_T	tmpVar(i,j) = 0.
./model/src/apply_forcing.F	573	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	575	APPLY_FORCING_T	tmpVar(i,j) = wVel(i,j,kc,bi,bj)delPIatm_Rq
./model/src/apply_forcing.F	576	APPLY_FORCING_T	& ( theta(i,j,km,bi,bj)salt(i,j,km,bi,bj)
./model/src/apply_forcing.F	577	APPLY_FORCING_T	& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./model/src/apply_forcing.F	578	APPLY_FORCING_T	& )maskC(i,j,km,bi,bj)0.25 _d 0
./model/src/apply_forcing.F	585	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	587	APPLY_FORCING_T	tmpVar(i,j) = tmpVar(i,j)
./model/src/apply_forcing.F	588	APPLY_FORCING_T	& + wVel(i,j,kp,bi,bj)delPIatm_Rq
./model/src/apply_forcing.F	589	APPLY_FORCING_T	& ( theta(i,j,kc,bi,bj)salt(i,j,kc,bi,bj)
./model/src/apply_forcing.F	590	APPLY_FORCING_T	& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj)
./model/src/apply_forcing.F	591	APPLY_FORCING_T	& )maskC(i,j,kp,bi,bj)0.25 _d 0
./model/src/apply_forcing.F	595	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	597	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	598	APPLY_FORCING_T	& + tmpVar(i,j)*tmpFac
./model/src/apply_forcing.F	599	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	614	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	616	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	617	APPLY_FORCING_T	& +surfaceForcingT(i,j,bi,bj)
./model/src/apply_forcing.F	618	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	61	APPLY_FORCING_U	INTEGER i, j
./model/src/apply_forcing.F	622	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	624	APPLY_FORCING_T	IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F	625	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	626	APPLY_FORCING_T	& +surfaceForcingT(i,j,bi,bj)
./model/src/apply_forcing.F	627	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	634	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	636	APPLY_FORCING_T	IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/apply_forcing.F	637	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	638	APPLY_FORCING_T	& +TsurfCorrecip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	646	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	648	APPLY_FORCING_T	IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN
./model/src/apply_forcing.F	649	APPLY_FORCING_T	gT_arr(i,j)=gT_arr(i,j)
./model/src/apply_forcing.F	650	APPLY_FORCING_T	& + geothermalFlux(i,j,bi,bj)
./model/src/apply_forcing.F	652	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	673	APPLY_FORCING_T	DO j=1,sNy
./model/src/apply_forcing.F	675	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./model/src/apply_forcing.F	676	APPLY_FORCING_T	& -Qsw(i,j,bi,bj)(swfracb(1)maskC(i,j,k,bi,bj)
./model/src/apply_forcing.F	677	APPLY_FORCING_T	& -swfracb(2)*maskC(i,j,kp1, bi,bj))
./model/src/apply_forcing.F	679	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	72	APPLY_FORCING_U	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	74	APPLY_FORCING_U	locVar(i,j) = gU(i,j,k,bi,bj)
./model/src/apply_forcing.F	803	APPLY_FORCING_S	INTEGER i, j
./model/src/apply_forcing.F	814	APPLY_FORCING_S	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	816	APPLY_FORCING_S	locVar(i,j) = gS(i,j,k,bi,bj)
./model/src/apply_forcing.F	825	APPLY_FORCING_S	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	827	APPLY_FORCING_S	tmpVar(i,j) = gS(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F	828	APPLY_FORCING_S	gS(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F	833	APPLY_FORCING_S	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	835	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j) + tmpVar(i,j)
./model/src/apply_forcing.F	83	APPLY_FORCING_U	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	85	APPLY_FORCING_U	tmpVar(i,j) = gU(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F	86	APPLY_FORCING_U	gU(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F	877	APPLY_FORCING_S	DO j=1,sNy
./model/src/apply_forcing.F	879	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./model/src/apply_forcing.F	880	APPLY_FORCING_S	& + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F	881	APPLY_FORCING_S	& *( salt_addMass - salt(i,j,k,bi,bj) )
./model/src/apply_forcing.F	882	APPLY_FORCING_S	& *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F	883	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	888	APPLY_FORCING_S	DO j=1,sNy
./model/src/apply_forcing.F	890	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./model/src/apply_forcing.F	891	APPLY_FORCING_S	& + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F	893	APPLY_FORCING_S	& *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F	894	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	904	APPLY_FORCING_S	DO j=1,sNy
./model/src/apply_forcing.F	906	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./model/src/apply_forcing.F	907	APPLY_FORCING_S	& +surfaceForcingS(i,j,bi,bj)
./model/src/apply_forcing.F	908	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	912	APPLY_FORCING_S	DO j=1,sNy
./model/src/apply_forcing.F	914	APPLY_FORCING_S	IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F	915	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./model/src/apply_forcing.F	916	APPLY_FORCING_S	& +surfaceForcingS(i,j,bi,bj)
./model/src/apply_forcing.F	917	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	91	APPLY_FORCING_U	DO j=1-OLy,sNy+OLy
./model/src/apply_forcing.F	924	APPLY_FORCING_S	DO j=1,sNy
./model/src/apply_forcing.F	926	APPLY_FORCING_S	IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/apply_forcing.F	927	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./model/src/apply_forcing.F	928	APPLY_FORCING_S	& +SsurfCorrecip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F	93	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j) + tmpVar(i,j)
./pkg/land/land_stepfwd.F	103	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	105	LAND_STEPFWD	flxkup(i,j) = flxkdw(i,j)
./pkg/land/land_stepfwd.F	110	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	112	LAND_STEPFWD	IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F	114	LAND_STEPFWD	flxkdw(i,j) = land_grdLambda*
./pkg/land/land_stepfwd.F	115	LAND_STEPFWD	& ( land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	116	LAND_STEPFWD	& -land_groundT(i,j,kp1,bi,bj) )
./pkg/land/land_stepfwd.F	120	LAND_STEPFWD	land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	121	LAND_STEPFWD	& + land_deltaT * (flxkup(i,j)-flxkdw(i,j))/land_dzF(k)
./pkg/land/land_stepfwd.F	135	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	137	LAND_STEPFWD	land_runOff(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F	138	LAND_STEPFWD	land_enRnOf(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F	150	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	152	LAND_STEPFWD	IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F	154	LAND_STEPFWD	& *land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	157	LAND_STEPFWD	temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater)
./pkg/land/land_stepfwd.F	159	LAND_STEPFWD	temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp
./pkg/land/land_stepfwd.F	160	LAND_STEPFWD	land_groundT(i,j,k,bi,bj) =
./pkg/land/land_stepfwd.F	163	LAND_STEPFWD	dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_stepfwd.F	166	LAND_STEPFWD	& k,land_groundT(i,j,k,bi,bj),temp_af,temp_bf
./pkg/land/land_stepfwd.F	177	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	179	LAND_STEPFWD	IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F	180	LAND_STEPFWD	mPmE = land_Pr_m_Ev(i,j,bi,bj)
./pkg/land/land_stepfwd.F	181	LAND_STEPFWD	enWfx = land_EnWFlux(i,j,bi,bj)
./pkg/land/land_stepfwd.F	182	LAND_STEPFWD	enGr1 = land_enthalp(i,j,1,bi,bj)*land_dzF(1)
./pkg/land/land_stepfwd.F	184	LAND_STEPFWD	dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_stepfwd.F	187	LAND_STEPFWD	& mPmE,enWfx,enGr1/land_deltaT,land_hSnow(i,j,bi,bj)
./pkg/land/land_stepfwd.F	190	LAND_STEPFWD	land_snowAge(i,j,bi,bj) =
./pkg/land/land_stepfwd.F	191	LAND_STEPFWD	& ( land_deltaT + land_snowAge(i,j,bi,bj)*ageFac )
./pkg/land/land_stepfwd.F	200	LAND_STEPFWD	flxEngU(i,j) = enWfx + land_Lfreez*snowPrec
./pkg/land/land_stepfwd.F	203	LAND_STEPFWD	land_snowAge(i,j,bi,bj) = land_snowAge(i,j,bi,bj)
./pkg/land/land_stepfwd.F	209	LAND_STEPFWD	& land_hMaxSnow - land_hSnow(i,j,bi,bj) )
./pkg/land/land_stepfwd.F	211	LAND_STEPFWD	land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj) + dhSnow
./pkg/land/land_stepfwd.F	213	LAND_STEPFWD	land_runOff(i,j,bi,bj) = mIceDt
./pkg/land/land_stepfwd.F	214	LAND_STEPFWD	land_enRnOf(i,j,bi,bj) = -mIceDt*land_Lfreez
./pkg/land/land_stepfwd.F	218	LAND_STEPFWD	& 3,snowPrec,mPmE,hNewSnow,land_hSnow(i,j,bi,bj)
./pkg/land/land_stepfwd.F	225	LAND_STEPFWD	mSnow = land_hSnow(i,j,bi,bj)*land_rhoSnow
./pkg/land/land_stepfwd.F	229	LAND_STEPFWD	land_hSnow(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F	230	LAND_STEPFWD	flxEngU(i,j) = enWfx - land_Lfreez*mSnow/land_deltaT
./pkg/land/land_stepfwd.F	232	LAND_STEPFWD	flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F	233	LAND_STEPFWD	land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj)
./pkg/land/land_stepfwd.F	241	LAND_STEPFWD	& 4,dMsn,mPmE,land_hSnow(i,j,bi,bj),flxEngU(i,j)
./pkg/land/land_stepfwd.F	244	LAND_STEPFWD	flxkup(i,j) = mPmE/land_rhoLiqW
./pkg/land/land_stepfwd.F	246	LAND_STEPFWD	IF ( land_hSnow(i,j,bi,bj).LE. 0. _d 0 )
./pkg/land/land_stepfwd.F	247	LAND_STEPFWD	& land_snowAge(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F	258	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	260	LAND_STEPFWD	flxkup(i,j) = land_Pr_m_Ev(i,j,bi,bj)/land_rhoLiqW
./pkg/land/land_stepfwd.F	261	LAND_STEPFWD	flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F	281	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	283	LAND_STEPFWD	IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F	285	LAND_STEPFWD	dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_stepfwd.F	292	LAND_STEPFWD	IF ( land_groundT(i,j,k,bi,bj).LT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F	294	LAND_STEPFWD	IF ( flxkup(i,j) .LT. 0. _d 0 ) THEN
./pkg/land/land_stepfwd.F	296	LAND_STEPFWD	land_groundW(i,j,k,bi,bj) = land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	297	LAND_STEPFWD	& + land_deltaT * flxkup(i,j) / fieldCapac
./pkg/land/land_stepfwd.F	299	LAND_STEPFWD	& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	300	LAND_STEPFWD	& + land_deltaT * flxEngU(i,j) / land_dzF(k)
./pkg/land/land_stepfwd.F	303	LAND_STEPFWD	land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj)
./pkg/land/land_stepfwd.F	304	LAND_STEPFWD	& + flxkup(i,j)*land_rhoLiqW
./pkg/land/land_stepfwd.F	305	LAND_STEPFWD	land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj)
./pkg/land/land_stepfwd.F	306	LAND_STEPFWD	& + flxEngU(i,j)
./pkg/land/land_stepfwd.F	309	LAND_STEPFWD	flxkup(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F	310	LAND_STEPFWD	flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F	317	LAND_STEPFWD	& land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F	320	LAND_STEPFWD	flxkdw(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F	323	LAND_STEPFWD	flxkdw(i,j) = fieldCapac*
./pkg/land/land_stepfwd.F	324	LAND_STEPFWD	& ( land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	325	LAND_STEPFWD	& -land_groundW(i,j,kp1,bi,bj) )
./pkg/land/land_stepfwd.F	328	LAND_STEPFWD	IF ( flxkdw(i,j).GE.0. ) THEN
./pkg/land/land_stepfwd.F	329	LAND_STEPFWD	flxEngL = flxkdw(i,j)land_rhoLiqWland_CpWater
./pkg/land/land_stepfwd.F	330	LAND_STEPFWD	& *land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	332	LAND_STEPFWD	flxEngL = flxkdw(i,j)land_rhoLiqWland_CpWater
./pkg/land/land_stepfwd.F	333	LAND_STEPFWD	& *land_groundT(i,j,kp1,bi,bj)
./pkg/land/land_stepfwd.F	338	LAND_STEPFWD	groundWnp1 = land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	339	LAND_STEPFWD	& + land_deltaT * (flxkup(i,j)-flxkdw(i,j)) / fieldCapac
./pkg/land/land_stepfwd.F	343	LAND_STEPFWD	& ,5,land_groundW(i,j,k,bi,bj)-1.,
./pkg/land/land_stepfwd.F	344	LAND_STEPFWD	& flxkup(i,j),flxkdw(i,j),groundWnp1-1.
./pkg/land/land_stepfwd.F	348	LAND_STEPFWD	land_groundW(i,j,k,bi,bj) = MIN(1. _d 0, groundWnp1)
./pkg/land/land_stepfwd.F	353	LAND_STEPFWD	land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj)
./pkg/land/land_stepfwd.F	356	LAND_STEPFWD	flxkup(i,j) = flxkdw(i,j)
./pkg/land/land_stepfwd.F	361	LAND_STEPFWD	& *land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	363	LAND_STEPFWD	land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	364	LAND_STEPFWD	& + ( flxEngU(i,j) - flxEngL - grdWexcess*enthalpGrdW
./pkg/land/land_stepfwd.F	367	LAND_STEPFWD	land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj)
./pkg/land/land_stepfwd.F	370	LAND_STEPFWD	flxEngU(i,j) = flxEngL
./pkg/land/land_stepfwd.F	375	LAND_STEPFWD	& 7, land_groundT(i,j,k,bi,bj), flxEngU(i,j), flxkup(i,j)
./pkg/land/land_stepfwd.F	381	LAND_STEPFWD	& 8, land_runOff(i,j,bi,bj),land_enRnOf(i,j,bi,bj)
./pkg/land/land_stepfwd.F	398	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	402	LAND_STEPFWD	& *land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	406	LAND_STEPFWD	temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater)
./pkg/land/land_stepfwd.F	409	LAND_STEPFWD	temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp
./pkg/land/land_stepfwd.F	411	LAND_STEPFWD	land_enthalp(i,j,k,bi,bj) =
./pkg/land/land_stepfwd.F	412	LAND_STEPFWD	& grd_HeatCp*land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F	414	LAND_STEPFWD	land_groundT(i,j,k,bi,bj) =
./pkg/land/land_stepfwd.F	422	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	424	LAND_STEPFWD	IF ( land_hSnow(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F	425	LAND_STEPFWD	land_skinT(i,j,bi,bj) = MIN(land_skinT(i,j,bi,bj), 0. _d 0)
./pkg/land/land_stepfwd.F	427	LAND_STEPFWD	land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_stepfwd.F	432	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	434	LAND_STEPFWD	land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_stepfwd.F	81	LAND_STEPFWD	INTEGER i,j,k,kp1
./pkg/land/land_stepfwd.F	97	LAND_STEPFWD	DO j=1,sNy
./pkg/land/land_stepfwd.F	99	LAND_STEPFWD	flxkup(i,j) = land_HeatFlx(i,j,bi,bj)
./model/src/calc_3d_diffusivity.F	100	CALC_3D_DIFFUSIVITY	KappaRTr(i,j,k) =
./model/src/calc_3d_diffusivity.F	101	CALC_3D_DIFFUSIVITY	& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_3d_diffusivity.F	104	CALC_3D_DIFFUSIVITY	& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./model/src/calc_3d_diffusivity.F	112	CALC_3D_DIFFUSIVITY	DO j = 1-OLy,sNy+OLy
./model/src/calc_3d_diffusivity.F	114	CALC_3D_DIFFUSIVITY	KappaRTr(i,j,k) = KappaRTr(i,j,k)
./model/src/calc_3d_diffusivity.F	116	CALC_3D_DIFFUSIVITY	& + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F	125	CALC_3D_DIFFUSIVITY	DO j = 1-OLy, sNy+OLy
./model/src/calc_3d_diffusivity.F	127	CALC_3D_DIFFUSIVITY	KappaRTr(i,j,k) = KappaRTr(i,j,k)
./model/src/calc_3d_diffusivity.F	129	CALC_3D_DIFFUSIVITY	& + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F	141	CALC_3D_DIFFUSIVITY	DO j = 1-OLy, sNy+OLy
./model/src/calc_3d_diffusivity.F	143	CALC_3D_DIFFUSIVITY	KappaRTr(i,j,k) = KappaRTr(i,j,k)
./model/src/calc_3d_diffusivity.F	145	CALC_3D_DIFFUSIVITY	& + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F	67	CALC_3D_DIFFUSIVITY	INTEGER i,j,k
./model/src/calc_3d_diffusivity.F	86	CALC_3D_DIFFUSIVITY	DO j = 1-OLy,sNy+OLy
./model/src/calc_3d_diffusivity.F	90	CALC_3D_DIFFUSIVITY	KappaRTr(i,j,k) =
./model/src/calc_3d_diffusivity.F	91	CALC_3D_DIFFUSIVITY	& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_3d_diffusivity.F	94	CALC_3D_DIFFUSIVITY	& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./pkg/layers/layers_calc.F	136	LAYERS_CALC	DO j = 1-OLy,sNy+OLy
./pkg/layers/layers_calc.F	138	LAYERS_CALC	prho(i,j,k,bi,bj) = rhoConst + prho(i,j,k,bi,bj)
./pkg/layers/layers_calc.F	225	LAYERS_CALC	DO j=1-OLy,sNy+OLy
./pkg/layers/layers_calc.F	227	LAYERS_CALC	layers_surfflux(i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F	228	LAYERS_CALC	layers_dfx (i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F	229	LAYERS_CALC	layers_dfy (i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F	230	LAYERS_CALC	layers_dfr (i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F	58	LAYERS_CALC	INTEGER i, j, k
./pkg/layers/layers_fluxcalc.F	112	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	117	LAYERS_FLUXCALC	kgu(i,j) = Nlayers
./pkg/layers/layers_fluxcalc.F	118	LAYERS_FLUXCALC	kgv(i,j) = Nlayers
./pkg/layers/layers_fluxcalc.F	124	LAYERS_FLUXCALC	DO j = 1-OLy,sNy+OLy
./pkg/layers/layers_fluxcalc.F	127	LAYERS_FLUXCALC	UH(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	129	LAYERS_FLUXCALC	Hw(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	133	LAYERS_FLUXCALC	VH(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	135	LAYERS_FLUXCALC	Hs(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	151	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	156	LAYERS_FLUXCALC	IF (hFacW(i,j,kp1,bi,bj) .EQ. 0.) kp1=k
./pkg/layers/layers_fluxcalc.F	157	LAYERS_FLUXCALC	TatU(i,j) = MapFact(kk) *
./pkg/layers/layers_fluxcalc.F	158	LAYERS_FLUXCALC	& 0.5 _d 0 * (tracer(i-1,j,k,bi,bj)+tracer(i,j,k,bi,bj)) +
./pkg/layers/layers_fluxcalc.F	160	LAYERS_FLUXCALC	& 0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj))
./pkg/layers/layers_fluxcalc.F	174	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	176	LAYERS_FLUXCALC	IF ( kgu(i,j) .LE. 0 ) THEN
./pkg/layers/layers_fluxcalc.F	179	LAYERS_FLUXCALC	& 'layers_bounds for TatU(',i,',',j,',)=',TatU(i,j)
./pkg/layers/layers_fluxcalc.F	189	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	192	LAYERS_FLUXCALC	kloc = kgu(i,j)
./pkg/layers/layers_fluxcalc.F	194	LAYERS_FLUXCALC	UH(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	195	LAYERS_FLUXCALC	& UH(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F	196	LAYERS_FLUXCALC	& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	202	LAYERS_FLUXCALC	& ( rA(i-1,j,bi,bj)*Kwx(i-1,j,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F	203	LAYERS_FLUXCALC	& +rA( i ,j,bi,bj)*Kwx( i ,j,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F	204	LAYERS_FLUXCALC	& ) * maskW(i,j,kcip1,bi,bj) * maskp1
./pkg/layers/layers_fluxcalc.F	205	LAYERS_FLUXCALC	& - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F	206	LAYERS_FLUXCALC	& +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F	207	LAYERS_FLUXCALC	& ) * maskW(i,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F	208	LAYERS_FLUXCALC	& ) * recip_rAw(i,j,bi,bj)
./pkg/layers/layers_fluxcalc.F	211	LAYERS_FLUXCALC	delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_fluxcalc.F	212	LAYERS_FLUXCALC	& - GM_PsiX(i,j, kci, bi,bj)
./pkg/layers/layers_fluxcalc.F	215	LAYERS_FLUXCALC	UH(i,j,kloc,bi,bj) = UH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F	216	LAYERS_FLUXCALC	& + delPsirecip_drF(kci)_recip_hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	217	LAYERS_FLUXCALC	& * dZZf(kk)*hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	222	LAYERS_FLUXCALC	Hw(i,j,kloc,bi,bj) = Hw(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F	223	LAYERS_FLUXCALC	& + dZZf(kk) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	231	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	235	LAYERS_FLUXCALC	IF (hFacS(i,j,kp1,bi,bj) .EQ. 0.) kp1=k
./pkg/layers/layers_fluxcalc.F	236	LAYERS_FLUXCALC	TatV(i,j) = MapFact(kk) *
./pkg/layers/layers_fluxcalc.F	237	LAYERS_FLUXCALC	& 0.5 _d 0 * (tracer(i,j-1,k,bi,bj)+tracer(i,j,k,bi,bj)) +
./pkg/layers/layers_fluxcalc.F	239	LAYERS_FLUXCALC	& 0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj))
./pkg/layers/layers_fluxcalc.F	253	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	255	LAYERS_FLUXCALC	IF ( kgv(i,j) .LE. 0 ) THEN
./pkg/layers/layers_fluxcalc.F	258	LAYERS_FLUXCALC	& 'layers_bounds for TatV(',i,',',j,',)=',TatV(i,j)
./pkg/layers/layers_fluxcalc.F	268	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	271	LAYERS_FLUXCALC	kloc = kgv(i,j)
./pkg/layers/layers_fluxcalc.F	273	LAYERS_FLUXCALC	VH(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	274	LAYERS_FLUXCALC	& VH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F	275	LAYERS_FLUXCALC	& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	281	LAYERS_FLUXCALC	& ( rA(i,j-1,bi,bj)*Kwy(i,j-1,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F	282	LAYERS_FLUXCALC	& +rA(i, j ,bi,bj)*Kwy(i, j ,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F	283	LAYERS_FLUXCALC	& ) * maskS(i,j,kcip1,bi,bj) * maskp1
./pkg/layers/layers_fluxcalc.F	284	LAYERS_FLUXCALC	& - ( rA(i,j-1,bi,bj)*Kwy(i,j-1, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F	285	LAYERS_FLUXCALC	& +rA(i, j ,bi,bj)*Kwy(i, j , kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F	286	LAYERS_FLUXCALC	& ) * maskS(i,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F	287	LAYERS_FLUXCALC	& ) * recip_rAs(i,j,bi,bj)
./pkg/layers/layers_fluxcalc.F	290	LAYERS_FLUXCALC	delPsi = GM_PsiY(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_fluxcalc.F	291	LAYERS_FLUXCALC	& - GM_PsiY(i,j, kci, bi,bj)
./pkg/layers/layers_fluxcalc.F	294	LAYERS_FLUXCALC	VH(i,j,kloc,bi,bj) = VH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F	295	LAYERS_FLUXCALC	& + delPsirecip_drF(kci)_recip_hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	296	LAYERS_FLUXCALC	& * dZZf(kk)*hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	301	LAYERS_FLUXCALC	Hs(i,j,kloc,bi,bj) = Hs(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F	302	LAYERS_FLUXCALC	& + dZZf(kk) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	314	LAYERS_FLUXCALC	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	317	LAYERS_FLUXCALC	IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN
./pkg/layers/layers_fluxcalc.F	318	LAYERS_FLUXCALC	PIw(i,j,kg,bi,bj) = 1. _d 0
./pkg/layers/layers_fluxcalc.F	319	LAYERS_FLUXCALC	U(i,j,kg,bi,bj) =
./pkg/layers/layers_fluxcalc.F	320	LAYERS_FLUXCALC	& UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj)
./pkg/layers/layers_fluxcalc.F	324	LAYERS_FLUXCALC	IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN
./pkg/layers/layers_fluxcalc.F	325	LAYERS_FLUXCALC	PIs(i,j,kg,bi,bj) = 1. _d 0
./pkg/layers/layers_fluxcalc.F	326	LAYERS_FLUXCALC	V(i,j,kg,bi,bj) =
./pkg/layers/layers_fluxcalc.F	327	LAYERS_FLUXCALC	& VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj)
./pkg/layers/layers_fluxcalc.F	407	LAYERS_DIAPYCNAL	INTEGER i,j,k,kk,kg,kci,kloc
./pkg/layers/layers_fluxcalc.F	426	LAYERS_DIAPYCNAL	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	431	LAYERS_DIAPYCNAL	kgc(i,j) = Nlayers
./pkg/layers/layers_fluxcalc.F	437	LAYERS_DIAPYCNAL	DO j = 1-OLy,sNy+OLy
./pkg/layers/layers_fluxcalc.F	439	LAYERS_DIAPYCNAL	TtendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	440	LAYERS_DIAPYCNAL	TtendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	441	LAYERS_DIAPYCNAL	TtendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	442	LAYERS_DIAPYCNAL	StendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	443	LAYERS_DIAPYCNAL	StendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	444	LAYERS_DIAPYCNAL	StendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	445	LAYERS_DIAPYCNAL	Hc(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	446	LAYERS_DIAPYCNAL	PIc(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F	454	LAYERS_DIAPYCNAL	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	456	LAYERS_DIAPYCNAL	TatC(i,j) = MapFact(kk) * tracer(i,j,k,bi,bj) +
./pkg/layers/layers_fluxcalc.F	457	LAYERS_DIAPYCNAL	& (1.0-MapFact(kk)) * tracer(i,j,k+1,bi,bj)
./pkg/layers/layers_fluxcalc.F	470	LAYERS_DIAPYCNAL	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	472	LAYERS_DIAPYCNAL	IF ( kgc(i,j) .LE. 0 ) THEN
./pkg/layers/layers_fluxcalc.F	475	LAYERS_DIAPYCNAL	& 'layers_bounds for TatC(',i,',',j,',)=',TatC(i,j)
./pkg/layers/layers_fluxcalc.F	487	LAYERS_DIAPYCNAL	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	489	LAYERS_DIAPYCNAL	dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F	490	LAYERS_DIAPYCNAL	kloc = kgc(i,j)
./pkg/layers/layers_fluxcalc.F	493	LAYERS_DIAPYCNAL	TtendSurf(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	494	LAYERS_DIAPYCNAL	& TtendSurf(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F	495	LAYERS_DIAPYCNAL	& dzfac * layers_surfflux(i,j,1,1,bi,bj)
./pkg/layers/layers_fluxcalc.F	496	LAYERS_DIAPYCNAL	StendSurf(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	497	LAYERS_DIAPYCNAL	& StendSurf(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F	498	LAYERS_DIAPYCNAL	& dzfac * layers_surfflux(i,j,1,2,bi,bj)
./pkg/layers/layers_fluxcalc.F	500	LAYERS_DIAPYCNAL	TtendDiffh(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	501	LAYERS_DIAPYCNAL	& TtendDiffh(i,j,kloc,bi,bj) + dzfac *
./pkg/layers/layers_fluxcalc.F	502	LAYERS_DIAPYCNAL	& (layers_dfx(i,j,kci,1,bi,bi)+
./pkg/layers/layers_fluxcalc.F	503	LAYERS_DIAPYCNAL	& layers_dfy(i,j,kci,1,bi,bi))
./pkg/layers/layers_fluxcalc.F	504	LAYERS_DIAPYCNAL	TtendDiffr(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	505	LAYERS_DIAPYCNAL	& TtendDiffr(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F	506	LAYERS_DIAPYCNAL	& dzfac * layers_dfr(i,j,kci,1,bi,bi)
./pkg/layers/layers_fluxcalc.F	507	LAYERS_DIAPYCNAL	StendDiffh(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	508	LAYERS_DIAPYCNAL	& StendDiffh(i,j,kloc,bi,bj) + dzfac *
./pkg/layers/layers_fluxcalc.F	509	LAYERS_DIAPYCNAL	& (layers_dfx(i,j,kci,2,bi,bi)+
./pkg/layers/layers_fluxcalc.F	510	LAYERS_DIAPYCNAL	& layers_dfy(i,j,kci,2,bi,bi))
./pkg/layers/layers_fluxcalc.F	511	LAYERS_DIAPYCNAL	StendDiffr(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F	512	LAYERS_DIAPYCNAL	& StendDiffr(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F	513	LAYERS_DIAPYCNAL	& dzfac * layers_dfr(i,j,kci,2,bi,bi)
./pkg/layers/layers_fluxcalc.F	514	LAYERS_DIAPYCNAL	Hc(i,j,kloc,bi,bj) = Hc(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F	524	LAYERS_DIAPYCNAL	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	526	LAYERS_DIAPYCNAL	IF (Hc(i,j,kg,bi,bj) .GT. 0.) THEN
./pkg/layers/layers_fluxcalc.F	527	LAYERS_DIAPYCNAL	PIc(i,j,kg,bi,bj) = 1. _d 0
./pkg/layers/layers_fluxcalc.F	578	LAYERS_LOCATE	INTEGER i,j
./pkg/layers/layers_fluxcalc.F	586	LAYERS_LOCATE	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	588	LAYERS_LOCATE	kl(i,j)=1
./pkg/layers/layers_fluxcalc.F	589	LAYERS_LOCATE	ku(i,j)=n+1
./pkg/layers/layers_fluxcalc.F	593	LAYERS_LOCATE	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	595	LAYERS_LOCATE	IF (ku(i,j)-kl(i,j).GT.1) THEN
./pkg/layers/layers_fluxcalc.F	596	LAYERS_LOCATE	km=(ku(i,j)+kl(i,j))/2
./pkg/layers/layers_fluxcalc.F	598	LAYERS_LOCATE	IF ( ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))).OR.
./pkg/layers/layers_fluxcalc.F	599	LAYERS_LOCATE	& ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))) ) THEN
./pkg/layers/layers_fluxcalc.F	600	LAYERS_LOCATE	kl(i,j)=km
./pkg/layers/layers_fluxcalc.F	602	LAYERS_LOCATE	ku(i,j)=km
./pkg/layers/layers_fluxcalc.F	608	LAYERS_LOCATE	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	610	LAYERS_LOCATE	IF ( x(i,j).LT.xx(2) ) THEN
./pkg/layers/layers_fluxcalc.F	611	LAYERS_LOCATE	k(i,j)=1
./pkg/layers/layers_fluxcalc.F	612	LAYERS_LOCATE	ELSE IF ( x(i,j).GE.xx(n) ) THEN
./pkg/layers/layers_fluxcalc.F	613	LAYERS_LOCATE	k(i,j)=n
./pkg/layers/layers_fluxcalc.F	615	LAYERS_LOCATE	k(i,j)=kl(i,j)
./pkg/layers/layers_fluxcalc.F	621	LAYERS_LOCATE	DO j = 1,sNy+1
./pkg/layers/layers_fluxcalc.F	623	LAYERS_LOCATE	IF (x(i,j) .GE. xx(n)) THEN
./pkg/layers/layers_fluxcalc.F	625	LAYERS_LOCATE	k(i,j) = n
./pkg/layers/layers_fluxcalc.F	626	LAYERS_LOCATE	ELSE IF (x(i,j) .LT. xx(2)) THEN
./pkg/layers/layers_fluxcalc.F	628	LAYERS_LOCATE	k(i,j) = 1
./pkg/layers/layers_fluxcalc.F	629	LAYERS_LOCATE	ELSE IF ( (x(i,j) .GE. xx(k(i,j)))
./pkg/layers/layers_fluxcalc.F	630	LAYERS_LOCATE	& .AND. (x(i,j) .LT. xx(k(i,j)+1)) ) THEN
./pkg/layers/layers_fluxcalc.F	632	LAYERS_LOCATE	ELSE IF (x(i,j) .GE. xx(k(i,j))) THEN
./pkg/layers/layers_fluxcalc.F	634	LAYERS_LOCATE	DO WHILE (x(i,j) .GE. xx(k(i,j)+1))
./pkg/layers/layers_fluxcalc.F	635	LAYERS_LOCATE	k(i,j) = k(i,j) + 1
./pkg/layers/layers_fluxcalc.F	638	LAYERS_LOCATE	ELSE IF (x(i,j) .LT. xx(k(i,j)+1)) THEN
./pkg/layers/layers_fluxcalc.F	640	LAYERS_LOCATE	DO WHILE (x(i,j) .LT. xx(k(i,j)))
./pkg/layers/layers_fluxcalc.F	641	LAYERS_LOCATE	k(i,j) = k(i,j) - 1
./pkg/layers/layers_fluxcalc.F	646	LAYERS_LOCATE	k(i,j) = -1
./pkg/layers/layers_fluxcalc.F	90	LAYERS_FLUXCALC	INTEGER i,j,k,kk,kg,kci,kp1,kloc
./pkg/layers/layers_init_varia.F	28	LAYERS_INIT_VARIA	INTEGER i,j,kg,bi,bj
./pkg/layers/layers_init_varia.F	39	LAYERS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/layers/layers_init_varia.F	43	LAYERS_INIT_VARIA	layers_UH (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	45	LAYERS_INIT_VARIA	layers_Hw (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	46	LAYERS_INIT_VARIA	layers_PIw(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	47	LAYERS_INIT_VARIA	layers_U (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	52	LAYERS_INIT_VARIA	layers_VH (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	54	LAYERS_INIT_VARIA	layers_Hs (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	55	LAYERS_INIT_VARIA	layers_PIs(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	56	LAYERS_INIT_VARIA	layers_V (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	61	LAYERS_INIT_VARIA	layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	62	LAYERS_INIT_VARIA	layers_TtendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	63	LAYERS_INIT_VARIA	layers_TtendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	64	LAYERS_INIT_VARIA	layers_StendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	65	LAYERS_INIT_VARIA	layers_StendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	66	LAYERS_INIT_VARIA	layers_StendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	74	LAYERS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/layers/layers_init_varia.F	76	LAYERS_INIT_VARIA	prho(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	85	LAYERS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/layers/layers_init_varia.F	87	LAYERS_INIT_VARIA	layers_surfflux(i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	88	LAYERS_INIT_VARIA	layers_dfx (i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	89	LAYERS_INIT_VARIA	layers_dfy (i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F	90	LAYERS_INIT_VARIA	layers_dfr (i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_save.F	100	LAYERS_FILL_SURFACE_FLUX	DO j = 1-OLy,sNy+OLy
./pkg/layers/layers_save.F	102	LAYERS_FILL_SURFACE_FLUX	layers_surfflux(i,j,1,trIdentity,bi,bj) =
./pkg/layers/layers_save.F	103	LAYERS_FILL_SURFACE_FLUX	& layers_surfflux(i,j,1,trIdentity,bi,bj) +
./pkg/layers/layers_save.F	104	LAYERS_FILL_SURFACE_FLUX	& surfflux(i,j,bi,bj)
./pkg/layers/layers_save.F	150	LAYERS_FILL_DFX	INTEGER i,j
./pkg/layers/layers_save.F	161	LAYERS_FILL_DFX	DO j = 1-OLy,sNy+OLy
./pkg/layers/layers_save.F	163	LAYERS_FILL_DFX	layers_dfx(i,j,kLev,trIdentity,biArg,bjArg) =
./pkg/layers/layers_save.F	164	LAYERS_FILL_DFX	& layers_dfx(i,j,kLev,trIdentity,biArg,bjArg) +
./pkg/layers/layers_save.F	165	LAYERS_FILL_DFX	& df(i,j)
./pkg/layers/layers_save.F	207	LAYERS_FILL_DFY	INTEGER i,j
./pkg/layers/layers_save.F	218	LAYERS_FILL_DFY	DO j = 1-OLy,sNy+OLy
./pkg/layers/layers_save.F	220	LAYERS_FILL_DFY	layers_dfy(i,j,kLev,trIdentity,biArg,bjArg) =
./pkg/layers/layers_save.F	221	LAYERS_FILL_DFY	& layers_dfy(i,j,kLev,trIdentity,biArg,bjArg) +
./pkg/layers/layers_save.F	222	LAYERS_FILL_DFY	& df(i,j)
./pkg/layers/layers_save.F	266	LAYERS_FILL_DFR	INTEGER i,j
./pkg/layers/layers_save.F	277	LAYERS_FILL_DFR	DO j = 1-OLy,sNy+OLy
./pkg/layers/layers_save.F	279	LAYERS_FILL_DFR	layers_dfr(i,j,kLev,trIdentity,biArg,bjArg) =
./pkg/layers/layers_save.F	280	LAYERS_FILL_DFR	& layers_dfr(i,j,kLev,trIdentity,biArg,bjArg) +
./pkg/layers/layers_save.F	281	LAYERS_FILL_DFR	& df(i,j)
./pkg/layers/layers_save.F	77	LAYERS_FILL_SURFACE_FLUX	INTEGER i,j,bi,bj
./model/src/calc_adv_flow.F	100	CALC_ADV_FLOW	rTransKp(i,j) = rTrans(i,j)
./model/src/calc_adv_flow.F	108	CALC_ADV_FLOW	DO j=1-OLy,sNy+OLy
./model/src/calc_adv_flow.F	110	CALC_ADV_FLOW	uTrans(i,j) = uFld(i,j,k)xA(i,j)rhoFacC(k)
./model/src/calc_adv_flow.F	111	CALC_ADV_FLOW	vTrans(i,j) = vFld(i,j,k)yA(i,j)rhoFacC(k)
./model/src/calc_adv_flow.F	118	CALC_ADV_FLOW	DO j=1-OLy,sNy+OLy
./model/src/calc_adv_flow.F	120	CALC_ADV_FLOW	maskUp(i,j) = 0. _d 0
./model/src/calc_adv_flow.F	121	CALC_ADV_FLOW	rTrans(i,j) = 0. _d 0
./model/src/calc_adv_flow.F	127	CALC_ADV_FLOW	DO j=1-OLy,sNy+OLy
./model/src/calc_adv_flow.F	129	CALC_ADV_FLOW	maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/calc_adv_flow.F	130	CALC_ADV_FLOW	rTrans(i,j) = wFld(i,j,k)rA(i,j,bi,bj)maskUp(i,j)
./model/src/calc_adv_flow.F	69	CALC_ADV_FLOW	INTEGER i,j
./model/src/calc_adv_flow.F	73	CALC_ADV_FLOW	DO j=1-OLy,sNy+OLy
./model/src/calc_adv_flow.F	75	CALC_ADV_FLOW	xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_adv_flow.F	76	CALC_ADV_FLOW	& drF(k)_hFacW(i,j,k,bi,bj)
./model/src/calc_adv_flow.F	77	CALC_ADV_FLOW	yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_adv_flow.F	78	CALC_ADV_FLOW	& drF(k)_hFacS(i,j,k,bi,bj)
./model/src/calc_adv_flow.F	84	CALC_ADV_FLOW	DO j=1-OLy,sNy+OLy
./model/src/calc_adv_flow.F	86	CALC_ADV_FLOW	rTransKp(i,j) = 0. _d 0
./model/src/calc_adv_flow.F	90	CALC_ADV_FLOW	DO j=1-OLy,sNy+OLy
./model/src/calc_adv_flow.F	95	CALC_ADV_FLOW	rTransKp(i,j) = wFld(i,j,k+1)*rA(i,j,bi,bj)
./model/src/calc_adv_flow.F	96	CALC_ADV_FLOW	& * maskC(i,j,k,bi,bj)*maskC(i,j,k+1,bi,bj)
./pkg/layers/layers_thermodynamics.F	51	LAYERS_CALC_RHS	INTEGER i,j,k,kdown,iTracer
./pkg/layers/layers_thermodynamics.F	64	LAYERS_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/layers/layers_thermodynamics.F	66	LAYERS_CALC_RHS	layers_surfflux(i,j,k,iTracer,bi,bj) =
./pkg/layers/layers_thermodynamics.F	67	LAYERS_CALC_RHS	& layers_surfflux(i,j,k,iTracer,bi,bj)
./pkg/layers/layers_thermodynamics.F	68	LAYERS_CALC_RHS	& recip_drF(1)_recip_hFacC(i,j,1,bi,bj)
./pkg/layers/layers_thermodynamics.F	82	LAYERS_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/layers/layers_thermodynamics.F	84	LAYERS_CALC_RHS	tmpfac = -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/layers/layers_thermodynamics.F	85	LAYERS_CALC_RHS	& recip_rA(i,j,bi,bj)recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/layers/layers_thermodynamics.F	86	LAYERS_CALC_RHS	layers_dfx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) *
./pkg/layers/layers_thermodynamics.F	87	LAYERS_CALC_RHS	& tmpfac * ( layers_dfx(i+1,j,k,iTracer,bi,bj) -
./pkg/layers/layers_thermodynamics.F	88	LAYERS_CALC_RHS	& layers_dfx(i,j,k,iTracer,bi,bj) )
./pkg/layers/layers_thermodynamics.F	89	LAYERS_CALC_RHS	layers_dfy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) *
./pkg/layers/layers_thermodynamics.F	90	LAYERS_CALC_RHS	& tmpfac * ( layers_dfy(i,j+1,k,iTracer,bi,bj) -
./pkg/layers/layers_thermodynamics.F	91	LAYERS_CALC_RHS	& layers_dfy(i,j,k,iTracer,bi,bj) )
./pkg/layers/layers_thermodynamics.F	92	LAYERS_CALC_RHS	layers_dfr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign *
./pkg/layers/layers_thermodynamics.F	93	LAYERS_CALC_RHS	& ( layers_dfr(i,j,kdown,iTracer,bi,bj)*downfac -
./pkg/layers/layers_thermodynamics.F	94	LAYERS_CALC_RHS	& layers_dfr(i,j,k,iTracer,bi,bj) )
./pkg/longstep/longstep_average_3d.F	43	LONGSTEP_AVERAGE_3D	INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_average_3d.F	52	LONGSTEP_AVERAGE_3D	DO j = 1-OLy,sNy+OLy
./pkg/longstep/longstep_average_3d.F	54	LONGSTEP_AVERAGE_3D	lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor
./pkg/longstep/longstep_average_3d_fac.F	45	LONGSTEP_AVERAGE_3D_FAC	INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_average_3d_fac.F	52	LONGSTEP_AVERAGE_3D_FAC	DO j = 1-OLy,sNy+OLy
./pkg/longstep/longstep_average_3d_fac.F	54	LONGSTEP_AVERAGE_3D_FAC	factor = FLOAT(lsCnt(bi,bj))*fac(i,j,k,bi,bj)
./pkg/longstep/longstep_average_3d_fac.F	56	LONGSTEP_AVERAGE_3D_FAC	lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor
./model/src/calc_div_ghat.F	113	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	115	CALC_DIV_GHAT	pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj)
./model/src/calc_div_ghat.F	116	CALC_DIV_GHAT	& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj)
./model/src/calc_div_ghat.F	117	CALC_DIV_GHAT	& ) * xA(i,j) / deltaTMom
./model/src/calc_div_ghat.F	121	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	123	CALC_DIV_GHAT	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) +
./model/src/calc_div_ghat.F	124	CALC_DIV_GHAT	& pf(i+1,j)-pf(i,j)
./model/src/calc_div_ghat.F	130	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	132	CALC_DIV_GHAT	cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) )
./model/src/calc_div_ghat.F	140	CALC_DIV_GHAT	DO j=1,sNy+1
./model/src/calc_div_ghat.F	142	CALC_DIV_GHAT	pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom
./model/src/calc_div_ghat.F	148	CALC_DIV_GHAT	DO j=1,sNy+1
./model/src/calc_div_ghat.F	150	CALC_DIV_GHAT	pf(i,j) = implicDiv2Dflow
./model/src/calc_div_ghat.F	151	CALC_DIV_GHAT	& yA(i,j)gV(i,j,k,bi,bj) / deltatmom
./model/src/calc_div_ghat.F	156	CALC_DIV_GHAT	DO j=1,sNy+1
./model/src/calc_div_ghat.F	158	CALC_DIV_GHAT	pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj)
./model/src/calc_div_ghat.F	159	CALC_DIV_GHAT	& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj)
./model/src/calc_div_ghat.F	160	CALC_DIV_GHAT	& ) * yA(i,j) / deltaTMom
./model/src/calc_div_ghat.F	164	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	166	CALC_DIV_GHAT	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) +
./model/src/calc_div_ghat.F	167	CALC_DIV_GHAT	& pf(i,j+1)-pf(i,j)
./model/src/calc_div_ghat.F	173	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	175	CALC_DIV_GHAT	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/calc_div_ghat.F	176	CALC_DIV_GHAT	& + ( pf(i,j+1)-pf(i,j) )
./model/src/calc_div_ghat.F	184	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	186	CALC_DIV_GHAT	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/calc_div_ghat.F	187	CALC_DIV_GHAT	& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom
./model/src/calc_div_ghat.F	192	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	194	CALC_DIV_GHAT	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/calc_div_ghat.F	195	CALC_DIV_GHAT	& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom
./model/src/calc_div_ghat.F	58	CALC_DIV_GHAT	INTEGER i,j
./model/src/calc_div_ghat.F	65	CALC_DIV_GHAT	DO j=1,sNy+1
./model/src/calc_div_ghat.F	67	CALC_DIV_GHAT	xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_div_ghat.F	68	CALC_DIV_GHAT	& drF(k)_hFacW(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_div_ghat.F	69	CALC_DIV_GHAT	yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_div_ghat.F	70	CALC_DIV_GHAT	& drF(k)_hFacS(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_div_ghat.F	81	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	83	CALC_DIV_GHAT	pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom
./model/src/calc_div_ghat.F	89	CALC_DIV_GHAT	DO j=1,sNy
./model/src/calc_div_ghat.F	91	CALC_DIV_GHAT	pf(i,j) = implicDiv2Dflow
./model/src/calc_div_ghat.F	92	CALC_DIV_GHAT	& xA(i,j)gU(i,j,k,bi,bj) / deltaTMom
./pkg/longstep/longstep_fill_3d.F	44	LONGSTEP_FILL_3D	INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_fill_3d.F	51	LONGSTEP_FILL_3D	DO j = 1-OLy,sNy+OLy
./pkg/longstep/longstep_fill_3d.F	53	LONGSTEP_FILL_3D	lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj)
./pkg/longstep/longstep_fill_3d_fac.F	45	LONGSTEP_FILL_3D_FAC	INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_fill_3d_fac.F	52	LONGSTEP_FILL_3D_FAC	DO j = 1-OLy,sNy+OLy
./pkg/longstep/longstep_fill_3d_fac.F	54	LONGSTEP_FILL_3D_FAC	lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)
./pkg/longstep/longstep_fill_3d_fac.F	55	LONGSTEP_FILL_3D_FAC	& + fld(i,j,k,bi,bj)*fac(i,j,k,bi,bj)
./pkg/longstep/longstep_fill_3d_rs.F	45	LONGSTEP_FILL_3D_RS	INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_fill_3d_rs.F	52	LONGSTEP_FILL_3D_RS	DO j = 1-OLy,sNy+OLy
./pkg/longstep/longstep_fill_3d_rs.F	54	LONGSTEP_FILL_3D_RS	lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj)
./pkg/longstep/longstep_forcing_surf.F	116	LONGSTEP_FORCING_SURF	DO j = jMin, jMax
./pkg/longstep/longstep_forcing_surf.F	118	LONGSTEP_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F	119	LONGSTEP_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F	120	LONGSTEP_FORCING_SURF	& + LS_fwFlux(i,j,bi,bj)
./pkg/longstep/longstep_forcing_surf.F	121	LONGSTEP_FORCING_SURF	& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/longstep/longstep_forcing_surf.F	140	LONGSTEP_FORCING_SURF	DO j = jMin, jMax
./pkg/longstep/longstep_forcing_surf.F	142	LONGSTEP_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F	143	LONGSTEP_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F	144	LONGSTEP_FORCING_SURF	& + LS_fwFlux(i,j,bi,bj)
./pkg/longstep/longstep_forcing_surf.F	49	LONGSTEP_FORCING_SURF	INTEGER i, j
./pkg/longstep/longstep_forcing_surf.F	61	LONGSTEP_FORCING_SURF	DO j = jMin, jMax
./pkg/longstep/longstep_forcing_surf.F	63	LONGSTEP_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F	83	LONGSTEP_FORCING_SURF	DO j = jMin, jMax
./pkg/longstep/longstep_forcing_surf.F	85	LONGSTEP_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F	86	LONGSTEP_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F	87	LONGSTEP_FORCING_SURF	& + LS_fwFlux(i,j,bi,bj)
./pkg/longstep/longstep_forcing_surf.F	88	LONGSTEP_FORCING_SURF	& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/longstep/longstep_reset_3d.F	42	LONGSTEP_RESET_3D	INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_reset_3d.F	49	LONGSTEP_RESET_3D	DO j = 1-OLy,sNy+OLy
./pkg/longstep/longstep_reset_3d.F	51	LONGSTEP_RESET_3D	lsFld(i,j,k,bi,bj) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F	130	LONGSTEP_THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F	133	LONGSTEP_THERMODYNAMICS	kappaRk(i,j,k) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F	144	LONGSTEP_THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F	146	LONGSTEP_THERMODYNAMICS	recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	147	LONGSTEP_THERMODYNAMICS	& / rStarExpC(i,j,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	155	LONGSTEP_THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F	157	LONGSTEP_THERMODYNAMICS	recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	158	LONGSTEP_THERMODYNAMICS	& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./pkg/longstep/longstep_thermodynamics.F	160	LONGSTEP_THERMODYNAMICS	& *recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	168	LONGSTEP_THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F	170	LONGSTEP_THERMODYNAMICS	IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/longstep/longstep_thermodynamics.F	171	LONGSTEP_THERMODYNAMICS	recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	173	LONGSTEP_THERMODYNAMICS	recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	182	LONGSTEP_THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F	184	LONGSTEP_THERMODYNAMICS	recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	205	LONGSTEP_THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F	207	LONGSTEP_THERMODYNAMICS	uFld(i,j,k) = LS_uVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	208	LONGSTEP_THERMODYNAMICS	vFld(i,j,k) = LS_vVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	209	LONGSTEP_THERMODYNAMICS	wFld(i,j,k) = LS_wVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F	91	LONGSTEP_THERMODYNAMICS	INTEGER i, j, k
./model/src/calc_eddy_stress.F	46	CALC_EDDY_STRESS	INTEGER i,j,k
./model/src/calc_eddy_stress.F	55	CALC_EDDY_STRESS	DO j=1-Oly,sNy+Oly-1
./model/src/calc_eddy_stress.F	58	CALC_EDDY_STRESS	psiy = op25*(GM_PsiY(i, j ,k,bi,bj)
./model/src/calc_eddy_stress.F	59	CALC_EDDY_STRESS	& +GM_PsiY(i, j+1,k,bi,bj)
./model/src/calc_eddy_stress.F	60	CALC_EDDY_STRESS	& +GM_PsiY(i-1,j ,k,bi,bj)
./model/src/calc_eddy_stress.F	61	CALC_EDDY_STRESS	& +GM_PsiY(i-1,j+1,k,bi,bj))
./model/src/calc_eddy_stress.F	63	CALC_EDDY_STRESS	psiy = op25*(eddyPsiY(i, j ,k,bi,bj)
./model/src/calc_eddy_stress.F	64	CALC_EDDY_STRESS	& +eddyPsiY(i, j+1,k,bi,bj)
./model/src/calc_eddy_stress.F	65	CALC_EDDY_STRESS	& +eddyPsiY(i-1,j ,k,bi,bj)
./model/src/calc_eddy_stress.F	66	CALC_EDDY_STRESS	& +eddyPsiY(i-1,j+1,k,bi,bj))
./model/src/calc_eddy_stress.F	68	CALC_EDDY_STRESS	coriU = op5*(fcori(i-1,j,bi,bj)
./model/src/calc_eddy_stress.F	69	CALC_EDDY_STRESS	& +fCori(i ,j,bi,bj))
./model/src/calc_eddy_stress.F	71	CALC_EDDY_STRESS	tauxEddy(i,j,k,bi,bj) = rhoConstcoriUpsiy
./model/src/calc_eddy_stress.F	75	CALC_EDDY_STRESS	DO j=1-Oly+1,sNy+Oly
./model/src/calc_eddy_stress.F	78	CALC_EDDY_STRESS	psix = op25*(GM_PsiX(i, j ,k,bi,bj)
./model/src/calc_eddy_stress.F	79	CALC_EDDY_STRESS	& +GM_PsiX(i+1,j ,k,bi,bj)
./model/src/calc_eddy_stress.F	80	CALC_EDDY_STRESS	& +GM_PsiX(i ,j-1,k,bi,bj)
./model/src/calc_eddy_stress.F	81	CALC_EDDY_STRESS	& +GM_PsiX(i+1,j-1,k,bi,bj))
./model/src/calc_eddy_stress.F	83	CALC_EDDY_STRESS	psix = op25*(eddyPsiX(i, j ,k,bi,bj)
./model/src/calc_eddy_stress.F	84	CALC_EDDY_STRESS	& +eddyPsiX(i+1,j ,k,bi,bj)
./model/src/calc_eddy_stress.F	85	CALC_EDDY_STRESS	& +eddyPsiX(i ,j-1,k,bi,bj)
./model/src/calc_eddy_stress.F	86	CALC_EDDY_STRESS	& +eddyPsiX(i+1,j-1,k,bi,bj))
./model/src/calc_eddy_stress.F	88	CALC_EDDY_STRESS	coriV = op5*(fcori(i,j-1,bi,bj)
./model/src/calc_eddy_stress.F	89	CALC_EDDY_STRESS	& +fCori(i,j ,bi,bj))
./model/src/calc_eddy_stress.F	91	CALC_EDDY_STRESS	tauyEddy(i,j,k,bi,bj) = -rhoConstcoriVpsix
./pkg/matrix/matrix_init_varia.F	23	MATRIX_INIT_VARIA	INTEGER i, j, k, bi, bj
./pkg/matrix/matrix_init_varia.F	39	MATRIX_INIT_VARIA	DO j=1-Oly, sNy+Oly
./pkg/matrix/matrix_init_varia.F	41	MATRIX_INIT_VARIA	PTRACERS_initial(i,j,k,bi,bj,iTracer) =
./pkg/matrix/matrix_init_varia.F	42	MATRIX_INIT_VARIA	& pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_init_varia.F	43	MATRIX_INIT_VARIA	MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0
./pkg/matrix/matrix_init_varia.F	44	MATRIX_INIT_VARIA	MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0
./pkg/matrix/matrix_store_tendency.F	101	MATRIX_STORE_TENDENCY_IMP	INTEGER i,j,k
./pkg/matrix/matrix_store_tendency.F	106	MATRIX_STORE_TENDENCY_IMP	DO j=1-OLy, sNy+OLy
./pkg/matrix/matrix_store_tendency.F	108	MATRIX_STORE_TENDENCY_IMP	MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_store_tendency.F	109	MATRIX_STORE_TENDENCY_IMP	& MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/matrix/matrix_store_tendency.F	110	MATRIX_STORE_TENDENCY_IMP	& + pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F	111	MATRIX_STORE_TENDENCY_IMP	pTracer(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_store_tendency.F	112	MATRIX_STORE_TENDENCY_IMP	& PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F	47	MATRIX_STORE_TENDENCY_EXP	INTEGER i,j,k
./pkg/matrix/matrix_store_tendency.F	51	MATRIX_STORE_TENDENCY_EXP	DO j=1-OLy, sNy+OLy
./pkg/matrix/matrix_store_tendency.F	53	MATRIX_STORE_TENDENCY_EXP	MATRIX(i,j,k,bi,bj,iTracer,1) = MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_store_tendency.F	54	MATRIX_STORE_TENDENCY_EXP	& + ( tracNew(i,j,k) - PTRACERS_initial(i,j,k,bi,bj,iTracer) )
./pkg/matrix/matrix_store_tendency.F	55	MATRIX_STORE_TENDENCY_EXP	tracNew(i,j,k) = PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_write_tendency.F	106	MATRIX_WRITE_TENDENCY	DO j=1-OLy, sNy+OLy
./pkg/matrix/matrix_write_tendency.F	108	MATRIX_WRITE_TENDENCY	MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_write_tendency.F	109	MATRIX_WRITE_TENDENCY	& MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/matrix/matrix_write_tendency.F	143	MATRIX_WRITE_TENDENCY	DO j=1-OLy, sNy+OLy
./pkg/matrix/matrix_write_tendency.F	145	MATRIX_WRITE_TENDENCY	MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0
./pkg/matrix/matrix_write_tendency.F	29	MATRIX_WRITE_TENDENCY	INTEGER bi,bj,i,j,k,iTracer,iRec
./pkg/matrix/matrix_write_tendency.F	47	MATRIX_WRITE_TENDENCY	DO j=1-OLy, sNy+OLy
./pkg/matrix/matrix_write_tendency.F	49	MATRIX_WRITE_TENDENCY	MATRIX(i,j,k,bi,bj,iTracer,1) =
./pkg/matrix/matrix_write_tendency.F	50	MATRIX_WRITE_TENDENCY	& MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_write_tendency.F	84	MATRIX_WRITE_TENDENCY	DO j=1-OLy, sNy+OLy
./pkg/matrix/matrix_write_tendency.F	86	MATRIX_WRITE_TENDENCY	MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0
./model/src/calc_grad_phi_fv.F	101	CALC_GRAD_PHI_FV	DO j=1-OLy,sNy+OLy
./model/src/calc_grad_phi_fv.F	103	CALC_GRAD_PHI_FV	dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj)
./model/src/calc_grad_phi_fv.F	104	CALC_GRAD_PHI_FV	dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj)
./model/src/calc_grad_phi_fv.F	62	CALC_GRAD_PHI_FV	INTEGER i,j
./model/src/calc_grad_phi_fv.F	69	CALC_GRAD_PHI_FV	DO j=1-OLy,sNy+OLy
./model/src/calc_grad_phi_fv.F	71	CALC_GRAD_PHI_FV	dPhiHydX(i,j) = 0. _d 0
./model/src/calc_grad_phi_fv.F	72	CALC_GRAD_PHI_FV	dPhiHydY(i,j) = 0. _d 0
./model/src/calc_grad_phi_fv.F	75	CALC_GRAD_PHI_FV	DO j=jMin,jMax
./model/src/calc_grad_phi_fv.F	77	CALC_GRAD_PHI_FV	dpk_dip = pKappaF( i ,j) - pKappaU(i-1,j)
./model/src/calc_grad_phi_fv.F	78	CALC_GRAD_PHI_FV	dpk_dim = pKappaF(i-1,j) - pKappaU( i ,j)
./model/src/calc_grad_phi_fv.F	79	CALC_GRAD_PHI_FV	dPhiHydX(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i-1,j,bi,bj) )
./model/src/calc_grad_phi_fv.F	80	CALC_GRAD_PHI_FV	& + ( dpk_dip*( phiHydU(i,j) - phiHydF(i-1,j) )
./model/src/calc_grad_phi_fv.F	81	CALC_GRAD_PHI_FV	& + dpk_dim*( phiHydF(i,j) - phiHydU(i-1,j) )
./model/src/calc_grad_phi_fv.F	83	CALC_GRAD_PHI_FV	dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*dPhiHydX(i,j)
./model/src/calc_grad_phi_fv.F	87	CALC_GRAD_PHI_FV	DO j=jMin+1,jMax
./model/src/calc_grad_phi_fv.F	89	CALC_GRAD_PHI_FV	dpk_djp = pKappaF(i, j ) - pKappaU(i,j-1)
./model/src/calc_grad_phi_fv.F	90	CALC_GRAD_PHI_FV	dpk_djm = pKappaF(i,j-1) - pKappaU(i, j )
./model/src/calc_grad_phi_fv.F	91	CALC_GRAD_PHI_FV	dPhiHydY(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i,j-1,bi,bj) )
./model/src/calc_grad_phi_fv.F	92	CALC_GRAD_PHI_FV	& + ( dpk_djp*( phiHydU(i,j) - phiHydF(i,j-1) )
./model/src/calc_grad_phi_fv.F	93	CALC_GRAD_PHI_FV	& + dpk_djm*( phiHydF(i,j) - phiHydU(i,j-1) )
./model/src/calc_grad_phi_fv.F	95	CALC_GRAD_PHI_FV	dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*dPhiHydY(i,j)
./pkg/mdsio/mdsio_facef_read.F	102	MDS_FACEF_READ_RS	j = j+1
./pkg/mdsio/mdsio_facef_read.F	104	MDS_FACEF_READ_RS	array(i,j,bi,bj) = ioBuf8(i+tBx)
./pkg/mdsio/mdsio_facef_read.F	126	MDS_FACEF_READ_RS	DO j=1,sNy+1
./pkg/mdsio/mdsio_facef_read.F	128	MDS_FACEF_READ_RS	array(i,j,bi,bj) = ioBuf4(i,j)
./pkg/mdsio/mdsio_facef_read.F	136	MDS_FACEF_READ_RS	DO j=1,sNy+1
./pkg/mdsio/mdsio_facef_read.F	138	MDS_FACEF_READ_RS	array(i,j,bi,bj) = ioBuf8(i,j)
./pkg/mdsio/mdsio_facef_read.F	56	MDS_FACEF_READ_RS	INTEGER i,j, dUnit, iLen
./pkg/mdsio/mdsio_facef_read.F	83	MDS_FACEF_READ_RS	j = 0
./pkg/mdsio/mdsio_facef_read.F	91	MDS_FACEF_READ_RS	j = j+1
./pkg/mdsio/mdsio_facef_read.F	93	MDS_FACEF_READ_RS	array(i,j,bi,bj) = ioBuf4(i+tBx)
./pkg/mdsio/mdsio_gl.F	1054	MDSREADFIELD_2D_GL	do j=1,sNy
./pkg/mdsio/mdsio_gl.F	1058	MDSREADFIELD_2D_GL	irec=1 + INT(iG/sNx) + nSxnPx(jG+j-1) + nSxnPxNy*(k-1)
./pkg/mdsio/mdsio_gl.F	1063	MDSREADFIELD_2D_GL	irec=j + sNy(k-1) + sNynLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F	1072	MDSREADFIELD_2D_GL	call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	1075	MDSREADFIELD_2D_GL	call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	1089	MDSREADFIELD_2D_GL	call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	1092	MDSREADFIELD_2D_GL	call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	1106	MDSREADFIELD_2D_GL	arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_gl.F	1180	MDSREADFIELD_2D_GL	arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F	1280	MDSWRITEFIELD_2D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F	1385	MDSWRITEFIELD_2D_GL	global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	1481	MDSWRITEFIELD_2D_GL	do j=1,sNy
./pkg/mdsio/mdsio_gl.F	1483	MDSWRITEFIELD_2D_GL	arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	1487	MDSWRITEFIELD_2D_GL	irec=j + sNy(k-1) + sNynLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F	1491	MDSWRITEFIELD_2D_GL	call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	1494	MDSWRITEFIELD_2D_GL	call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	1508	MDSWRITEFIELD_2D_GL	call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	1511	MDSWRITEFIELD_2D_GL	call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	267	MDSREADFIELD_3D_GL	do j=1,sNy
./pkg/mdsio/mdsio_gl.F	271	MDSREADFIELD_3D_GL	irec=1 + INT(iG/sNx) + nSxnPx(jG+j-1) + nSxnPxNy*(k-1)
./pkg/mdsio/mdsio_gl.F	276	MDSREADFIELD_3D_GL	irec=j + sNy(k-1) + sNyNr*(irecord-1)
./pkg/mdsio/mdsio_gl.F	285	MDSREADFIELD_3D_GL	call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	288	MDSREADFIELD_3D_GL	call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	302	MDSREADFIELD_3D_GL	call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	305	MDSREADFIELD_3D_GL	call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F	319	MDSREADFIELD_3D_GL	arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_gl.F	393	MDSREADFIELD_3D_GL	arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F	492	MDSWRITEFIELD_3D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F	596	MDSWRITEFIELD_3D_GL	global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	692	MDSWRITEFIELD_3D_GL	do j=1,sNy
./pkg/mdsio/mdsio_gl.F	694	MDSWRITEFIELD_3D_GL	arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	698	MDSWRITEFIELD_3D_GL	irec=j + sNy(k-1) + sNyNr*(irecord-1)
./pkg/mdsio/mdsio_gl.F	702	MDSWRITEFIELD_3D_GL	call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	705	MDSWRITEFIELD_3D_GL	call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	719	MDSWRITEFIELD_3D_GL	call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	722	MDSWRITEFIELD_3D_GL	call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F	73	MDSREADFIELD_3D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F	860	MDSREADFIELD_2D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_pass_r4torl.F	101	MDS_PASS_R4TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F	103	MDS_PASS_R4TORL	arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4torl.F	110	MDS_PASS_R4TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F	112	MDS_PASS_R4TORL	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r4torl.F	58	MDS_PASS_R4TORL	INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r4torl.F	72	MDS_PASS_R4TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F	74	MDS_PASS_R4TORL	arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4torl.F	85	MDS_PASS_R4TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F	87	MDS_PASS_R4TORL	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F	101	MDS_PASS_R4TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F	103	MDS_PASS_R4TORS	arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F	110	MDS_PASS_R4TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F	112	MDS_PASS_R4TORS	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r4tors.F	58	MDS_PASS_R4TORS	INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r4tors.F	72	MDS_PASS_R4TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F	74	MDS_PASS_R4TORS	arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F	85	MDS_PASS_R4TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F	87	MDS_PASS_R4TORS	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F	101	MDS_PASS_R8TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F	103	MDS_PASS_R8TORL	arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F	110	MDS_PASS_R8TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F	112	MDS_PASS_R8TORL	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r8torl.F	58	MDS_PASS_R8TORL	INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r8torl.F	72	MDS_PASS_R8TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F	74	MDS_PASS_R8TORL	arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F	85	MDS_PASS_R8TORL	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F	87	MDS_PASS_R8TORL	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F	101	MDS_PASS_R8TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F	103	MDS_PASS_R8TORS	arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F	110	MDS_PASS_R8TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F	112	MDS_PASS_R8TORS	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r8tors.F	58	MDS_PASS_R8TORS	INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r8tors.F	72	MDS_PASS_R8TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F	74	MDS_PASS_R8TORS	arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F	85	MDS_PASS_R8TORS	DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F	87	MDS_PASS_R8TORS	buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./model/src/calc_grad_phi_hyd.F	101	CALC_GRAD_PHI_HYD	varLoc(i,j) = factPI*alphRho(i,j)
./model/src/calc_grad_phi_hyd.F	102	CALC_GRAD_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	103	CALC_GRAD_PHI_HYD	ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN
./model/src/calc_grad_phi_hyd.F	104	CALC_GRAD_PHI_HYD	factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa
./model/src/calc_grad_phi_hyd.F	105	CALC_GRAD_PHI_HYD	varLoc(i,j) = phiHydC(i,j)
./model/src/calc_grad_phi_hyd.F	106	CALC_GRAD_PHI_HYD	& *(pStarFacK(i,j,bi,bj) - factPI)
./model/src/calc_grad_phi_hyd.F	108	CALC_GRAD_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	113	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	115	CALC_GRAD_PHI_HYD	IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F	122	CALC_GRAD_PHI_HYD	varLoc(i,j) = phiHydC(i,j)
./model/src/calc_grad_phi_hyd.F	123	CALC_GRAD_PHI_HYD	& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F	124	CALC_GRAD_PHI_HYD	& / (Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F	125	CALC_GRAD_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	135	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	137	CALC_GRAD_PHI_HYD	varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	143	CALC_GRAD_PHI_HYD	DO j=1-OLy,sNy+OLy
./model/src/calc_grad_phi_hyd.F	145	CALC_GRAD_PHI_HYD	dPhiHydX(i,j) = 0. _d 0
./model/src/calc_grad_phi_hyd.F	146	CALC_GRAD_PHI_HYD	dPhiHydY(i,j) = 0. _d 0
./model/src/calc_grad_phi_hyd.F	149	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	151	CALC_GRAD_PHI_HYD	dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	152	CALC_GRAD_PHI_HYD	& ( varLoc(i,j)-varLoc(i-1,j) )recip_rhoFacC(k)
./model/src/calc_grad_phi_hyd.F	155	CALC_GRAD_PHI_HYD	DO j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F	157	CALC_GRAD_PHI_HYD	dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	158	CALC_GRAD_PHI_HYD	& ( varLoc(i,j)-varLoc(i,j-1) )recip_rhoFacC(k)
./model/src/calc_grad_phi_hyd.F	168	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	170	CALC_GRAD_PHI_HYD	varLoc(i,j) = etaH(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	171	CALC_GRAD_PHI_HYD	& (1. _d 0 + rC(k)recip_Rcol(i,j,bi,bj))
./model/src/calc_grad_phi_hyd.F	174	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	176	CALC_GRAD_PHI_HYD	dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F	177	CALC_GRAD_PHI_HYD	& +factorZ*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F	178	CALC_GRAD_PHI_HYD	& *(varLoc(i,j)-varLoc(i-1,j))
./model/src/calc_grad_phi_hyd.F	179	CALC_GRAD_PHI_HYD	& recip_dxC(i,j,bi,bj)recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	182	CALC_GRAD_PHI_HYD	DO j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F	184	CALC_GRAD_PHI_HYD	dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F	185	CALC_GRAD_PHI_HYD	& +factorZ*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F	186	CALC_GRAD_PHI_HYD	& *(varLoc(i,j)-varLoc(i,j-1))
./model/src/calc_grad_phi_hyd.F	187	CALC_GRAD_PHI_HYD	& recip_dyC(i,j,bi,bj)recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	193	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	195	CALC_GRAD_PHI_HYD	dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F	196	CALC_GRAD_PHI_HYD	& +factorP*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F	197	CALC_GRAD_PHI_HYD	& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F	198	CALC_GRAD_PHI_HYD	& rC(k)recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	201	CALC_GRAD_PHI_HYD	DO j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F	203	CALC_GRAD_PHI_HYD	dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F	204	CALC_GRAD_PHI_HYD	& +factorP*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F	205	CALC_GRAD_PHI_HYD	& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F	206	CALC_GRAD_PHI_HYD	& rC(k)recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	223	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	225	CALC_GRAD_PHI_HYD	dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F	226	CALC_GRAD_PHI_HYD	& +factorP*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F	228	CALC_GRAD_PHI_HYD	& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F	229	CALC_GRAD_PHI_HYD	& rC(k)recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	231	CALC_GRAD_PHI_HYD	& *(pStarFacK(i,j,bi,bj)-pStarFacK(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F	232	CALC_GRAD_PHI_HYD	& recip_dxC(i,j,bi,bj)recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	236	CALC_GRAD_PHI_HYD	DO j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F	238	CALC_GRAD_PHI_HYD	dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F	239	CALC_GRAD_PHI_HYD	& +factorP*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F	241	CALC_GRAD_PHI_HYD	& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F	242	CALC_GRAD_PHI_HYD	& rC(k)recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	244	CALC_GRAD_PHI_HYD	& *(pStarFacK(i,j,bi,bj)-pStarFacK(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F	245	CALC_GRAD_PHI_HYD	& recip_dyC(i,j,bi,bj)recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F	255	CALC_GRAD_PHI_HYD	DO j=1-OLy,sNy+OLy
./model/src/calc_grad_phi_hyd.F	257	CALC_GRAD_PHI_HYD	dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj)
./model/src/calc_grad_phi_hyd.F	258	CALC_GRAD_PHI_HYD	dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj)
./model/src/calc_grad_phi_hyd.F	60	CALC_GRAD_PHI_HYD	INTEGER i,j
./model/src/calc_grad_phi_hyd.F	76	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	78	CALC_GRAD_PHI_HYD	varLoc(i,j) = phiHydC(i,j)*pStarFacK(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	79	CALC_GRAD_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	83	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	85	CALC_GRAD_PHI_HYD	varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	86	CALC_GRAD_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F	95	CALC_GRAD_PHI_HYD	DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F	97	CALC_GRAD_PHI_HYD	IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F	98	CALC_GRAD_PHI_HYD	factPI=atm_Cp( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)*atm_kappa
./pkg/mdsio/mdsio_read_field.F	111	MDS_READ_FIELD	INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_read_field.F	431	MDS_READ_FIELD	DO j=1,tNy
./pkg/mdsio/mdsio_read_field.F	432	MDS_READ_FIELD	irec = 1 + ( tBx + (j-1)*iGjLoc )/sNx
./pkg/mdsio/mdsio_read_field.F	433	MDS_READ_FIELD	& + ( tBy + (j-1)jGjLoc )global_nTx
./pkg/mdsio/mdsio_read_field.F	435	MDS_READ_FIELD	i1 = bBij + 1 + (j-1)sNx + (k-kLo)sNx*sNy
./pkg/mdsio/mdsio_read_field.F	436	MDS_READ_FIELD	i2 = bBij + jsNx + (k-kLo)sNx*sNy
./pkg/mdsio/mdsio_read_meta.F	108	MDS_READ_META	DO j=1,nDims
./pkg/mdsio/mdsio_read_meta.F	110	MDS_READ_META	dimList(i,j) = 0
./pkg/mdsio/mdsio_read_meta.F	242	MDS_READ_META	DO j=1,nDimFil
./pkg/mdsio/mdsio_read_meta.F	250	MDS_READ_META	& (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_read_meta.F	255	MDS_READ_META	& (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_read_meta.F	260	MDS_READ_META	& (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_read_meta.F	370	MDS_READ_META	DO j=1,nFldFil,20
./pkg/mdsio/mdsio_read_meta.F	372	MDS_READ_META	& (fldList(i),i=j,MIN(nFldFil,j+19))
./pkg/mdsio/mdsio_read_meta.F	383	MDS_READ_META	& nFldFil, ' , j=', j
./pkg/mdsio/mdsio_read_meta.F	396	MDS_READ_META	& nDimFil, ' , j=', j, ' , ii=', ii
./pkg/mdsio/mdsio_read_meta.F	88	MDS_READ_META	INTEGER i,j,ii
./pkg/mdsio/mdsio_read_tape.F	270	MDS_READ_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_read_tape.F	271	MDS_READ_TAPE	fldR4(j) = local_r4(j)
./pkg/mdsio/mdsio_read_tape.F	274	MDS_READ_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_read_tape.F	275	MDS_READ_TAPE	fldR4(j) = local_r8(j)
./pkg/mdsio/mdsio_read_tape.F	280	MDS_READ_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_read_tape.F	281	MDS_READ_TAPE	fldR8(j) = local_r4(j)
./pkg/mdsio/mdsio_read_tape.F	284	MDS_READ_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_read_tape.F	285	MDS_READ_TAPE	fldR8(j) = local_r8(j)
./pkg/mdsio/mdsio_read_tape.F	71	MDS_READ_TAPE	INTEGER j
./pkg/mdsio/mdsio_read_whalos.F	174	MDS_READ_WHALOS	j=(jWh-1)*lengthBuff+i
./pkg/mdsio/mdsio_read_whalos.F	177	MDS_READ_WHALOS	fld2d_procbuff_r4(i)=fld3d_procbuff_r4(j)
./pkg/mdsio/mdsio_read_whalos.F	179	MDS_READ_WHALOS	fld2d_procbuff_r8(i)=fld3d_procbuff_r8(j)
./pkg/mdsio/mdsio_read_whalos.F	184	MDS_READ_WHALOS	fld2d_globuff_r4(i)=fld3d_globuff_r4(j)
./pkg/mdsio/mdsio_read_whalos.F	186	MDS_READ_WHALOS	fld2d_globuff_r8(i)=fld3d_globuff_r8(j)
./pkg/mdsio/mdsio_read_whalos.F	90	MDS_READ_WHALOS	integer i,j,k,bi,bj,ii
./model/src/calc_grad_phi_surf.F	45	CALC_GRAD_PHI_SURF	INTEGER i,j
./model/src/calc_grad_phi_surf.F	49	CALC_GRAD_PHI_SURF	DO j=jMin,jMax
./model/src/calc_grad_phi_surf.F	51	CALC_GRAD_PHI_SURF	phiSurfX(i,j)=_recip_dxC(i,j,bi,bj)*
./model/src/calc_grad_phi_surf.F	52	CALC_GRAD_PHI_SURF	& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj)
./model/src/calc_grad_phi_surf.F	53	CALC_GRAD_PHI_SURF	& - Bo_surf(i-1,j,bi,bj)*etaFld(i-1,j,bi,bj) )
./model/src/calc_grad_phi_surf.F	58	CALC_GRAD_PHI_SURF	DO j=jMin,jMax
./model/src/calc_grad_phi_surf.F	60	CALC_GRAD_PHI_SURF	phiSurfY(i,j)=_recip_dyC(i,j,bi,bj)*
./model/src/calc_grad_phi_surf.F	61	CALC_GRAD_PHI_SURF	& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj)
./model/src/calc_grad_phi_surf.F	62	CALC_GRAD_PHI_SURF	& - Bo_surf(i,j-1,bi,bj)*etaFld(i,j-1,bi,bj) )
./pkg/mdsio/mdsio_seg4torl.F	22	MDS_SEG4TORL	INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg4torl.F	31	MDS_SEG4TORL	arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg4torl.F	35	MDS_SEG4TORL	seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg4torl.F	6	MDS_SEG4TORL	SUBROUTINE MDS_SEG4TORL( j,bi,bj,k,nNz, seg, copyTo, arr )
./pkg/mdsio/mdsio_seg4tors.F	22	MDS_SEG4TORS	INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg4tors.F	31	MDS_SEG4TORS	arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg4tors.F	35	MDS_SEG4TORS	seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg4tors.F	6	MDS_SEG4TORS	SUBROUTINE MDS_SEG4TORS( j,bi,bj,k,nNz, seg, copyTo, arr )
./pkg/mdsio/mdsio_seg8torl.F	22	MDS_SEG8TORL	INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg8torl.F	31	MDS_SEG8TORL	arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg8torl.F	35	MDS_SEG8TORL	seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg8torl.F	6	MDS_SEG8TORL	SUBROUTINE MDS_SEG8TORL( j,bi,bj,k,nNz, seg, copyTo, arr )
./pkg/mdsio/mdsio_seg8tors.F	22	MDS_SEG8TORS	INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg8tors.F	31	MDS_SEG8TORS	arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg8tors.F	35	MDS_SEG8TORS	seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg8tors.F	6	MDS_SEG8TORS	SUBROUTINE MDS_SEG8TORS( j,bi,bj,k,nNz, seg, copyTo, arr )
./pkg/mdsio/mdsio_write_field.F	128	MDS_WRITE_FIELD	INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_write_field.F	478	MDS_WRITE_FIELD	DO j=1,tNy
./pkg/mdsio/mdsio_write_field.F	479	MDS_WRITE_FIELD	irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx
./pkg/mdsio/mdsio_write_field.F	480	MDS_WRITE_FIELD	& + ( tBy + (j-1)jGjLoc )global_nTx
./pkg/mdsio/mdsio_write_field.F	482	MDS_WRITE_FIELD	i1 = bBij + 1 + (j-1)sNx + (k-kLo)sNx*sNy
./pkg/mdsio/mdsio_write_field.F	483	MDS_WRITE_FIELD	i2 = bBij + jsNx + (k-kLo)sNx*sNy
./pkg/mdsio/mdsio_write_meta.F	115	MDS_WRITE_META	DO j=1,nDims
./pkg/mdsio/mdsio_write_meta.F	116	MDS_WRITE_META	ii = MAX(dimList(1,j),ii)
./pkg/mdsio/mdsio_write_meta.F	121	MDS_WRITE_META	DO j=1,nDims
./pkg/mdsio/mdsio_write_meta.F	122	MDS_WRITE_META	IF (j.LT.nDims) THEN
./pkg/mdsio/mdsio_write_meta.F	123	MDS_WRITE_META	WRITE(mUnit,'(1X,3(I5,","))') (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F	125	MDS_WRITE_META	WRITE(mUnit,'(1X,2(I5,","),I5)') (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F	130	MDS_WRITE_META	DO j=1,nDims
./pkg/mdsio/mdsio_write_meta.F	131	MDS_WRITE_META	IF (j.LT.nDims) THEN
./pkg/mdsio/mdsio_write_meta.F	132	MDS_WRITE_META	WRITE(mUnit,'(1X,3(I10,","))') (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F	134	MDS_WRITE_META	WRITE(mUnit,'(1X,2(I10,","),I10)') (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F	77	MDS_WRITE_META	INTEGER i,j,ii,iL
./model/src/calc_grid_angles.F	100	CALC_GRID_ANGLES	& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL )
./model/src/calc_grid_angles.F	102	CALC_GRID_ANGLES	u2zonDir(i,j,bi,bj) = rSphere
./model/src/calc_grid_angles.F	103	CALC_GRID_ANGLES	& ( SIN( yG(i,j+1,bi,bj)deg2rad )
./model/src/calc_grid_angles.F	104	CALC_GRID_ANGLES	& - SIN( yG(i, j, bi,bj)*deg2rad )
./model/src/calc_grid_angles.F	105	CALC_GRID_ANGLES	& )* _dxC(i,j,bi,bj)/tmpVal
./model/src/calc_grid_angles.F	108	CALC_GRID_ANGLES	u2zonDir(i,j,bi,bj) = 1.
./model/src/calc_grid_angles.F	112	CALC_GRID_ANGLES	DO j = 1-OLy,sNy+OLy
./model/src/calc_grid_angles.F	117	CALC_GRID_ANGLES	tmpVal = _rAs(i,j,bi,bj) * COS( deg2rad*
./model/src/calc_grid_angles.F	118	CALC_GRID_ANGLES	& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL )
./model/src/calc_grid_angles.F	120	CALC_GRID_ANGLES	v2zonDir(i,j,bi,bj) = -rSphere
./model/src/calc_grid_angles.F	121	CALC_GRID_ANGLES	& ( SIN( yG(i+1,j,bi,bj)deg2rad )
./model/src/calc_grid_angles.F	122	CALC_GRID_ANGLES	& - SIN( yG(i,j,bi,bj)*deg2rad )
./model/src/calc_grid_angles.F	123	CALC_GRID_ANGLES	& )* _dyC(i,j,bi,bj)/tmpVal
./model/src/calc_grid_angles.F	126	CALC_GRID_ANGLES	v2zonDir(i,j,bi,bj) = 0.
./model/src/calc_grid_angles.F	41	CALC_GRID_ANGLES	INTEGER i, j
./model/src/calc_grid_angles.F	54	CALC_GRID_ANGLES	DO j = 1-OLy,sNy+OLy-1
./model/src/calc_grid_angles.F	56	CALC_GRID_ANGLES	IF ( _dyG(i,j,bi,bj).GT.0. ) THEN
./model/src/calc_grid_angles.F	57	CALC_GRID_ANGLES	uPseudo(i,j) =
./model/src/calc_grid_angles.F	58	CALC_GRID_ANGLES	& - ( yG(i,j,bi,bj) - yG(i,j+1,bi,bj) )*deg2rad
./model/src/calc_grid_angles.F	59	CALC_GRID_ANGLES	& / _dyG(i,j,bi,bj)
./model/src/calc_grid_angles.F	61	CALC_GRID_ANGLES	uPseudo(i,j) = 0.
./model/src/calc_grid_angles.F	63	CALC_GRID_ANGLES	u2zonDir(i,j,bi,bj) = rSphere*uPseudo(i,j)
./model/src/calc_grid_angles.F	66	CALC_GRID_ANGLES	DO j = 1-OLy,sNy+OLy
./model/src/calc_grid_angles.F	68	CALC_GRID_ANGLES	IF ( _dxG(i,j,bi,bj).GT.0. ) THEN
./model/src/calc_grid_angles.F	69	CALC_GRID_ANGLES	vPseudo(i,j) =
./model/src/calc_grid_angles.F	70	CALC_GRID_ANGLES	& + ( yG(i,j,bi,bj) - yG(i+1,j,bi,bj) )*deg2rad
./model/src/calc_grid_angles.F	71	CALC_GRID_ANGLES	& / _dxG(i,j,bi,bj)
./model/src/calc_grid_angles.F	73	CALC_GRID_ANGLES	vPseudo(i,j) = 0.
./model/src/calc_grid_angles.F	75	CALC_GRID_ANGLES	v2zonDir(i,j,bi,bj) = rSphere*vPseudo(i,j)
./model/src/calc_grid_angles.F	79	CALC_GRID_ANGLES	DO j = 1-OLy,sNy+OLy-1
./model/src/calc_grid_angles.F	81	CALC_GRID_ANGLES	uC = 0.5*(uPseudo(i,j) + uPseudo(i+1,j))
./model/src/calc_grid_angles.F	82	CALC_GRID_ANGLES	vC = 0.5*(vPseudo(i,j) + vPseudo(i,j+1))
./model/src/calc_grid_angles.F	85	CALC_GRID_ANGLES	angleCosC(i,j,bi,bj) = uC*uNorm
./model/src/calc_grid_angles.F	86	CALC_GRID_ANGLES	angleSinC(i,j,bi,bj) = -vC*uNorm
./model/src/calc_grid_angles.F	94	CALC_GRID_ANGLES	DO j = 1-OLy,sNy+OLy-1
./model/src/calc_grid_angles.F	99	CALC_GRID_ANGLES	tmpVal = _rAw(i,j,bi,bj) * COS( deg2rad*
./pkg/mdsio/mdsio_write_tape.F	102	MDS_WRITE_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_write_tape.F	103	MDS_WRITE_TAPE	local_r8(j) = fldR4(j)
./pkg/mdsio/mdsio_write_tape.F	108	MDS_WRITE_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_write_tape.F	109	MDS_WRITE_TAPE	local_r4(j) = fldR8(j)
./pkg/mdsio/mdsio_write_tape.F	112	MDS_WRITE_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_write_tape.F	113	MDS_WRITE_TAPE	local_r8(j) = fldR8(j)
./pkg/mdsio/mdsio_write_tape.F	77	MDS_WRITE_TAPE	INTEGER j
./pkg/mdsio/mdsio_write_tape.F	98	MDS_WRITE_TAPE	DO j=1,nSize
./pkg/mdsio/mdsio_write_tape.F	99	MDS_WRITE_TAPE	local_r4(j) = fldR4(j)
./pkg/mdsio/mdsio_write_whalos.F	180	MDS_WRITE_WHALOS	j=(jWh-1)*lengthBuff+i
./pkg/mdsio/mdsio_write_whalos.F	183	MDS_WRITE_WHALOS	fld3d_procbuff_r4(j)=fld2d_procbuff_r4(i)
./pkg/mdsio/mdsio_write_whalos.F	185	MDS_WRITE_WHALOS	fld3d_procbuff_r8(j)=fld2d_procbuff_r8(i)
./pkg/mdsio/mdsio_write_whalos.F	190	MDS_WRITE_WHALOS	fld3d_globuff_r4(j)=fld2d_globuff_r4(i)
./pkg/mdsio/mdsio_write_whalos.F	192	MDS_WRITE_WHALOS	fld3d_globuff_r8(j)=fld2d_globuff_r8(i)
./pkg/mdsio/mdsio_write_whalos.F	92	MDS_WRITE_WHALOS	integer i,j,k,bi,bj,ii
./pkg/mdsio/mdsio_writelocal.F	115	MDS_WRITELOCAL	INTEGER i1,i2,i,j,k
./pkg/mdsio/mdsio_writelocal.F	331	MDS_WRITELOCAL	DO j=1,sNy
./pkg/mdsio/mdsio_writelocal.F	333	MDS_WRITELOCAL	irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx
./pkg/mdsio/mdsio_writelocal.F	334	MDS_WRITELOCAL	& + ( tBy + (j-1)jGjLoc )global_nTx
./pkg/mdsio/mdsio_writelocal.F	336	MDS_WRITELOCAL	i1 = bBij + 1 + (j-1)sNx + (k-1)sNx*sNy
./pkg/mdsio/mdsio_writelocal.F	337	MDS_WRITELOCAL	i2 = bBij + jsNx + (k-1)sNx*sNy
./model/src/calc_gw.F	119	CALC_GW	INTEGER i,j,k, km1, kp1
./model/src/calc_gw.F	152	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	154	CALC_GW	gW(i,j,k,bi,bj) = 0.
./model/src/calc_gw.F	159	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	161	CALC_GW	gwDiss(i,j) = 0.
./model/src/calc_gw.F	166	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	168	CALC_GW	del2w(i,j) = 0. _d 0
./model/src/calc_gw.F	174	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	176	CALC_GW	flxAdvUp(i,j) = 0.
./model/src/calc_gw.F	192	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	194	CALC_GW	IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR.
./model/src/calc_gw.F	195	CALC_GW	& maskC(i,j, k ,bi,bj).EQ.0. ) THEN
./model/src/calc_gw.F	196	CALC_GW	recip_rThickC(i,j) = 0.
./model/src/calc_gw.F	199	CALC_GW	recip_rThickC(i,j) = 1. _d 0 /
./model/src/calc_gw.F	200	CALC_GW	& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) )
./model/src/calc_gw.F	201	CALC_GW	& - MAX( R_low(i,j,bi,bj), rC(k) )
./model/src/calc_gw.F	207	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	209	CALC_GW	rThickC_C(i,j) = MAX( zeroRS,
./model/src/calc_gw.F	210	CALC_GW	& MIN( Ro_surf(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F	211	CALC_GW	& -MAX( R_low(i,j,bi,bj), rC(k) )
./model/src/calc_gw.F	215	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	217	CALC_GW	rThickC_W(i,j) = MAX( zeroRS,
./model/src/calc_gw.F	218	CALC_GW	& MIN( rSurfW(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F	219	CALC_GW	& -MAX( rLowW(i,j,bi,bj), rC(k) )
./model/src/calc_gw.F	222	CALC_GW	xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j)
./model/src/calc_gw.F	226	CALC_GW	DO j=1-OLy+1,sNy+OLy
./model/src/calc_gw.F	228	CALC_GW	rThickC_S(i,j) = MAX( zeroRS,
./model/src/calc_gw.F	229	CALC_GW	& MIN( rSurfS(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F	230	CALC_GW	& -MAX( rLowS(i,j,bi,bj), rC(k) )
./model/src/calc_gw.F	233	CALC_GW	yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j)
./model/src/calc_gw.F	241	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	244	CALC_GW	IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/calc_gw.F	245	CALC_GW	recip_rThickC(i,j) = 0.
./model/src/calc_gw.F	247	CALC_GW	recip_rThickC(i,j) = 1. _d 0 /
./model/src/calc_gw.F	249	CALC_GW	& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F	254	CALC_GW	rThickC_C(i,j) =
./model/src/calc_gw.F	255	CALC_GW	& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F	256	CALC_GW	& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS )
./model/src/calc_gw.F	258	CALC_GW	rThickC_C(i,j) =
./model/src/calc_gw.F	259	CALC_GW	& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F	260	CALC_GW	& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS )
./model/src/calc_gw.F	262	CALC_GW	rThickC_W(i,j) =
./model/src/calc_gw.F	263	CALC_GW	& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F	264	CALC_GW	& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS )
./model/src/calc_gw.F	265	CALC_GW	rThickC_S(i,j) =
./model/src/calc_gw.F	266	CALC_GW	& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F	267	CALC_GW	& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F	269	CALC_GW	xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j)
./model/src/calc_gw.F	272	CALC_GW	yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j)
./model/src/calc_gw.F	281	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	283	CALC_GW	recip_rThickC(i,j) = recip_drC(k)
./model/src/calc_gw.F	294	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	296	CALC_GW	wFld(i,j) = wVel(i,j,k,bi,bj)
./model/src/calc_gw.F	310	CALC_GW	DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F	311	CALC_GW	flx_EW(1-OLx,j)=0.
./model/src/calc_gw.F	313	CALC_GW	flx_EW(i,j) =
./model/src/calc_gw.F	314	CALC_GW	& ( wFld(i,j) - wFld(i-1,j) )
./model/src/calc_gw.F	315	CALC_GW	& _recip_dxC(i,j,bi,bj)xA(i,j)
./model/src/calc_gw.F	317	CALC_GW	& *sqCosFacU(j,bi,bj)
./model/src/calc_gw.F	320	CALC_GW	& *maskInW(i,j,bi,bj)
./model/src/calc_gw.F	334	CALC_GW	DO j=1-OLy+1,sNy+OLy
./model/src/calc_gw.F	336	CALC_GW	flx_NS(i,j) =
./model/src/calc_gw.F	337	CALC_GW	& ( wFld(i,j) - wFld(i,j-1) )
./model/src/calc_gw.F	338	CALC_GW	& _recip_dyC(i,j,bi,bj)yA(i,j)
./model/src/calc_gw.F	341	CALC_GW	& *sqCosFacV(j,bi,bj)
./model/src/calc_gw.F	345	CALC_GW	& *maskInS(i,j,bi,bj)
./model/src/calc_gw.F	352	CALC_GW	DO j=1-OLy,sNy+OLy-1
./model/src/calc_gw.F	354	CALC_GW	del2w(i,j) = ( ( flx_EW(i+1,j)-flx_EW(i,j) )
./model/src/calc_gw.F	355	CALC_GW	& +( flx_NS(i,j+1)-flx_NS(i,j) )
./model/src/calc_gw.F	356	CALC_GW	& )recip_rA(i,j,bi,bj)recip_rThickC(i,j)
./model/src/calc_gw.F	365	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	367	CALC_GW	flx_EW(i,j)=
./model/src/calc_gw.F	368	CALC_GW	& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F	369	CALC_GW	& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj))
./model/src/calc_gw.F	370	CALC_GW	& _recip_dxC(i,j,bi,bj)xA(i,j)
./model/src/calc_gw.F	371	CALC_GW	& *cosFacU(j,bi,bj)
./model/src/calc_gw.F	372	CALC_GW	& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F	373	CALC_GW	& *(del2w(i,j)-del2w(i-1,j))
./model/src/calc_gw.F	374	CALC_GW	& _recip_dxC(i,j,bi,bj)xA(i,j)
./model/src/calc_gw.F	376	CALC_GW	& *sqCosFacU(j,bi,bj)
./model/src/calc_gw.F	378	CALC_GW	& *cosFacU(j,bi,bj)
./model/src/calc_gw.F	383	CALC_GW	DO j=jMin,jMax+1
./model/src/calc_gw.F	385	CALC_GW	flx_NS(i,j)=
./model/src/calc_gw.F	386	CALC_GW	& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL
./model/src/calc_gw.F	387	CALC_GW	& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj))
./model/src/calc_gw.F	388	CALC_GW	& _recip_dyC(i,j,bi,bj)yA(i,j)
./model/src/calc_gw.F	390	CALC_GW	& *cosFacV(j,bi,bj)
./model/src/calc_gw.F	392	CALC_GW	& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL
./model/src/calc_gw.F	393	CALC_GW	& *(del2w(i,j)-del2w(i,j-1))
./model/src/calc_gw.F	394	CALC_GW	& _recip_dyC(i,j,bi,bj)yA(i,j)
./model/src/calc_gw.F	397	CALC_GW	& *sqCosFacV(j,bi,bj)
./model/src/calc_gw.F	399	CALC_GW	& *cosFacV(j,bi,bj)
./model/src/calc_gw.F	405	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	408	CALC_GW	viscLoc = ( KappaRU(i,j,k) +KappaRU(i+1,j,k)
./model/src/calc_gw.F	409	CALC_GW	& +KappaRU(i,j,kp1)+KappaRU(i+1,j,kp1)
./model/src/calc_gw.F	410	CALC_GW	& +KappaRV(i,j,k) +KappaRV(i,j+1,k)
./model/src/calc_gw.F	411	CALC_GW	& +KappaRV(i,j,kp1)+KappaRV(i,j+1,kp1)
./model/src/calc_gw.F	413	CALC_GW	flx_Dn(i,j) =
./model/src/calc_gw.F	414	CALC_GW	& - viscLoc( wVel(i,j,kp1,bi,bj)mskP1
./model/src/calc_gw.F	415	CALC_GW	& -wVel(i,j, k ,bi,bj) )*rkSign
./model/src/calc_gw.F	416	CALC_GW	& recip_drF(k)rA(i,j,bi,bj)
./model/src/calc_gw.F	422	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	428	CALC_GW	viscLoc = ( KappaRU(i,j,k) + KappaRU(i+1,j,k)
./model/src/calc_gw.F	429	CALC_GW	& +KappaRV(i,j,k) + KappaRV(i,j+1,k)
./model/src/calc_gw.F	431	CALC_GW	flxDisUp(i,j) =
./model/src/calc_gw.F	432	CALC_GW	& - viscLoc*( wVel(i,j, k ,bi,bj)
./model/src/calc_gw.F	433	CALC_GW	& -wVel(i,j,k-1,bi,bj) )*rkSign
./model/src/calc_gw.F	434	CALC_GW	& recip_drF(k-1)rA(i,j,bi,bj)
./model/src/calc_gw.F	443	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	445	CALC_GW	gwDiss(i,j) =
./model/src/calc_gw.F	446	CALC_GW	& -( ( flx_EW(i+1,j)-flx_EW(i,j) )
./model/src/calc_gw.F	447	CALC_GW	& + ( flx_NS(i,j+1)-flx_NS(i,j) )
./model/src/calc_gw.F	448	CALC_GW	& + ( flx_Dn(i,j)-flxDisUp(i,j) )*rkSign
./model/src/calc_gw.F	450	CALC_GW	& )recip_rA(i,j,bi,bj)recip_rThickC(i,j)
./model/src/calc_gw.F	453	CALC_GW	flxDisUp(i,j)=flx_Dn(i,j)
./model/src/calc_gw.F	467	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	469	CALC_GW	gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j)
./model/src/calc_gw.F	482	CALC_GW	DO j = jMin,jMax
./model/src/calc_gw.F	484	CALC_GW	gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j)
./model/src/calc_gw.F	496	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	500	CALC_GW	& drF(km1)_hFacW(i,j,km1,bi,bj)uVel(i,j,km1,bi,bj)
./model/src/calc_gw.F	502	CALC_GW	& + drF( k )_hFacW(i,j, k ,bi,bj)uVel(i,j, k ,bi,bj)
./model/src/calc_gw.F	504	CALC_GW	& )halfRL_dyG(i,j,bi,bj)*deepFacF(k)
./model/src/calc_gw.F	505	CALC_GW	flx_EW(i,j) = uTrans(wFld(i,j)+wFld(i-1,j))halfRL
./model/src/calc_gw.F	511	CALC_GW	DO j=jMin,jMax+1
./model/src/calc_gw.F	515	CALC_GW	& drF(km1)_hFacS(i,j,km1,bi,bj)vVel(i,j,km1,bi,bj)
./model/src/calc_gw.F	517	CALC_GW	& +drF( k )_hFacS(i,j, k ,bi,bj)vVel(i,j, k ,bi,bj)
./model/src/calc_gw.F	519	CALC_GW	& )halfRL_dxG(i,j,bi,bj)*deepFacF(k)
./model/src/calc_gw.F	520	CALC_GW	flx_NS(i,j) = vTrans(wFld(i,j)+wFld(i,j-1))halfRL
./model/src/calc_gw.F	528	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	532	CALC_GW	& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k )
./model/src/calc_gw.F	533	CALC_GW	& +wVel(i,j,kp1,bi,bj)rVel2wUnit(kp1)mskP1 )
./model/src/calc_gw.F	536	CALC_GW	& ( wVel(i,j, k ,bi,bj)deepFac2F( k )rhoFacF( k )
./model/src/calc_gw.F	537	CALC_GW	& +wVel(i,j,kp1,bi,bj)deepFac2F(kp1)rhoFacF(kp1)
./model/src/calc_gw.F	539	CALC_GW	& )*rA(i,j,bi,bj)
./model/src/calc_gw.F	540	CALC_GW	flx_Dn(i,j) = rTrans*tmp_WbarZ
./model/src/calc_gw.F	546	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	548	CALC_GW	tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k)
./model/src/calc_gw.F	549	CALC_GW	rTrans = wVel(i,j,k,bi,bj)deepFac2F(k)rhoFacF(k)
./model/src/calc_gw.F	550	CALC_GW	& *rA(i,j,bi,bj)
./model/src/calc_gw.F	551	CALC_GW	flxAdvUp(i,j) = rTrans*tmp_WbarZ
./model/src/calc_gw.F	560	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	564	CALC_GW	gW(i,j,k,bi,bj) =
./model/src/calc_gw.F	565	CALC_GW	& -( ( flx_EW(i+1,j)-flx_EW(i,j) )
./model/src/calc_gw.F	566	CALC_GW	& + ( flx_NS(i,j+1)-flx_NS(i,j) )
./model/src/calc_gw.F	567	CALC_GW	& + ( flx_Dn(i,j)-flxAdvUp(i,j) )rkSignwUnit2rVel(k)
./model/src/calc_gw.F	568	CALC_GW	& )recip_rA(i,j,bi,bj)recip_rThickC(i,j)
./model/src/calc_gw.F	574	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	576	CALC_GW	gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/calc_gw.F	577	CALC_GW	& + wVel(i,j,k,bi,bj)mass2rUnit0.5 _d 0
./model/src/calc_gw.F	578	CALC_GW	& *( addMass(i,j,k,bi,bj)
./model/src/calc_gw.F	579	CALC_GW	& +addMass(i,j,km1,bi,bj)*mskM1 )
./model/src/calc_gw.F	580	CALC_GW	& recip_rA(i,j,bi,bj)recip_rThickC(i,j)
./model/src/calc_gw.F	588	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	591	CALC_GW	flxAdvUp(i,j)=flx_Dn(i,j)
./model/src/calc_gw.F	614	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	616	CALC_GW	gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j)
./model/src/calc_gw.F	626	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	628	CALC_GW	gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j)
./model/src/calc_gw.F	652	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	654	CALC_GW	gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j)
./model/src/calc_gw.F	683	CALC_GW	DO j=jMin,jMax
./model/src/calc_gw.F	685	CALC_GW	gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j)
./pkg/mnc/mnc_cwrapper.F	155	MNC_CW_DUMP	integer i,j, ntot
./pkg/mnc/mnc_cwrapper.F	172	MNC_CW_DUMP	DO j = 1,MNC_MAX_ID
./pkg/mnc/mnc_cwrapper.F	173	MNC_CW_DUMP	IF (mnc_cw_gname(j)(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cwrapper.F	180	MNC_CW_DUMP	& j, ntot, ' : ', mnc_cw_gname(j)(1:20), mnc_cw_ndim(j),
./pkg/mnc/mnc_cwrapper.F	181	MNC_CW_DUMP	& ' : ', (mnc_cw_dims(i,j), i=1,5),
./pkg/mnc/mnc_cwrapper.F	182	MNC_CW_DUMP	& ' \| ', (mnc_cw_is(i,j), i=1,5),
./pkg/mnc/mnc_cwrapper.F	183	MNC_CW_DUMP	& ' \| ', (mnc_cw_ie(i,j), i=1,5),
./pkg/mnc/mnc_cwrapper.F	184	MNC_CW_DUMP	& ' \| ', (mnc_cw_dn(i,j)(1:7), i=1,5)
./pkg/mnc/mnc_cwrapper.F	197	MNC_CW_DUMP	DO j = 1,MNC_MAX_ID
./pkg/mnc/mnc_cwrapper.F	198	MNC_CW_DUMP	IF (mnc_cw_vname(j)(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cwrapper.F	204	MNC_CW_DUMP	& j, ntot, ' \| ',
./pkg/mnc/mnc_cwrapper.F	205	MNC_CW_DUMP	& mnc_cw_vname(j)(1:20), ' \| ', mnc_cw_vgind(j)
./pkg/mnc/mnc_cwrapper.F	209	MNC_CW_DUMP	DO i = 1,mnc_cw_vnat(1,j)
./pkg/mnc/mnc_cwrapper.F	213	MNC_CW_DUMP	& ' : ', mnc_cw_vtnm(i,j)(1:25), ' : ',
./pkg/mnc/mnc_cwrapper.F	214	MNC_CW_DUMP	& mnc_cw_vtat(i,j)(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cwrapper.F	218	MNC_CW_DUMP	DO i = 1,mnc_cw_vnat(2,j)
./pkg/mnc/mnc_cwrapper.F	222	MNC_CW_DUMP	& ' : ', mnc_cw_vinm(i,j)(1:25), ' : ',
./pkg/mnc/mnc_cwrapper.F	223	MNC_CW_DUMP	& mnc_cw_viat(i,j)
./pkg/mnc/mnc_cwrapper.F	227	MNC_CW_DUMP	DO i = 1,mnc_cw_vnat(3,j)
./pkg/mnc/mnc_cwrapper.F	231	MNC_CW_DUMP	& ' : ', mnc_cw_vdnm(i,j)(1:25), ' : ',
./pkg/mnc/mnc_cwrapper.F	232	MNC_CW_DUMP	& mnc_cw_vdat(i,j)
./pkg/mnc/mnc_dim.F	112	MNC_DIM_INIT_ALL_CV	j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_dim.F	113	MNC_DIM_INIT_ALL_CV	ntmp = ILNBLNK(mnc_d_names(j))
./pkg/mnc/mnc_dim.F	115	MNC_DIM_INIT_ALL_CV	& .AND. (dname(dnf:dnl) .EQ. mnc_d_names(j)(1:ntmp))) THEN
./pkg/mnc/mnc_dim.F	116	MNC_DIM_INIT_ALL_CV	IF (mnc_d_size(j) .NE. dlen) THEN
./pkg/mnc/mnc_dim.F	117	MNC_DIM_INIT_ALL_CV	IF ((mnc_d_size(j) .GT. 0) .OR. (dlen .GT. 0)) THEN
./pkg/mnc/mnc_dim.F	194	MNC_DIM_UNLIM_SIZE	integer i,j, nf, indf, fid, unlimid, err
./pkg/mnc/mnc_dim.F	215	MNC_DIM_UNLIM_SIZE	j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_dim.F	216	MNC_DIM_UNLIM_SIZE	IF (mnc_d_size(j) .EQ. -1) THEN
./pkg/mnc/mnc_dim.F	217	MNC_DIM_UNLIM_SIZE	unlimid = mnc_d_ids(j)
./pkg/mnc/mnc_dim.F	88	MNC_DIM_INIT_ALL_CV	integer i,j, indf,indd, n,nf, dnf,dnl
./pkg/mnc/mnc_dump.F	43	MNC_DUMP_ALL	integer i,j
./pkg/mnc/mnc_dump.F	69	MNC_DUMP_ALL	write(,) i,': ',(mnc_f_info(i,j), j=1,n_items)
./pkg/mnc/mnc_dump.F	73	MNC_DUMP_ALL	write(,) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
./pkg/mnc/mnc_dump.F	77	MNC_DUMP_ALL	write(,) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
./pkg/mnc/mnc_dump.F	81	MNC_DUMP_ALL	write(,) i,': ',(mnc_f_alld(i,j), j=1,n_items)
./model/src/calc_ivdc.F	44	CALC_IVDC	INTEGER i,j
./model/src/calc_ivdc.F	48	CALC_IVDC	DO j=jMin,jmax
./model/src/calc_ivdc.F	50	CALC_IVDC	IF ( -sigmaR(i,j,k)*gravitySign.GT.0. ) THEN
./model/src/calc_ivdc.F	51	CALC_IVDC	IVDConvCount(i,j,k,bi,bj) = 1. _d 0
./model/src/calc_ivdc.F	53	CALC_IVDC	IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./pkg/mnc/mnc_file.F	339	MNC_FILE_CLOSE	integer i,j,k,n, err, fid, indf, nf
./pkg/mnc/mnc_file.F	365	MNC_FILE_CLOSE	j = 2 + 3*(i - 1)
./pkg/mnc/mnc_file.F	366	MNC_FILE_CLOSE	k = mnc_fv_ids(indf,j)
./pkg/mnc/mnc_file.F	377	MNC_FILE_CLOSE	j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_file.F	378	MNC_FILE_CLOSE	mnc_d_ids(j) = 0
./pkg/mnc/mnc_file.F	379	MNC_FILE_CLOSE	mnc_d_size(j) = 0
./pkg/mnc/mnc_file.F	380	MNC_FILE_CLOSE	mnc_d_names(j)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_file.F	387	MNC_FILE_CLOSE	j = 4 + 3*(i - 1)
./pkg/mnc/mnc_file.F	388	MNC_FILE_CLOSE	k = mnc_f_info(indf,j)
./pkg/mnc/mnc_file.F	658	MNC_FILE_TRY_READ	integer i,j,k, fid, err, ndim,nvar,ngat,unlimid
./pkg/mnc/mnc_file.F	704	MNC_FILE_TRY_READ	j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_file.F	705	MNC_FILE_TRY_READ	n1 = IFNBLNK(mnc_d_names(j))
./pkg/mnc/mnc_file.F	706	MNC_FILE_TRY_READ	n2 = ILNBLNK(mnc_d_names(j))
./pkg/mnc/mnc_file.F	708	MNC_FILE_TRY_READ	& .AND. (mnc_d_names(j)(ns:ne) .EQ. name(ns:ne))) THEN
./pkg/mnc/mnc_file.F	709	MNC_FILE_TRY_READ	mnc_d_ids(j) = id
./pkg/mnc/mnc_file.F	742	MNC_FILE_TRY_READ	j = 4 + 3*(i-1)
./pkg/mnc/mnc_file.F	743	MNC_FILE_TRY_READ	k = mnc_f_info(indf,j)
./pkg/mnc/mnc_file.F	745	MNC_FILE_TRY_READ	mnc_fv_ids(indf,iv+2) = j
./pkg/mnc/mnc_grid.F	107	MNC_GRID_INIT_ALL	j = 3 + 3*(ngrid + 1)
./pkg/mnc/mnc_grid.F	108	MNC_GRID_INIT_ALL	IF ((i .GE. MNC_MAX_INFO) .OR. (j .GE. MNC_MAX_INFO)) THEN
./pkg/mnc/mnc_grid.F	178	MNC_GRID_INIT_ALL	j = ds_last + i
./pkg/mnc/mnc_grid.F	203	MNC_GRID_INIT_ALL	mnc_fd_ind(indf,j) = indd
./pkg/mnc/mnc_grid.F	241	MNC_GRID_GET_DIMIND	integer i,j,k,l, n,n1, ngrid, ds,de
./pkg/mnc/mnc_grid.F	251	MNC_GRID_GET_DIMIND	j = 4 + 3*(i - 1)
./pkg/mnc/mnc_grid.F	252	MNC_GRID_GET_DIMIND	ds = mnc_f_info(indf,j+1)
./pkg/mnc/mnc_grid.F	253	MNC_GRID_GET_DIMIND	de = mnc_f_info(indf,j+2)
./pkg/mnc/mnc_grid.F	72	MNC_GRID_INIT_ALL	integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid
./pkg/mnc/mnc_init.F	30	MNC_INIT	integer i,j, g
./pkg/mnc/mnc_init.F	45	MNC_INIT	DO j = 1,MNC_MAX_INFO
./pkg/mnc/mnc_init.F	46	MNC_INIT	mnc_f_info(i,j) = 0
./pkg/mnc/mnc_init.F	47	MNC_INIT	mnc_fv_ids(i,j) = 0
./pkg/mnc/mnc_init.F	48	MNC_INIT	mnc_fd_ind(i,j) = 0
./pkg/mnc/mnc_init.F	49	MNC_INIT	mnc_f_alld(i,j) = 0
./pkg/mnc/mnc_readparms.F	203	MNC_SET_OUTDIR	integer i,j,k, ntot, npathd, idate
./pkg/mnc/mnc_readparms.F	230	MNC_SET_OUTDIR	DO j = 1,ncenc
./pkg/mnc/mnc_readparms.F	231	MNC_SET_OUTDIR	IF (pathd(i:i) .EQ. cenc(j:j)) THEN
./pkg/mnc/mnc_readparms.F	233	MNC_SET_OUTDIR	ienc(ntot) = j
./pkg/mnc/mnc_readparms.F	250	MNC_SET_OUTDIR	j = ienc(i)
./pkg/mnc/mnc_readparms.F	251	MNC_SET_OUTDIR	mnc_out_path(i:i) = cenc(j:j)
./pkg/mnc/mnc_utils.F	211	MNC_GET_FVINDS	integer i,j,k, n, lenv
./pkg/mnc/mnc_utils.F	230	MNC_GET_FVINDS	j = mnc_fv_ids(indf,k)
./pkg/mnc/mnc_utils.F	231	MNC_GET_FVINDS	n = ILNBLNK(mnc_v_names(j))
./pkg/mnc/mnc_utils.F	233	MNC_GET_FVINDS	IF ( mnc_v_names(j)(1:n).EQ.vname(1:n) ) THEN
./pkg/mnc/mnc_var.F	145	MNC_VAR_INIT_ANY	INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err
./pkg/mnc/mnc_var.F	186	MNC_VAR_INIT_ANY	j = 4 + (i-1)*3
./pkg/mnc/mnc_var.F	187	MNC_VAR_INIT_ANY	k = mnc_f_info(indf,j)
./pkg/mnc/mnc_var.F	191	MNC_VAR_INIT_ANY	ind_g_finfo = j
./pkg/mnc/mnc_var.F	192	MNC_VAR_INIT_ANY	is = mnc_f_info(indf,(j+1))
./pkg/mnc/mnc_var.F	193	MNC_VAR_INIT_ANY	ie = mnc_f_info(indf,(j+2))
./pkg/mnc/mnc_var.F	211	MNC_VAR_INIT_ANY	j = 2 + 3*(i-1)
./pkg/mnc/mnc_var.F	212	MNC_VAR_INIT_ANY	IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN
./pkg/mnc/mnc_var.F	213	MNC_VAR_INIT_ANY	k = mnc_f_info(indf,mnc_fv_ids(indf,j+2))
./pkg/mnc/mnc_var.F	680	MNC_VAR_WRITE_ANY	INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de
./pkg/mnc/mnc_var.F	712	MNC_VAR_WRITE_ANY	j = mnc_d_size( mnc_fd_ind(indf,de) )
./pkg/mnc/mnc_var.F	713	MNC_VAR_WRITE_ANY	IF (j .LT. 1) THEN
./pkg/mom_common/mom_calc_3d_strain.F	100	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	102	MOM_CALC_3D_STRAIN	str33(i,j,k) = recip_drF(k)*rkSign
./pkg/mom_common/mom_calc_3d_strain.F	103	MOM_CALC_3D_STRAIN	& ( maskp1wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	108	MOM_CALC_3D_STRAIN	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	110	MOM_CALC_3D_STRAIN	str12(i,j,k) = halfRL*(
./pkg/mom_common/mom_calc_3d_strain.F	111	MOM_CALC_3D_STRAIN	& recip_dyU(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	112	MOM_CALC_3D_STRAIN	& *( uVel( i , j , k ,bi,bj)-uVel( i ,j-1, k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	113	MOM_CALC_3D_STRAIN	& +recip_dxV(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	114	MOM_CALC_3D_STRAIN	& *( vVel( i , j , k ,bi,bj)-vVel(i-1, j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	121	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	123	MOM_CALC_3D_STRAIN	str13(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	124	MOM_CALC_3D_STRAIN	str23(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	129	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	131	MOM_CALC_3D_STRAIN	str13(i,j,k) = halfRL*(
./pkg/mom_common/mom_calc_3d_strain.F	133	MOM_CALC_3D_STRAIN	& ( uVel( i , j , k ,bi,bj)twoRL )
./pkg/mom_common/mom_calc_3d_strain.F	134	MOM_CALC_3D_STRAIN	& +recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	135	MOM_CALC_3D_STRAIN	& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	139	MOM_CALC_3D_STRAIN	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	141	MOM_CALC_3D_STRAIN	str23(i,j,k) = halfRL*(
./pkg/mom_common/mom_calc_3d_strain.F	143	MOM_CALC_3D_STRAIN	& ( vVel( i , j , k ,bi,bj)twoRL )
./pkg/mom_common/mom_calc_3d_strain.F	144	MOM_CALC_3D_STRAIN	& +recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	145	MOM_CALC_3D_STRAIN	& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	151	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	153	MOM_CALC_3D_STRAIN	str13(i,j,k) = halfRL*(
./pkg/mom_common/mom_calc_3d_strain.F	155	MOM_CALC_3D_STRAIN	& *( uVel( i , j , k ,bi,bj)-uVel( i , j ,k-1 ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	156	MOM_CALC_3D_STRAIN	& +recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	157	MOM_CALC_3D_STRAIN	& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	162	MOM_CALC_3D_STRAIN	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	164	MOM_CALC_3D_STRAIN	str23(i,j,k) = halfRL*(
./pkg/mom_common/mom_calc_3d_strain.F	166	MOM_CALC_3D_STRAIN	& *( vVel( i , j , k ,bi,bj)-vVel( i , j ,k-1,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	167	MOM_CALC_3D_STRAIN	& +recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	168	MOM_CALC_3D_STRAIN	& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	175	MOM_CALC_3D_STRAIN	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	177	MOM_CALC_3D_STRAIN	str12(i,j,k) = str12(i,j,k)
./pkg/mom_common/mom_calc_3d_strain.F	178	MOM_CALC_3D_STRAIN	& maskW(i,j-1,k,bi,bj)maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	182	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	184	MOM_CALC_3D_STRAIN	str13(i,j,k) = str13(i,j,k)
./pkg/mom_common/mom_calc_3d_strain.F	185	MOM_CALC_3D_STRAIN	& maskW(i,j,k-1,bi,bj)maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	188	MOM_CALC_3D_STRAIN	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	190	MOM_CALC_3D_STRAIN	str23(i,j,k) = str23(i,j,k)
./pkg/mom_common/mom_calc_3d_strain.F	191	MOM_CALC_3D_STRAIN	& maskS(i,j,k-1,bi,bj)maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	203	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	205	MOM_CALC_3D_STRAIN	str13(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	206	MOM_CALC_3D_STRAIN	str23(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	213	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	215	MOM_CALC_3D_STRAIN	str13(i,j,k) =
./pkg/mom_common/mom_calc_3d_strain.F	218	MOM_CALC_3D_STRAIN	& *( 0. _d 0 - uVel( i , j ,k-1 ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	223	MOM_CALC_3D_STRAIN	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	225	MOM_CALC_3D_STRAIN	str23(i,j,k) =
./pkg/mom_common/mom_calc_3d_strain.F	228	MOM_CALC_3D_STRAIN	& *( 0. _d 0 - vVel( i , j ,k-1,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	51	MOM_CALC_3D_STRAIN	INTEGER i, j, k
./pkg/mom_common/mom_calc_3d_strain.F	65	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	66	MOM_CALC_3D_STRAIN	str11(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	68	MOM_CALC_3D_STRAIN	j = sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	70	MOM_CALC_3D_STRAIN	str22(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	73	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	74	MOM_CALC_3D_STRAIN	str12(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	75	MOM_CALC_3D_STRAIN	str13(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	77	MOM_CALC_3D_STRAIN	j = 1-OLy
./pkg/mom_common/mom_calc_3d_strain.F	79	MOM_CALC_3D_STRAIN	str12(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	80	MOM_CALC_3D_STRAIN	str23(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_3d_strain.F	84	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_3d_strain.F	86	MOM_CALC_3D_STRAIN	str11(i,j,k) = recip_dxF(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	87	MOM_CALC_3D_STRAIN	& *( uVel(i+1, j , k ,bi,bj)-uVel( i , j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F	92	MOM_CALC_3D_STRAIN	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_3d_strain.F	94	MOM_CALC_3D_STRAIN	str22(i,j,k) = recip_dyF(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F	95	MOM_CALC_3D_STRAIN	& *( vVel( i ,j+1, k ,bi,bj)-vVel( i , j , k ,bi,bj) )
./model/src/calc_oce_mxlayer.F	100	CALC_OCE_MXLAYER	DO j=1-Oly,sNy+Oly
./model/src/calc_oce_mxlayer.F	102	CALC_OCE_MXLAYER	rhoKm1(i,j) = rhoSurf(i,j)
./model/src/calc_oce_mxlayer.F	103	CALC_OCE_MXLAYER	rhoMxL(i,j) = rhoSurf(i,j)
./model/src/calc_oce_mxlayer.F	104	CALC_OCE_MXLAYER	& + MAX( rhoMxL(i,j)*hMixCriteria, dRhoSmall )
./model/src/calc_oce_mxlayer.F	105	CALC_OCE_MXLAYER	hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj)
./model/src/calc_oce_mxlayer.F	116	CALC_OCE_MXLAYER	DO j=1-Oly,sNy+Oly
./model/src/calc_oce_mxlayer.F	118	CALC_OCE_MXLAYER	IF ( k.LE.klowC(i,j,bi,bj) .AND.
./model/src/calc_oce_mxlayer.F	119	CALC_OCE_MXLAYER	& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN
./model/src/calc_oce_mxlayer.F	120	CALC_OCE_MXLAYER	IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN
./model/src/calc_oce_mxlayer.F	121	CALC_OCE_MXLAYER	tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) )
./model/src/calc_oce_mxlayer.F	122	CALC_OCE_MXLAYER	& / ( rhoLoc(i,j) - rhoKm1(i,j) )
./model/src/calc_oce_mxlayer.F	126	CALC_OCE_MXLAYER	hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k)
./model/src/calc_oce_mxlayer.F	127	CALC_OCE_MXLAYER	rhoMxL(i,j) = rhoBigNb
./model/src/calc_oce_mxlayer.F	129	CALC_OCE_MXLAYER	rhoKm1(i,j) = rhoLoc(i,j)
./model/src/calc_oce_mxlayer.F	143	CALC_OCE_MXLAYER	DO j=1-Oly,sNy+Oly
./model/src/calc_oce_mxlayer.F	145	CALC_OCE_MXLAYER	IF ( klowC(i,j,bi,bj) .GT. 0 ) THEN
./model/src/calc_oce_mxlayer.F	146	CALC_OCE_MXLAYER	hMixLayer(i,j,bi,bj) = drF(1)
./model/src/calc_oce_mxlayer.F	147	CALC_OCE_MXLAYER	rhoMxL(i,j) = 1.
./model/src/calc_oce_mxlayer.F	149	CALC_OCE_MXLAYER	hMixLayer(i,j,bi,bj) = rF(1)
./model/src/calc_oce_mxlayer.F	150	CALC_OCE_MXLAYER	rhoMxL(i,j) = -1.
./model/src/calc_oce_mxlayer.F	162	CALC_OCE_MXLAYER	DO j=1-Oly,sNy+Oly
./model/src/calc_oce_mxlayer.F	164	CALC_OCE_MXLAYER	IF ( k.LT.klowC(i,j,bi,bj)
./model/src/calc_oce_mxlayer.F	165	CALC_OCE_MXLAYER	& .AND. rhoMxL(i,j).GE.0. ) THEN
./model/src/calc_oce_mxlayer.F	166	CALC_OCE_MXLAYER	sigmAv = ( rhoLoc(i,j)-rhoSurf(i,j)+dRhoSmall )
./model/src/calc_oce_mxlayer.F	168	CALC_OCE_MXLAYER	IF ( -sigmaR(i,j,k+1).GT.sigmAv*hMixCriteria ) THEN
./model/src/calc_oce_mxlayer.F	171	CALC_OCE_MXLAYER	tmpFac = hMixCriteria*sigmaR(i,j,k)/sigmaR(i,j,k+1)
./model/src/calc_oce_mxlayer.F	178	CALC_OCE_MXLAYER	hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1)
./model/src/calc_oce_mxlayer.F	180	CALC_OCE_MXLAYER	rhoMxL(i,j) = -1.
./model/src/calc_oce_mxlayer.F	193	CALC_OCE_MXLAYER	DO j=1-Oly+1,sNy+Oly-1
./model/src/calc_oce_mxlayer.F	195	CALC_OCE_MXLAYER	rhoLoc(i,j)=(hMixSmooth * hMixLayer(i,j,bi,bj) +
./model/src/calc_oce_mxlayer.F	196	CALC_OCE_MXLAYER	& tmpFac * ( hMixLayer(i-1,j,bi,bj) +
./model/src/calc_oce_mxlayer.F	197	CALC_OCE_MXLAYER	& hMixLayer(i+1,j,bi,bj) +
./model/src/calc_oce_mxlayer.F	198	CALC_OCE_MXLAYER	& hMixLayer(i,j-1,bi,bj) +
./model/src/calc_oce_mxlayer.F	199	CALC_OCE_MXLAYER	& hMixLayer(i,j+1,bi,bj) )
./model/src/calc_oce_mxlayer.F	202	CALC_OCE_MXLAYER	& tmpFac * ( maskC(i-1,j,1,bi,bj) +
./model/src/calc_oce_mxlayer.F	203	CALC_OCE_MXLAYER	& maskC(i+1,j,1,bi,bj) +
./model/src/calc_oce_mxlayer.F	204	CALC_OCE_MXLAYER	& maskC(i,j-1,1,bi,bj) +
./model/src/calc_oce_mxlayer.F	205	CALC_OCE_MXLAYER	& maskC(i,j+1,1,bi,bj) )
./model/src/calc_oce_mxlayer.F	206	CALC_OCE_MXLAYER	& ) * maskC(i,j,1,bi,bj)
./model/src/calc_oce_mxlayer.F	209	CALC_OCE_MXLAYER	DO j=1-Oly+1,sNy+Oly-1
./model/src/calc_oce_mxlayer.F	211	CALC_OCE_MXLAYER	hMixLayer(i,j,bi,bj) = rhoLoc(i,j)
./model/src/calc_oce_mxlayer.F	56	CALC_OCE_MXLAYER	INTEGER i,j,k
./pkg/mom_common/mom_calc_absvort3.F	30	MOM_CALC_ABSVORT3	INTEGER i,j
./pkg/mom_common/mom_calc_absvort3.F	44	MOM_CALC_ABSVORT3	DO j=1-Oly,sNy+Oly
./pkg/mom_common/mom_calc_absvort3.F	47	MOM_CALC_ABSVORT3	& fCoriG(i,j,bi,bj)*useCoriolisFac
./pkg/mom_common/mom_calc_absvort3.F	48	MOM_CALC_ABSVORT3	& +vort3(i,j)*nonLinFac
./pkg/mom_common/mom_calc_hdiv.F	31	MOM_CALC_HDIV	INTEGER i,j
./pkg/mom_common/mom_calc_hdiv.F	34	MOM_CALC_HDIV	DO j=1-Oly,sNy+Oly-1
./pkg/mom_common/mom_calc_hdiv.F	38	MOM_CALC_HDIV	hDiv(i,j)=(
./pkg/mom_common/mom_calc_hdiv.F	39	MOM_CALC_HDIV	& uFld(i+1, j )*dyG(i+1, j ,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	40	MOM_CALC_HDIV	& -uFld( i , j )*dyG( i , j ,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	41	MOM_CALC_HDIV	& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	42	MOM_CALC_HDIV	& -vFld( i , j )*dxG( i , j ,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	43	MOM_CALC_HDIV	& )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	45	MOM_CALC_HDIV	& *maskInC(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	51	MOM_CALC_HDIV	DO j=1-Oly,sNy+Oly-1
./pkg/mom_common/mom_calc_hdiv.F	55	MOM_CALC_HDIV	hDiv(i,j)=
./pkg/mom_common/mom_calc_hdiv.F	56	MOM_CALC_HDIV	& ( ( uFld(i+1, j )dyG(i+1, j ,bi,bj)hFacW(i+1, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	57	MOM_CALC_HDIV	& -uFld( i , j )dyG( i , j ,bi,bj)hFacW( i , j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hdiv.F	58	MOM_CALC_HDIV	& +( vFld( i ,j+1)dxG( i ,j+1,bi,bj)hFacS( i ,j+1,k,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	59	MOM_CALC_HDIV	& -vFld( i , j )dxG( i , j ,bi,bj)hFacS( i , j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hdiv.F	60	MOM_CALC_HDIV	& )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	61	MOM_CALC_HDIV	& *_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F	63	MOM_CALC_HDIV	& *maskInC(i,j,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	101	MOM_CALC_HFACZ	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	103	MOM_CALC_HFACZ	hFacZ(i,j) =0.
./pkg/mom_common/mom_calc_hfacz.F	104	MOM_CALC_HFACZ	r_hFacZ(i,j) =0.
./pkg/mom_common/mom_calc_hfacz.F	105	MOM_CALC_HFACZ	hFacZOpen(i,j) =0.
./pkg/mom_common/mom_calc_hfacz.F	106	MOM_CALC_HFACZ	hFacZOpenI(i,j)=0.
./pkg/mom_common/mom_calc_hfacz.F	107	MOM_CALC_HFACZ	hFacZOpenJ(i,j)=0.
./pkg/mom_common/mom_calc_hfacz.F	115	MOM_CALC_HFACZ	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	117	MOM_CALC_HFACZ	hFacZOpenJ(i,j)=
./pkg/mom_common/mom_calc_hfacz.F	119	MOM_CALC_HFACZ	& SMOOTHMIN_RS(_hFacW(i ,j ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	121	MOM_CALC_HFACZ	& MIN(_hFacW(i ,j ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	123	MOM_CALC_HFACZ	& _hFacW(i ,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F	124	MOM_CALC_HFACZ	& maskW(i,j,k,bi,bj)maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	125	MOM_CALC_HFACZ	hFacZOpenI(i,j)=
./pkg/mom_common/mom_calc_hfacz.F	127	MOM_CALC_HFACZ	& SMOOTHMIN_RS(_hFacS(i ,j ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	129	MOM_CALC_HFACZ	& MIN(_hFacS(i ,j ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	131	MOM_CALC_HFACZ	& _hFacS(i-1,j ,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F	132	MOM_CALC_HFACZ	& maskS(i,j,k,bi,bj)maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	139	MOM_CALC_HFACZ	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	141	MOM_CALC_HFACZ	hFacZ(i,j) =
./pkg/mom_common/mom_calc_hfacz.F	143	MOM_CALC_HFACZ	& SMOOTHMIN_RS(hFacZOpenI(i,j),hFacZOpenJ(i,j))
./pkg/mom_common/mom_calc_hfacz.F	145	MOM_CALC_HFACZ	& MIN(hFacZOpenI(i,j),hFacZOpenJ(i,j))
./pkg/mom_common/mom_calc_hfacz.F	147	MOM_CALC_HFACZ	& maskW(i,j,k,bi,bj)maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	148	MOM_CALC_HFACZ	& maskS(i,j,k,bi,bj)maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	154	MOM_CALC_HFACZ	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	156	MOM_CALC_HFACZ	IF (hFacZ(i,j).EQ.0.) THEN
./pkg/mom_common/mom_calc_hfacz.F	157	MOM_CALC_HFACZ	r_hFacZ(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_hfacz.F	159	MOM_CALC_HFACZ	r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j)
./pkg/mom_common/mom_calc_hfacz.F	182	MOM_CALC_HFACZ	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	183	MOM_CALC_HFACZ	hFacZ(1-OLx,j)=0.
./pkg/mom_common/mom_calc_hfacz.F	189	MOM_CALC_HFACZ	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	198	MOM_CALC_HFACZ	& ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	199	MOM_CALC_HFACZ	& +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	200	MOM_CALC_HFACZ	& + ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	201	MOM_CALC_HFACZ	& +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	202	MOM_CALC_HFACZ	hFacZ(i,j) = 0.25 _d 0 * hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F	206	MOM_CALC_HFACZ	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	216	MOM_CALC_HFACZ	& _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	217	MOM_CALC_HFACZ	& + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	218	MOM_CALC_HFACZ	& , _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	219	MOM_CALC_HFACZ	& + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	221	MOM_CALC_HFACZ	hFacZ(i,j) = 0.5 _d 0 * hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F	225	MOM_CALC_HFACZ	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	227	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	228	MOM_CALC_HFACZ	& _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F	229	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F	230	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F	231	MOM_CALC_HFACZ	hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F	261	MOM_CALC_HFACZ	j=1
./pkg/mom_common/mom_calc_hfacz.F	263	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	264	MOM_CALC_HFACZ	& _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F	265	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F	266	MOM_CALC_HFACZ	hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F	270	MOM_CALC_HFACZ	& ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	271	MOM_CALC_HFACZ	& +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	272	MOM_CALC_HFACZ	& + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	275	MOM_CALC_HFACZ	& ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	276	MOM_CALC_HFACZ	& +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	277	MOM_CALC_HFACZ	& + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	279	MOM_CALC_HFACZ	hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F	285	MOM_CALC_HFACZ	j=1
./pkg/mom_common/mom_calc_hfacz.F	288	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	289	MOM_CALC_HFACZ	& _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F	290	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F	291	MOM_CALC_HFACZ	hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F	295	MOM_CALC_HFACZ	& ( _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	296	MOM_CALC_HFACZ	& +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	297	MOM_CALC_HFACZ	& + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	300	MOM_CALC_HFACZ	& ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	301	MOM_CALC_HFACZ	& +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	302	MOM_CALC_HFACZ	& + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	305	MOM_CALC_HFACZ	& ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	306	MOM_CALC_HFACZ	& +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	307	MOM_CALC_HFACZ	& + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	309	MOM_CALC_HFACZ	hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F	315	MOM_CALC_HFACZ	j=sNy+1
./pkg/mom_common/mom_calc_hfacz.F	318	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	319	MOM_CALC_HFACZ	& _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F	320	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F	321	MOM_CALC_HFACZ	hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F	325	MOM_CALC_HFACZ	& ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	326	MOM_CALC_HFACZ	& +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	327	MOM_CALC_HFACZ	& + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	330	MOM_CALC_HFACZ	& ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	331	MOM_CALC_HFACZ	& +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	332	MOM_CALC_HFACZ	& + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	335	MOM_CALC_HFACZ	& ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	336	MOM_CALC_HFACZ	& +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	337	MOM_CALC_HFACZ	& + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	339	MOM_CALC_HFACZ	hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F	345	MOM_CALC_HFACZ	j=sNy+1
./pkg/mom_common/mom_calc_hfacz.F	347	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F	348	MOM_CALC_HFACZ	& _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F	349	MOM_CALC_HFACZ	hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F	350	MOM_CALC_HFACZ	hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F	354	MOM_CALC_HFACZ	& ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	355	MOM_CALC_HFACZ	& +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	356	MOM_CALC_HFACZ	& + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	359	MOM_CALC_HFACZ	& ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	360	MOM_CALC_HFACZ	& +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F	361	MOM_CALC_HFACZ	& + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F	363	MOM_CALC_HFACZ	hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F	372	MOM_CALC_HFACZ	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_hfacz.F	374	MOM_CALC_HFACZ	IF (hFacZ(i,j).EQ.0.) THEN
./pkg/mom_common/mom_calc_hfacz.F	375	MOM_CALC_HFACZ	r_hFacZ(i,j) = 0.
./pkg/mom_common/mom_calc_hfacz.F	377	MOM_CALC_HFACZ	r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j)
./pkg/mom_common/mom_calc_hfacz.F	61	MOM_CALC_HFACZ	INTEGER i,j
./pkg/mom_common/mom_calc_ke.F	100	MOM_CALC_KE	& )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F	107	MOM_CALC_KE	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_ke.F	109	MOM_CALC_KE	KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F	110	MOM_CALC_KE	& ( uFld( i , j )uFld( i , j )_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F	111	MOM_CALC_KE	& +uFld(i+1, j )uFld(i+1, j )_hFacW(i+1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F	112	MOM_CALC_KE	& + ( vFld( i , j )vFld( i , j )_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F	113	MOM_CALC_KE	& +vFld( i ,j+1)vFld( i ,j+1)_hFacS(i,j+1,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F	114	MOM_CALC_KE	& )*_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F	120	MOM_CALC_KE	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_ke.F	122	MOM_CALC_KE	KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F	124	MOM_CALC_KE	& uFld(i, j )*uFld(i, j )
./pkg/mom_common/mom_calc_ke.F	125	MOM_CALC_KE	& _hFacW(i ,j, k,bi,bj)rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F	126	MOM_CALC_KE	& +uFld(i+1,j)*uFld(i+1,j)
./pkg/mom_common/mom_calc_ke.F	127	MOM_CALC_KE	& _hFacW(i+1,j,k,bi,bj)rAw(i+1,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F	130	MOM_CALC_KE	& vFld(i, j )*vFld(i, j )
./pkg/mom_common/mom_calc_ke.F	131	MOM_CALC_KE	& _hFacS(i, j, k,bi,bj)rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F	132	MOM_CALC_KE	& +vFld(i,j+1)*vFld(i,j+1)
./pkg/mom_common/mom_calc_ke.F	133	MOM_CALC_KE	& _hFacS(i,j+1,k,bi,bj)rAs(i,j+1,bi,bj)
./pkg/mom_common/mom_calc_ke.F	134	MOM_CALC_KE	& ) )*_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F	135	MOM_CALC_KE	& * recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F	47	MOM_CALC_KE	INTEGER i,j
./pkg/mom_common/mom_calc_ke.F	57	MOM_CALC_KE	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_ke.F	59	MOM_CALC_KE	KE(i,j) = 0.
./pkg/mom_common/mom_calc_ke.F	65	MOM_CALC_KE	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_ke.F	67	MOM_CALC_KE	KE(i,j) = 0.125*(
./pkg/mom_common/mom_calc_ke.F	68	MOM_CALC_KE	& ( uFld(i,j)+uFld(i+1, j ) )**2
./pkg/mom_common/mom_calc_ke.F	69	MOM_CALC_KE	& +( vFld(i,j)+vFld( i ,j+1) )**2 )
./pkg/mom_common/mom_calc_ke.F	80	MOM_CALC_KE	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_ke.F	82	MOM_CALC_KE	KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F	83	MOM_CALC_KE	& ( uFld( i , j )*uFld( i , j )
./pkg/mom_common/mom_calc_ke.F	84	MOM_CALC_KE	& +uFld(i+1, j )*uFld(i+1, j ) )
./pkg/mom_common/mom_calc_ke.F	85	MOM_CALC_KE	& + ( vFld( i , j )*vFld( i , j )
./pkg/mom_common/mom_calc_ke.F	86	MOM_CALC_KE	& +vFld( i ,j+1)*vFld( i ,j+1) )
./pkg/mom_common/mom_calc_ke.F	93	MOM_CALC_KE	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_ke.F	95	MOM_CALC_KE	KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F	96	MOM_CALC_KE	& ( uFld(i, j )uFld(i, j )rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F	97	MOM_CALC_KE	& +uFld(i+1,j)uFld(i+1,j)rAw(i+1,j,bi,bj) )
./pkg/mom_common/mom_calc_ke.F	98	MOM_CALC_KE	& + ( vFld(i, j )vFld(i, j )rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F	99	MOM_CALC_KE	& +vFld(i,j+1)vFld(i,j+1)rAs(i,j+1,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F	138	MOM_CALC_RELVORT3	& maskS(i-1,j,k,bi,bj)maskS(i-2,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	139	MOM_CALC_RELVORT3	& maskW(i-1,j,k,bi,bj)maskS(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	195	MOM_CALC_RELVORT3	& maskS(i+1,j,k,bi,bj)maskS(i-0,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	196	MOM_CALC_RELVORT3	& maskW(i+1,j,k,bi,bj)maskS(i-1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	252	MOM_CALC_RELVORT3	& maskS(i-1,j,k,bi,bj)maskS(i-2,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	253	MOM_CALC_RELVORT3	& maskS(i,j+1,k,bi,bj)maskW(i-1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	302	MOM_CALC_RELVORT3	& maskS(i+1,j,k,bi,bj)maskS(i-0,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	303	MOM_CALC_RELVORT3	& maskS(i-1,j+1,k,bi,bj)maskW(i+1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F	37	MOM_CALC_RELVORT3	INTEGER i,j
./pkg/mom_common/mom_calc_smag_3d.F	101	MOM_CALC_SMAG_3D	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_smag_3d.F	103	MOM_CALC_SMAG_3D	S66(i,j,n) = 0. _d 0
./pkg/mom_common/mom_calc_smag_3d.F	104	MOM_CALC_SMAG_3D	S12(i,j,n) = 0. _d 0
./pkg/mom_common/mom_calc_smag_3d.F	108	MOM_CALC_SMAG_3D	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_smag_3d.F	110	MOM_CALC_SMAG_3D	S13(i,j,n) = str13(i,j,kl)**2
./pkg/mom_common/mom_calc_smag_3d.F	111	MOM_CALC_SMAG_3D	S23(i,j,n) = str23(i,j,kl)**2
./pkg/mom_common/mom_calc_smag_3d.F	127	MOM_CALC_SMAG_3D	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_smag_3d.F	129	MOM_CALC_SMAG_3D	viscAh3d_00(i,j,kl) =
./pkg/mom_common/mom_calc_smag_3d.F	130	MOM_CALC_SMAG_3D	& smag3D_hLsC(i,j,bi,bj)tmpFacSQRT(
./pkg/mom_common/mom_calc_smag_3d.F	131	MOM_CALC_SMAG_3D	& S66( i , j , n )
./pkg/mom_common/mom_calc_smag_3d.F	132	MOM_CALC_SMAG_3D	& + 0.5*( S12( i ,j+1, n )+S12(i+1,j+1, n )
./pkg/mom_common/mom_calc_smag_3d.F	133	MOM_CALC_SMAG_3D	& +S12( i , j , n )+S12(i+1, j , n ) )
./pkg/mom_common/mom_calc_smag_3d.F	134	MOM_CALC_SMAG_3D	& + 0.5*( S13( i , j , n )+S13(i+1, j , n )
./pkg/mom_common/mom_calc_smag_3d.F	135	MOM_CALC_SMAG_3D	& +S13( i , j ,n+1)+S13(i+1, j ,n+1) )
./pkg/mom_common/mom_calc_smag_3d.F	136	MOM_CALC_SMAG_3D	& + 0.5*( S23( i , j , n )+S23( i ,j+1, n )
./pkg/mom_common/mom_calc_smag_3d.F	137	MOM_CALC_SMAG_3D	& +S23( i , j ,n+1)+S23( i ,j+1,n+1) )
./pkg/mom_common/mom_calc_smag_3d.F	144	MOM_CALC_SMAG_3D	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_smag_3d.F	146	MOM_CALC_SMAG_3D	viscAh3d_12(i,j,kl) =
./pkg/mom_common/mom_calc_smag_3d.F	147	MOM_CALC_SMAG_3D	& smag3D_hLsZ(i,j,bi,bj)tmpFacSQRT(
./pkg/mom_common/mom_calc_smag_3d.F	148	MOM_CALC_SMAG_3D	& 0.25*( S66(i-1, j , n )+S66( i , j , n )
./pkg/mom_common/mom_calc_smag_3d.F	149	MOM_CALC_SMAG_3D	& +S66(i-1,j-1, n )+S66( i ,j-1, n ) )
./pkg/mom_common/mom_calc_smag_3d.F	150	MOM_CALC_SMAG_3D	& + 2.0 * S12( i , j , n )
./pkg/mom_common/mom_calc_smag_3d.F	151	MOM_CALC_SMAG_3D	& + 0.5 *( S13( i ,j-1, n )+S13( i , j , n )
./pkg/mom_common/mom_calc_smag_3d.F	152	MOM_CALC_SMAG_3D	& +S13( i ,j-1,n+1)+S13( i , j ,n+1) )
./pkg/mom_common/mom_calc_smag_3d.F	153	MOM_CALC_SMAG_3D	& + 0.5 *( S23(i-1, j , n )+S23( i , j , n )
./pkg/mom_common/mom_calc_smag_3d.F	154	MOM_CALC_SMAG_3D	& +S23(i-1, j ,n+1)+S23( i , j ,n+1) )
./pkg/mom_common/mom_calc_smag_3d.F	164	MOM_CALC_SMAG_3D	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_smag_3d.F	166	MOM_CALC_SMAG_3D	viscAh3d_13(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_smag_3d.F	167	MOM_CALC_SMAG_3D	viscAh3d_23(i,j,k) = 0. _d 0
./pkg/mom_common/mom_calc_smag_3d.F	179	MOM_CALC_SMAG_3D	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_smag_3d.F	181	MOM_CALC_SMAG_3D	viscAh3d_13(i,j,kl) =
./pkg/mom_common/mom_calc_smag_3d.F	182	MOM_CALC_SMAG_3D	& smag3D_hLsW(i,j,bi,bj)tmpFacSQRT(
./pkg/mom_common/mom_calc_smag_3d.F	183	MOM_CALC_SMAG_3D	& 0.25*( S66(i-1, j ,n-1)+S66( i , j ,n-1)
./pkg/mom_common/mom_calc_smag_3d.F	184	MOM_CALC_SMAG_3D	& +S66(i-1, j , n )+S66( i , j , n ) )
./pkg/mom_common/mom_calc_smag_3d.F	185	MOM_CALC_SMAG_3D	& + 0.5 *( S12( i , j ,n-1)+S12( i ,j+1,n-1)
./pkg/mom_common/mom_calc_smag_3d.F	186	MOM_CALC_SMAG_3D	& +S12( i , j , n )+S12( i ,j+1, n ) )
./pkg/mom_common/mom_calc_smag_3d.F	187	MOM_CALC_SMAG_3D	& + 2.0 * S13( i , j , n )
./pkg/mom_common/mom_calc_smag_3d.F	188	MOM_CALC_SMAG_3D	& + 0.5 *( S23(i-1,j+1, n )+S23( i ,j+1, n )
./pkg/mom_common/mom_calc_smag_3d.F	189	MOM_CALC_SMAG_3D	& +S23(i-1, j , n )+S23( i , j , n ) )
./pkg/mom_common/mom_calc_smag_3d.F	196	MOM_CALC_SMAG_3D	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_smag_3d.F	198	MOM_CALC_SMAG_3D	viscAh3d_23(i,j,kl) =
./pkg/mom_common/mom_calc_smag_3d.F	199	MOM_CALC_SMAG_3D	& smag3D_hLsS(i,j,bi,bj)tmpFacSQRT(
./pkg/mom_common/mom_calc_smag_3d.F	200	MOM_CALC_SMAG_3D	& 0.25*( S66( i ,j-1,n-1)+S66( i , j ,n-1)
./pkg/mom_common/mom_calc_smag_3d.F	201	MOM_CALC_SMAG_3D	& +S66( i ,j-1, n )+S66( i , j , n ) )
./pkg/mom_common/mom_calc_smag_3d.F	202	MOM_CALC_SMAG_3D	& + 0.5 *( S12( i , j ,n-1)+S12(i+1, j ,n-1)
./pkg/mom_common/mom_calc_smag_3d.F	203	MOM_CALC_SMAG_3D	& +S12( i , j , n )+S12(i+1, j , n ) )
./pkg/mom_common/mom_calc_smag_3d.F	204	MOM_CALC_SMAG_3D	& + 0.5 *( S13( i , j , n )+S13(i+1, j , n )
./pkg/mom_common/mom_calc_smag_3d.F	205	MOM_CALC_SMAG_3D	& +S13( i ,j-1, n )+S13(i+1,j-1, n ) )
./pkg/mom_common/mom_calc_smag_3d.F	206	MOM_CALC_SMAG_3D	& + 2.0 * S23( i , j , n )
./pkg/mom_common/mom_calc_smag_3d.F	77	MOM_CALC_SMAG_3D	INTEGER i, j
./pkg/mom_common/mom_calc_smag_3d.F	92	MOM_CALC_SMAG_3D	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_smag_3d.F	94	MOM_CALC_SMAG_3D	S66(i,j,n) = str11(i,j,kl)**2
./pkg/mom_common/mom_calc_smag_3d.F	95	MOM_CALC_SMAG_3D	& + str22(i,j,kl)**2
./pkg/mom_common/mom_calc_smag_3d.F	96	MOM_CALC_SMAG_3D	& + str33(i,j,kl)**2
./pkg/mom_common/mom_calc_smag_3d.F	97	MOM_CALC_SMAG_3D	S12(i,j,n) = str12(i,j,kl)**2
./pkg/mom_common/mom_calc_strain.F	50	MOM_CALC_STRAIN	INTEGER i,j
./pkg/mom_common/mom_calc_strain.F	58	MOM_CALC_STRAIN	& ( dyc( i , j ,bi,bj)*vFld( i , j )
./pkg/mom_common/mom_calc_strain.F	59	MOM_CALC_STRAIN	& -dyc(i-1, j ,bi,bj)*vFld(i-1, j )
./pkg/mom_common/mom_calc_strain.F	60	MOM_CALC_STRAIN	& +dxc( i , j ,bi,bj)*uFld( i , j )
./pkg/mom_common/mom_calc_strain.F	61	MOM_CALC_STRAIN	& -dxc( i ,j-1,bi,bj)uFld( i ,j-1) )recip_rAz(i,j,bi,bj)
./pkg/mom_common/mom_calc_tension.F	46	MOM_CALC_TENSION	INTEGER i,j
./pkg/mom_common/mom_calc_tension.F	49	MOM_CALC_TENSION	DO j=1-Oly,sNy+Oly-1
./pkg/mom_common/mom_calc_tension.F	54	MOM_CALC_TENSION	tension(i,j)=
./pkg/mom_common/mom_calc_tension.F	55	MOM_CALC_TENSION	& ( dyG(i+1, j ,bi,bj)*uFld(i+1, j )
./pkg/mom_common/mom_calc_tension.F	56	MOM_CALC_TENSION	& -dyG( i , j ,bi,bj)*uFld( i , j )
./pkg/mom_common/mom_calc_tension.F	57	MOM_CALC_TENSION	& -dxG( i ,j+1,bi,bj)*vFld( i ,j+1)
./pkg/mom_common/mom_calc_tension.F	58	MOM_CALC_TENSION	& +dxG( i , j ,bi,bj)*vFld( i , j )
./pkg/mom_common/mom_calc_tension.F	59	MOM_CALC_TENSION	& )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_tension.F	61	MOM_CALC_TENSION	& *maskInC(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	106	MOM_CALC_VISC	INTEGER i,j
./pkg/mom_common/mom_calc_visc.F	219	MOM_CALC_VISC	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_visc.F	227	MOM_CALC_VISC	visca4_zsmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	228	MOM_CALC_VISC	viscah_zsmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	230	MOM_CALC_VISC	viscAh_Dlth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	231	MOM_CALC_VISC	viscA4_Dlth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	232	MOM_CALC_VISC	viscAh_DlthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F	233	MOM_CALC_VISC	viscA4_DlthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F	235	MOM_CALC_VISC	viscAh_DSmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	236	MOM_CALC_VISC	viscA4_DSmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	238	MOM_CALC_VISC	viscAh_ZLth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	239	MOM_CALC_VISC	viscA4_ZLth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F	240	MOM_CALC_VISC	viscAh_ZLthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F	241	MOM_CALC_VISC	viscA4_ZLthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F	246	MOM_CALC_VISC	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_visc.F	248	MOM_CALC_VISC	divDx(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F	249	MOM_CALC_VISC	divDy(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F	250	MOM_CALC_VISC	vrtDx(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F	251	MOM_CALC_VISC	vrtDy(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F	263	MOM_CALC_VISC	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_visc.F	265	MOM_CALC_VISC	divDx(i,j) = (hDiv(i,j)-hDiv(i-1,j))*recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	275	MOM_CALC_VISC	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_visc.F	277	MOM_CALC_VISC	divDy(i,j) = (hDiv(i,j)-hDiv(i,j-1))*recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	283	MOM_CALC_VISC	DO j=2-OLy,sNy+OLy
./pkg/mom_common/mom_calc_visc.F	285	MOM_CALC_VISC	vrtDx(i,j) = (vort3(i+1,j)-vort3(i,j))
./pkg/mom_common/mom_calc_visc.F	286	MOM_CALC_VISC	& *recip_dxG(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	287	MOM_CALC_VISC	& *maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	289	MOM_CALC_VISC	& *maskInS(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	294	MOM_CALC_VISC	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_visc.F	296	MOM_CALC_VISC	vrtDy(i,j) = (vort3(i,j+1)-vort3(i,j))
./pkg/mom_common/mom_calc_visc.F	297	MOM_CALC_VISC	& *recip_dyG(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	298	MOM_CALC_VISC	& *maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	300	MOM_CALC_VISC	& *maskInW(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	308	MOM_CALC_VISC	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_calc_visc.F	314	MOM_CALC_VISC	lockey_2 = i+olx + (sNx+2olx)(j+oly-1)
./pkg/mom_common/mom_calc_visc.F	324	MOM_CALC_VISC	L2 = L2_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	326	MOM_CALC_VISC	L3 = L3_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	327	MOM_CALC_VISC	L4rdt = L4rdt_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	332	MOM_CALC_VISC	IF ( viscAhRe_max.GT.0. .AND. KE(i,j).GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F	333	MOM_CALC_VISC	Uscl=SQRT(KE(i,j)L2)viscAhRe_max
./pkg/mom_common/mom_calc_visc.F	337	MOM_CALC_VISC	IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F	338	MOM_CALC_VISC	U4scl=SQRT(KE(i,j))L3viscA4Re_max
./pkg/mom_common/mom_calc_visc.F	347	MOM_CALC_VISC	grdVrt=0.25 _d 0( (vrtDx(i,j+1)vrtDx(i,j+1)
./pkg/mom_common/mom_calc_visc.F	348	MOM_CALC_VISC	& + vrtDx(i,j)*vrtDx(i,j) )
./pkg/mom_common/mom_calc_visc.F	349	MOM_CALC_VISC	& + (vrtDy(i+1,j)*vrtDy(i+1,j)
./pkg/mom_common/mom_calc_visc.F	350	MOM_CALC_VISC	& + vrtDy(i,j)*vrtDy(i,j) ) )
./pkg/mom_common/mom_calc_visc.F	354	MOM_CALC_VISC	grdDiv=0.25 _d 0( (divDx(i+1,j)divDx(i+1,j)
./pkg/mom_common/mom_calc_visc.F	355	MOM_CALC_VISC	& + divDx(i,j)*divDx(i,j) )
./pkg/mom_common/mom_calc_visc.F	356	MOM_CALC_VISC	& + (divDy(i,j+1)*divDy(i,j+1)
./pkg/mom_common/mom_calc_visc.F	357	MOM_CALC_VISC	& + divDy(i,j)*divDy(i,j) ) )
./pkg/mom_common/mom_calc_visc.F	359	MOM_CALC_VISC	viscAh_DLth(i,j)=
./pkg/mom_common/mom_calc_visc.F	361	MOM_CALC_VISC	viscA4_DLth(i,j)=
./pkg/mom_common/mom_calc_visc.F	363	MOM_CALC_VISC	viscAh_DLthd(i,j)=
./pkg/mom_common/mom_calc_visc.F	365	MOM_CALC_VISC	viscA4_DLthd(i,j)=
./pkg/mom_common/mom_calc_visc.F	369	MOM_CALC_VISC	grdVrt=MAX( ABS(vrtDx(i,j+1)), ABS(vrtDx(i,j)) )
./pkg/mom_common/mom_calc_visc.F	370	MOM_CALC_VISC	grdVrt=MAX( grdVrt, ABS(vrtDy(i+1,j)) )
./pkg/mom_common/mom_calc_visc.F	371	MOM_CALC_VISC	grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) )
./pkg/mom_common/mom_calc_visc.F	374	MOM_CALC_VISC	grdDiv=MAX( ABS(divDx(i+1,j)), ABS(divDx(i,j)) )
./pkg/mom_common/mom_calc_visc.F	375	MOM_CALC_VISC	grdDiv=MAX( grdDiv, ABS(divDy(i,j+1)) )
./pkg/mom_common/mom_calc_visc.F	376	MOM_CALC_VISC	grdDiv=MAX( grdDiv, ABS(divDy(i,j)) )
./pkg/mom_common/mom_calc_visc.F	378	MOM_CALC_VISC	viscAh_Dlth(i,j)=(leith2facgrdVrt+(leithD2facgrdDiv))*L3
./pkg/mom_common/mom_calc_visc.F	379	MOM_CALC_VISC	viscA4_Dlth(i,j)=(leith4facgrdVrt+(leithD4facgrdDiv))*L5
./pkg/mom_common/mom_calc_visc.F	380	MOM_CALC_VISC	viscAh_DlthD(i,j)=((leithD2facgrdDiv))L3
./pkg/mom_common/mom_calc_visc.F	381	MOM_CALC_VISC	viscA4_DlthD(i,j)=((leithD4facgrdDiv))L5
./pkg/mom_common/mom_calc_visc.F	383	MOM_CALC_VISC	viscAh_Dlth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	384	MOM_CALC_VISC	viscA4_Dlth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	385	MOM_CALC_VISC	viscAh_DlthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	386	MOM_CALC_VISC	viscA4_DlthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	390	MOM_CALC_VISC	viscAh_DSmg(i,j)=L2
./pkg/mom_common/mom_calc_visc.F	391	MOM_CALC_VISC	& SQRT(tension(i,j)*2
./pkg/mom_common/mom_calc_visc.F	392	MOM_CALC_VISC	& +0.25 _d 0(strain(i+1, j )2+strain( i ,j+1)*2
./pkg/mom_common/mom_calc_visc.F	393	MOM_CALC_VISC	& +strain(i , j )2+strain(i+1,j+1)2))
./pkg/mom_common/mom_calc_visc.F	394	MOM_CALC_VISC	viscA4_DSmg(i,j)=smag4facL2viscAh_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	395	MOM_CALC_VISC	viscAh_DSmg(i,j)=smag2fac*viscAh_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	397	MOM_CALC_VISC	viscAh_DSmg(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	398	MOM_CALC_VISC	viscA4_DSmg(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	404	MOM_CALC_VISC	& +viscAh_DLth(i,j)+viscAh_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	406	MOM_CALC_VISC	& +viscAhDfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	411	MOM_CALC_VISC	viscAh_DMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl)
./pkg/mom_common/mom_calc_visc.F	412	MOM_CALC_VISC	viscAh_D(i,j)=MAX(viscAh_DMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F	413	MOM_CALC_VISC	viscAh_DMax(i,j)=MIN(viscAhGridMax*L2rdt,viscAhMax)
./pkg/mom_common/mom_calc_visc.F	414	MOM_CALC_VISC	viscAh_D(i,j)=MIN(viscAh_DMax(i,j),viscAh_D(i,j))
./pkg/mom_common/mom_calc_visc.F	418	MOM_CALC_VISC	& +viscA4_DLth(i,j)+viscA4_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	420	MOM_CALC_VISC	& +viscA4Dfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	425	MOM_CALC_VISC	viscA4_DMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F	426	MOM_CALC_VISC	viscA4_D(i,j)=MAX(viscA4_DMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F	427	MOM_CALC_VISC	viscA4_DMax(i,j)=MIN(viscA4GridMax*L4rdt,viscA4Max)
./pkg/mom_common/mom_calc_visc.F	428	MOM_CALC_VISC	viscA4_D(i,j)=MIN(viscA4_DMax(i,j),viscA4_D(i,j))
./pkg/mom_common/mom_calc_visc.F	432	MOM_CALC_VISC	L2 = L2_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	434	MOM_CALC_VISC	L3 = L3_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	435	MOM_CALC_VISC	L4rdt = L4rdt_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F	441	MOM_CALC_VISC	keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1))
./pkg/mom_common/mom_calc_visc.F	442	MOM_CALC_VISC	& +(KE(i-1,j)+KE(i,j-1)) )
./pkg/mom_common/mom_calc_visc.F	459	MOM_CALC_VISC	grdVrt=0.25 _d 0( (vrtDx(i-1,j)vrtDx(i-1,j)
./pkg/mom_common/mom_calc_visc.F	460	MOM_CALC_VISC	& + vrtDx(i,j)*vrtDx(i,j) )
./pkg/mom_common/mom_calc_visc.F	461	MOM_CALC_VISC	& + (vrtDy(i,j-1)*vrtDy(i,j-1)
./pkg/mom_common/mom_calc_visc.F	462	MOM_CALC_VISC	& + vrtDy(i,j)*vrtDy(i,j) ) )
./pkg/mom_common/mom_calc_visc.F	465	MOM_CALC_VISC	grdDiv=0.25 _d 0( (divDx(i,j-1)divDx(i,j-1)
./pkg/mom_common/mom_calc_visc.F	466	MOM_CALC_VISC	& + divDx(i,j)*divDx(i,j) )
./pkg/mom_common/mom_calc_visc.F	467	MOM_CALC_VISC	& + (divDy(i-1,j)*divDy(i-1,j)
./pkg/mom_common/mom_calc_visc.F	468	MOM_CALC_VISC	& + divDy(i,j)*divDy(i,j) ) )
./pkg/mom_common/mom_calc_visc.F	470	MOM_CALC_VISC	viscAh_ZLth(i,j)=
./pkg/mom_common/mom_calc_visc.F	472	MOM_CALC_VISC	viscA4_ZLth(i,j)=
./pkg/mom_common/mom_calc_visc.F	474	MOM_CALC_VISC	viscAh_ZLthD(i,j)=
./pkg/mom_common/mom_calc_visc.F	476	MOM_CALC_VISC	viscA4_ZLthD(i,j)=
./pkg/mom_common/mom_calc_visc.F	481	MOM_CALC_VISC	grdVrt=MAX( ABS(vrtDx(i-1,j)), ABS(vrtDx(i,j)) )
./pkg/mom_common/mom_calc_visc.F	482	MOM_CALC_VISC	grdVrt=MAX( grdVrt, ABS(vrtDy(i,j-1)) )
./pkg/mom_common/mom_calc_visc.F	483	MOM_CALC_VISC	grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) )
./pkg/mom_common/mom_calc_visc.F	485	MOM_CALC_VISC	grdDiv=MAX( ABS(divDx(i,j)), ABS(divDx(i,j-1)) )
./pkg/mom_common/mom_calc_visc.F	486	MOM_CALC_VISC	grdDiv=MAX( grdDiv, ABS(divDy(i,j)) )
./pkg/mom_common/mom_calc_visc.F	487	MOM_CALC_VISC	grdDiv=MAX( grdDiv, ABS(divDy(i-1,j)) )
./pkg/mom_common/mom_calc_visc.F	489	MOM_CALC_VISC	viscAh_ZLth(i,j)=(leith2facgrdVrt+(leithD2facgrdDiv))*L3
./pkg/mom_common/mom_calc_visc.F	490	MOM_CALC_VISC	viscA4_ZLth(i,j)=(leith4facgrdVrt+(leithD4facgrdDiv))*L5
./pkg/mom_common/mom_calc_visc.F	491	MOM_CALC_VISC	viscAh_ZLthD(i,j)=(leithD2facgrdDiv)L3
./pkg/mom_common/mom_calc_visc.F	492	MOM_CALC_VISC	viscA4_ZLthD(i,j)=(leithD4facgrdDiv)L5
./pkg/mom_common/mom_calc_visc.F	494	MOM_CALC_VISC	viscAh_ZLth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	495	MOM_CALC_VISC	viscA4_ZLth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	496	MOM_CALC_VISC	viscAh_ZLthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	497	MOM_CALC_VISC	viscA4_ZLthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F	501	MOM_CALC_VISC	viscAh_ZSmg(i,j)=L2
./pkg/mom_common/mom_calc_visc.F	502	MOM_CALC_VISC	& SQRT(strain(i,j)*2
./pkg/mom_common/mom_calc_visc.F	503	MOM_CALC_VISC	& +0.25 _d 0(tension( i , j )2+tension( i ,j-1)*2
./pkg/mom_common/mom_calc_visc.F	504	MOM_CALC_VISC	& +tension(i-1, j )2+tension(i-1,j-1)2))
./pkg/mom_common/mom_calc_visc.F	505	MOM_CALC_VISC	viscA4_ZSmg(i,j)=smag4facL2viscAh_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	506	MOM_CALC_VISC	viscAh_ZSmg(i,j)=smag2fac*viscAh_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	512	MOM_CALC_VISC	& +viscAh_ZLth(i,j)+viscAh_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	514	MOM_CALC_VISC	& +viscAhZfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	516	MOM_CALC_VISC	viscAh_ZMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl)
./pkg/mom_common/mom_calc_visc.F	517	MOM_CALC_VISC	viscAh_Z(i,j)=MAX(viscAh_ZMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F	518	MOM_CALC_VISC	viscAh_ZMax(i,j)=MIN(viscAhGridMax*L2rdt,viscAhMax)
./pkg/mom_common/mom_calc_visc.F	519	MOM_CALC_VISC	viscAh_Z(i,j)=MIN(viscAh_ZMax(i,j),viscAh_Z(i,j))
./pkg/mom_common/mom_calc_visc.F	523	MOM_CALC_VISC	& +viscA4_ZLth(i,j)+viscA4_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F	525	MOM_CALC_VISC	& +viscA4Zfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	527	MOM_CALC_VISC	viscA4_ZMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F	528	MOM_CALC_VISC	viscA4_Z(i,j)=MAX(viscA4_ZMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F	529	MOM_CALC_VISC	viscA4_ZMax(i,j)=MIN(viscA4GridMax*L4rdt,viscA4Max)
./pkg/mom_common/mom_calc_visc.F	530	MOM_CALC_VISC	viscA4_Z(i,j)=MIN(viscA4_ZMax(i,j),viscA4_Z(i,j))
./pkg/mom_common/mom_calc_visc.F	540	MOM_CALC_VISC	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_visc.F	542	MOM_CALC_VISC	viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F	543	MOM_CALC_VISC	viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F	552	MOM_CALC_VISC	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_visc.F	554	MOM_CALC_VISC	viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F	555	MOM_CALC_VISC	viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F	560	MOM_CALC_VISC	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_calc_visc.F	562	MOM_CALC_VISC	viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_W(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	563	MOM_CALC_VISC	& + halfRL*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F	564	MOM_CALC_VISC	viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_W(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F	565	MOM_CALC_VISC	& + halfRL*viscA4_D(i,j)
./model/src/calc_phi_hyd.F	140	CALC_PHI_HYD	DO j=1-OLy,sNy+OLy
./model/src/calc_phi_hyd.F	142	CALC_PHI_HYD	phiHydF(i,j) = 0.
./model/src/calc_phi_hyd.F	172	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	174	CALC_PHI_HYD	alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F	186	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	188	CALC_PHI_HYD	IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0
./model/src/calc_phi_hyd.F	192	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	194	CALC_PHI_HYD	alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F	210	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	212	CALC_PHI_HYD	phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	213	CALC_PHI_HYD	& gravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	229	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	231	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j)
./model/src/calc_phi_hyd.F	232	CALC_PHI_HYD	& + halfRLdrF(k)gravityalphaRho(i,j)recip_rhoConst
./model/src/calc_phi_hyd.F	233	CALC_PHI_HYD	phiHydF(i,j) = phiHydF(i,j)
./model/src/calc_phi_hyd.F	234	CALC_PHI_HYD	& + drF(k)gravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	238	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	240	CALC_PHI_HYD	IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F	241	CALC_PHI_HYD	ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F	243	CALC_PHI_HYD	ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	245	CALC_PHI_HYD	phiHydC(i,j) = ddRlocgravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	247	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j)
./model/src/calc_phi_hyd.F	248	CALC_PHI_HYD	& + halfRLdrF(k)gravityalphaRho(i,j)recip_rhoConst
./model/src/calc_phi_hyd.F	250	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j)
./model/src/calc_phi_hyd.F	251	CALC_PHI_HYD	& + halfRLdrF(k)gravityalphaRho(i,j)recip_rhoConst
./model/src/calc_phi_hyd.F	270	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	272	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j)
./model/src/calc_phi_hyd.F	273	CALC_PHI_HYD	& +dRlocMgravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	274	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j)
./model/src/calc_phi_hyd.F	275	CALC_PHI_HYD	& +dRlocPgravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	281	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	283	CALC_PHI_HYD	IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F	284	CALC_PHI_HYD	ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F	286	CALC_PHI_HYD	ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	288	CALC_PHI_HYD	phiHydC(i,j) =( MAX(zeroRL,ddRloc)rec_dRmdRlocM
./model/src/calc_phi_hyd.F	290	CALC_PHI_HYD	& )gravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	292	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j)
./model/src/calc_phi_hyd.F	293	CALC_PHI_HYD	& +dRlocMgravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	295	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j)
./model/src/calc_phi_hyd.F	296	CALC_PHI_HYD	& +dRlocPgravityalphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F	333	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	335	CALC_PHI_HYD	alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F	341	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	343	CALC_PHI_HYD	locAlpha=alphaRho(i,j)+rhoConst
./model/src/calc_phi_hyd.F	344	CALC_PHI_HYD	alphaRho(i,j)=maskC(i,j,k,bi,bj)*
./model/src/calc_phi_hyd.F	361	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	368	CALC_PHI_HYD	IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F	369	CALC_PHI_HYD	ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F	371	CALC_PHI_HYD	ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	373	CALC_PHI_HYD	phiHydC(i,j) = ddRloc*alphaRho(i,j)
./model/src/calc_phi_hyd.F	380	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j) + halfRLdrF(k)alphaRho(i,j)
./model/src/calc_phi_hyd.F	384	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j) + halfRLdrF(k)alphaRho(i,j)
./model/src/calc_phi_hyd.F	402	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	407	CALC_PHI_HYD	IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F	408	CALC_PHI_HYD	ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F	410	CALC_PHI_HYD	ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	412	CALC_PHI_HYD	phiHydC(i,j) =( MAX(zeroRL,ddRloc)rec_dRmdRlocM
./model/src/calc_phi_hyd.F	414	CALC_PHI_HYD	& )*alphaRho(i,j)
./model/src/calc_phi_hyd.F	416	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j) + dRlocM*alphaRho(i,j)
./model/src/calc_phi_hyd.F	418	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j) + dRlocP*alphaRho(i,j)
./model/src/calc_phi_hyd.F	440	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	442	CALC_PHI_HYD	alphaRho(i,j) = ( tFld(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F	443	CALC_PHI_HYD	& ( sFld(i,j,k,bi,bj)atm_Rq + oneRL )
./model/src/calc_phi_hyd.F	444	CALC_PHI_HYD	& - thetaRef )*maskC(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F	448	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	450	CALC_PHI_HYD	alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F	469	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	471	CALC_PHI_HYD	locDepth = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/calc_phi_hyd.F	473	CALC_PHI_HYD	locDepth = locDepth + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	475	CALC_PHI_HYD	pKappaF(i,j) = (
./model/src/calc_phi_hyd.F	476	CALC_PHI_HYD	& ( R_low(i,j,bi,bj) + aHybSigmF( k )*fullDepth
./model/src/calc_phi_hyd.F	480	CALC_PHI_HYD	& ( R_low(i,j,bi,bj) + aHybSigmC( k )*fullDepth
./model/src/calc_phi_hyd.F	483	CALC_PHI_HYD	pKappaU(i,j) = (
./model/src/calc_phi_hyd.F	484	CALC_PHI_HYD	& ( R_low(i,j,bi,bj)+ aHybSigmF(k+1)*fullDepth
./model/src/calc_phi_hyd.F	487	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j)
./model/src/calc_phi_hyd.F	488	CALC_PHI_HYD	& + atm_Cp( pKappaF(i,j) - pKappaC )alphaRho(i,j)
./model/src/calc_phi_hyd.F	489	CALC_PHI_HYD	phiHydU(i,j) = phiHydF(i,j)
./model/src/calc_phi_hyd.F	490	CALC_PHI_HYD	& + atm_Cp( pKappaF(i,j) - pKappaU(i,j) )alphaRho(i,j)
./model/src/calc_phi_hyd.F	521	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	523	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j)
./model/src/calc_phi_hyd.F	524	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j)
./model/src/calc_phi_hyd.F	544	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	546	CALC_PHI_HYD	IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F	547	CALC_PHI_HYD	ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F	549	CALC_PHI_HYD	ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	551	CALC_PHI_HYD	phiHydC(i,j) = ddRlocrecip_drF(k)2. _d 0
./model/src/calc_phi_hyd.F	552	CALC_PHI_HYD	& ddPImalphaRho(i,j)
./model/src/calc_phi_hyd.F	554	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j)
./model/src/calc_phi_hyd.F	556	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j)
./model/src/calc_phi_hyd.F	588	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	590	CALC_PHI_HYD	IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F	591	CALC_PHI_HYD	ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F	593	CALC_PHI_HYD	ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F	595	CALC_PHI_HYD	phiHydC(i,j) =( MAX(zeroRL,ddRloc)rec_dRmddPIm
./model/src/calc_phi_hyd.F	597	CALC_PHI_HYD	& )*alphaRho(i,j)
./model/src/calc_phi_hyd.F	599	CALC_PHI_HYD	phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j)
./model/src/calc_phi_hyd.F	601	CALC_PHI_HYD	phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j)
./model/src/calc_phi_hyd.F	641	CALC_PHI_HYD	DO j=jMin,jMax
./model/src/calc_phi_hyd.F	643	CALC_PHI_HYD	phiHydF(i,j) = phiHydU(i,j)
./model/src/calc_phi_hyd.F	86	CALC_PHI_HYD	INTEGER i,j
./pkg/mom_common/mom_hdissip.F	41	MOM_HDISSIP	INTEGER i, j
./pkg/mom_common/mom_hdissip.F	45	MOM_HDISSIP	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_hdissip.F	48	MOM_HDISSIP	uDissip(i,j) =
./pkg/mom_common/mom_hdissip.F	49	MOM_HDISSIP	& recip_dyG(i,j,bi,bj)*recip_dyG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	50	MOM_HDISSIP	& *recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	52	MOM_HDISSIP	& dyF( i , j ,bi,bj)*dyF( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F	53	MOM_HDISSIP	& viscAh_t( i , j )tension( i , j )
./pkg/mom_common/mom_hdissip.F	54	MOM_HDISSIP	& -dyF(i-1, j ,bi,bj)*dyF(i-1, j ,bi,bj)
./pkg/mom_common/mom_hdissip.F	55	MOM_HDISSIP	& viscAh_t(i-1, j )tension(i-1, j )
./pkg/mom_common/mom_hdissip.F	57	MOM_HDISSIP	& +recip_dxC(i,j,bi,bj)*recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	58	MOM_HDISSIP	& *recip_dyG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	60	MOM_HDISSIP	& dxV( i ,j+1,bi,bj)*dxV( i ,j+1,bi,bj)
./pkg/mom_common/mom_hdissip.F	61	MOM_HDISSIP	& viscAh_s(i,j+1)strain( i ,j+1)
./pkg/mom_common/mom_hdissip.F	62	MOM_HDISSIP	& -dxV( i , j ,bi,bj)*dxV( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F	63	MOM_HDISSIP	& viscAh_s(i, j )strain( i , j )
./pkg/mom_common/mom_hdissip.F	66	MOM_HDISSIP	vDissip(i,j) =
./pkg/mom_common/mom_hdissip.F	67	MOM_HDISSIP	& recip_dyC(i,j,bi,bj)*recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	68	MOM_HDISSIP	& *recip_dxG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	70	MOM_HDISSIP	& dyU(i+1, j ,bi,bj)*dyU(i+1, j ,bi,bj)
./pkg/mom_common/mom_hdissip.F	71	MOM_HDISSIP	& viscAh_s(i+1,j)strain(i+1,j)
./pkg/mom_common/mom_hdissip.F	72	MOM_HDISSIP	& -dyU( i , j ,bi,bj)*dyU( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F	73	MOM_HDISSIP	& viscAh_s( i ,j)strain( i ,j)
./pkg/mom_common/mom_hdissip.F	75	MOM_HDISSIP	& -recip_dxG(i,j,bi,bj)*recip_dxG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	76	MOM_HDISSIP	& *recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F	78	MOM_HDISSIP	& dxF( i , j ,bi,bj)*dxF( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F	79	MOM_HDISSIP	& viscAh_t(i, j )tension(i, j )
./pkg/mom_common/mom_hdissip.F	80	MOM_HDISSIP	& -dxF( i ,j-1,bi,bj)*dxF( i ,j-1,bi,bj)
./pkg/mom_common/mom_hdissip.F	81	MOM_HDISSIP	& viscAh_t(i,j-1)tension(i,j-1)
./pkg/mom_common/mom_init_fixed.F	102	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	104	MOM_INIT_FIXED	L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj)
./pkg/mom_common/mom_init_fixed.F	108	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	110	MOM_INIT_FIXED	IF ( recip_dxV(i,j,bi,bj).NE.0. .OR.
./pkg/mom_common/mom_init_fixed.F	111	MOM_INIT_FIXED	& recip_dyU(i,j,bi,bj).NE.0. ) THEN
./pkg/mom_common/mom_init_fixed.F	112	MOM_INIT_FIXED	L2_Z(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_init_fixed.F	113	MOM_INIT_FIXED	& /((recip_dxV(i,j,bi,bj)2+recip_dyU(i,j,bi,bj)2))
./pkg/mom_common/mom_init_fixed.F	118	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	120	MOM_INIT_FIXED	L3_Z(i,j,bi,bj) = L2_Z(i,j,bi,bj)**1.5
./pkg/mom_common/mom_init_fixed.F	121	MOM_INIT_FIXED	L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F	122	MOM_INIT_FIXED	& L2_Z(i,j,bi,bj)*2
./pkg/mom_common/mom_init_fixed.F	127	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	129	MOM_INIT_FIXED	smag3D_hLsC(i,j,bi,bj) = rA (i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F	130	MOM_INIT_FIXED	smag3D_hLsW(i,j,bi,bj) = rAw(i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F	131	MOM_INIT_FIXED	smag3D_hLsS(i,j,bi,bj) = rAs(i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F	132	MOM_INIT_FIXED	smag3D_hLsZ(i,j,bi,bj) = rAz(i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F	33	MOM_INIT_FIXED	INTEGER i,j,k,bi,bj
./pkg/mom_common/mom_init_fixed.F	47	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	49	MOM_INIT_FIXED	viscAhDfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F	50	MOM_INIT_FIXED	viscAhZfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F	57	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	59	MOM_INIT_FIXED	viscA4Dfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F	60	MOM_INIT_FIXED	viscA4Zfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F	68	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	70	MOM_INIT_FIXED	viscAh_W(i,j,k,bi,bj) = viscAhW
./pkg/mom_common/mom_init_fixed.F	71	MOM_INIT_FIXED	viscA4_W(i,j,k,bi,bj) = viscA4W
./pkg/mom_common/mom_init_fixed.F	78	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	80	MOM_INIT_FIXED	L2_D(i,j,bi,bj) = rA(i,j,bi,bj)
./pkg/mom_common/mom_init_fixed.F	84	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	86	MOM_INIT_FIXED	IF ( recip_dxF(i,j,bi,bj).NE.0. .OR.
./pkg/mom_common/mom_init_fixed.F	87	MOM_INIT_FIXED	& recip_dyF(i,j,bi,bj).NE.0. ) THEN
./pkg/mom_common/mom_init_fixed.F	88	MOM_INIT_FIXED	L2_D(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_init_fixed.F	89	MOM_INIT_FIXED	& /((recip_dxF(i,j,bi,bj)2+recip_dyF(i,j,bi,bj)2))
./pkg/mom_common/mom_init_fixed.F	94	MOM_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_init_fixed.F	96	MOM_INIT_FIXED	L3_D(i,j,bi,bj) = L2_D(i,j,bi,bj)**1.5
./pkg/mom_common/mom_init_fixed.F	97	MOM_INIT_FIXED	L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F	98	MOM_INIT_FIXED	& L2_D(i,j,bi,bj)*2
./pkg/mom_common/mom_quasihydrostatic.F	101	MOM_QUASIHYDROSTATIC	& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj)
./pkg/mom_common/mom_quasihydrostatic.F	102	MOM_QUASIHYDROSTATIC	& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F	103	MOM_QUASIHYDROSTATIC	& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj)
./pkg/mom_common/mom_quasihydrostatic.F	104	MOM_QUASIHYDROSTATIC	& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F	53	MOM_QUASIHYDROSTATIC	INTEGER i,j
./pkg/mom_common/mom_quasihydrostatic.F	82	MOM_QUASIHYDROSTATIC	DO j=jMin,jMax
./pkg/mom_common/mom_quasihydrostatic.F	84	MOM_QUASIHYDROSTATIC	effectiveBuoy(i,j)=effectiveBuoy(i,j)
./pkg/mom_common/mom_quasihydrostatic.F	86	MOM_QUASIHYDROSTATIC	& fCoriCos(i,j,bi,bj)*
./pkg/mom_common/mom_quasihydrostatic.F	87	MOM_QUASIHYDROSTATIC	& ( angleCosC(i,j,bi,bj)0.5 _d 0
./pkg/mom_common/mom_quasihydrostatic.F	88	MOM_QUASIHYDROSTATIC	& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F	89	MOM_QUASIHYDROSTATIC	& -angleSinC(i,j,bi,bj)0.5 _d 0
./pkg/mom_common/mom_quasihydrostatic.F	90	MOM_QUASIHYDROSTATIC	& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F	97	MOM_QUASIHYDROSTATIC	DO j=jMin,jMax
./pkg/mom_common/mom_quasihydrostatic.F	99	MOM_QUASIHYDROSTATIC	effectiveBuoy(i,j)=effectiveBuoy(i,j)
./pkg/mom_common/mom_u_bottomdrag.F	100	MOM_U_BOTTOMDRAG	& KappaRU(i,j,kLowF)recDrCviscFac
./pkg/mom_common/mom_u_bottomdrag.F	102	MOM_U_BOTTOMDRAG	& + bottomDragFld(i,j,bi,bj)*dragFac
./pkg/mom_common/mom_u_bottomdrag.F	105	MOM_U_BOTTOMDRAG	& )*uFld(i,j)
./pkg/mom_common/mom_u_bottomdrag.F	111	MOM_U_BOTTOMDRAG	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_u_bottomdrag.F	113	MOM_U_BOTTOMDRAG	IF ( (KE(i,j)+KE(i-1,j)) .GT. 0. ) THEN
./pkg/mom_common/mom_u_bottomdrag.F	114	MOM_U_BOTTOMDRAG	uDragTerms(i,j) = uDragTerms(i,j)
./pkg/mom_common/mom_u_bottomdrag.F	115	MOM_U_BOTTOMDRAG	& - recDrF_bot(i,j)
./pkg/mom_common/mom_u_bottomdrag.F	116	MOM_U_BOTTOMDRAG	& bottomDragQuadraticSQRT(KE(i,j)+KE(i-1,j))*dragFac
./pkg/mom_common/mom_u_bottomdrag.F	117	MOM_U_BOTTOMDRAG	& *uFld(i,j)
./pkg/mom_common/mom_u_bottomdrag.F	54	MOM_U_BOTTOMDRAG	INTEGER i,j,kDown,kLowF,kBottom
./pkg/mom_common/mom_u_bottomdrag.F	79	MOM_U_BOTTOMDRAG	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_u_bottomdrag.F	81	MOM_U_BOTTOMDRAG	recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F	86	MOM_U_BOTTOMDRAG	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_u_bottomdrag.F	88	MOM_U_BOTTOMDRAG	recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F	89	MOM_U_BOTTOMDRAG	& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_u_bottomdrag.F	95	MOM_U_BOTTOMDRAG	DO j=1-OLy,sNy+OLy-1
./pkg/mom_common/mom_u_bottomdrag.F	97	MOM_U_BOTTOMDRAG	uDragTerms(i,j)=
./pkg/mom_common/mom_u_bottomdrag.F	98	MOM_U_BOTTOMDRAG	& - recDrF_bot(i,j)
./pkg/mom_common/mom_u_coriolis_nh.F	44	MOM_U_CORIOLIS_NH	INTEGER i,j,kp1
./pkg/mom_common/mom_u_coriolis_nh.F	54	MOM_U_CORIOLIS_NH	DO j=1-Oly,sNy+Oly
./pkg/mom_common/mom_u_coriolis_nh.F	56	MOM_U_CORIOLIS_NH	uCoriolisTerm(i,j) =
./pkg/mom_common/mom_u_coriolis_nh.F	57	MOM_U_CORIOLIS_NH	& 0.5( fCoriCos( i ,j,bi,bj)angleCosC( i ,j,bi,bj)
./pkg/mom_common/mom_u_coriolis_nh.F	58	MOM_U_CORIOLIS_NH	& 0.5( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_u_coriolis_nh.F	59	MOM_U_CORIOLIS_NH	& +wFld( i ,j,kp1,bi,bj)rVel2wUnit(kp1)wMsk )
./pkg/mom_common/mom_u_coriolis_nh.F	60	MOM_U_CORIOLIS_NH	& + fCoriCos(i-1,j,bi,bj)*angleCosC(i-1,j,bi,bj)
./pkg/mom_common/mom_u_coriolis_nh.F	61	MOM_U_CORIOLIS_NH	& 0.5( wFld(i-1,j, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_u_coriolis_nh.F	62	MOM_U_CORIOLIS_NH	& +wFld(i-1,j,kp1,bi,bj)rVel2wUnit(kp1)wMsk )
./pkg/mom_common/mom_u_implicit_r.F	100	MOM_U_IMPLICIT_R	& _recip_hFacW(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F	101	MOM_U_IMPLICIT_R	& KappaRU(i,j,k+1)recip_drC(k+1)
./pkg/mom_common/mom_u_implicit_r.F	107	MOM_U_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_u_implicit_r.F	109	MOM_U_IMPLICIT_R	c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F	122	MOM_U_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_u_implicit_r.F	124	MOM_U_IMPLICIT_R	rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_u_implicit_r.F	125	MOM_U_IMPLICIT_R	& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F	126	MOM_U_IMPLICIT_R	& *maskC( i ,j,k-1,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F	127	MOM_U_IMPLICIT_R	& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F	128	MOM_U_IMPLICIT_R	& *maskC(i-1,j,k-1,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F	140	MOM_U_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_u_implicit_r.F	142	MOM_U_IMPLICIT_R	rCenter = 0.5 _d 0 deltaTmomrTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F	143	MOM_U_IMPLICIT_R	& recip_rAw(i,j,bi,bj)rkSign
./pkg/mom_common/mom_u_implicit_r.F	145	MOM_U_IMPLICIT_R	b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F	147	MOM_U_IMPLICIT_R	& _recip_hFacW(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F	148	MOM_U_IMPLICIT_R	c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F	150	MOM_U_IMPLICIT_R	& _recip_hFacW(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F	151	MOM_U_IMPLICIT_R	c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F	153	MOM_U_IMPLICIT_R	& _recip_hFacW(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F	154	MOM_U_IMPLICIT_R	d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F	156	MOM_U_IMPLICIT_R	& _recip_hFacW(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F	161	MOM_U_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_u_implicit_r.F	163	MOM_U_IMPLICIT_R	rCenter = 0.5 _d 0 deltaTmomrTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F	164	MOM_U_IMPLICIT_R	& recip_rAw(i,j,bi,bj)rkSign
./pkg/mom_common/mom_u_implicit_r.F	165	MOM_U_IMPLICIT_R	b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F	166	MOM_U_IMPLICIT_R	& - rCenter_recip_hFacW(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F	167	MOM_U_IMPLICIT_R	c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F	168	MOM_U_IMPLICIT_R	& - rCenter_recip_hFacW(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F	169	MOM_U_IMPLICIT_R	c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F	170	MOM_U_IMPLICIT_R	& + rCenter_recip_hFacW(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F	171	MOM_U_IMPLICIT_R	d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F	172	MOM_U_IMPLICIT_R	& + rCenter_recip_hFacW(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F	207	MOM_U_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_u_implicit_r.F	209	MOM_U_IMPLICIT_R	vf(i,j) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F	213	MOM_U_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_u_implicit_r.F	215	MOM_U_IMPLICIT_R	vf(i,j) =
./pkg/mom_common/mom_u_implicit_r.F	216	MOM_U_IMPLICIT_R	& -KappaRU(i,j,k)rAw(i,j,bi,bj)recip_drC(k)
./pkg/mom_common/mom_u_implicit_r.F	217	MOM_U_IMPLICIT_R	& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj))*rkSign
./pkg/mom_common/mom_u_implicit_r.F	218	MOM_U_IMPLICIT_R	& *_maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F	219	MOM_U_IMPLICIT_R	& *_maskW(i,j,k-1,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F	40	MOM_U_IMPLICIT_R	INTEGER i,j,k
./pkg/mom_common/mom_u_implicit_r.F	67	MOM_U_IMPLICIT_R	DO j=1-Oly,sNy+Oly
./pkg/mom_common/mom_u_implicit_r.F	70	MOM_U_IMPLICIT_R	b5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F	71	MOM_U_IMPLICIT_R	c5d(i,j,k) = 1. _d 0
./pkg/mom_common/mom_u_implicit_r.F	72	MOM_U_IMPLICIT_R	d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F	85	MOM_U_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_u_implicit_r.F	87	MOM_U_IMPLICIT_R	IF (maskW(i,j,k-1,bi,bj).EQ.1.)
./pkg/mom_common/mom_u_implicit_r.F	88	MOM_U_IMPLICIT_R	& b5d(i,j,k) = -deltaTmom
./pkg/mom_common/mom_u_implicit_r.F	89	MOM_U_IMPLICIT_R	& _recip_hFacW(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F	90	MOM_U_IMPLICIT_R	& kappaRU(i,j, k )recip_drC( k )
./pkg/mom_common/mom_u_implicit_r.F	96	MOM_U_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_u_implicit_r.F	98	MOM_U_IMPLICIT_R	IF (maskW(i,j,k+1,bi,bj).EQ.1.)
./pkg/mom_common/mom_u_implicit_r.F	99	MOM_U_IMPLICIT_R	& d5d(i,j,k) = -deltaTmom
./pkg/mom_common/mom_u_metric_nh.F	46	MOM_U_METRIC_NH	INTEGER i,j,kp1
./pkg/mom_common/mom_u_metric_nh.F	54	MOM_U_METRIC_NH	DO j=1-Olx,sNy+Oly
./pkg/mom_common/mom_u_metric_nh.F	56	MOM_U_METRIC_NH	uMetricTerms(i,j) = uFld(i,j)recip_rSphererecip_deepFacC(k)
./pkg/mom_common/mom_u_metric_nh.F	57	MOM_U_METRIC_NH	& 0.25( (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj))
./pkg/mom_common/mom_u_metric_nh.F	59	MOM_U_METRIC_NH	& + (wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj))
./pkg/mom_common/mom_u_rviscflux.F	47	MOM_U_RVISCFLUX	INTEGER i,j
./pkg/mom_common/mom_u_rviscflux.F	52	MOM_U_RVISCFLUX	DO j=1-Oly,sNy+Oly
./pkg/mom_common/mom_u_rviscflux.F	54	MOM_U_RVISCFLUX	rViscFluxU(i,j) = 0. _d 0
./pkg/mom_common/mom_u_rviscflux.F	58	MOM_U_RVISCFLUX	DO j=1-Oly,sNy+Oly-1
./pkg/mom_common/mom_u_rviscflux.F	60	MOM_U_RVISCFLUX	rViscFluxU(i,j) =
./pkg/mom_common/mom_u_rviscflux.F	61	MOM_U_RVISCFLUX	& -KappaRU(i,j,k)
./pkg/mom_common/mom_u_rviscflux.F	62	MOM_U_RVISCFLUX	& rAw(i,j,bi,bj)deepFac2F(k)*rhoFacF(k)
./pkg/mom_common/mom_u_rviscflux.F	63	MOM_U_RVISCFLUX	& *( uFld(i,j,k,bi,bj)-uFld(i,j,k-1,bi,bj)
./pkg/mom_common/mom_u_rviscflux.F	65	MOM_U_RVISCFLUX	& *_maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_rviscflux.F	66	MOM_U_RVISCFLUX	& *_maskW(i,j,k-1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	107	MOM_U_SIDEDRAG	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_u_sidedrag.F	110	MOM_U_SIDEDRAG	hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F	111	MOM_U_SIDEDRAG	hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F	113	MOM_U_SIDEDRAG	hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F	114	MOM_U_SIDEDRAG	hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F	116	MOM_U_SIDEDRAG	uDragTerms(i,j) =
./pkg/mom_common/mom_u_sidedrag.F	117	MOM_U_SIDEDRAG	& -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	118	MOM_U_SIDEDRAG	& recip_drF(k)recip_rAw(i,j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	119	MOM_U_SIDEDRAG	& ( hFacZClosedS_dxV(i, j ,bi,bj)*_recip_dyU(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	121	MOM_U_SIDEDRAG	& ( viscAh_Z(i,j )uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	123	MOM_U_SIDEDRAG	& -viscA4_Z(i,j )del2u(i,j)sqcosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F	125	MOM_U_SIDEDRAG	& -viscA4_Z(i,j )del2u(i,j)cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F	128	MOM_U_SIDEDRAG	& ( viscAh_Z(i,j )uFld(i,j)
./pkg/mom_common/mom_u_sidedrag.F	129	MOM_U_SIDEDRAG	& -viscA4_Z(i,j )*del2u(i,j) )
./pkg/mom_common/mom_u_sidedrag.F	131	MOM_U_SIDEDRAG	& +hFacZClosedN_dxV(i,j+1,bi,bj)_recip_dyU(i,j+1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	133	MOM_U_SIDEDRAG	& ( viscAh_Z(i,j+1)uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	135	MOM_U_SIDEDRAG	& -viscA4_Z(i,j+1)del2u(i,j)sqcosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F	137	MOM_U_SIDEDRAG	& -viscA4_Z(i,j+1)del2u(i,j)cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F	140	MOM_U_SIDEDRAG	& ( viscAh_Z(i,j+1)uFld(i,j)
./pkg/mom_common/mom_u_sidedrag.F	141	MOM_U_SIDEDRAG	& -viscA4_Z(i,j+1)*del2u(i,j) )
./pkg/mom_common/mom_u_sidedrag.F	56	MOM_U_SIDEDRAG	INTEGER i,j
./pkg/mom_common/mom_u_sidedrag.F	65	MOM_U_SIDEDRAG	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_u_sidedrag.F	68	MOM_U_SIDEDRAG	hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F	69	MOM_U_SIDEDRAG	hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F	71	MOM_U_SIDEDRAG	hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F	72	MOM_U_SIDEDRAG	hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F	74	MOM_U_SIDEDRAG	Ahtmp=MIN(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom,
./pkg/mom_common/mom_u_sidedrag.F	76	MOM_U_SIDEDRAG	A4tmp=MIN(viscA4+viscA4Grid(rAw(i,j,bi,bj)*2)/deltaTmom,
./pkg/mom_common/mom_u_sidedrag.F	78	MOM_U_SIDEDRAG	A4tmp=MIN(A4tmp,viscA4GridMax(rAw(i,j,bi,bj)*2)/deltaTmom)
./pkg/mom_common/mom_u_sidedrag.F	79	MOM_U_SIDEDRAG	A4tmp=MAX(A4tmp,viscA4GridMin(rAw(i,j,bi,bj)*2)/deltaTmom)
./pkg/mom_common/mom_u_sidedrag.F	80	MOM_U_SIDEDRAG	uDragTerms(i,j) =
./pkg/mom_common/mom_u_sidedrag.F	81	MOM_U_SIDEDRAG	& -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	82	MOM_U_SIDEDRAG	& recip_drF(k)recip_rAw(i,j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	83	MOM_U_SIDEDRAG	& ( hFacZClosedS_dxV(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	84	MOM_U_SIDEDRAG	& *_recip_dyU(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	85	MOM_U_SIDEDRAG	& +hFacZClosedN*_dxV(i,j+1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	86	MOM_U_SIDEDRAG	& *_recip_dyU(i,j+1,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F	89	MOM_U_SIDEDRAG	& viscAhuFld(i,j)cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	91	MOM_U_SIDEDRAG	& -viscA4del2u(i,j)sqcosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	93	MOM_U_SIDEDRAG	& -viscA4del2u(i,j)cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F	96	MOM_U_SIDEDRAG	& Ahtmp*uFld(i,j)
./pkg/mom_common/mom_u_sidedrag.F	97	MOM_U_SIDEDRAG	& -A4tmp*del2u(i,j)
./pkg/mom_common/mom_uv_smag_3d.F	100	MOM_UV_SMAG_3D	& -viscAh3d_12( i , j , k )*str12( i , j ,k)
./pkg/mom_common/mom_uv_smag_3d.F	101	MOM_UV_SMAG_3D	& *dyU( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	103	MOM_UV_SMAG_3D	& +( viscAh3d_00( i , j , k )*str22( i , j ,k)
./pkg/mom_common/mom_uv_smag_3d.F	104	MOM_UV_SMAG_3D	& *dxF( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	105	MOM_UV_SMAG_3D	& -viscAh3d_00( i ,j-1, k )*str22( i ,j-1,k)
./pkg/mom_common/mom_uv_smag_3d.F	106	MOM_UV_SMAG_3D	& *dxF( i ,j-1,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	109	MOM_UV_SMAG_3D	& ( viscAh3d_23( i , j ,k+1)str23( i , j ,k+1)
./pkg/mom_common/mom_uv_smag_3d.F	111	MOM_UV_SMAG_3D	& -viscAh3d_23( i , j , k )*str23( i , j , k )
./pkg/mom_common/mom_uv_smag_3d.F	113	MOM_UV_SMAG_3D	& )rkSignrecip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	54	MOM_UV_SMAG_3D	INTEGER i,j
./pkg/mom_common/mom_uv_smag_3d.F	73	MOM_UV_SMAG_3D	DO j= jMin,jMax
./pkg/mom_common/mom_uv_smag_3d.F	75	MOM_UV_SMAG_3D	uDissip(i,j) = recip_rAw(i,j,bi,bj)*(
./pkg/mom_common/mom_uv_smag_3d.F	76	MOM_UV_SMAG_3D	& ( viscAh3d_00( i , j , k )*str11( i , j , k )
./pkg/mom_common/mom_uv_smag_3d.F	77	MOM_UV_SMAG_3D	& *dyF( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	78	MOM_UV_SMAG_3D	& -viscAh3d_00(i-1, j , k )*str11(i-1, j , k )
./pkg/mom_common/mom_uv_smag_3d.F	79	MOM_UV_SMAG_3D	& *dyF(i-1, j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	81	MOM_UV_SMAG_3D	& +( viscAh3d_12( i ,j+1, k )*str12( i ,j+1, k )
./pkg/mom_common/mom_uv_smag_3d.F	82	MOM_UV_SMAG_3D	& *dxV( i ,j+1,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	83	MOM_UV_SMAG_3D	& -viscAh3d_12( i , j , k )*str12( i , j , k )
./pkg/mom_common/mom_uv_smag_3d.F	84	MOM_UV_SMAG_3D	& *dxV( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	87	MOM_UV_SMAG_3D	& ( viscAh3d_13( i , j ,k+1)str13( i , j ,k+1)
./pkg/mom_common/mom_uv_smag_3d.F	89	MOM_UV_SMAG_3D	& -viscAh3d_13( i , j , k )*str13( i , j , k )
./pkg/mom_common/mom_uv_smag_3d.F	91	MOM_UV_SMAG_3D	& )rkSignrecip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F	95	MOM_UV_SMAG_3D	DO j= jMin,jMax
./pkg/mom_common/mom_uv_smag_3d.F	97	MOM_UV_SMAG_3D	vDissip(i,j) = recip_rAs(i,j,bi,bj)*(
./pkg/mom_common/mom_uv_smag_3d.F	98	MOM_UV_SMAG_3D	& ( viscAh3d_12(i+1, j , k )*str12(i+1, j ,k)
./pkg/mom_common/mom_uv_smag_3d.F	99	MOM_UV_SMAG_3D	& *dyU(i+1, j ,bi,bj)
./model/src/calc_r_star.F	103	CALC_R_STAR	DO j=0,sNy+1
./model/src/calc_r_star.F	105	CALC_R_STAR	IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F	106	CALC_R_STAR	rStarFacC(i,j,bi,bj) =
./model/src/calc_r_star.F	107	CALC_R_STAR	& (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./model/src/calc_r_star.F	108	CALC_R_STAR	& *recip_Rcol(i,j,bi,bj)
./model/src/calc_r_star.F	110	CALC_R_STAR	rStarFacC(i,j,bi,bj) = 1.
./model/src/calc_r_star.F	116	CALC_R_STAR	DO j=1,sNy
./model/src/calc_r_star.F	118	CALC_R_STAR	IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F	119	CALC_R_STAR	tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F	120	CALC_R_STAR	rStarFacW(i,j,bi,bj) =
./model/src/calc_r_star.F	121	CALC_R_STAR	& ( 0.5 _d 0 ( etaFld(i-1,j,bi,bj)rA(i-1,j,bi,bj)
./model/src/calc_r_star.F	122	CALC_R_STAR	& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F	123	CALC_R_STAR	& )*recip_rAw(i,j,bi,bj)
./model/src/calc_r_star.F	126	CALC_R_STAR	rStarFacW(i,j,bi,bj) = 1.
./model/src/calc_r_star.F	130	CALC_R_STAR	DO j=1,sNy+1
./model/src/calc_r_star.F	132	CALC_R_STAR	IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F	133	CALC_R_STAR	tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F	134	CALC_R_STAR	rStarFacS(i,j,bi,bj) =
./model/src/calc_r_star.F	135	CALC_R_STAR	& ( 0.5 _d 0 ( etaFld(i,j-1,bi,bj)rA(i,j-1,bi,bj)
./model/src/calc_r_star.F	136	CALC_R_STAR	& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F	137	CALC_R_STAR	& )*recip_rAs(i,j,bi,bj)
./model/src/calc_r_star.F	140	CALC_R_STAR	rStarFacS(i,j,bi,bj) = 1.
./model/src/calc_r_star.F	146	CALC_R_STAR	DO j=1,sNy
./model/src/calc_r_star.F	148	CALC_R_STAR	IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F	149	CALC_R_STAR	tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F	150	CALC_R_STAR	rStarFacW(i,j,bi,bj) =
./model/src/calc_r_star.F	151	CALC_R_STAR	& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) )
./model/src/calc_r_star.F	154	CALC_R_STAR	rStarFacW(i,j,bi,bj) = 1.
./model/src/calc_r_star.F	158	CALC_R_STAR	DO j=1,sNy+1
./model/src/calc_r_star.F	160	CALC_R_STAR	IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F	161	CALC_R_STAR	tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F	162	CALC_R_STAR	rStarFacS(i,j,bi,bj) =
./model/src/calc_r_star.F	163	CALC_R_STAR	& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) )
./model/src/calc_r_star.F	166	CALC_R_STAR	rStarFacS(i,j,bi,bj) = 1.
./model/src/calc_r_star.F	186	CALC_R_STAR	DO j=1,sNy+1
./model/src/calc_r_star.F	188	CALC_R_STAR	IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F	191	CALC_R_STAR	IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F	194	CALC_R_STAR	IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F	197	CALC_R_STAR	IF ( rStarFacC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_r_star.F	199	CALC_R_STAR	maxhFacC = max(rStarFacC(i,j,bi,bj),maxhFacC)
./model/src/calc_r_star.F	206	CALC_R_STAR	DO j=1,sNy+1
./model/src/calc_r_star.F	208	CALC_R_STAR	IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F	210	CALC_R_STAR	& ' fail at i,j=',i,j,' ; rStarFacC,H,eta =',
./model/src/calc_r_star.F	211	CALC_R_STAR	& rStarFacC(i,j,bi,bj),
./model/src/calc_r_star.F	212	CALC_R_STAR	& Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj),
./model/src/calc_r_star.F	213	CALC_R_STAR	& etaFld(i,j,bi,bj)
./model/src/calc_r_star.F	215	CALC_R_STAR	IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F	216	CALC_R_STAR	tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F	218	CALC_R_STAR	& ' fail at i,j=',i,j,' ; rStarFacW,H,eta =',
./model/src/calc_r_star.F	219	CALC_R_STAR	& rStarFacW(i,j,bi,bj), tmpfldW,
./model/src/calc_r_star.F	220	CALC_R_STAR	& etaFld(i-1,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_r_star.F	222	CALC_R_STAR	IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F	223	CALC_R_STAR	tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F	225	CALC_R_STAR	& ' fail at i,j=',i,j,' ; rStarFacS,H,eta =',
./model/src/calc_r_star.F	226	CALC_R_STAR	& rStarFacS(i,j,bi,bj), tmpfldS,
./model/src/calc_r_star.F	227	CALC_R_STAR	& etaFld(i,j-1,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_r_star.F	276	CALC_R_STAR	DO j=1,OLy
./model/src/calc_r_star.F	279	CALC_R_STAR	jj = sNy+j
./model/src/calc_r_star.F	281	CALC_R_STAR	IF (kSurfC(1-i,1-j,bi,bj).GT.Nr) rStarFacC(1-i,1-j,bi,bj)= 1.
./model/src/calc_r_star.F	282	CALC_R_STAR	IF (kSurfC(ii, 1-j,bi,bj).GT.Nr) rStarFacC(ii, 1-j,bi,bj)= 1.
./model/src/calc_r_star.F	286	CALC_R_STAR	IF (kSurfW(1-i,1-j,bi,bj).GT.Nr) rStarFacW(1-i,1-j,bi,bj)= 1.
./model/src/calc_r_star.F	287	CALC_R_STAR	IF (kSurfW(ii, 1-j,bi,bj).GT.Nr) rStarFacW(ii, 1-j,bi,bj)= 1.
./model/src/calc_r_star.F	291	CALC_R_STAR	IF (kSurfS(1-i,1-j,bi,bj).GT.Nr) rStarFacS(1-i,1-j,bi,bj)= 1.
./model/src/calc_r_star.F	292	CALC_R_STAR	IF (kSurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,bi,bj)= 1.
./model/src/calc_r_star.F	301	CALC_R_STAR	DO j=1-OLy,sNy+OLy
./model/src/calc_r_star.F	303	CALC_R_STAR	rStarDhCDt(i,j,bi,bj)=(rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F	304	CALC_R_STAR	& -rStarExpC(i,j,bi,bj))/deltaTFreeSurf
./model/src/calc_r_star.F	305	CALC_R_STAR	rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F	306	CALC_R_STAR	& -rStarExpW(i,j,bi,bj))/deltaTFreeSurf
./model/src/calc_r_star.F	307	CALC_R_STAR	rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F	308	CALC_R_STAR	& -rStarExpS(i,j,bi,bj))/deltaTFreeSurf
./model/src/calc_r_star.F	309	CALC_R_STAR	rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F	310	CALC_R_STAR	& / rStarExpC(i,j,bi,bj)
./model/src/calc_r_star.F	311	CALC_R_STAR	rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F	312	CALC_R_STAR	& / rStarExpW(i,j,bi,bj)
./model/src/calc_r_star.F	313	CALC_R_STAR	rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F	314	CALC_R_STAR	& / rStarExpS(i,j,bi,bj)
./model/src/calc_r_star.F	319	CALC_R_STAR	DO j=1-OLy,sNy+OLy
./model/src/calc_r_star.F	321	CALC_R_STAR	pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/calc_r_star.F	326	CALC_R_STAR	DO j=1-OLy,sNy+OLy
./model/src/calc_r_star.F	328	CALC_R_STAR	pStarFacK(i,j,bi,bj) = 1. _d 0
./model/src/calc_r_star.F	53	CALC_R_STAR	INTEGER i,j,bi,bj
./model/src/calc_r_star.F	83	CALC_R_STAR	DO j=1-OLy,sNy+OLy
./model/src/calc_r_star.F	85	CALC_R_STAR	rStarFacNm1C(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F	86	CALC_R_STAR	rStarFacNm1S(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F	87	CALC_R_STAR	rStarFacNm1W(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F	94	CALC_R_STAR	DO j=1-OLy,sNy+OLy
./model/src/calc_r_star.F	96	CALC_R_STAR	rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F	97	CALC_R_STAR	rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F	98	CALC_R_STAR	rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F	100	MOM_V_BOTTOMDRAG	& KappaRV(i,j,kLowF)recDrCviscFac
./pkg/mom_common/mom_v_bottomdrag.F	102	MOM_V_BOTTOMDRAG	& + bottomDragFld(i,j,bi,bj)*dragFac
./pkg/mom_common/mom_v_bottomdrag.F	105	MOM_V_BOTTOMDRAG	& )*vFld(i,j)
./pkg/mom_common/mom_v_bottomdrag.F	111	MOM_V_BOTTOMDRAG	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_common/mom_v_bottomdrag.F	113	MOM_V_BOTTOMDRAG	IF ( (KE(i,j)+KE(i,j-1)) .GT. 0. ) THEN
./pkg/mom_common/mom_v_bottomdrag.F	114	MOM_V_BOTTOMDRAG	vDragTerms(i,j) = vDragTerms(i,j)
./pkg/mom_common/mom_v_bottomdrag.F	115	MOM_V_BOTTOMDRAG	& - recDrF_bot(i,j)
./pkg/mom_common/mom_v_bottomdrag.F	116	MOM_V_BOTTOMDRAG	& bottomDragQuadraticSQRT(KE(i,j)+KE(i,j-1))*dragFac
./pkg/mom_common/mom_v_bottomdrag.F	117	MOM_V_BOTTOMDRAG	& *vFld(i,j)
./pkg/mom_common/mom_v_bottomdrag.F	54	MOM_V_BOTTOMDRAG	INTEGER i,j,kDown,kLowF,kBottom
./pkg/mom_common/mom_v_bottomdrag.F	79	MOM_V_BOTTOMDRAG	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_v_bottomdrag.F	81	MOM_V_BOTTOMDRAG	recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_bottomdrag.F	86	MOM_V_BOTTOMDRAG	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_v_bottomdrag.F	88	MOM_V_BOTTOMDRAG	recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_bottomdrag.F	89	MOM_V_BOTTOMDRAG	& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_v_bottomdrag.F	95	MOM_V_BOTTOMDRAG	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_common/mom_v_bottomdrag.F	97	MOM_V_BOTTOMDRAG	vDragTerms(i,j)=
./pkg/mom_common/mom_v_bottomdrag.F	98	MOM_V_BOTTOMDRAG	& - recDrF_bot(i,j)
./pkg/mom_common/mom_v_coriolis_nh.F	44	MOM_V_CORIOLIS_NH	INTEGER i,j,kp1
./pkg/mom_common/mom_v_coriolis_nh.F	54	MOM_V_CORIOLIS_NH	DO j=2-Oly,sNy+Oly
./pkg/mom_common/mom_v_coriolis_nh.F	56	MOM_V_CORIOLIS_NH	vCoriolisTerm(i,j) =
./pkg/mom_common/mom_v_coriolis_nh.F	57	MOM_V_CORIOLIS_NH	& -0.5( fCoriCos( i ,j,bi,bj)angleSinC(i, j ,bi,bj)
./pkg/mom_common/mom_v_coriolis_nh.F	58	MOM_V_CORIOLIS_NH	& 0.5( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_v_coriolis_nh.F	59	MOM_V_CORIOLIS_NH	& +wFld( i ,j,kp1,bi,bj)rVel2wUnit(kp1)wMsk )
./pkg/mom_common/mom_v_coriolis_nh.F	60	MOM_V_CORIOLIS_NH	& + fCoriCos(i,j-1,bi,bj)*angleSinC(i,j-1,bi,bj)
./pkg/mom_common/mom_v_coriolis_nh.F	61	MOM_V_CORIOLIS_NH	& 0.5( wFld(i,j-1, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_v_coriolis_nh.F	62	MOM_V_CORIOLIS_NH	& +wFld(i,j-1,kp1,bi,bj)rVel2wUnit(kp1)wMsk )
./pkg/mom_common/mom_v_implicit_r.F	100	MOM_V_IMPLICIT_R	& _recip_hFacS(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F	101	MOM_V_IMPLICIT_R	& KappaRV(i,j,k+1)recip_drC(k+1)
./pkg/mom_common/mom_v_implicit_r.F	107	MOM_V_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_v_implicit_r.F	109	MOM_V_IMPLICIT_R	c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F	122	MOM_V_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_v_implicit_r.F	124	MOM_V_IMPLICIT_R	rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_v_implicit_r.F	125	MOM_V_IMPLICIT_R	& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F	126	MOM_V_IMPLICIT_R	& *maskC(i, j ,k-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F	127	MOM_V_IMPLICIT_R	& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F	128	MOM_V_IMPLICIT_R	& *maskC(i,j-1,k-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F	140	MOM_V_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_v_implicit_r.F	142	MOM_V_IMPLICIT_R	rCenter = 0.5 _d 0 deltaTMomrTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F	143	MOM_V_IMPLICIT_R	& recip_rAs(i,j,bi,bj)rkSign
./pkg/mom_common/mom_v_implicit_r.F	145	MOM_V_IMPLICIT_R	b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F	147	MOM_V_IMPLICIT_R	& _recip_hFacS(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F	148	MOM_V_IMPLICIT_R	c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F	150	MOM_V_IMPLICIT_R	& _recip_hFacS(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F	151	MOM_V_IMPLICIT_R	c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F	153	MOM_V_IMPLICIT_R	& _recip_hFacS(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F	154	MOM_V_IMPLICIT_R	d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F	156	MOM_V_IMPLICIT_R	& _recip_hFacS(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F	161	MOM_V_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_v_implicit_r.F	163	MOM_V_IMPLICIT_R	rCenter = 0.5 _d 0 deltaTMomrTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F	164	MOM_V_IMPLICIT_R	& recip_rAs(i,j,bi,bj)rkSign
./pkg/mom_common/mom_v_implicit_r.F	165	MOM_V_IMPLICIT_R	b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F	166	MOM_V_IMPLICIT_R	& - rCenter_recip_hFacS(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F	167	MOM_V_IMPLICIT_R	c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F	168	MOM_V_IMPLICIT_R	& - rCenter_recip_hFacS(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F	169	MOM_V_IMPLICIT_R	c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F	170	MOM_V_IMPLICIT_R	& + rCenter_recip_hFacS(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F	171	MOM_V_IMPLICIT_R	d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F	172	MOM_V_IMPLICIT_R	& + rCenter_recip_hFacS(i,j,k-1,bi,bj)recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F	207	MOM_V_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_v_implicit_r.F	209	MOM_V_IMPLICIT_R	vf(i,j) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F	213	MOM_V_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_v_implicit_r.F	215	MOM_V_IMPLICIT_R	vf(i,j) =
./pkg/mom_common/mom_v_implicit_r.F	216	MOM_V_IMPLICIT_R	& -KappaRV(i,j,k)rAs(i,j,bi,bj)recip_drC(k)
./pkg/mom_common/mom_v_implicit_r.F	217	MOM_V_IMPLICIT_R	& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj))*rkSign
./pkg/mom_common/mom_v_implicit_r.F	218	MOM_V_IMPLICIT_R	& *_maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F	219	MOM_V_IMPLICIT_R	& *_maskS(i,j,k-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F	40	MOM_V_IMPLICIT_R	INTEGER i,j,k
./pkg/mom_common/mom_v_implicit_r.F	67	MOM_V_IMPLICIT_R	DO j=1-OLy,sNy+OLy
./pkg/mom_common/mom_v_implicit_r.F	70	MOM_V_IMPLICIT_R	b5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F	71	MOM_V_IMPLICIT_R	c5d(i,j,k) = 1. _d 0
./pkg/mom_common/mom_v_implicit_r.F	72	MOM_V_IMPLICIT_R	d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F	85	MOM_V_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_v_implicit_r.F	87	MOM_V_IMPLICIT_R	IF (maskS(i,j,k-1,bi,bj).EQ.1.)
./pkg/mom_common/mom_v_implicit_r.F	88	MOM_V_IMPLICIT_R	& b5d(i,j,k) = -deltaTMom
./pkg/mom_common/mom_v_implicit_r.F	89	MOM_V_IMPLICIT_R	& _recip_hFacS(i,j,k,bi,bj)recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F	90	MOM_V_IMPLICIT_R	& kappaRV(i,j, k )recip_drC( k )
./pkg/mom_common/mom_v_implicit_r.F	96	MOM_V_IMPLICIT_R	DO j=jMin,jMax
./pkg/mom_common/mom_v_implicit_r.F	98	MOM_V_IMPLICIT_R	IF (maskS(i,j,k+1,bi,bj).EQ.1.)
./pkg/mom_common/mom_v_implicit_r.F	99	MOM_V_IMPLICIT_R	& d5d(i,j,k) = -deltaTMom
./pkg/mom_common/mom_v_metric_nh.F	46	MOM_V_METRIC_NH	INTEGER i,j,kp1
./pkg/mom_common/mom_v_metric_nh.F	54	MOM_V_METRIC_NH	DO j=1-Olx+1,sNy+Oly
./pkg/mom_common/mom_v_metric_nh.F	56	MOM_V_METRIC_NH	vMetricTerms(i,j) = vFld(i,j)recip_rSphererecip_deepFacC(k)
./pkg/mom_common/mom_v_metric_nh.F	57	MOM_V_METRIC_NH	& 0.25( (wFld(i,j-1,kp1,bi,bj)+wFld(i,j,kp1,bi,bj))
./pkg/mom_common/mom_v_metric_nh.F	59	MOM_V_METRIC_NH	& + (wFld(i,j-1, k ,bi,bj)+wFld(i,j, k ,bi,bj))
./pkg/mom_common/mom_v_rviscflux.F	47	MOM_V_RVISCFLUX	INTEGER i,j
./pkg/mom_common/mom_v_rviscflux.F	52	MOM_V_RVISCFLUX	DO j=1-Oly,sNy+Oly
./pkg/mom_common/mom_v_rviscflux.F	54	MOM_V_RVISCFLUX	rViscFluxV(i,j) = 0. _d 0
./pkg/mom_common/mom_v_rviscflux.F	58	MOM_V_RVISCFLUX	DO j=1-Oly,sNy+Oly-1
./pkg/mom_common/mom_v_rviscflux.F	60	MOM_V_RVISCFLUX	rViscFluxV(i,j) =
./pkg/mom_common/mom_v_rviscflux.F	61	MOM_V_RVISCFLUX	& -KappaRV(i,j,k)
./pkg/mom_common/mom_v_rviscflux.F	62	MOM_V_RVISCFLUX	& rAs(i,j,bi,bj)deepFac2F(k)*rhoFacF(k)
./pkg/mom_common/mom_v_rviscflux.F	63	MOM_V_RVISCFLUX	& *( vFld(i,j,k,bi,bj)-vFld(i,j,k-1,bi,bj)
./pkg/mom_common/mom_v_rviscflux.F	65	MOM_V_RVISCFLUX	& *_maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_rviscflux.F	66	MOM_V_RVISCFLUX	& *_maskS(i,j,k-1,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	104	MOM_V_SIDEDRAG	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_v_sidedrag.F	107	MOM_V_SIDEDRAG	hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F	108	MOM_V_SIDEDRAG	hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F	110	MOM_V_SIDEDRAG	hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F	111	MOM_V_SIDEDRAG	hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F	113	MOM_V_SIDEDRAG	vDragTerms(i,j) =
./pkg/mom_common/mom_v_sidedrag.F	114	MOM_V_SIDEDRAG	& -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	115	MOM_V_SIDEDRAG	& recip_drF(k)recip_rAs(i,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	116	MOM_V_SIDEDRAG	& ( hFacZClosedW_dyU( i ,j,bi,bj)*_recip_dxV( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	117	MOM_V_SIDEDRAG	& ( viscAh_Z(i ,j)vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	119	MOM_V_SIDEDRAG	& -viscA4_Z(i ,j)del2v(i,j)sqcosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F	121	MOM_V_SIDEDRAG	& -viscA4_Z(i ,j)del2v(i,j)cosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F	123	MOM_V_SIDEDRAG	& +hFacZClosedE_dyU(i+1,j,bi,bj)_recip_dxV(i+1,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	124	MOM_V_SIDEDRAG	& ( viscAh_Z(i+1,j)vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	126	MOM_V_SIDEDRAG	& -viscA4_Z(i+1,j)del2v(i,j)sqcosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F	128	MOM_V_SIDEDRAG	& -viscA4_Z(i+1,j)del2v(i,j)cosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F	56	MOM_V_SIDEDRAG	INTEGER i, j
./pkg/mom_common/mom_v_sidedrag.F	65	MOM_V_SIDEDRAG	DO j=2-OLy,sNy+OLy-1
./pkg/mom_common/mom_v_sidedrag.F	68	MOM_V_SIDEDRAG	hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F	69	MOM_V_SIDEDRAG	hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F	71	MOM_V_SIDEDRAG	hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F	72	MOM_V_SIDEDRAG	hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F	74	MOM_V_SIDEDRAG	Ahtmp=MIN(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom,
./pkg/mom_common/mom_v_sidedrag.F	76	MOM_V_SIDEDRAG	A4tmp=MIN(viscA4+viscA4Grid(rAs(i,j,bi,bj)*2)/deltaTmom,
./pkg/mom_common/mom_v_sidedrag.F	79	MOM_V_SIDEDRAG	A4tmp=MIN(A4tmp,viscA4GridMax(rAs(i,j,bi,bj)*2)/deltaTmom)
./pkg/mom_common/mom_v_sidedrag.F	81	MOM_V_SIDEDRAG	A4tmp=MAX(A4tmp,viscA4GridMin(rAs(i,j,bi,bj)*2)/deltaTmom)
./pkg/mom_common/mom_v_sidedrag.F	82	MOM_V_SIDEDRAG	vDragTerms(i,j) =
./pkg/mom_common/mom_v_sidedrag.F	83	MOM_V_SIDEDRAG	& -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	84	MOM_V_SIDEDRAG	& recip_drF(k)recip_rAs(i,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	85	MOM_V_SIDEDRAG	& ( hFacZClosedW_dyU( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	86	MOM_V_SIDEDRAG	& *_recip_dxV( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	87	MOM_V_SIDEDRAG	& +hFacZClosedE*_dyU(i+1,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	88	MOM_V_SIDEDRAG	& *_recip_dxV(i+1,j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F	90	MOM_V_SIDEDRAG	& AhtmpvFld(i,j)cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	92	MOM_V_SIDEDRAG	& -viscA4del2v(i,j)sqcosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F	94	MOM_V_SIDEDRAG	& -A4tmpdel2v(i,j)cosFacV(j,bi,bj)
./pkg/mom_common/mom_w_coriolis_nh.F	47	MOM_W_CORIOLIS_NH	INTEGER i,j
./pkg/mom_common/mom_w_coriolis_nh.F	53	MOM_W_CORIOLIS_NH	DO j=1-Oly,sNy+Oly-1
./pkg/mom_common/mom_w_coriolis_nh.F	55	MOM_W_CORIOLIS_NH	wCoriolisTerm(i,j) =
./pkg/mom_common/mom_w_coriolis_nh.F	56	MOM_W_CORIOLIS_NH	& -gravitySignfCoriCos(i,j,bi,bj)
./pkg/mom_common/mom_w_coriolis_nh.F	57	MOM_W_CORIOLIS_NH	& ( angleCosC(i,j,bi,bj)*(
./pkg/mom_common/mom_w_coriolis_nh.F	58	MOM_W_CORIOLIS_NH	& (uFld(i,j,k-1,bi,bj)+uFld(i+1,j,k-1,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F	59	MOM_W_CORIOLIS_NH	& + (uFld(i,j, k ,bi,bj)+uFld(i+1,j, k ,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F	61	MOM_W_CORIOLIS_NH	& -angleSinC(i,j,bi,bj)*(
./pkg/mom_common/mom_w_coriolis_nh.F	62	MOM_W_CORIOLIS_NH	& (vFld(i,j,k-1,bi,bj)+vFld(i,j+1,k-1,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F	63	MOM_W_CORIOLIS_NH	& + (vFld(i,j, k ,bi,bj)+vFld(i,j+1, k ,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F	69	MOM_W_CORIOLIS_NH	DO j=1-Oly,sNy+Oly-1
./pkg/mom_common/mom_w_coriolis_nh.F	71	MOM_W_CORIOLIS_NH	wCoriolisTerm(i,j) = 0. _d 0
./pkg/mom_common/mom_w_metric_nh.F	47	MOM_W_METRIC_NH	INTEGER i,j
./pkg/mom_common/mom_w_metric_nh.F	51	MOM_W_METRIC_NH	DO j=1-Olx,sNy+Oly-1
./pkg/mom_common/mom_w_metric_nh.F	53	MOM_W_METRIC_NH	wMetricTerms(i,j) = -gravitySign*wUnit2rVel(k)
./pkg/mom_common/mom_w_metric_nh.F	55	MOM_W_METRIC_NH	& ( (uFld( i ,j,k-1,bi,bj)*uFld( i ,j,k-1,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F	56	MOM_W_METRIC_NH	& +uFld(i+1,j,k-1,bi,bj)*uFld(i+1,j,k-1,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F	57	MOM_W_METRIC_NH	& + (vFld(i, j ,k-1,bi,bj)*vFld(i, j ,k-1,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F	58	MOM_W_METRIC_NH	& +vFld(i,j+1,k-1,bi,bj)*vFld(i,j+1,k-1,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F	60	MOM_W_METRIC_NH	& + ( (uFld( i ,j, k ,bi,bj)*uFld( i ,j, k ,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F	61	MOM_W_METRIC_NH	& +uFld(i+1,j, k ,bi,bj)*uFld(i+1,j, k ,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F	62	MOM_W_METRIC_NH	& + (vFld(i, j , k ,bi,bj)*vFld(i, j , k ,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F	63	MOM_W_METRIC_NH	& +vFld(i,j+1, k ,bi,bj)*vFld(i,j+1, k ,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F	68	MOM_W_METRIC_NH	DO j=1-Olx,sNy+Oly-1
./pkg/mom_common/mom_w_metric_nh.F	70	MOM_W_METRIC_NH	wMetricTerms(i,j) = 0. _d 0
./pkg/mom_common/mom_w_sidedrag.F	102	MOM_W_SIDEDRAG	& +heightStepS_dxG(i,j,bi,bj)_recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	103	MOM_W_SIDEDRAG	& ( viscAh_W(i,j,k,bi,bj)wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	105	MOM_W_SIDEDRAG	& *cosFacV(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	107	MOM_W_SIDEDRAG	& -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F	110	MOM_W_SIDEDRAG	& *sqCosFacV(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	112	MOM_W_SIDEDRAG	& *cosFacV(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	116	MOM_W_SIDEDRAG	& +heightStepN_dxG(i,j+1,bi,bj)_recip_dyC(i,j+1,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	117	MOM_W_SIDEDRAG	& ( viscAh_W(i,j,k,bi,bj)wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	119	MOM_W_SIDEDRAG	& *cosFacV(j+1,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	121	MOM_W_SIDEDRAG	& -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F	124	MOM_W_SIDEDRAG	& *sqCosFacV(j+1,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	126	MOM_W_SIDEDRAG	& *cosFacV(j+1,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	130	MOM_W_SIDEDRAG	& )recip_rThickC(i,j)recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	62	MOM_W_SIDEDRAG	INTEGER i,j
./pkg/mom_common/mom_w_sidedrag.F	70	MOM_W_SIDEDRAG	DO j=2-Oly,sNy+Oly-1
./pkg/mom_common/mom_w_sidedrag.F	74	MOM_W_SIDEDRAG	heightStepW = MAX( 0. _d 0, rThickC(i,j) - rThickC(i-1,j) )
./pkg/mom_common/mom_w_sidedrag.F	75	MOM_W_SIDEDRAG	heightStepE = MAX( 0. _d 0, rThickC(i,j) - rThickC(i+1,j) )
./pkg/mom_common/mom_w_sidedrag.F	76	MOM_W_SIDEDRAG	heightStepS = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j-1) )
./pkg/mom_common/mom_w_sidedrag.F	77	MOM_W_SIDEDRAG	heightStepN = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j+1) )
./pkg/mom_common/mom_w_sidedrag.F	80	MOM_W_SIDEDRAG	gwSideDrag(i,j) =
./pkg/mom_common/mom_w_sidedrag.F	82	MOM_W_SIDEDRAG	& ( heightStepW_dyG( i ,j,bi,bj)*_recip_dxC( i ,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	83	MOM_W_SIDEDRAG	& ( viscAh_W(i,j,k,bi,bj)wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	84	MOM_W_SIDEDRAG	& *cosFacV(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	85	MOM_W_SIDEDRAG	& -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F	87	MOM_W_SIDEDRAG	& *sqCosFacU(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	89	MOM_W_SIDEDRAG	& *cosFacU(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	92	MOM_W_SIDEDRAG	& +heightStepE_dyG(i+1,j,bi,bj)_recip_dxC(i+1,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	93	MOM_W_SIDEDRAG	& ( viscAh_W(i,j,k,bi,bj)wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	94	MOM_W_SIDEDRAG	& *cosFacV(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	95	MOM_W_SIDEDRAG	& -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F	97	MOM_W_SIDEDRAG	& *sqCosFacU(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F	99	MOM_W_SIDEDRAG	& *cosFacU(j,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F	56	MOM_W_SMAG_3D	INTEGER i,j
./pkg/mom_common/mom_w_smag_3d.F	72	MOM_W_SMAG_3D	DO j= jMin,jMax
./pkg/mom_common/mom_w_smag_3d.F	75	MOM_W_SMAG_3D	wDissip(i,j) =
./pkg/mom_common/mom_w_smag_3d.F	76	MOM_W_SMAG_3D	& recip_rA(i,j,bi,bj)*(
./pkg/mom_common/mom_w_smag_3d.F	77	MOM_W_SMAG_3D	& ( viscAh3d_13(i+1, j , k )*str13(i+1, j ,k)
./pkg/mom_common/mom_w_smag_3d.F	79	MOM_W_SMAG_3D	& *dyG(i+1, j ,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F	80	MOM_W_SMAG_3D	& -viscAh3d_13( i , j , k )*str13( i , j ,k)
./pkg/mom_common/mom_w_smag_3d.F	82	MOM_W_SMAG_3D	& *dyG( i , j ,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F	84	MOM_W_SMAG_3D	& +( viscAh3d_23( i ,j+1, k )*str23( i ,j+1,k)
./pkg/mom_common/mom_w_smag_3d.F	86	MOM_W_SMAG_3D	& *dxG( i ,j+1,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F	87	MOM_W_SMAG_3D	& -viscAh3d_23( i , j , k )*str23( i , j ,k)
./pkg/mom_common/mom_w_smag_3d.F	89	MOM_W_SMAG_3D	& *dxG( i , j ,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F	91	MOM_W_SMAG_3D	& + recip_rThickC(i,j)
./pkg/mom_common/mom_w_smag_3d.F	92	MOM_W_SMAG_3D	& ( viscAh3d_00( i , j , k )str33( i , j , k )
./pkg/mom_common/mom_w_smag_3d.F	93	MOM_W_SMAG_3D	& -viscAh3d_00( i , j ,km1)str33( i , j ,km1)maskM1
./model/src/calc_surf_dr.F	103	CALC_SURF_DR	& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F	111	CALC_SURF_DR	& j.GE.1.AND.j.LE.sNy ) THEN
./model/src/calc_surf_dr.F	114	CALC_SURF_DR	& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j))
./model/src/calc_surf_dr.F	116	CALC_SURF_DR	rSurftmp(i,j) = Rmin_surf(i,j,bi,bj)
./model/src/calc_surf_dr.F	121	CALC_SURF_DR	hFac_surfC(i,j,bi,bj) = h0FacC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F	122	CALC_SURF_DR	& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj)
./model/src/calc_surf_dr.F	123	CALC_SURF_DR	& )recip_drF(ks)maskC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F	127	CALC_SURF_DR	& hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_surf_dr.F	131	CALC_SURF_DR	& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F	133	CALC_SURF_DR	& 'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj),
./model/src/calc_surf_dr.F	134	CALC_SURF_DR	& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F	145	CALC_SURF_DR	DO j=1,sNy
./model/src/calc_surf_dr.F	147	CALC_SURF_DR	ks = kSurfW(i,j,bi,bj)
./model/src/calc_surf_dr.F	151	CALC_SURF_DR	hhm = rSurftmp(i-1,j)
./model/src/calc_surf_dr.F	152	CALC_SURF_DR	hhp = rSurftmp(i,j)
./model/src/calc_surf_dr.F	158	CALC_SURF_DR	hFac_surfW(i,j,bi,bj) = h0FacW(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F	160	CALC_SURF_DR	& - MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/calc_surf_dr.F	161	CALC_SURF_DR	& )recip_drF(ks)maskW(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F	166	CALC_SURF_DR	DO j=1,sNy+1
./model/src/calc_surf_dr.F	168	CALC_SURF_DR	ks = kSurfS(i,j,bi,bj)
./model/src/calc_surf_dr.F	172	CALC_SURF_DR	hhm = rSurftmp(i,j-1)
./model/src/calc_surf_dr.F	173	CALC_SURF_DR	hhp = rSurftmp(i,j)
./model/src/calc_surf_dr.F	179	CALC_SURF_DR	hFac_surfS(i,j,bi,bj) = h0FacS(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F	181	CALC_SURF_DR	& - MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/calc_surf_dr.F	182	CALC_SURF_DR	& )recip_drF(ks)maskS(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F	51	CALC_SURF_DR	INTEGER i,j,bi,bj
./model/src/calc_surf_dr.F	70	CALC_SURF_DR	DO j=1-OLy,sNy+OLy
./model/src/calc_surf_dr.F	72	CALC_SURF_DR	hFac_surfNm1C(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/calc_surf_dr.F	73	CALC_SURF_DR	hFac_surfNm1S(i,j,bi,bj) = hFac_surfS(i,j,bi,bj)
./model/src/calc_surf_dr.F	74	CALC_SURF_DR	hFac_surfNm1W(i,j,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/calc_surf_dr.F	81	CALC_SURF_DR	DO j=0,sNy+1
./model/src/calc_surf_dr.F	83	CALC_SURF_DR	rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F	84	CALC_SURF_DR	ks = kSurfC(i,j,bi,bj)
./model/src/calc_surf_dr.F	86	CALC_SURF_DR	IF ( rSurftmp(i,j).LT.Rmin_surf(i,j,bi,bj) ) THEN
./model/src/calc_surf_dr.F	90	CALC_SURF_DR	hFactmp = h0FacC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F	91	CALC_SURF_DR	& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) )*recip_drF(ks)
./model/src/calc_surf_dr.F	95	CALC_SURF_DR	& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F	99	CALC_SURF_DR	& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./pkg/mom_fluxform/mom_calc_rtrans.F	100	MOM_CALC_RTRANS	& 0.5 _d 0( wVel(i-1,j,k,bi,bj)rA(i-1,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	101	MOM_CALC_RTRANS	& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	103	MOM_CALC_RTRANS	rTransV(i,j) =
./pkg/mom_fluxform/mom_calc_rtrans.F	104	MOM_CALC_RTRANS	& 0.5 _d 0( wVel(i,j-1,k,bi,bj)rA(i,j-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	105	MOM_CALC_RTRANS	& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	119	MOM_CALC_RTRANS	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	121	MOM_CALC_RTRANS	dWtransC(i,j,bi,bj) = rStarDhCDt(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	122	MOM_CALC_RTRANS	& *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F	123	MOM_CALC_RTRANS	& *rA(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	126	MOM_CALC_RTRANS	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	128	MOM_CALC_RTRANS	dWtransU(i,j,bi,bj) =
./pkg/mom_fluxform/mom_calc_rtrans.F	129	MOM_CALC_RTRANS	& 0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F	130	MOM_CALC_RTRANS	dWtransV(i,j,bi,bj) =
./pkg/mom_fluxform/mom_calc_rtrans.F	131	MOM_CALC_RTRANS	& 0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F	137	MOM_CALC_RTRANS	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	139	MOM_CALC_RTRANS	dWtransC(i,j,bi,bj) = dWtransC(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	140	MOM_CALC_RTRANS	& - rStarDhCDt(i,j,bi,bj)drF(k-1)h0FacC(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	141	MOM_CALC_RTRANS	& *rA(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	144	MOM_CALC_RTRANS	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	146	MOM_CALC_RTRANS	dWtransU(i,j,bi,bj) = dWtransU(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	147	MOM_CALC_RTRANS	& - rStarDhWDt(i,j,bi,bj)drF(k-1)h0FacW(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	148	MOM_CALC_RTRANS	& *rAw(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	149	MOM_CALC_RTRANS	dWtransV(i,j,bi,bj) = dWtransV(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	150	MOM_CALC_RTRANS	& - rStarDhSDt(i,j,bi,bj)drF(k-1)h0FacS(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	151	MOM_CALC_RTRANS	& *rAs(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	155	MOM_CALC_RTRANS	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	157	MOM_CALC_RTRANS	rTransU(i,j) = rTransU(i,j)-dWtransU(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	158	MOM_CALC_RTRANS	& + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_calc_rtrans.F	159	MOM_CALC_RTRANS	rTransV(i,j) = rTransV(i,j)-dWtransV(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	160	MOM_CALC_RTRANS	& + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_calc_rtrans.F	67	MOM_CALC_RTRANS	INTEGER i,j
./pkg/mom_fluxform/mom_calc_rtrans.F	75	MOM_CALC_RTRANS	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	77	MOM_CALC_RTRANS	rTransU(i,j) = mass2rUnit*
./pkg/mom_fluxform/mom_calc_rtrans.F	78	MOM_CALC_RTRANS	& 0.5 _d 0( PmEpR( i ,j,bi,bj)rA( i ,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	79	MOM_CALC_RTRANS	& +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) )
./pkg/mom_fluxform/mom_calc_rtrans.F	80	MOM_CALC_RTRANS	rTransV(i,j) = mass2rUnit*
./pkg/mom_fluxform/mom_calc_rtrans.F	81	MOM_CALC_RTRANS	& 0.5 _d 0( PmEpR(i, j ,bi,bj)rA(i, j ,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F	82	MOM_CALC_RTRANS	& +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) )
./pkg/mom_fluxform/mom_calc_rtrans.F	89	MOM_CALC_RTRANS	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	91	MOM_CALC_RTRANS	rTransU(i,j) = 0.
./pkg/mom_fluxform/mom_calc_rtrans.F	92	MOM_CALC_RTRANS	rTransV(i,j) = 0.
./pkg/mom_fluxform/mom_calc_rtrans.F	97	MOM_CALC_RTRANS	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_calc_rtrans.F	99	MOM_CALC_RTRANS	rTransU(i,j) =
./pkg/mom_fluxform/mom_fluxform.F	112	MOM_FLUXFORM	INTEGER i,j
./pkg/mom_fluxform/mom_fluxform.F	198	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	200	MOM_FLUXFORM	vF(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	201	MOM_FLUXFORM	v4F(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	202	MOM_FLUXFORM	cF(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	203	MOM_FLUXFORM	mT(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	204	MOM_FLUXFORM	fZon(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	205	MOM_FLUXFORM	fMer(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	206	MOM_FLUXFORM	fVrUp(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F	207	MOM_FLUXFORM	fVrDw(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F	208	MOM_FLUXFORM	rTransU(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F	209	MOM_FLUXFORM	rTransV(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F	211	MOM_FLUXFORM	hDiv(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	212	MOM_FLUXFORM	vort3(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	213	MOM_FLUXFORM	strain(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	214	MOM_FLUXFORM	tension(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F	215	MOM_FLUXFORM	guDiss(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	216	MOM_FLUXFORM	gvDiss(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F	268	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	270	MOM_FLUXFORM	xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	271	MOM_FLUXFORM	& drF(k)_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	272	MOM_FLUXFORM	yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	273	MOM_FLUXFORM	& drF(k)_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	274	MOM_FLUXFORM	h0FacZ(i,j) = hFacZ(i,j)
./pkg/mom_fluxform/mom_fluxform.F	280	MOM_FLUXFORM	DO j=2-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	282	MOM_FLUXFORM	h0FacZ(i,j) = MIN(
./pkg/mom_fluxform/mom_fluxform.F	283	MOM_FLUXFORM	& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ),
./pkg/mom_fluxform/mom_fluxform.F	284	MOM_FLUXFORM	& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) )
./pkg/mom_fluxform/mom_fluxform.F	291	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	293	MOM_FLUXFORM	uFld(i,j) = uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	294	MOM_FLUXFORM	vFld(i,j) = vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	300	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	302	MOM_FLUXFORM	uTrans(i,j) = uFld(i,j)xA(i,j)rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	303	MOM_FLUXFORM	vTrans(i,j) = vFld(i,j)yA(i,j)rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	313	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	315	MOM_FLUXFORM	IF ( hFacZ(i,j).EQ.0. ) THEN
./pkg/mom_fluxform/mom_fluxform.F	316	MOM_FLUXFORM	vort3(i,j) = sideMaskFac*vort3(i,j)
./pkg/mom_fluxform/mom_fluxform.F	317	MOM_FLUXFORM	strain(i,j) = sideMaskFac*strain(i,j)
./pkg/mom_fluxform/mom_fluxform.F	388	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	390	MOM_FLUXFORM	viscAh_D(i,j) = viscAhD
./pkg/mom_fluxform/mom_fluxform.F	391	MOM_FLUXFORM	viscAh_Z(i,j) = viscAhZ
./pkg/mom_fluxform/mom_fluxform.F	392	MOM_FLUXFORM	viscA4_D(i,j) = viscA4D
./pkg/mom_fluxform/mom_fluxform.F	393	MOM_FLUXFORM	viscA4_Z(i,j) = viscA4Z
./pkg/mom_fluxform/mom_fluxform.F	436	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	438	MOM_FLUXFORM	gU(i,j,k,bi,bj) =
./pkg/mom_fluxform/mom_fluxform.F	440	MOM_FLUXFORM	& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F	441	MOM_FLUXFORM	& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F	443	MOM_FLUXFORM	& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F	444	MOM_FLUXFORM	& recip_rAw(i,j,bi,bj)recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	446	MOM_FLUXFORM	& ( ( fZon(i,j ) - fZon(i-1,j) )uDudxFac
./pkg/mom_fluxform/mom_fluxform.F	447	MOM_FLUXFORM	& +( fMer(i,j+1) - fMer(i, j) )*vDudyFac
./pkg/mom_fluxform/mom_fluxform.F	448	MOM_FLUXFORM	& +( fVerUkp(i,j) - fVerUkm(i,j) )rkSignrVelDudrFac
./pkg/mom_fluxform/mom_fluxform.F	465	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	467	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	468	MOM_FLUXFORM	& - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf
./pkg/mom_fluxform/mom_fluxform.F	469	MOM_FLUXFORM	& *uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	474	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	476	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	477	MOM_FLUXFORM	& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	486	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	488	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	489	MOM_FLUXFORM	& + uVel(i,j,k,bi,bj)mass2rUnit0.5 _d 0
./pkg/mom_fluxform/mom_fluxform.F	490	MOM_FLUXFORM	& *( addMass(i-1,j,k,bi,bj) + addMass(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_fluxform.F	491	MOM_FLUXFORM	& _recip_hFacW(i,j,k,bi,bj)recip_drF(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	492	MOM_FLUXFORM	& * recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F	500	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	502	MOM_FLUXFORM	gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F	533	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	535	MOM_FLUXFORM	guDiss(i,j) =
./pkg/mom_fluxform/mom_fluxform.F	537	MOM_FLUXFORM	& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F	538	MOM_FLUXFORM	& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F	540	MOM_FLUXFORM	& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F	541	MOM_FLUXFORM	& recip_rAw(i,j,bi,bj)recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F	543	MOM_FLUXFORM	& ( ( fZon(i,j ) - fZon(i-1,j) )AhDudxFac
./pkg/mom_fluxform/mom_fluxform.F	544	MOM_FLUXFORM	& +( fMer(i,j+1) - fMer(i, j) )*AhDudyFac
./pkg/mom_fluxform/mom_fluxform.F	545	MOM_FLUXFORM	& +( fVrDw(i,j) - fVrUp(i,j) )rkSignArDudrFac
./pkg/mom_fluxform/mom_fluxform.F	569	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	571	MOM_FLUXFORM	gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F	578	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	580	MOM_FLUXFORM	gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F	588	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	590	MOM_FLUXFORM	gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F	609	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	611	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F	618	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	620	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F	627	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	629	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F	663	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	665	MOM_FLUXFORM	gV(i,j,k,bi,bj) =
./pkg/mom_fluxform/mom_fluxform.F	667	MOM_FLUXFORM	& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F	668	MOM_FLUXFORM	& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F	670	MOM_FLUXFORM	& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F	671	MOM_FLUXFORM	& recip_rAs(i,j,bi,bj)recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	673	MOM_FLUXFORM	& ( ( fZon(i+1,j) - fZon(i,j ) )uDvdxFac
./pkg/mom_fluxform/mom_fluxform.F	674	MOM_FLUXFORM	& +( fMer(i, j) - fMer(i,j-1) )*vDvdyFac
./pkg/mom_fluxform/mom_fluxform.F	675	MOM_FLUXFORM	& +( fVerVkp(i,j) - fVerVkm(i,j) )rkSignrVelDvdrFac
./pkg/mom_fluxform/mom_fluxform.F	692	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	694	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	695	MOM_FLUXFORM	& - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf
./pkg/mom_fluxform/mom_fluxform.F	696	MOM_FLUXFORM	& *vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	701	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	703	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	704	MOM_FLUXFORM	& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	713	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	715	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	716	MOM_FLUXFORM	& + vVel(i,j,k,bi,bj)mass2rUnit0.5 _d 0
./pkg/mom_fluxform/mom_fluxform.F	717	MOM_FLUXFORM	& *( addMass(i,j-1,k,bi,bj) + addMass(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_fluxform.F	718	MOM_FLUXFORM	& _recip_hFacS(i,j,k,bi,bj)recip_drF(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F	719	MOM_FLUXFORM	& * recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F	727	MOM_FLUXFORM	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F	729	MOM_FLUXFORM	gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F	759	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	761	MOM_FLUXFORM	gvDiss(i,j) =
./pkg/mom_fluxform/mom_fluxform.F	763	MOM_FLUXFORM	& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F	764	MOM_FLUXFORM	& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F	766	MOM_FLUXFORM	& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F	767	MOM_FLUXFORM	& recip_rAs(i,j,bi,bj)recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F	769	MOM_FLUXFORM	& ( ( fZon(i+1,j) - fZon(i,j ) )AhDvdxFac
./pkg/mom_fluxform/mom_fluxform.F	770	MOM_FLUXFORM	& +( fMer(i, j) - fMer(i,j-1) )*AhDvdyFac
./pkg/mom_fluxform/mom_fluxform.F	771	MOM_FLUXFORM	& +( fVrDw(i,j) - fVrUp(i,j) )rkSignArDvdrFac
./pkg/mom_fluxform/mom_fluxform.F	795	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	797	MOM_FLUXFORM	gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F	804	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	806	MOM_FLUXFORM	gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F	814	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	816	MOM_FLUXFORM	gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F	835	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	837	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F	844	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	846	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F	853	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	855	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F	865	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	867	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F	875	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	877	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F	889	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	891	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F	897	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	899	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F	906	MOM_FLUXFORM	DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F	908	MOM_FLUXFORM	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	909	MOM_FLUXFORM	guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	910	MOM_FLUXFORM	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F	911	MOM_FLUXFORM	gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_uu.F	46	MOM_U_ADV_UU	INTEGER i,j
./pkg/mom_fluxform/mom_u_adv_uu.F	49	MOM_U_ADV_UU	DO j=1-Oly,sNy+Oly-1
./pkg/mom_fluxform/mom_u_adv_uu.F	51	MOM_U_ADV_UU	AdvectFluxUU(i,j) =
./pkg/mom_fluxform/mom_u_adv_uu.F	52	MOM_U_ADV_UU	& 0.25*( uTrans(i,j) + uTrans(i+1,j) )
./pkg/mom_fluxform/mom_u_adv_uu.F	54	MOM_U_ADV_UU	& ( uFld(i,j)_maskW(i+1,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_uu.F	55	MOM_U_ADV_UU	& + uFld(i+1,j)*_maskW(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_uu.F	57	MOM_U_ADV_UU	& *( uFld(i,j) + uFld(i+1,j) )
./pkg/mom_fluxform/mom_u_adv_vu.F	46	MOM_U_ADV_VU	INTEGER i,j
./pkg/mom_fluxform/mom_u_adv_vu.F	49	MOM_U_ADV_VU	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_u_adv_vu.F	51	MOM_U_ADV_VU	AdvectFluxVU(i,j) =
./pkg/mom_fluxform/mom_u_adv_vu.F	52	MOM_U_ADV_VU	& 0.25*( vTrans(i,j) + vTrans(i-1,j) )
./pkg/mom_fluxform/mom_u_adv_vu.F	54	MOM_U_ADV_VU	& ( uFld(i,j)_maskW(i,j-1,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_vu.F	55	MOM_U_ADV_VU	& + uFld(i,j-1)*_maskW(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_vu.F	57	MOM_U_ADV_VU	& *( uFld(i,j) + uFld(i,j-1) )
./pkg/mom_fluxform/mom_u_adv_vu.F	60	MOM_U_ADV_VU	& *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_vu.F	61	MOM_U_ADV_VU	& *_maskW(i,j-1,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F	100	MOM_U_ADV_WU	& (maskC( i ,j,k,bi,bj)-maskC( i ,j,k-1,bi,bj))
./pkg/mom_fluxform/mom_u_adv_wu.F	101	MOM_U_ADV_WU	& +wFld(i-1,j,k,bi,bj)rA(i-1,j,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F	102	MOM_U_ADV_WU	& (maskC(i-1,j,k,bi,bj)-maskC(i-1,j,k-1,bi,bj))
./pkg/mom_fluxform/mom_u_adv_wu.F	104	MOM_U_ADV_WU	& *uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F	48	MOM_U_ADV_WU	INTEGER i,j
./pkg/mom_fluxform/mom_u_adv_wu.F	53	MOM_U_ADV_WU	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_u_adv_wu.F	55	MOM_U_ADV_WU	advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F	62	MOM_U_ADV_WU	DO j=1-Oly,sNy+Oly
./pkg/mom_fluxform/mom_u_adv_wu.F	64	MOM_U_ADV_WU	advectiveFluxWU(i,j) = 0.
./pkg/mom_fluxform/mom_u_adv_wu.F	71	MOM_U_ADV_WU	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_u_adv_wu.F	73	MOM_U_ADV_WU	advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F	80	MOM_U_ADV_WU	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_u_adv_wu.F	82	MOM_U_ADV_WU	advectiveFluxWU(i,j) = rTrans(i,j)*
./pkg/mom_fluxform/mom_u_adv_wu.F	84	MOM_U_ADV_WU	& 0.5 _d 0( uFld(i,j,k,bi,bj)_maskW(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F	85	MOM_U_ADV_WU	& +uFld(i,j,k-1,bi,bj)*_maskW(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_wu.F	87	MOM_U_ADV_WU	& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_wu.F	95	MOM_U_ADV_WU	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_u_adv_wu.F	97	MOM_U_ADV_WU	advectiveFluxWU(i,j) = advectiveFluxWU(i,j)
./pkg/mom_fluxform/mom_u_adv_wu.F	99	MOM_U_ADV_WU	& wFld(i, j ,k,bi,bj)rA(i, j ,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F	44	MOM_U_CORIOLIS	INTEGER i,j
./pkg/mom_fluxform/mom_u_coriolis.F	51	MOM_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_fluxform/mom_u_coriolis.F	53	MOM_U_CORIOLIS	uCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_u_coriolis.F	54	MOM_U_CORIOLIS	& 0.5*( _fCori( i ,j,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F	55	MOM_U_CORIOLIS	& 0.5( vFld( i ,j)+vFld( i ,j+1) )
./pkg/mom_fluxform/mom_u_coriolis.F	56	MOM_U_CORIOLIS	& + _fCori(i-1,j,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F	57	MOM_U_CORIOLIS	& 0.5( vFld(i-1,j)+vFld(i-1,j+1) ) )
./pkg/mom_fluxform/mom_u_coriolis.F	62	MOM_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_fluxform/mom_u_coriolis.F	64	MOM_U_CORIOLIS	uCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_u_coriolis.F	65	MOM_U_CORIOLIS	& 0.5*( _fCori( i ,j,bi,bj) +
./pkg/mom_fluxform/mom_u_coriolis.F	66	MOM_U_CORIOLIS	& _fCori(i-1,j,bi,bj) )
./pkg/mom_fluxform/mom_u_coriolis.F	68	MOM_U_CORIOLIS	& vFld( i ,j)+vFld( i ,j+1)
./pkg/mom_fluxform/mom_u_coriolis.F	69	MOM_U_CORIOLIS	& +vFld(i-1,j)+vFld(i-1,j+1)
./pkg/mom_fluxform/mom_u_coriolis.F	79	MOM_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_fluxform/mom_u_coriolis.F	81	MOM_U_CORIOLIS	uCoriolisTerm(i,j) = uCoriolisTerm(i,j)
./pkg/mom_fluxform/mom_u_coriolis.F	83	MOM_U_CORIOLIS	& maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F	84	MOM_U_CORIOLIS	& +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) )
./pkg/mom_fluxform/mom_u_del2u.F	102	MOM_U_DEL2U	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_fluxform/mom_u_del2u.F	105	MOM_U_DEL2U	hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F	106	MOM_U_DEL2U	hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j+1)
./pkg/mom_fluxform/mom_u_del2u.F	108	MOM_U_DEL2U	hFacZClosedS = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F	109	MOM_U_DEL2U	hFacZClosedN = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j+1)
./pkg/mom_fluxform/mom_u_del2u.F	111	MOM_U_DEL2U	del2u(i,j) = del2u(i,j)
./pkg/mom_fluxform/mom_u_del2u.F	112	MOM_U_DEL2U	& -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	113	MOM_U_DEL2U	& recip_rAw(i,j,bi,bj)recip_deepFac2C(k)
./pkg/mom_fluxform/mom_u_del2u.F	114	MOM_U_DEL2U	& ( hFacZClosedSdxV(i, j ,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	115	MOM_U_DEL2U	& *_recip_dyU(i, j ,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	116	MOM_U_DEL2U	& +hFacZClosedN*dxV(i,j+1,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	117	MOM_U_DEL2U	& *_recip_dyU(i,j+1,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	118	MOM_U_DEL2U	& )uFld(i,j)sideDragFactor
./pkg/mom_fluxform/mom_u_del2u.F	119	MOM_U_DEL2U	& *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	53	MOM_U_DEL2U	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_fluxform/mom_u_del2u.F	55	MOM_U_DEL2U	fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	56	MOM_U_DEL2U	& *_dyF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	57	MOM_U_DEL2U	& *_recip_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	58	MOM_U_DEL2U	& *(uFld(i+1,j)-uFld(i,j))
./pkg/mom_fluxform/mom_u_del2u.F	63	MOM_U_DEL2U	& *maskInC(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	71	MOM_U_DEL2U	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_u_del2u.F	73	MOM_U_DEL2U	fMer(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F	74	MOM_U_DEL2U	& *_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	75	MOM_U_DEL2U	& *_recip_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	76	MOM_U_DEL2U	& *(uFld(i,j)-uFld(i,j-1))
./pkg/mom_fluxform/mom_u_del2u.F	86	MOM_U_DEL2U	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_fluxform/mom_u_del2u.F	88	MOM_U_DEL2U	del2u(i,j) =
./pkg/mom_fluxform/mom_u_del2u.F	89	MOM_U_DEL2U	& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	90	MOM_U_DEL2U	& recip_rAw(i,j,bi,bj)recip_deepFac2C(k)
./pkg/mom_fluxform/mom_u_del2u.F	91	MOM_U_DEL2U	& *( fZon(i,j ) - fZon(i-1,j)
./pkg/mom_fluxform/mom_u_del2u.F	92	MOM_U_DEL2U	& +fMer(i,j+1) - fMer(i ,j)
./pkg/mom_fluxform/mom_u_del2u.F	93	MOM_U_DEL2U	& )*_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F	95	MOM_U_DEL2U	& *maskInW(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_metric_cylinder.F	46	MOM_U_METRIC_CYLINDER	INTEGER i,j
./pkg/mom_fluxform/mom_u_metric_cylinder.F	50	MOM_U_METRIC_CYLINDER	DO j=1-OLy,sNy+OLy-1
./pkg/mom_fluxform/mom_u_metric_cylinder.F	52	MOM_U_METRIC_CYLINDER	radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_u_metric_cylinder.F	56	MOM_U_METRIC_CYLINDER	uMetricTerms(i,j) =
./pkg/mom_fluxform/mom_u_metric_cylinder.F	57	MOM_U_METRIC_CYLINDER	& uFld(i,j)
./pkg/mom_fluxform/mom_u_metric_cylinder.F	58	MOM_U_METRIC_CYLINDER	& 0.25(vFld(i,j) + vFld(i-1,j) +
./pkg/mom_fluxform/mom_u_metric_cylinder.F	59	MOM_U_METRIC_CYLINDER	& vFld(i,j+1)+vFld(i-1,j+1))/radius
./pkg/mom_fluxform/mom_u_metric_cylinder.F	61	MOM_U_METRIC_CYLINDER	uMetricTerms(i,j) = 0.
./model/src/calc_viscosity.F	47	CALC_VISCOSITY	INTEGER i,j,k
./model/src/calc_viscosity.F	52	CALC_VISCOSITY	DO j = 1-OLy, sNy+OLy
./model/src/calc_viscosity.F	54	CALC_VISCOSITY	KappaRU(i,j,k) = viscArNr(k)
./model/src/calc_viscosity.F	55	CALC_VISCOSITY	KappaRV(i,j,k) = viscArNr(k)
./pkg/mom_fluxform/mom_u_metric_sphere.F	46	MOM_U_METRIC_SPHERE	INTEGER i,j
./pkg/mom_fluxform/mom_u_metric_sphere.F	49	MOM_U_METRIC_SPHERE	DO j=1-Olx,sNy+Oly-1
./pkg/mom_fluxform/mom_u_metric_sphere.F	51	MOM_U_METRIC_SPHERE	uMetricTerms(i,j) =
./pkg/mom_fluxform/mom_u_metric_sphere.F	52	MOM_U_METRIC_SPHERE	& uFld(i,j)recip_rSphererecip_deepFacC(k)
./pkg/mom_fluxform/mom_u_metric_sphere.F	53	MOM_U_METRIC_SPHERE	& 0.25( vFld(i,j )+vFld(i-1,j )
./pkg/mom_fluxform/mom_u_metric_sphere.F	54	MOM_U_METRIC_SPHERE	& +vFld(i,j+1)+vFld(i-1,j+1)
./pkg/mom_fluxform/mom_u_metric_sphere.F	55	MOM_U_METRIC_SPHERE	& )*_tanPhiAtU(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F	54	MOM_U_XVISCFLUX	DO j=1-Oly,sNy+Oly-1
./pkg/mom_fluxform/mom_u_xviscflux.F	56	MOM_U_XVISCFLUX	xViscFluxU(i,j) =
./pkg/mom_fluxform/mom_u_xviscflux.F	57	MOM_U_XVISCFLUX	& _dyF(i,j,bi,bj)drF(k)_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F	59	MOM_U_XVISCFLUX	& -viscAh_D(i,j)*( uFld(i+1,j)-uFld(i,j) )
./pkg/mom_fluxform/mom_u_xviscflux.F	61	MOM_U_XVISCFLUX	& +viscA4_D(i,j)*(del2u(i+1,j)-del2u(i,j))
./pkg/mom_fluxform/mom_u_xviscflux.F	67	MOM_U_XVISCFLUX	& )*_recip_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_yviscflux.F	55	MOM_U_YVISCFLUX	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_u_yviscflux.F	57	MOM_U_YVISCFLUX	yViscFluxU(i,j) =
./pkg/mom_fluxform/mom_u_yviscflux.F	58	MOM_U_YVISCFLUX	& _dxV(i,j,bi,bj)drF(k)hFacZ(i,j)
./pkg/mom_fluxform/mom_u_yviscflux.F	60	MOM_U_YVISCFLUX	& -viscAh_Z(i,j)*( uFld(i,j)-uFld(i,j-1) )
./pkg/mom_fluxform/mom_u_yviscflux.F	64	MOM_U_YVISCFLUX	& +viscA4_Z(i,j)*(del2u(i,j)-del2u(i,j-1))
./pkg/mom_fluxform/mom_u_yviscflux.F	72	MOM_U_YVISCFLUX	& )*_recip_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F	100	MOM_UV_BOUNDARY	& * drF(k)hFacS(i,j,k,bi,bj)rhoFacC(k)
./pkg/mom_fluxform/mom_uv_boundary.F	103	MOM_UV_BOUNDARY	DO j=1-OLy,sNy+OLy-1
./pkg/mom_fluxform/mom_uv_boundary.F	105	MOM_UV_BOUNDARY	aBndU(i,j) = uTrans(i+1,j)-uTrans(i,j)
./pkg/mom_fluxform/mom_uv_boundary.F	106	MOM_UV_BOUNDARY	aBndV(i,j) = vTrans(i,j+1)-vTrans(i,j)
./pkg/mom_fluxform/mom_uv_boundary.F	107	MOM_UV_BOUNDARY	aBndW(i,j) = ABS(aBndU(i,j)+aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	108	MOM_UV_BOUNDARY	aBndU(i,j) = ABS(aBndU(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	109	MOM_UV_BOUNDARY	aBndV(i,j) = ABS(aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	113	MOM_UV_BOUNDARY	DO j=1-OLy,sNy+OLy-1
./pkg/mom_fluxform/mom_uv_boundary.F	115	MOM_UV_BOUNDARY	tmpVar = aBndU(i,j)+aBndV(i,j)+aBndW(i,j)
./pkg/mom_fluxform/mom_uv_boundary.F	118	MOM_UV_BOUNDARY	aBndU(i,j) = aBndU(i,j)*tmpVar
./pkg/mom_fluxform/mom_uv_boundary.F	119	MOM_UV_BOUNDARY	aBndV(i,j) = aBndV(i,j)*tmpVar
./pkg/mom_fluxform/mom_uv_boundary.F	120	MOM_UV_BOUNDARY	aBndW(i,j) = aBndW(i,j)*tmpVar
./pkg/mom_fluxform/mom_uv_boundary.F	127	MOM_UV_BOUNDARY	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_fluxform/mom_uv_boundary.F	129	MOM_UV_BOUNDARY	IF (maskW(i,j,k,bi,bj).EQ.0.) THEN
./pkg/mom_fluxform/mom_uv_boundary.F	133	MOM_UV_BOUNDARY	uBnd(i,j) = (
./pkg/mom_fluxform/mom_uv_boundary.F	134	MOM_UV_BOUNDARY	& (aBndU(i-1,j)+aBndU(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	135	MOM_UV_BOUNDARY	& *(uFld(i-1,j,k,bi,bj)+uFld(i+1,j,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F	136	MOM_UV_BOUNDARY	& +(aBndV(i-1,j)+aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	137	MOM_UV_BOUNDARY	& *(uFld(i,j-1,k,bi,bj)+uFld(i,j+1,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F	138	MOM_UV_BOUNDARY	& +(aBndW(i-1,j)+aBndW(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	139	MOM_UV_BOUNDARY	& (uFld(i,j,km1,bi,bj)maskM1
./pkg/mom_fluxform/mom_uv_boundary.F	140	MOM_UV_BOUNDARY	& +uFld(i,j,kp1,bi,bj)*maskP1)
./pkg/mom_fluxform/mom_uv_boundary.F	143	MOM_UV_BOUNDARY	IF (maskS(i,j,k,bi,bj).EQ.0.) THEN
./pkg/mom_fluxform/mom_uv_boundary.F	147	MOM_UV_BOUNDARY	vBnd(i,j) = (
./pkg/mom_fluxform/mom_uv_boundary.F	148	MOM_UV_BOUNDARY	& (aBndU(i,j-1)+aBndU(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	149	MOM_UV_BOUNDARY	& *(vFld(i-1,j,k,bi,bj)+vFld(i+1,j,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F	150	MOM_UV_BOUNDARY	& +(aBndV(i,j-1)+aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	151	MOM_UV_BOUNDARY	& *(vFld(i,j-1,k,bi,bj)+vFld(i,j+1,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F	152	MOM_UV_BOUNDARY	& +(aBndW(i,j-1)+aBndW(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F	153	MOM_UV_BOUNDARY	& (vFld(i,j,km1,bi,bj)maskM1
./pkg/mom_fluxform/mom_uv_boundary.F	154	MOM_UV_BOUNDARY	& +vFld(i,j,kp1,bi,bj)*maskP1)
./pkg/mom_fluxform/mom_uv_boundary.F	54	MOM_UV_BOUNDARY	INTEGER i,j
./pkg/mom_fluxform/mom_uv_boundary.F	68	MOM_UV_BOUNDARY	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_uv_boundary.F	70	MOM_UV_BOUNDARY	uBnd(i,j) = uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F	71	MOM_UV_BOUNDARY	vBnd(i,j) = vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F	84	MOM_UV_BOUNDARY	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_uv_boundary.F	86	MOM_UV_BOUNDARY	aBndU(i,j) = 0.
./pkg/mom_fluxform/mom_uv_boundary.F	87	MOM_UV_BOUNDARY	aBndV(i,j) = 0.
./pkg/mom_fluxform/mom_uv_boundary.F	88	MOM_UV_BOUNDARY	aBndW(i,j) = 0.
./pkg/mom_fluxform/mom_uv_boundary.F	93	MOM_UV_BOUNDARY	DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_uv_boundary.F	95	MOM_UV_BOUNDARY	uTrans(i,j) = uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F	96	MOM_UV_BOUNDARY	& * dyG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_uv_boundary.F	97	MOM_UV_BOUNDARY	& * drF(k)hFacW(i,j,k,bi,bj)rhoFacC(k)
./pkg/mom_fluxform/mom_uv_boundary.F	98	MOM_UV_BOUNDARY	vTrans(i,j) = vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F	99	MOM_UV_BOUNDARY	& * dxG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_v_adv_uv.F	45	MOM_V_ADV_UV	INTEGER i,j
./pkg/mom_fluxform/mom_v_adv_uv.F	48	MOM_V_ADV_UV	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_adv_uv.F	50	MOM_V_ADV_UV	AdvectFluxUV(i,j) =
./pkg/mom_fluxform/mom_v_adv_uv.F	51	MOM_V_ADV_UV	& 0.25*( uTrans(i,j) + uTrans(i,j-1) )
./pkg/mom_fluxform/mom_v_adv_uv.F	53	MOM_V_ADV_UV	& ( vFld(i,j)_maskS(i-1,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_uv.F	54	MOM_V_ADV_UV	& + vFld(i-1,j)*_maskS(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_uv.F	56	MOM_V_ADV_UV	& *( vFld(i,j) + vFld(i-1,j) )
./pkg/mom_fluxform/mom_v_adv_uv.F	59	MOM_V_ADV_UV	& *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_uv.F	60	MOM_V_ADV_UV	& *_maskS(i-1,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_vv.F	46	MOM_V_ADV_VV	INTEGER i,j
./pkg/mom_fluxform/mom_v_adv_vv.F	49	MOM_V_ADV_VV	DO j=1-Oly,sNy+Oly-1
./pkg/mom_fluxform/mom_v_adv_vv.F	51	MOM_V_ADV_VV	AdvectFluxVV(i,j) =
./pkg/mom_fluxform/mom_v_adv_vv.F	52	MOM_V_ADV_VV	& 0.25*( vTrans(i,j) + vTrans(i,j+1) )
./pkg/mom_fluxform/mom_v_adv_vv.F	54	MOM_V_ADV_VV	& ( vFld(i,j)_maskS(i,j+1,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_vv.F	55	MOM_V_ADV_VV	& + vFld(i,j+1)*_maskS(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_vv.F	57	MOM_V_ADV_VV	& *( vFld(i,j) + vFld(i,j+1) )
./pkg/mom_fluxform/mom_v_adv_wv.F	100	MOM_V_ADV_WV	& wFld(i, j ,k,bi,bj)rA(i, j ,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F	101	MOM_V_ADV_WV	& (maskC(i, j ,k,bi,bj)-maskC(i, j ,k-1,bi,bj))
./pkg/mom_fluxform/mom_v_adv_wv.F	102	MOM_V_ADV_WV	& +wFld(i,j-1,k,bi,bj)rA(i,j-1,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F	103	MOM_V_ADV_WV	& (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj))
./pkg/mom_fluxform/mom_v_adv_wv.F	105	MOM_V_ADV_WV	& *vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F	49	MOM_V_ADV_WV	INTEGER i,j
./pkg/mom_fluxform/mom_v_adv_wv.F	54	MOM_V_ADV_WV	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_adv_wv.F	56	MOM_V_ADV_WV	advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F	63	MOM_V_ADV_WV	DO j=1-Oly,sNy+Oly
./pkg/mom_fluxform/mom_v_adv_wv.F	65	MOM_V_ADV_WV	advectiveFluxWV(i,j) = 0.
./pkg/mom_fluxform/mom_v_adv_wv.F	72	MOM_V_ADV_WV	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_adv_wv.F	74	MOM_V_ADV_WV	advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F	81	MOM_V_ADV_WV	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_adv_wv.F	83	MOM_V_ADV_WV	advectiveFluxWV(i,j) = rTrans(i,j)*
./pkg/mom_fluxform/mom_v_adv_wv.F	85	MOM_V_ADV_WV	& 0.5 _d 0( vFld(i,j,k,bi,bj)_maskS(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F	86	MOM_V_ADV_WV	& +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_wv.F	88	MOM_V_ADV_WV	& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_wv.F	96	MOM_V_ADV_WV	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_adv_wv.F	98	MOM_V_ADV_WV	advectiveFluxWV(i,j) = advectiveFluxWV(i,j)
./pkg/mom_fluxform/mom_v_coriolis.F	44	MOM_V_CORIOLIS	INTEGER i,j
./pkg/mom_fluxform/mom_v_coriolis.F	51	MOM_V_CORIOLIS	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_coriolis.F	53	MOM_V_CORIOLIS	vCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_v_coriolis.F	54	MOM_V_CORIOLIS	& -0.5*( _fCori(i, j ,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F	55	MOM_V_CORIOLIS	& 0.5( uFld( i , j )+uFld(i+1, j ) )
./pkg/mom_fluxform/mom_v_coriolis.F	56	MOM_V_CORIOLIS	& + _fCori(i,j-1,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F	57	MOM_V_CORIOLIS	& 0.5( uFld( i ,j-1)+uFld(i+1,j-1) ) )
./pkg/mom_fluxform/mom_v_coriolis.F	62	MOM_V_CORIOLIS	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_coriolis.F	64	MOM_V_CORIOLIS	vCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_v_coriolis.F	65	MOM_V_CORIOLIS	& -0.5*(_fCori(i, j ,bi,bj)+_fCori(i,j-1,bi,bj))
./pkg/mom_fluxform/mom_v_coriolis.F	66	MOM_V_CORIOLIS	& 0.25( uFld(i, j )+uFld(i+1, j )
./pkg/mom_fluxform/mom_v_coriolis.F	67	MOM_V_CORIOLIS	& +uFld(i,j-1)+uFld(i+1,j-1)
./pkg/mom_fluxform/mom_v_coriolis.F	77	MOM_V_CORIOLIS	DO j=1-Oly+1,sNy+Oly
./pkg/mom_fluxform/mom_v_coriolis.F	79	MOM_V_CORIOLIS	vCoriolisTerm(i,j) = vCoriolisTerm(i,j)
./pkg/mom_fluxform/mom_v_coriolis.F	81	MOM_V_CORIOLIS	& maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F	82	MOM_V_CORIOLIS	& +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) )
./pkg/mom_fluxform/mom_v_del2v.F	101	MOM_V_DEL2V	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_fluxform/mom_v_del2v.F	104	MOM_V_DEL2V	hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F	105	MOM_V_DEL2V	hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacZ(i+1,j)
./pkg/mom_fluxform/mom_v_del2v.F	107	MOM_V_DEL2V	hFacZClosedW = _hFacS(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F	108	MOM_V_DEL2V	hFacZClosedE = _hFacS(i,j,k,bi,bj) - h0FacZ(i+1,j)
./pkg/mom_fluxform/mom_v_del2v.F	110	MOM_V_DEL2V	del2v(i,j) = del2v(i,j)
./pkg/mom_fluxform/mom_v_del2v.F	111	MOM_V_DEL2V	& -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	112	MOM_V_DEL2V	& recip_rAs(i,j,bi,bj)recip_deepFac2C(k)
./pkg/mom_fluxform/mom_v_del2v.F	113	MOM_V_DEL2V	& ( hFacZClosedWdyU( i ,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	114	MOM_V_DEL2V	& *_recip_dxV( i ,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	115	MOM_V_DEL2V	& +hFacZClosedE*dyU(i+1,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	116	MOM_V_DEL2V	& *_recip_dxV(i+1,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	117	MOM_V_DEL2V	& )vFld(i,j)sideDragFactor
./pkg/mom_fluxform/mom_v_del2v.F	118	MOM_V_DEL2V	& *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	52	MOM_V_DEL2V	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_fluxform/mom_v_del2v.F	54	MOM_V_DEL2V	fZon(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F	55	MOM_V_DEL2V	& *_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	56	MOM_V_DEL2V	& *_recip_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	57	MOM_V_DEL2V	& *(vFld(i,j)-vFld(i-1,j))
./pkg/mom_fluxform/mom_v_del2v.F	67	MOM_V_DEL2V	DO j=1-OLy,sNy+OLy-1
./pkg/mom_fluxform/mom_v_del2v.F	69	MOM_V_DEL2V	fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	70	MOM_V_DEL2V	& *_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	71	MOM_V_DEL2V	& *_recip_dyF(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	72	MOM_V_DEL2V	& *(vFld(i,j+1)-vFld(i,j))
./pkg/mom_fluxform/mom_v_del2v.F	77	MOM_V_DEL2V	& *maskInC(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	85	MOM_V_DEL2V	DO j=1-OLy+1,sNy+OLy-1
./pkg/mom_fluxform/mom_v_del2v.F	87	MOM_V_DEL2V	del2v(i,j) =
./pkg/mom_fluxform/mom_v_del2v.F	88	MOM_V_DEL2V	& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	89	MOM_V_DEL2V	& recip_rAs(i,j,bi,bj)recip_deepFac2C(k)
./pkg/mom_fluxform/mom_v_del2v.F	90	MOM_V_DEL2V	& *( fZon(i+1,j) - fZon(i, j )
./pkg/mom_fluxform/mom_v_del2v.F	91	MOM_V_DEL2V	& +fMer( i ,j) - fMer(i,j-1)
./pkg/mom_fluxform/mom_v_del2v.F	92	MOM_V_DEL2V	& )*_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F	94	MOM_V_DEL2V	& *maskInS(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_metric_cylinder.F	46	MOM_V_METRIC_CYLINDER	INTEGER i,j
./pkg/mom_fluxform/mom_v_metric_cylinder.F	50	MOM_V_METRIC_CYLINDER	DO j=1-OLy+1,sNy+OLy
./pkg/mom_fluxform/mom_v_metric_cylinder.F	52	MOM_V_METRIC_CYLINDER	radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_v_metric_cylinder.F	56	MOM_V_METRIC_CYLINDER	vMetricTerms(i,j) =
./pkg/mom_fluxform/mom_v_metric_cylinder.F	57	MOM_V_METRIC_CYLINDER	& -0.25*(uFld(i,j) + uFld(i+1,j) +
./pkg/mom_fluxform/mom_v_metric_cylinder.F	58	MOM_V_METRIC_CYLINDER	& uFld(i,j-1)+uFld(i+1,j-1))
./pkg/mom_fluxform/mom_v_metric_cylinder.F	59	MOM_V_METRIC_CYLINDER	& 0.25(uFld(i,j) + uFld(i+1,j) +
./pkg/mom_fluxform/mom_v_metric_cylinder.F	60	MOM_V_METRIC_CYLINDER	& uFld(i,j-1)+uFld(i+1,j-1))/radius
./pkg/mom_fluxform/mom_v_metric_cylinder.F	62	MOM_V_METRIC_CYLINDER	vMetricTerms(i,j) = 0.
./model/src/calc_wsurf_tr.F	50	CALC_WSURF_TR	INTEGER i,j,bi,bj,ks
./model/src/calc_wsurf_tr.F	68	CALC_WSURF_TR	DO j=1,sNy
./model/src/calc_wsurf_tr.F	70	CALC_WSURF_TR	ks = ksurfC(i,j,bi,bj)
./model/src/calc_wsurf_tr.F	73	CALC_WSURF_TR	& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F	74	CALC_WSURF_TR	& *thetaFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F	76	CALC_WSURF_TR	& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F	77	CALC_WSURF_TR	& *saltFld(i,j,ks,bi,bj)
./pkg/mom_fluxform/mom_v_metric_sphere.F	44	MOM_V_METRIC_SPHERE	INTEGER i,j
./pkg/mom_fluxform/mom_v_metric_sphere.F	47	MOM_V_METRIC_SPHERE	DO j=1-Olx+1,sNy+Oly
./pkg/mom_fluxform/mom_v_metric_sphere.F	49	MOM_V_METRIC_SPHERE	vMetricTerms(i,j) = -recip_rSphere*recip_deepFacC(k)
./pkg/mom_fluxform/mom_v_metric_sphere.F	50	MOM_V_METRIC_SPHERE	& 0.25( uFld(i,j )+uFld(i+1,j )
./pkg/mom_fluxform/mom_v_metric_sphere.F	51	MOM_V_METRIC_SPHERE	& +uFld(i,j-1)+uFld(i+1,j-1)
./pkg/mom_fluxform/mom_v_metric_sphere.F	53	MOM_V_METRIC_SPHERE	& 0.25( uFld(i,j )+uFld(i+1,j )
./pkg/mom_fluxform/mom_v_metric_sphere.F	54	MOM_V_METRIC_SPHERE	& +uFld(i,j-1)+uFld(i+1,j-1)
./pkg/mom_fluxform/mom_v_metric_sphere.F	56	MOM_V_METRIC_SPHERE	& *_tanPhiAtV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_xviscflux.F	55	MOM_V_XVISCFLUX	DO j=1-Oly,sNy+Oly
./pkg/mom_fluxform/mom_v_xviscflux.F	57	MOM_V_XVISCFLUX	xViscFluxV(i,j) =
./pkg/mom_fluxform/mom_v_xviscflux.F	58	MOM_V_XVISCFLUX	& _dyU(i,j,bi,bj)drF(k)hFacZ(i,j)
./pkg/mom_fluxform/mom_v_xviscflux.F	60	MOM_V_XVISCFLUX	& -viscAh_Z(i,j)*( vFld(i,j)-vFld(i-1,j) )
./pkg/mom_fluxform/mom_v_xviscflux.F	62	MOM_V_XVISCFLUX	& +viscA4_Z(i,j)*(del2v(i,j)-del2v(i-1,j))
./pkg/mom_fluxform/mom_v_xviscflux.F	68	MOM_V_XVISCFLUX	& )*_recip_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F	54	MOM_V_YVISCFLUX	DO j=1-Oly,sNy+Oly-1
./pkg/mom_fluxform/mom_v_yviscflux.F	56	MOM_V_YVISCFLUX	yViscFluxV(i,j) =
./pkg/mom_fluxform/mom_v_yviscflux.F	57	MOM_V_YVISCFLUX	& _dxF(i,j,bi,bj)drF(k)_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F	59	MOM_V_YVISCFLUX	& -viscAh_D(i,j)*( vFld(i,j+1)-vFld(i,j) )
./pkg/mom_fluxform/mom_v_yviscflux.F	63	MOM_V_YVISCFLUX	& +viscA4_D(i,j)*(del2v(i,j+1)-del2v(i,j))
./pkg/mom_fluxform/mom_v_yviscflux.F	71	MOM_V_YVISCFLUX	& )*_recip_dyF(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F	122	MOM_VECINV	INTEGER i,j
./pkg/mom_vecinv/mom_vecinv.F	188	MOM_VECINV	DO j=1-OLy,sNy+OLy
./pkg/mom_vecinv/mom_vecinv.F	190	MOM_VECINV	vF(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	191	MOM_VECINV	vrF(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	192	MOM_VECINV	uCf(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	193	MOM_VECINV	vCf(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	194	MOM_VECINV	del2u(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	195	MOM_VECINV	del2v(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	196	MOM_VECINV	dStar(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	197	MOM_VECINV	zStar(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	198	MOM_VECINV	guDiss(i,j)= 0.
./pkg/mom_vecinv/mom_vecinv.F	199	MOM_VECINV	gvDiss(i,j)= 0.
./pkg/mom_vecinv/mom_vecinv.F	200	MOM_VECINV	vort3(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	201	MOM_VECINV	omega3(i,j)= 0.
./pkg/mom_vecinv/mom_vecinv.F	202	MOM_VECINV	KE(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	204	MOM_VECINV	hDiv(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	209	MOM_VECINV	strain(i,j) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F	210	MOM_VECINV	strainBC(i,j)= 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F	211	MOM_VECINV	tension(i,j) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F	213	MOM_VECINV	hFacZ(i,j) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F	244	MOM_VECINV	DO j=1-OLy,sNy+OLy
./pkg/mom_vecinv/mom_vecinv.F	246	MOM_VECINV	uFld(i,j) = uVel(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F	247	MOM_VECINV	vFld(i,j) = vVel(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F	260	MOM_VECINV	DO j=1-OLy,sNy+OLy
./pkg/mom_vecinv/mom_vecinv.F	262	MOM_VECINV	vort3BC(i,j) = vort3(i,j)
./pkg/mom_vecinv/mom_vecinv.F	263	MOM_VECINV	IF ( hFacZ(i,j).EQ.zeroRS ) THEN
./pkg/mom_vecinv/mom_vecinv.F	264	MOM_VECINV	vort3BC(i,j) = sideMaskFac*vort3BC(i,j)
./pkg/mom_vecinv/mom_vecinv.F	265	MOM_VECINV	vort3(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	274	MOM_VECINV	DO j=1-OLy,sNy+OLy
./pkg/mom_vecinv/mom_vecinv.F	276	MOM_VECINV	h0FacZ(i,j) = hFacZ(i,j)
./pkg/mom_vecinv/mom_vecinv.F	281	MOM_VECINV	DO j=2-OLy,sNy+OLy
./pkg/mom_vecinv/mom_vecinv.F	283	MOM_VECINV	h0FacZ(i,j) = MIN(
./pkg/mom_vecinv/mom_vecinv.F	284	MOM_VECINV	& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ),
./pkg/mom_vecinv/mom_vecinv.F	285	MOM_VECINV	& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) )
./pkg/mom_vecinv/mom_vecinv.F	297	MOM_VECINV	DO j=1-OLy,sNy+OLy
./pkg/mom_vecinv/mom_vecinv.F	299	MOM_VECINV	strainBC(i,j) = strain(i,j)
./pkg/mom_vecinv/mom_vecinv.F	300	MOM_VECINV	IF ( hFacZ(i,j).EQ.zeroRS ) THEN
./pkg/mom_vecinv/mom_vecinv.F	301	MOM_VECINV	strainBC(i,j) = sideMaskFac*strainBC(i,j)
./pkg/mom_vecinv/mom_vecinv.F	302	MOM_VECINV	strain(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F	309	MOM_VECINV	DO j=1-OLy,sNy+OLy
./pkg/mom_vecinv/mom_vecinv.F	311	MOM_VECINV	viscAh_D(i,j) = viscAhD
./pkg/mom_vecinv/mom_vecinv.F	312	MOM_VECINV	viscAh_Z(i,j) = viscAhZ
./pkg/mom_vecinv/mom_vecinv.F	313	MOM_VECINV	viscA4_D(i,j) = viscA4D
./pkg/mom_vecinv/mom_vecinv.F	314	MOM_VECINV	viscA4_Z(i,j) = viscA4Z
./pkg/mom_vecinv/mom_vecinv.F	363	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	365	MOM_VECINV	fVerUkp(i,j) = ArDudrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	369	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	371	MOM_VECINV	guDiss(i,j) = guDiss(i,j)
./pkg/mom_vecinv/mom_vecinv.F	372	MOM_VECINV	& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_vecinv/mom_vecinv.F	373	MOM_VECINV	& *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F	374	MOM_VECINV	& ( fVerUkp(i,j) - fVerUkm(i,j) )rkSign
./pkg/mom_vecinv/mom_vecinv.F	388	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	390	MOM_VECINV	guDiss(i,j) = guDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	398	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	400	MOM_VECINV	guDiss(i,j) = guDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	407	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	409	MOM_VECINV	guDiss(i,j) = guDiss(i,j) + vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	422	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	424	MOM_VECINV	fVerVkp(i,j) = ArDvdrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	428	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	430	MOM_VECINV	gvDiss(i,j) = gvDiss(i,j)
./pkg/mom_vecinv/mom_vecinv.F	431	MOM_VECINV	& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_vecinv/mom_vecinv.F	432	MOM_VECINV	& *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F	433	MOM_VECINV	& ( fVerVkp(i,j) - fVerVkm(i,j) )rkSign
./pkg/mom_vecinv/mom_vecinv.F	447	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	449	MOM_VECINV	gvDiss(i,j) = gvDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	457	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	459	MOM_VECINV	gvDiss(i,j) = gvDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	466	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	468	MOM_VECINV	gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F	503	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	505	MOM_VECINV	gU(i,j,k,bi,bj) = uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	506	MOM_VECINV	gV(i,j,k,bi,bj) = vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	530	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	532	MOM_VECINV	gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F	533	MOM_VECINV	gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F	554	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	556	MOM_VECINV	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	573	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	575	MOM_VECINV	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	612	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	614	MOM_VECINV	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	618	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	620	MOM_VECINV	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	633	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	635	MOM_VECINV	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	639	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	641	MOM_VECINV	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	665	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	667	MOM_VECINV	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	673	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	675	MOM_VECINV	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	684	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	686	MOM_VECINV	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	690	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	692	MOM_VECINV	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F	698	MOM_VECINV	DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F	700	MOM_VECINV	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F	701	MOM_VECINV	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	100	MOM_VI_CORIOLIS	& )uBarXYrecip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	44	MOM_VI_CORIOLIS	& (vFld( i , j )dxG( i , j ,bi,bj)_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	45	MOM_VI_CORIOLIS	& +vFld(i-1, j )dxG(i-1, j ,bi,bj)_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	46	MOM_VI_CORIOLIS	& +(vFld( i ,j+1)dxG( i ,j+1,bi,bj)_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	47	MOM_VI_CORIOLIS	& +vFld(i-1,j+1)dxG(i-1,j+1,bi,bj)_hFacS(i-1,j+1,k,bi,bj)))
./pkg/mom_vecinv/mom_vi_coriolis.F	48	MOM_VI_CORIOLIS	& / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	49	MOM_VI_CORIOLIS	& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) )
./pkg/mom_vecinv/mom_vi_coriolis.F	50	MOM_VI_CORIOLIS	uCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F	51	MOM_VI_CORIOLIS	& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	52	MOM_VI_CORIOLIS	& )vBarXYrecip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	60	MOM_VI_CORIOLIS	& (vFld( i , j )*dxG( i , j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	61	MOM_VI_CORIOLIS	& +vFld(i-1, j )*dxG(i-1, j ,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	62	MOM_VI_CORIOLIS	& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	63	MOM_VI_CORIOLIS	& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	65	MOM_VI_CORIOLIS	uCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F	66	MOM_VI_CORIOLIS	& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	67	MOM_VI_CORIOLIS	& )vBarXYrecip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	77	MOM_VI_CORIOLIS	& (uFld( i , j )dyG( i , j ,bi,bj)_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	78	MOM_VI_CORIOLIS	& +uFld( i ,j-1)dyG( i ,j-1,bi,bj)_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	79	MOM_VI_CORIOLIS	& +(uFld(i+1, j )dyG(i+1, j ,bi,bj)_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	80	MOM_VI_CORIOLIS	& +uFld(i+1,j-1)dyG(i+1,j-1,bi,bj)_hFacW(i+1,j-1,k,bi,bj)))
./pkg/mom_vecinv/mom_vi_coriolis.F	81	MOM_VI_CORIOLIS	& / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	82	MOM_VI_CORIOLIS	& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) )
./pkg/mom_vecinv/mom_vi_coriolis.F	83	MOM_VI_CORIOLIS	vCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F	84	MOM_VI_CORIOLIS	& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	85	MOM_VI_CORIOLIS	& )uBarXYrecip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	93	MOM_VI_CORIOLIS	& (uFld( i , j )*dyG( i , j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	94	MOM_VI_CORIOLIS	& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	95	MOM_VI_CORIOLIS	& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F	96	MOM_VI_CORIOLIS	& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F	98	MOM_VI_CORIOLIS	vCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F	99	MOM_VI_CORIOLIS	& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	100	MOM_VI_DEL2UV	& *maskInW(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	116	MOM_VI_DEL2UV	DO j=2-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_del2uv.F	118	MOM_VI_DEL2UV	del2v(i,j) =
./pkg/mom_vecinv/mom_vi_del2uv.F	119	MOM_VI_DEL2UV	& ( ( hDiv(i,j) - hDiv(i,j-1) )*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	120	MOM_VI_DEL2UV	& +_recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_del2uv.F	121	MOM_VI_DEL2UV	& ( hFacZ(i+1,j)vort3(i+1,j) - hFacZ(i,j)vort3(i,j) )
./pkg/mom_vecinv/mom_vi_del2uv.F	122	MOM_VI_DEL2UV	& *recip_dxG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	123	MOM_VI_DEL2UV	& )*maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	125	MOM_VI_DEL2UV	& *maskInS(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	31	MOM_VI_DEL2UV	INTEGER i,j
./pkg/mom_vecinv/mom_vi_del2uv.F	91	MOM_VI_DEL2UV	DO j=2-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_del2uv.F	93	MOM_VI_DEL2UV	del2u(i,j) =
./pkg/mom_vecinv/mom_vi_del2uv.F	94	MOM_VI_DEL2UV	& ( ( hDiv(i,j) - hDiv(i-1,j) )*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	95	MOM_VI_DEL2UV	& -_recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_del2uv.F	96	MOM_VI_DEL2UV	& ( hFacZ(i,j+1)vort3(i,j+1) - hFacZ(i,j)vort3(i,j) )
./pkg/mom_vecinv/mom_vi_del2uv.F	97	MOM_VI_DEL2UV	& *recip_dyG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F	98	MOM_VI_DEL2UV	& )*maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	100	MOM_VI_HDISSIP	& cosFacV(j,bi,bj)( Zpj-Zij )recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	101	MOM_VI_HDISSIP	& + viscAhD* ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	103	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	106	MOM_VI_HDISSIP	uDissip(i,j) = uD2
./pkg/mom_vecinv/mom_vi_hdissip.F	107	MOM_VI_HDISSIP	vDissip(i,j) = vD2
./pkg/mom_vecinv/mom_vi_hdissip.F	113	MOM_VI_HDISSIP	DO j=2-OLy,sNy+OLy-1
./pkg/mom_vecinv/mom_vi_hdissip.F	115	MOM_VI_HDISSIP	uDissip(i,j) = 0.
./pkg/mom_vecinv/mom_vi_hdissip.F	116	MOM_VI_HDISSIP	vDissip(i,j) = 0.
./pkg/mom_vecinv/mom_vi_hdissip.F	128	MOM_VI_HDISSIP	DO j=2-OLy,sNy+OLy-1
./pkg/mom_vecinv/mom_vi_hdissip.F	132	MOM_VI_HDISSIP	Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F	133	MOM_VI_HDISSIP	Dij=dyF( i , j ,bi,bj)*dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	134	MOM_VI_HDISSIP	Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	136	MOM_VI_HDISSIP	Zip1=dxV( i ,j+1,bi,bj)hFacZ( i ,j+1)zStar( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F	137	MOM_VI_HDISSIP	Zij1=dxV( i , j ,bi,bj)hFacZ( i , j )zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	138	MOM_VI_HDISSIP	Zpj1=dxV(i+1, j ,bi,bj)hFacZ(i+1, j )zStar(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	140	MOM_VI_HDISSIP	Dim=dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F	141	MOM_VI_HDISSIP	Dij=dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	142	MOM_VI_HDISSIP	Dmj=dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	144	MOM_VI_HDISSIP	Zip1=hFacZ( i ,j+1)*zStar( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F	145	MOM_VI_HDISSIP	Zij1=hFacZ( i , j )*zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	146	MOM_VI_HDISSIP	Zpj1=hFacZ(i+1, j )*zStar(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	148	MOM_VI_HDISSIP	Dij=Dij*viscA4_D(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	149	MOM_VI_HDISSIP	Dim=Dim*viscA4_D(i,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F	150	MOM_VI_HDISSIP	Dmj=Dmj*viscA4_D(i-1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	151	MOM_VI_HDISSIP	Zij=Zij1*viscA4_Z(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	152	MOM_VI_HDISSIP	Zip=Zip1*viscA4_Z(i,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F	153	MOM_VI_HDISSIP	Zpj=Zpj1*viscA4_Z(i+1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	156	MOM_VI_HDISSIP	uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F	157	MOM_VI_HDISSIP	& ( (Dij-Dmj)*cosFacU(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F	158	MOM_VI_HDISSIP	& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )
./pkg/mom_vecinv/mom_vi_hdissip.F	160	MOM_VI_HDISSIP	& *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	163	MOM_VI_HDISSIP	vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F	164	MOM_VI_HDISSIP	& _recip_hFacS(i,j,k,bi,bj)( (Zpj-Zij)cosFacV(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F	167	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	172	MOM_VI_HDISSIP	& cosFacU(j,bi,bj)( Dij-Dmj )recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	173	MOM_VI_HDISSIP	& -_recip_hFacW(i,j,k,bi,bj)( Zip-Zij )recip_DYG(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F	175	MOM_VI_HDISSIP	& *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	178	MOM_VI_HDISSIP	& _recip_hFacS(i,j,k,bi,bj)( Zpj-Zij )recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	179	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	180	MOM_VI_HDISSIP	& +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F	182	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	186	MOM_VI_HDISSIP	uDissip(i,j) = uDissip(i,j) - uD4
./pkg/mom_vecinv/mom_vi_hdissip.F	187	MOM_VI_HDISSIP	vDissip(i,j) = vDissip(i,j) - vD4
./pkg/mom_vecinv/mom_vi_hdissip.F	192	MOM_VI_HDISSIP	DO j=2-OLy,sNy+OLy-1
./pkg/mom_vecinv/mom_vi_hdissip.F	196	MOM_VI_HDISSIP	Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F	197	MOM_VI_HDISSIP	Dij=dyF( i , j ,bi,bj)*dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	198	MOM_VI_HDISSIP	Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	200	MOM_VI_HDISSIP	Zip1=dxV( i ,j+1,bi,bj)hFacZ( i ,j+1)zStar( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F	201	MOM_VI_HDISSIP	Zij1=dxV( i , j ,bi,bj)hFacZ( i , j )zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	202	MOM_VI_HDISSIP	Zpj1=dxV(i+1, j ,bi,bj)hFacZ(i+1, j )zStar(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	204	MOM_VI_HDISSIP	Dim=dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F	205	MOM_VI_HDISSIP	Dij=dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	206	MOM_VI_HDISSIP	Dmj=dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	208	MOM_VI_HDISSIP	Zip1=hFacZ( i ,j+1)*zStar( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F	209	MOM_VI_HDISSIP	Zij1=hFacZ( i , j )*zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	210	MOM_VI_HDISSIP	Zpj1=hFacZ(i+1, j )*zStar(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	217	MOM_VI_HDISSIP	uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F	218	MOM_VI_HDISSIP	& viscA4D( Dij-Dmj )cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	219	MOM_VI_HDISSIP	& -_recip_hFacW(i,j,k,bi,bj)viscA4Z( Zip-Zij )
./pkg/mom_vecinv/mom_vi_hdissip.F	221	MOM_VI_HDISSIP	& *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	224	MOM_VI_HDISSIP	vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F	225	MOM_VI_HDISSIP	& _recip_hFacS(i,j,k,bi,bj)viscA4Z( Zpj-Zij )*cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	228	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	233	MOM_VI_HDISSIP	& cosFacU(j,bi,bj)( Dij-Dmj )recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	234	MOM_VI_HDISSIP	& - viscA4Z_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	235	MOM_VI_HDISSIP	& ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	237	MOM_VI_HDISSIP	& *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	239	MOM_VI_HDISSIP	vD4 = viscA4Z_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	240	MOM_VI_HDISSIP	& cosFacV(j,bi,bj)( Zpj-Zij )recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	241	MOM_VI_HDISSIP	& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	243	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	247	MOM_VI_HDISSIP	uDissip(i,j) = uDissip(i,j) - uD4
./pkg/mom_vecinv/mom_vi_hdissip.F	248	MOM_VI_HDISSIP	vDissip(i,j) = vDissip(i,j) - vD4
./pkg/mom_vecinv/mom_vi_hdissip.F	42	MOM_VI_HDISSIP	INTEGER i, j
./pkg/mom_vecinv/mom_vi_hdissip.F	52	MOM_VI_HDISSIP	DO j=2-OLy,sNy+OLy-1
./pkg/mom_vecinv/mom_vi_hdissip.F	55	MOM_VI_HDISSIP	Dij=hDiv( i , j )*viscAh_D(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	56	MOM_VI_HDISSIP	Dim=hDiv( i ,j-1)*viscAh_D(i,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F	57	MOM_VI_HDISSIP	Dmj=hDiv(i-1, j )*viscAh_D(i-1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	58	MOM_VI_HDISSIP	Zij=hFacZ( i , j )vort3( i , j )viscAh_Z(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	59	MOM_VI_HDISSIP	Zip=hFacZ( i ,j+1)vort3( i ,j+1)viscAh_Z(i,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F	60	MOM_VI_HDISSIP	Zpj=hFacZ(i+1, j )vort3(i+1, j )viscAh_Z(i+1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F	63	MOM_VI_HDISSIP	& cosFacU(j,bi,bj)( Dij-Dmj )recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	64	MOM_VI_HDISSIP	& -_recip_hFacW(i,j,k,bi,bj)( Zip-Zij )recip_DYG(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F	66	MOM_VI_HDISSIP	& *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	69	MOM_VI_HDISSIP	& _recip_hFacS(i,j,k,bi,bj)( Zpj-Zij )recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	70	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	71	MOM_VI_HDISSIP	& +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F	73	MOM_VI_HDISSIP	& *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	76	MOM_VI_HDISSIP	uDissip(i,j) = uD2
./pkg/mom_vecinv/mom_vi_hdissip.F	77	MOM_VI_HDISSIP	vDissip(i,j) = vD2
./pkg/mom_vecinv/mom_vi_hdissip.F	82	MOM_VI_HDISSIP	DO j=2-OLy,sNy+OLy-1
./pkg/mom_vecinv/mom_vi_hdissip.F	85	MOM_VI_HDISSIP	Dim=hDiv( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F	86	MOM_VI_HDISSIP	Dij=hDiv( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	87	MOM_VI_HDISSIP	Dmj=hDiv(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	88	MOM_VI_HDISSIP	Zip=hFacZ( i ,j+1)*vort3( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F	89	MOM_VI_HDISSIP	Zij=hFacZ( i , j )*vort3( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F	90	MOM_VI_HDISSIP	Zpj=hFacZ(i+1, j )*vort3(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F	93	MOM_VI_HDISSIP	& cosFacU(j,bi,bj)( Dij-Dmj )recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	94	MOM_VI_HDISSIP	& - viscAhZ_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	95	MOM_VI_HDISSIP	& ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	97	MOM_VI_HDISSIP	& *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F	99	MOM_VI_HDISSIP	vD2 = viscAhZ_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	101	MOM_VI_U_CORIOLIS	vort3u=omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	104	MOM_VI_U_CORIOLIS	vort3u=0.5*(omega3(i,j)+omega3(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	106	MOM_VI_U_CORIOLIS	uCoriolisTerm(i,j)= +vort3uvBarXYrecip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	107	MOM_VI_U_CORIOLIS	& * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	114	MOM_VI_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_u_coriolis.F	117	MOM_VI_U_CORIOLIS	& vFld( i , j )dxG( i , j ,bi,bj)_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	118	MOM_VI_U_CORIOLIS	& +vFld(i-1, j )dxG(i-1, j ,bi,bj)_hFacS(i-1, j ,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	120	MOM_VI_U_CORIOLIS	& vFld( i ,j+1)dxG( i ,j+1,bi,bj)_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	121	MOM_VI_U_CORIOLIS	& +vFld(i-1,j+1)dxG(i-1,j+1,bi,bj)_hFacS(i-1,j+1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	124	MOM_VI_U_CORIOLIS	vort3u=vBarXmr_hFacZ(i, j )omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	126	MOM_VI_U_CORIOLIS	vort3u=vBarXpr_hFacZ(i,j+1)omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	129	MOM_VI_U_CORIOLIS	vort3u = ( vBarXmr_hFacZ(i, j )omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	130	MOM_VI_U_CORIOLIS	& +vBarXpr_hFacZ(i,j+1)omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	133	MOM_VI_U_CORIOLIS	uCoriolisTerm(i,j)= +vort3u*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	134	MOM_VI_U_CORIOLIS	& * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	145	MOM_VI_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_u_coriolis.F	147	MOM_VI_U_CORIOLIS	vort3mj= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	148	MOM_VI_U_CORIOLIS	& +(r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	149	MOM_VI_U_CORIOLIS	& +r_hFacZ(i-1,j)*omega3(i-1,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	152	MOM_VI_U_CORIOLIS	& vFld(i-1, j )dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	153	MOM_VI_U_CORIOLIS	vort3ij= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	154	MOM_VI_U_CORIOLIS	& +(r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	155	MOM_VI_U_CORIOLIS	& +r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	158	MOM_VI_U_CORIOLIS	& vFld( i , j )dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	159	MOM_VI_U_CORIOLIS	vort3mp= ( r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	160	MOM_VI_U_CORIOLIS	& +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	161	MOM_VI_U_CORIOLIS	& +r_hFacZ(i-1,j+1)*omega3(i-1,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	164	MOM_VI_U_CORIOLIS	& vFld(i-1,j+1)dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	165	MOM_VI_U_CORIOLIS	vort3ip= ( r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	166	MOM_VI_U_CORIOLIS	& +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	167	MOM_VI_U_CORIOLIS	& +r_hFacZ(i+1,j+1)*omega3(i+1,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	170	MOM_VI_U_CORIOLIS	& vFld( i ,j+1)dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	172	MOM_VI_U_CORIOLIS	uCoriolisTerm(i,j)= +( (vort3mj+vort3ij)+(vort3mp+vort3ip) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	173	MOM_VI_U_CORIOLIS	& 0.25 _d 0 recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	174	MOM_VI_U_CORIOLIS	& * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	188	MOM_VI_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_u_coriolis.F	190	MOM_VI_U_CORIOLIS	uCoriolisTerm(i,j) = uCoriolisTerm(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	191	MOM_VI_U_CORIOLIS	& * 4. _d 0 * _hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	193	MOM_VI_U_CORIOLIS	& (_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	194	MOM_VI_U_CORIOLIS	& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	47	MOM_VI_U_CORIOLIS	INTEGER i, j
./pkg/mom_vecinv/mom_vi_u_coriolis.F	63	MOM_VI_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_u_coriolis.F	66	MOM_VI_U_CORIOLIS	& (vFld( i , j )dxG( i , j ,bi,bj)_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	67	MOM_VI_U_CORIOLIS	& +vFld(i-1, j )dxG(i-1, j ,bi,bj)_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	68	MOM_VI_U_CORIOLIS	& +(vFld( i ,j+1)dxG( i ,j+1,bi,bj)_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	69	MOM_VI_U_CORIOLIS	& +vFld(i-1,j+1)dxG(i-1,j+1,bi,bj)_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	73	MOM_VI_U_CORIOLIS	vort3u=omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	75	MOM_VI_U_CORIOLIS	vort3u=omega3(i,j+1)*r_hFacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	78	MOM_VI_U_CORIOLIS	vort3u=0.5(omega3(i,j)r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	79	MOM_VI_U_CORIOLIS	& +omega3(i,j+1)*r_hFacZ(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	81	MOM_VI_U_CORIOLIS	uCoriolisTerm(i,j)= +vort3uvBarXYrecip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	82	MOM_VI_U_CORIOLIS	& * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	89	MOM_VI_U_CORIOLIS	DO j=1-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_u_coriolis.F	92	MOM_VI_U_CORIOLIS	& (vFld( i , j )dxG( i , j ,bi,bj)hFacZ(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	93	MOM_VI_U_CORIOLIS	& +vFld(i-1, j )dxG(i-1, j ,bi,bj)hFacZ(i, j ))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	94	MOM_VI_U_CORIOLIS	& +(vFld( i ,j+1)dxG( i ,j+1,bi,bj)hFacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F	95	MOM_VI_U_CORIOLIS	& +vFld(i-1,j+1)dxG(i-1,j+1,bi,bj)hFacZ(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis.F	96	MOM_VI_U_CORIOLIS	& )/MAX( epsil, hFacZ(i,j)+hFacZ(i,j+1) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F	99	MOM_VI_U_CORIOLIS	vort3u=omega3(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	102	MOM_VI_U_CORIOLIS_C4	j = 1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	103	MOM_VI_U_CORIOLIS_C4	vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i-1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	107	MOM_VI_U_CORIOLIS_C4	j = sNy+1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	108	MOM_VI_U_CORIOLIS_C4	vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i+1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	112	MOM_VI_U_CORIOLIS_C4	j = sNy+1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	113	MOM_VI_U_CORIOLIS_C4	vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i-1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	126	MOM_VI_U_CORIOLIS_C4	DO j=1,sNy
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	130	MOM_VI_U_CORIOLIS_C4	& (vFld( i , j )dxG( i , j ,bi,bj)_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	131	MOM_VI_U_CORIOLIS_C4	& +vFld(i-1, j )dxG(i-1, j ,bi,bj)_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	132	MOM_VI_U_CORIOLIS_C4	& +(vFld( i ,j+1)dxG( i ,j+1,bi,bj)_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	133	MOM_VI_U_CORIOLIS_C4	& +vFld(i-1,j+1)dxG(i-1,j+1,bi,bj)_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	137	MOM_VI_U_CORIOLIS_C4	vort3u=vort3r(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	139	MOM_VI_U_CORIOLIS_C4	vort3u=vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	143	MOM_VI_U_CORIOLIS_C4	Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	144	MOM_VI_U_CORIOLIS_C4	Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	146	MOM_VI_U_CORIOLIS_C4	Rjp = vort3r(i,j+2) - vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	147	MOM_VI_U_CORIOLIS_C4	Rjm = vort3r(i, j ) - vort3r(i,j-1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	149	MOM_VI_U_CORIOLIS_C4	vort3u=0.5*( (vort3r(i,j) + vort3r(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	153	MOM_VI_U_CORIOLIS_C4	vort3u=0.5*( vort3r(i,j) + vort3r(i,j+1) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	156	MOM_VI_U_CORIOLIS_C4	uCoriolisTerm(i,j) = vort3uvBarXYrecip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	157	MOM_VI_U_CORIOLIS_C4	& * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	167	MOM_VI_U_CORIOLIS_C4	DO j=1,sNy
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	171	MOM_VI_U_CORIOLIS_C4	& vFld( i , j )dxG( i , j ,bi,bj)_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	172	MOM_VI_U_CORIOLIS_C4	& +vFld(i-1, j )dxG(i-1, j ,bi,bj)_hFacS(i-1, j ,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	174	MOM_VI_U_CORIOLIS_C4	& vFld( i ,j+1)dxG( i ,j+1,bi,bj)_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	175	MOM_VI_U_CORIOLIS_C4	& +vFld(i-1,j+1)dxG(i-1,j+1,bi,bj)_hFacS(i-1,j+1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	178	MOM_VI_U_CORIOLIS_C4	vort3u=vBarXm*vort3r(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	180	MOM_VI_U_CORIOLIS_C4	vort3u=vBarXp*vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	184	MOM_VI_U_CORIOLIS_C4	Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	185	MOM_VI_U_CORIOLIS_C4	Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	187	MOM_VI_U_CORIOLIS_C4	Rjp = vort3r(i,j+2) - vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	188	MOM_VI_U_CORIOLIS_C4	Rjm = vort3r(i, j ) - vort3r(i,j-1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	190	MOM_VI_U_CORIOLIS_C4	Rj = vort3r(i,j+1) - vort3r(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	191	MOM_VI_U_CORIOLIS_C4	Rjp = vort3r(i,j+1) -oneSixth*( Rjp+Rj )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	192	MOM_VI_U_CORIOLIS_C4	Rjm = vort3r(i, j ) +oneSixth*( Rj+Rjm )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	197	MOM_VI_U_CORIOLIS_C4	vort3u=0.5( vBarXmvort3r(i, j ) + vBarXp*vort3r(i,j+1) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	200	MOM_VI_U_CORIOLIS_C4	uCoriolisTerm(i,j) = vort3u*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	201	MOM_VI_U_CORIOLIS_C4	& * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	49	MOM_VI_U_CORIOLIS_C4	INTEGER i,j
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	68	MOM_VI_U_CORIOLIS_C4	DO j=1-Oly,sNy+Oly
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	70	MOM_VI_U_CORIOLIS_C4	vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	97	MOM_VI_U_CORIOLIS_C4	j = 1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F	98	MOM_VI_U_CORIOLIS_C4	vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i+1,j) )*0.5 _d 0
./model/src/cg2d.F	119	CG2D	DO j=1,sNy
./model/src/cg2d.F	121	CG2D	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d.F	122	CG2D	rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax)
./model/src/cg2d.F	135	CG2D	DO j=1,sNy
./model/src/cg2d.F	137	CG2D	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm
./model/src/cg2d.F	138	CG2D	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm
./model/src/cg2d.F	153	CG2D	DO j=1,sNy
./model/src/cg2d.F	155	CG2D	cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d.F	159	CG2D	DO j=0,sNy+1
./model/src/cg2d.F	161	CG2D	cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d.F	169	CG2D	DO j=1,sNy
./model/src/cg2d.F	171	CG2D	cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d.F	172	CG2D	& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj)
./model/src/cg2d.F	173	CG2D	& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj)
./model/src/cg2d.F	174	CG2D	& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj)
./model/src/cg2d.F	175	CG2D	& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj)
./model/src/cg2d.F	176	CG2D	& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj)
./model/src/cg2d.F	179	CG2D	localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F	182	CG2D	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F	183	CG2D	sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d.F	226	CG2D	DO j=1,sNy
./model/src/cg2d.F	228	CG2D	cg2d_q(i,j,bi,bj) =
./model/src/cg2d.F	229	CG2D	& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj)
./model/src/cg2d.F	230	CG2D	& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj)
./model/src/cg2d.F	231	CG2D	& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj)
./model/src/cg2d.F	232	CG2D	& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj)
./model/src/cg2d.F	233	CG2D	& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj)
./model/src/cg2d.F	238	CG2D	localBuf(i,j,bi,bj) =
./model/src/cg2d.F	239	CG2D	& cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F	242	CG2D	& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F	263	CG2D	DO j=1,sNy
./model/src/cg2d.F	265	CG2D	cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj)
./model/src/cg2d.F	266	CG2D	& + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d.F	283	CG2D	DO j=1,sNy
./model/src/cg2d.F	285	CG2D	cg2d_q(i,j,bi,bj) =
./model/src/cg2d.F	286	CG2D	& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj)
./model/src/cg2d.F	287	CG2D	& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj)
./model/src/cg2d.F	288	CG2D	& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj)
./model/src/cg2d.F	289	CG2D	& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj)
./model/src/cg2d.F	290	CG2D	& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj)
./model/src/cg2d.F	292	CG2D	localBuf(i,j,bi,bj) = cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d.F	295	CG2D	& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d.F	317	CG2D	DO j=1,sNy
./model/src/cg2d.F	319	CG2D	cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj)
./model/src/cg2d.F	320	CG2D	cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj)
./model/src/cg2d.F	322	CG2D	localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F	325	CG2D	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F	353	CG2D	DO j=1,sNy
./model/src/cg2d.F	355	CG2D	cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d.F	371	CG2D	DO j=1,sNy
./model/src/cg2d.F	373	CG2D	cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj)
./model/src/cg2d.F	384	CG2D	DO j=1,sNy
./model/src/cg2d.F	386	CG2D	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm
./model/src/cg2d.F	91	CG2D	INTEGER i, j, it2d
./pkg/mom_vecinv/mom_vi_u_grad_ke.F	33	MOM_VI_U_GRAD_KE	dKEdx(I,J)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j))
./pkg/mom_vecinv/mom_vi_u_grad_ke.F	34	MOM_VI_U_GRAD_KE	& *_maskW(i,j,k,BI,BJ)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	126	MOM_VI_U_VERTSHEAR	& )*_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	131	MOM_VI_U_VERTSHEAR	& *_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	69	MOM_VI_U_VERTSHEAR	& wFld(I,J,K,bi,bj)rA(i,j,bi,bj)maskC(I,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	70	MOM_VI_U_VERTSHEAR	& +wFld(I-1,J,K,bi,bj)rA(i-1,j,bi,bj)maskC(I-1,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	72	MOM_VI_U_VERTSHEAR	& *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	76	MOM_VI_U_VERTSHEAR	& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	77	MOM_VI_U_VERTSHEAR	& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F	79	MOM_VI_U_VERTSHEAR	& *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	101	MOM_VI_V_CORIOLIS	vort3v=omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	104	MOM_VI_V_CORIOLIS	vort3v=0.5*(omega3(i,j)+omega3(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	106	MOM_VI_V_CORIOLIS	vCoriolisTerm(i,j)= -vort3vuBarXYrecip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	107	MOM_VI_V_CORIOLIS	& * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	114	MOM_VI_V_CORIOLIS	DO j=2-Oly,sNy+Oly
./pkg/mom_vecinv/mom_vi_v_coriolis.F	117	MOM_VI_V_CORIOLIS	& uFld( i , j )dyG( i , j ,bi,bj)_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	118	MOM_VI_V_CORIOLIS	& +uFld( i ,j-1)dyG( i ,j-1,bi,bj)_hFacW( i ,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	120	MOM_VI_V_CORIOLIS	& uFld(i+1, j )dyG(i+1, j ,bi,bj)_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	121	MOM_VI_V_CORIOLIS	& +uFld(i+1,j-1)dyG(i+1,j-1,bi,bj)_hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	124	MOM_VI_V_CORIOLIS	vort3v=uBarYmr_hFacZ( i ,j)omega3( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	126	MOM_VI_V_CORIOLIS	vort3v=uBarYpr_hFacZ(i+1,j)omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	129	MOM_VI_V_CORIOLIS	vort3v = ( uBarYmr_hFacZ( i ,j)omega3( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	130	MOM_VI_V_CORIOLIS	& +uBarYpr_hFacZ(i+1,j)omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	133	MOM_VI_V_CORIOLIS	vCoriolisTerm(i,j)= -vort3v*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	134	MOM_VI_V_CORIOLIS	& * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	145	MOM_VI_V_CORIOLIS	DO j=2-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_v_coriolis.F	147	MOM_VI_V_CORIOLIS	vort3im= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	148	MOM_VI_V_CORIOLIS	& +(r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	149	MOM_VI_V_CORIOLIS	& +r_hFacZ(i,j-1)*omega3(i,j-1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	152	MOM_VI_V_CORIOLIS	& uFld( i ,j-1)dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	153	MOM_VI_V_CORIOLIS	vort3ij= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	154	MOM_VI_V_CORIOLIS	& +(r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	155	MOM_VI_V_CORIOLIS	& +r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	158	MOM_VI_V_CORIOLIS	& uFld( i , j )dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	159	MOM_VI_V_CORIOLIS	vort3pm= ( r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	160	MOM_VI_V_CORIOLIS	& +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	161	MOM_VI_V_CORIOLIS	& +r_hFacZ(i+1,j-1)*omega3(i+1,j-1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	164	MOM_VI_V_CORIOLIS	& uFld(i+1,j-1)dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	165	MOM_VI_V_CORIOLIS	vort3pj= ( r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	166	MOM_VI_V_CORIOLIS	& +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	167	MOM_VI_V_CORIOLIS	& +r_hFacZ(i+1,j+1)*omega3(i+1,j+1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	170	MOM_VI_V_CORIOLIS	& uFld(i+1, j )dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	172	MOM_VI_V_CORIOLIS	vCoriolisTerm(i,j)= -( (vort3im+vort3ij)+(vort3pm+vort3pj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	173	MOM_VI_V_CORIOLIS	& 0.25 _d 0 recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	174	MOM_VI_V_CORIOLIS	& * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	188	MOM_VI_V_CORIOLIS	DO j=2-Oly,sNy+Oly-1
./pkg/mom_vecinv/mom_vi_v_coriolis.F	190	MOM_VI_V_CORIOLIS	vCoriolisTerm(i,j) = vCoriolisTerm(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	191	MOM_VI_V_CORIOLIS	& * 4. _d 0 * _hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	193	MOM_VI_V_CORIOLIS	& (_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	194	MOM_VI_V_CORIOLIS	& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	47	MOM_VI_V_CORIOLIS	INTEGER i, j
./pkg/mom_vecinv/mom_vi_v_coriolis.F	63	MOM_VI_V_CORIOLIS	DO j=2-Oly,sNy+Oly
./pkg/mom_vecinv/mom_vi_v_coriolis.F	66	MOM_VI_V_CORIOLIS	& (uFld( i , j )dyG( i , j ,bi,bj)_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	67	MOM_VI_V_CORIOLIS	& +uFld( i ,j-1)dyG( i ,j-1,bi,bj)_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	68	MOM_VI_V_CORIOLIS	& +(uFld(i+1, j )dyG(i+1, j ,bi,bj)_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	69	MOM_VI_V_CORIOLIS	& +uFld(i+1,j-1)dyG(i+1,j-1,bi,bj)_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	73	MOM_VI_V_CORIOLIS	vort3v=omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	75	MOM_VI_V_CORIOLIS	vort3v=omega3(i+1,j)*r_hFacZ(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	78	MOM_VI_V_CORIOLIS	vort3v=0.5(omega3(i,j)r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	79	MOM_VI_V_CORIOLIS	& +omega3(i+1,j)*r_hFacZ(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	81	MOM_VI_V_CORIOLIS	vCoriolisTerm(i,j)= -vort3vuBarXYrecip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	82	MOM_VI_V_CORIOLIS	& * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	89	MOM_VI_V_CORIOLIS	DO j=2-Oly,sNy+Oly
./pkg/mom_vecinv/mom_vi_v_coriolis.F	92	MOM_VI_V_CORIOLIS	& (uFld( i , j )dyG( i , j ,bi,bj)hFacZ( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	93	MOM_VI_V_CORIOLIS	& +uFld( i ,j-1)dyG( i ,j-1,bi,bj)hFacZ( i ,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	94	MOM_VI_V_CORIOLIS	& +(uFld(i+1, j )dyG(i+1, j ,bi,bj)hFacZ(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F	95	MOM_VI_V_CORIOLIS	& +uFld(i+1,j-1)dyG(i+1,j-1,bi,bj)hFacZ(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F	96	MOM_VI_V_CORIOLIS	& )/MAX( epsil, hFacZ(i,j)+hFacZ(i+1,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F	99	MOM_VI_V_CORIOLIS	vort3v=omega3(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	102	MOM_VI_V_CORIOLIS_C4	j = 1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	103	MOM_VI_V_CORIOLIS_C4	vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j+1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	107	MOM_VI_V_CORIOLIS_C4	j = sNy+1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	108	MOM_VI_V_CORIOLIS_C4	vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j-1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	112	MOM_VI_V_CORIOLIS_C4	j = sNy+1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	113	MOM_VI_V_CORIOLIS_C4	vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j-1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	126	MOM_VI_V_CORIOLIS_C4	DO j=1,sNy+1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	130	MOM_VI_V_CORIOLIS_C4	& (uFld( i , j )dyG( i , j ,bi,bj)_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	131	MOM_VI_V_CORIOLIS_C4	& +uFld( i ,j-1)dyG( i ,j-1,bi,bj)_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	132	MOM_VI_V_CORIOLIS_C4	& +(uFld(i+1, j )dyG(i+1, j ,bi,bj)_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	133	MOM_VI_V_CORIOLIS_C4	& +uFld(i+1,j-1)dyG(i+1,j-1,bi,bj)_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	137	MOM_VI_V_CORIOLIS_C4	vort3v=vort3r(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	139	MOM_VI_V_CORIOLIS_C4	vort3v=vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	143	MOM_VI_V_CORIOLIS_C4	Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	144	MOM_VI_V_CORIOLIS_C4	Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	146	MOM_VI_V_CORIOLIS_C4	Rjp = vort3r(i+2,j) - vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	147	MOM_VI_V_CORIOLIS_C4	Rjm = vort3r( i ,j) - vort3r(i-1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	149	MOM_VI_V_CORIOLIS_C4	vort3v=0.5*( (vort3r(i,j) + vort3r(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	153	MOM_VI_V_CORIOLIS_C4	vort3v=0.5*( vort3r(i,j) + vort3r(i+1,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	156	MOM_VI_V_CORIOLIS_C4	vCoriolisTerm(i,j) = -vort3vuBarXYrecip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	157	MOM_VI_V_CORIOLIS_C4	& * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	167	MOM_VI_V_CORIOLIS_C4	DO j=1,sNy+1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	171	MOM_VI_V_CORIOLIS_C4	& uFld( i , j )dyG( i , j ,bi,bj)_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	172	MOM_VI_V_CORIOLIS_C4	& +uFld( i ,j-1)dyG( i ,j-1,bi,bj)_hFacW( i ,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	174	MOM_VI_V_CORIOLIS_C4	& uFld(i+1, j )dyG(i+1, j ,bi,bj)_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	175	MOM_VI_V_CORIOLIS_C4	& +uFld(i+1,j-1)dyG(i+1,j-1,bi,bj)_hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	178	MOM_VI_V_CORIOLIS_C4	vort3v=uBarYm*vort3r( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	180	MOM_VI_V_CORIOLIS_C4	vort3v=uBarYp*vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	184	MOM_VI_V_CORIOLIS_C4	Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	185	MOM_VI_V_CORIOLIS_C4	Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	187	MOM_VI_V_CORIOLIS_C4	Rjp = vort3r(i+2,j) - vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	188	MOM_VI_V_CORIOLIS_C4	Rjm = vort3r( i ,j) - vort3r(i-1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	190	MOM_VI_V_CORIOLIS_C4	Rj = vort3r(i+1,j) - vort3r( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	191	MOM_VI_V_CORIOLIS_C4	Rjp = vort3r(i+1,j) -oneSixth*( Rjp+Rj )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	192	MOM_VI_V_CORIOLIS_C4	Rjm = vort3r( i ,j) +oneSixth*( Rj+Rjm )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	197	MOM_VI_V_CORIOLIS_C4	vort3v=0.5( uBarYmvort3r( i ,j) + uBarYp*vort3r(i+1,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	200	MOM_VI_V_CORIOLIS_C4	vCoriolisTerm(i,j) = -vort3v*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	201	MOM_VI_V_CORIOLIS_C4	& * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	49	MOM_VI_V_CORIOLIS_C4	INTEGER i,j
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	68	MOM_VI_V_CORIOLIS_C4	DO j=1-Oly,sNy+Oly
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	70	MOM_VI_V_CORIOLIS_C4	vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	97	MOM_VI_V_CORIOLIS_C4	j = 1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F	98	MOM_VI_V_CORIOLIS_C4	vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j+1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_grad_ke.F	33	MOM_VI_V_GRAD_KE	dKEdy(I,J)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1))
./pkg/mom_vecinv/mom_vi_v_grad_ke.F	34	MOM_VI_V_GRAD_KE	& *_maskS(i,j,k,BI,BJ)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	126	MOM_VI_V_VERTSHEAR	& )*_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	131	MOM_VI_V_VERTSHEAR	& *_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	69	MOM_VI_V_VERTSHEAR	& wFld(I,J,K,bi,bj)rA(i,j,bi,bj)maskC(i,j,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	70	MOM_VI_V_VERTSHEAR	& +wFld(I,J-1,K,bi,bj)rA(i,j-1,bi,bj)maskC(i,j-1,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	72	MOM_VI_V_VERTSHEAR	& *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	76	MOM_VI_V_VERTSHEAR	& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	77	MOM_VI_V_VERTSHEAR	& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	79	MOM_VI_V_VERTSHEAR	& *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	83	MOM_VI_V_VERTSHEAR	& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F	84	MOM_VI_V_VERTSHEAR	& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj)
./model/src/cg2d_ex0.F	114	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	116	CG2D_EX0	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d_ex0.F	117	CG2D_EX0	rhsMaxLoc = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMaxLoc)
./model/src/cg2d_ex0.F	123	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	125	CG2D_EX0	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm(bi,bj)
./model/src/cg2d_ex0.F	126	CG2D_EX0	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm(bi,bj)
./model/src/cg2d_ex0.F	145	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	147	CG2D_EX0	cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_ex0.F	151	CG2D_EX0	DO j=0,sNy+1
./model/src/cg2d_ex0.F	153	CG2D_EX0	cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d_ex0.F	161	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	163	CG2D_EX0	cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d_ex0.F	164	CG2D_EX0	& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj)
./model/src/cg2d_ex0.F	165	CG2D_EX0	& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj)
./model/src/cg2d_ex0.F	166	CG2D_EX0	& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj)
./model/src/cg2d_ex0.F	167	CG2D_EX0	& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj)
./model/src/cg2d_ex0.F	168	CG2D_EX0	& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj)
./model/src/cg2d_ex0.F	171	CG2D_EX0	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_ex0.F	172	CG2D_EX0	sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d_ex0.F	214	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	216	CG2D_EX0	cg2d_q(i,j,bi,bj) =
./model/src/cg2d_ex0.F	217	CG2D_EX0	& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj)
./model/src/cg2d_ex0.F	218	CG2D_EX0	& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj)
./model/src/cg2d_ex0.F	219	CG2D_EX0	& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj)
./model/src/cg2d_ex0.F	220	CG2D_EX0	& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj)
./model/src/cg2d_ex0.F	221	CG2D_EX0	& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj)
./model/src/cg2d_ex0.F	223	CG2D_EX0	& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_ex0.F	230	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	232	CG2D_EX0	cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj)
./model/src/cg2d_ex0.F	233	CG2D_EX0	& + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d_ex0.F	249	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	251	CG2D_EX0	cg2d_q(i,j,bi,bj) =
./model/src/cg2d_ex0.F	252	CG2D_EX0	& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj)
./model/src/cg2d_ex0.F	253	CG2D_EX0	& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj)
./model/src/cg2d_ex0.F	254	CG2D_EX0	& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj)
./model/src/cg2d_ex0.F	255	CG2D_EX0	& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj)
./model/src/cg2d_ex0.F	256	CG2D_EX0	& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj)
./model/src/cg2d_ex0.F	258	CG2D_EX0	& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d_ex0.F	266	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	268	CG2D_EX0	cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj)
./model/src/cg2d_ex0.F	269	CG2D_EX0	cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj)
./model/src/cg2d_ex0.F	271	CG2D_EX0	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_ex0.F	289	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	291	CG2D_EX0	cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_ex0.F	319	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	321	CG2D_EX0	cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj)
./model/src/cg2d_ex0.F	333	CG2D_EX0	DO j=1,sNy
./model/src/cg2d_ex0.F	335	CG2D_EX0	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm(bi,bj)
./model/src/cg2d_ex0.F	83	CG2D_EX0	INTEGER i, j, it2d
./pkg/monitor/mon_calc_stats_rl.F	101	MON_CALC_STATS_RL	tmpVol = arrArea(i,j,bi,bj)arrDr(k)tmpMask
./pkg/monitor/mon_calc_stats_rl.F	139	MON_CALC_STATS_RL	DO j=1,sNy
./pkg/monitor/mon_calc_stats_rl.F	141	MON_CALC_STATS_RL	tmpVal=arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F	142	MON_CALC_STATS_RL	tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F	144	MON_CALC_STATS_RL	tmpVol = arrArea(i,j,bi,bj)arrDr(k)tmpMask
./pkg/monitor/mon_calc_stats_rl.F	36	MON_CALC_STATS_RL	INTEGER bi,bj,i,j,k
./pkg/monitor/mon_calc_stats_rl.F	67	MON_CALC_STATS_RL	DO j=1,sNy
./pkg/monitor/mon_calc_stats_rl.F	69	MON_CALC_STATS_RL	tmpVal = arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F	70	MON_CALC_STATS_RL	tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F	88	MON_CALC_STATS_RL	ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F	90	MON_CALC_STATS_RL	ddx = (arr(i+1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F	91	MON_CALC_STATS_RL	& + (arr(i-1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F	93	MON_CALC_STATS_RL	ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F	95	MON_CALC_STATS_RL	ddy = (arr(i,j+1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F	96	MON_CALC_STATS_RL	& + (arr(i,j-1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F	101	MON_CALC_STATS_RS	tmpVol = arrArea(i,j,bi,bj)arrDr(k)tmpMask
./pkg/monitor/mon_calc_stats_rs.F	139	MON_CALC_STATS_RS	DO j=1,sNy
./pkg/monitor/mon_calc_stats_rs.F	141	MON_CALC_STATS_RS	tmpVal=arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F	142	MON_CALC_STATS_RS	tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F	144	MON_CALC_STATS_RS	tmpVol = arrArea(i,j,bi,bj)arrDr(k)tmpMask
./pkg/monitor/mon_calc_stats_rs.F	36	MON_CALC_STATS_RS	INTEGER bi,bj,i,j,k
./pkg/monitor/mon_calc_stats_rs.F	67	MON_CALC_STATS_RS	DO j=1,sNy
./pkg/monitor/mon_calc_stats_rs.F	69	MON_CALC_STATS_RS	tmpVal = arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F	70	MON_CALC_STATS_RS	tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F	88	MON_CALC_STATS_RS	ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F	90	MON_CALC_STATS_RS	ddx = (arr(i+1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F	91	MON_CALC_STATS_RS	& + (arr(i-1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F	93	MON_CALC_STATS_RS	ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F	95	MON_CALC_STATS_RS	ddy = (arr(i,j+1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F	96	MON_CALC_STATS_RS	& + (arr(i,j-1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_ke.F	100	MON_KE	& dyG(i+1,j,bi,bj)dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
./pkg/monitor/mon_ke.F	101	MON_KE	& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F	102	MON_KE	& dxG(i, j ,bi,bj)dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F	103	MON_KE	& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
./pkg/monitor/mon_ke.F	104	MON_KE	& dxG(i,j+1,bi,bj)dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
./pkg/monitor/mon_ke.F	105	MON_KE	& )*maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F	108	MON_KE	tmpVal= tmpVal_recip_hFacC(i,j,k,bi,bj)recip_rA(i,j,bi,bj)
./pkg/monitor/mon_ke.F	113	MON_KE	& ( wVel(i,j, k, bi,bj)wVel(i,j, k, bi,bj)msk_1
./pkg/monitor/mon_ke.F	115	MON_KE	& +wVel(i,j,kp1,bi,bj)wVel(i,j,kp1,bi,bj)mskp1
./pkg/monitor/mon_ke.F	117	MON_KE	& )maskC(i,j,k,bi,bj)maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F	119	MON_KE	& + tmpWkerA(i,j,bi,bj)drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	135	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	137	MON_KE	tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
./pkg/monitor/mon_ke.F	138	MON_KE	& etaN(i,j,bi,bj)etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F	142	MON_KE	& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F	144	MON_KE	& + tmpValrA(i,j,bi,bj)deepFac2F(1)
./pkg/monitor/mon_ke.F	145	MON_KE	& *maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F	184	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	186	MON_KE	tmpFld(i,j) = 0. _d 0
./pkg/monitor/mon_ke.F	192	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	195	MON_KE	tmpVal = abFac1*guNm(i,j,k,bi,bj,m1)
./pkg/monitor/mon_ke.F	196	MON_KE	& + abFac2*guNm(i,j,k,bi,bj,m2)
./pkg/monitor/mon_ke.F	198	MON_KE	tmpVal = abFac1*guNm1(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	200	MON_KE	tmpVal = tmpVal*deltaTMom + uVel(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	201	MON_KE	tmpFld(i,j) = tmpFld(i,j)
./pkg/monitor/mon_ke.F	202	MON_KE	& + R_drKtmpVal_hFacW(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	207	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	210	MON_KE	& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL )
./pkg/monitor/mon_ke.F	211	MON_KE	tmpFld(i,j) = tmpFld(i,j)*u2zonDir(i,j,bi,bj)
./pkg/monitor/mon_ke.F	212	MON_KE	& cosLatrAw(i,j,bi,bj)
./pkg/monitor/mon_ke.F	213	MON_KE	& *maskInW(i,j,bi,bj)
./pkg/monitor/mon_ke.F	217	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	219	MON_KE	tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j)
./pkg/monitor/mon_ke.F	223	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	225	MON_KE	tmpFld(i,j) = 0. _d 0
./pkg/monitor/mon_ke.F	231	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	234	MON_KE	tmpVal = abFac1*gvNm(i,j,k,bi,bj,m1)
./pkg/monitor/mon_ke.F	235	MON_KE	& + abFac2*gvNm(i,j,k,bi,bj,m2)
./pkg/monitor/mon_ke.F	237	MON_KE	tmpVal = abFac1*gvNm1(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	239	MON_KE	tmpVal = tmpVal*deltaTMom + vVel(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	240	MON_KE	tmpFld(i,j) = tmpFld(i,j)
./pkg/monitor/mon_ke.F	241	MON_KE	& + R_drKtmpVal_hFacS(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	246	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	249	MON_KE	& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL )
./pkg/monitor/mon_ke.F	250	MON_KE	tmpFld(i,j) = tmpFld(i,j)*v2zonDir(i,j,bi,bj)
./pkg/monitor/mon_ke.F	251	MON_KE	& cosLatrAs(i,j,bi,bj)
./pkg/monitor/mon_ke.F	252	MON_KE	& *maskInS(i,j,bi,bj)
./pkg/monitor/mon_ke.F	255	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	257	MON_KE	tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j)
./pkg/monitor/mon_ke.F	262	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	265	MON_KE	tmpFld(i,j) = etaHnm1(i,j,bi,bj)
./pkg/monitor/mon_ke.F	267	MON_KE	tmpFld(i,j) = 0.
./pkg/monitor/mon_ke.F	272	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	274	MON_KE	tmpFld(i,j) = etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F	280	MON_KE	DO j=1-OLy,sNy+OLy
./pkg/monitor/mon_ke.F	282	MON_KE	cosLat = COS( deg2rad*yG(i,j,bi,bj) )
./pkg/monitor/mon_ke.F	283	MON_KE	cos2LatG(i,j) = cosLat*cosLat
./pkg/monitor/mon_ke.F	286	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	288	MON_KE	tmpFld(i,j) = tmpFld(i,j)
./pkg/monitor/mon_ke.F	290	MON_KE	& *( ( cos2LatG(i,j) + cos2LatG(i+1,j+1) )
./pkg/monitor/mon_ke.F	291	MON_KE	& + ( cos2LatG(i+1,j) + cos2LatG(i,j+1) )
./pkg/monitor/mon_ke.F	295	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	297	MON_KE	ks = kSurfC(i,j,bi,bj)
./pkg/monitor/mon_ke.F	298	MON_KE	tmpFld(i,j) = tmpFld(i,j)
./pkg/monitor/mon_ke.F	299	MON_KE	& maskInC(i,j,bi,bj)deepFac2F(ks)
./pkg/monitor/mon_ke.F	300	MON_KE	& rA(i,j,bi,bj)deepFac2F(ks)*rhoFacF(ks)
./pkg/monitor/mon_ke.F	304	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	306	MON_KE	tileAMs(bi,bj) = tileAMs(bi,bj) + tmpFld(i,j)
./pkg/monitor/mon_ke.F	34	MON_KE	INTEGER i,j,k
./pkg/monitor/mon_ke.F	78	MON_KE	DO j=1,sNy
./pkg/monitor/mon_ke.F	81	MON_KE	& + rA(i,j,bi,bj)*deepFac2C(k)
./pkg/monitor/mon_ke.F	82	MON_KE	& rhoFacC(k)drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F	83	MON_KE	& *maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F	97	MON_KE	& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F	98	MON_KE	& dyG( i ,j,bi,bj)dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F	99	MON_KE	& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
./model/src/cg2d_nsa.F	101	CG2D_NSA	INTEGER i, j, it2d
./model/src/cg2d_nsa.F	149	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	151	CG2D_NSA	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d_nsa.F	152	CG2D_NSA	rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax)
./model/src/cg2d_nsa.F	166	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	168	CG2D_NSA	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm
./model/src/cg2d_nsa.F	169	CG2D_NSA	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm
./model/src/cg2d_nsa.F	190	CG2D_NSA	DO j=0,sNy+1
./model/src/cg2d_nsa.F	192	CG2D_NSA	cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d_nsa.F	195	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	197	CG2D_NSA	cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d_nsa.F	198	CG2D_NSA	& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj)
./model/src/cg2d_nsa.F	199	CG2D_NSA	& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj)
./model/src/cg2d_nsa.F	200	CG2D_NSA	& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj)
./model/src/cg2d_nsa.F	201	CG2D_NSA	& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj)
./model/src/cg2d_nsa.F	202	CG2D_NSA	& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj)
./model/src/cg2d_nsa.F	205	CG2D_NSA	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_nsa.F	206	CG2D_NSA	sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d_nsa.F	259	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	261	CG2D_NSA	cg2d_z(i,j,bi,bj) =
./model/src/cg2d_nsa.F	262	CG2D_NSA	& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj)
./model/src/cg2d_nsa.F	263	CG2D_NSA	& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj)
./model/src/cg2d_nsa.F	264	CG2D_NSA	& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj)
./model/src/cg2d_nsa.F	265	CG2D_NSA	& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj)
./model/src/cg2d_nsa.F	266	CG2D_NSA	& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj)
./model/src/cg2d_nsa.F	268	CG2D_NSA	& +cg2d_z(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_nsa.F	288	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	290	CG2D_NSA	cg2d_s(i,j,bi,bj) = cg2d_z(i,j,bi,bj)
./model/src/cg2d_nsa.F	291	CG2D_NSA	& + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d_nsa.F	312	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	314	CG2D_NSA	cg2d_q(i,j,bi,bj) =
./model/src/cg2d_nsa.F	315	CG2D_NSA	& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj)
./model/src/cg2d_nsa.F	316	CG2D_NSA	& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj)
./model/src/cg2d_nsa.F	317	CG2D_NSA	& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj)
./model/src/cg2d_nsa.F	318	CG2D_NSA	& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj)
./model/src/cg2d_nsa.F	319	CG2D_NSA	& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj)
./model/src/cg2d_nsa.F	321	CG2D_NSA	& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d_nsa.F	339	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	341	CG2D_NSA	cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj)
./model/src/cg2d_nsa.F	342	CG2D_NSA	cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj)
./model/src/cg2d_nsa.F	344	CG2D_NSA	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_nsa.F	373	CG2D_NSA	DO j=1,sNy
./model/src/cg2d_nsa.F	375	CG2D_NSA	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm
./pkg/monitor/mon_stats_latbnd_rl.F	100	MON_STATS_LATBND_RL	DO j=1,sNy
./pkg/monitor/mon_stats_latbnd_rl.F	102	MON_STATS_LATBND_RL	n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) )
./pkg/monitor/mon_stats_latbnd_rl.F	103	MON_STATS_LATBND_RL	tmpVal=arr(i,j,k,bi,bj)
./pkg/monitor/mon_stats_latbnd_rl.F	104	MON_STATS_LATBND_RL	IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN
./pkg/monitor/mon_stats_latbnd_rl.F	109	MON_STATS_LATBND_RL	IF (arrMask(i,j,km,bi,bj).NE.0.) THEN
./pkg/monitor/mon_stats_latbnd_rl.F	112	MON_STATS_LATBND_RL	tmpVol = arrArea(i,j,bi,bj)arrhFac(i,j,km,bi,bj)arrDr(k)
./pkg/monitor/mon_stats_latbnd_rl.F	113	MON_STATS_LATBND_RL	& *arrMask(i,j,km,bi,bj)
./pkg/monitor/mon_stats_latbnd_rl.F	51	MON_STATS_LATBND_RL	INTEGER bi,bj,i,j,k,n
./pkg/monitor/mon_surfcor.F	106	MON_SURFCOR	DO j=1,sNy
./pkg/monitor/mon_surfcor.F	108	MON_SURFCOR	ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	110	MON_SURFCOR	tmpVal = salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F	111	MON_SURFCOR	& + salt(i,j,Nr,bi,bj)drF(Nr)recip_drF(ks)
./pkg/monitor/mon_surfcor.F	112	MON_SURFCOR	& hFacC(i,j,Nr,bi,bj)_recip_hFacC(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F	114	MON_SURFCOR	& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	115	MON_SURFCOR	& wVel(i,j,ks,bi,bj)tmpVal
./pkg/monitor/mon_surfcor.F	129	MON_SURFCOR	DO j=1,sNy
./pkg/monitor/mon_surfcor.F	132	MON_SURFCOR	& - ddPIrA(i,j,bi,bj)wVel(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F	133	MON_SURFCOR	& (theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))0.5 _d 0
./pkg/monitor/mon_surfcor.F	134	MON_SURFCOR	& maskC(i,j,k-1,bi,bj)maskC(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F	135	MON_SURFCOR	& *maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	152	MON_SURFCOR	DO j=1,sNy
./pkg/monitor/mon_surfcor.F	154	MON_SURFCOR	tmpVol = rA(i,j,bi,bj)h0FacC(i,j,k,bi,bj)drF(k)
./pkg/monitor/mon_surfcor.F	155	MON_SURFCOR	& *maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	156	MON_SURFCOR	tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F	159	MON_SURFCOR	& +tmpVolrStarDhCDt(i,j,bi,bj)salt(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F	54	MON_SURFCOR	INTEGER i,j,k,ks,bi,bj
./pkg/monitor/mon_surfcor.F	83	MON_SURFCOR	DO j=1,sNy
./pkg/monitor/mon_surfcor.F	85	MON_SURFCOR	ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	88	MON_SURFCOR	& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	89	MON_SURFCOR	tmpVal = rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	90	MON_SURFCOR	& wVel(i,j,ks,bi,bj)theta(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F	93	MON_SURFCOR	& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F	94	MON_SURFCOR	& wVel(i,j,ks,bi,bj)salt(i,j,ks,bi,bj)
./pkg/monitor/mon_vort3.F	111	MON_VORT3	hFacZ(i,j) = 1. + 0.125 _d 0*
./pkg/monitor/mon_vort3.F	112	MON_VORT3	& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	113	MON_VORT3	& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	114	MON_VORT3	& )*recip_rAw(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	115	MON_VORT3	& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj)
./pkg/monitor/mon_vort3.F	116	MON_VORT3	& +etaFld( i , j )*rA( i , j ,bi,bj)
./pkg/monitor/mon_vort3.F	117	MON_VORT3	& )*recip_rAw(i, j ,bi,bj)
./pkg/monitor/mon_vort3.F	118	MON_VORT3	& + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	119	MON_VORT3	& +etaFld(i-1, j )*rA(i-1, j ,bi,bj)
./pkg/monitor/mon_vort3.F	120	MON_VORT3	& )*recip_rAs(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F	121	MON_VORT3	& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	122	MON_VORT3	& + etaFld( i , j )*rA( i , j ,bi,bj)
./pkg/monitor/mon_vort3.F	123	MON_VORT3	& )*recip_rAs( i ,j,bi,bj)
./pkg/monitor/mon_vort3.F	128	MON_VORT3	hFacZ(i,j) =
./pkg/monitor/mon_vort3.F	129	MON_VORT3	& 0.25 _d 0*( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F	130	MON_VORT3	& + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F	131	MON_VORT3	& + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F	132	MON_VORT3	& + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F	135	MON_VORT3	vort3(i,j) = recip_rAz(i,j,bi,bj)*(
./pkg/monitor/mon_vort3.F	136	MON_VORT3	& vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj)
./pkg/monitor/mon_vort3.F	137	MON_VORT3	& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F	138	MON_VORT3	& -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj)
./pkg/monitor/mon_vort3.F	139	MON_VORT3	& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	154	MON_VORT3	DO j=1,jMax
./pkg/monitor/mon_vort3.F	155	MON_VORT3	hFacZ(iMax,j)=0.
./pkg/monitor/mon_vort3.F	156	MON_VORT3	vort3(iMax,j)=0.
./pkg/monitor/mon_vort3.F	185	MON_VORT3	j=1
./pkg/monitor/mon_vort3.F	186	MON_VORT3	vort3(i,j)=
./pkg/monitor/mon_vort3.F	187	MON_VORT3	& +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F	188	MON_VORT3	& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	189	MON_VORT3	& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	190	MON_VORT3	& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	192	MON_VORT3	hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F	193	MON_VORT3	& + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F	194	MON_VORT3	& + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F	200	MON_VORT3	j=1
./pkg/monitor/mon_vort3.F	201	MON_VORT3	vort3(i,j)=
./pkg/monitor/mon_vort3.F	202	MON_VORT3	& +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F	203	MON_VORT3	& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F	204	MON_VORT3	& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	205	MON_VORT3	& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	207	MON_VORT3	hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F	208	MON_VORT3	& + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F	209	MON_VORT3	& + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F	215	MON_VORT3	j=jMax
./pkg/monitor/mon_vort3.F	216	MON_VORT3	vort3(i,j)=
./pkg/monitor/mon_vort3.F	217	MON_VORT3	& +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F	218	MON_VORT3	& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	219	MON_VORT3	& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	220	MON_VORT3	& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	222	MON_VORT3	hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F	223	MON_VORT3	& + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F	224	MON_VORT3	& + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F	230	MON_VORT3	j=jMax
./pkg/monitor/mon_vort3.F	231	MON_VORT3	vort3(i,j)=
./pkg/monitor/mon_vort3.F	232	MON_VORT3	& +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F	233	MON_VORT3	& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F	234	MON_VORT3	& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	235	MON_VORT3	& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	237	MON_VORT3	hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F	238	MON_VORT3	& + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F	239	MON_VORT3	& + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F	248	MON_VORT3	j = jMax
./pkg/monitor/mon_vort3.F	250	MON_VORT3	vort3(i,j) = 0.
./pkg/monitor/mon_vort3.F	251	MON_VORT3	vort3(1,j) = vort3(1,j)
./pkg/monitor/mon_vort3.F	252	MON_VORT3	& + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F	253	MON_VORT3	hFacZ(i,j) = 0.
./pkg/monitor/mon_vort3.F	255	MON_VORT3	hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F	258	MON_VORT3	hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j-1)
./pkg/monitor/mon_vort3.F	260	MON_VORT3	hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k)
./pkg/monitor/mon_vort3.F	262	MON_VORT3	hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx)
./pkg/monitor/mon_vort3.F	263	MON_VORT3	vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj)
./pkg/monitor/mon_vort3.F	266	MON_VORT3	j = 1
./pkg/monitor/mon_vort3.F	268	MON_VORT3	vort3(i,j) = 0.
./pkg/monitor/mon_vort3.F	269	MON_VORT3	vort3(1,j) = vort3(1,j)
./pkg/monitor/mon_vort3.F	270	MON_VORT3	& - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	271	MON_VORT3	hFacZ(i,j) = 0.
./pkg/monitor/mon_vort3.F	273	MON_VORT3	hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj)
./pkg/monitor/mon_vort3.F	276	MON_VORT3	hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j)
./pkg/monitor/mon_vort3.F	278	MON_VORT3	hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k)
./pkg/monitor/mon_vort3.F	280	MON_VORT3	hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx)
./pkg/monitor/mon_vort3.F	281	MON_VORT3	vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj)
./pkg/monitor/mon_vort3.F	287	MON_VORT3	DO j=1,jMax
./pkg/monitor/mon_vort3.F	289	MON_VORT3	IF (hFacZ(i,j).GT.0. _d 0) THEN
./pkg/monitor/mon_vort3.F	290	MON_VORT3	tmpVal = vort3(i,j)
./pkg/monitor/mon_vort3.F	291	MON_VORT3	tmpAre = rAz(i,j,bi,bj)*drF(k)
./pkg/monitor/mon_vort3.F	292	MON_VORT3	tmpVol = rAz(i,j,bi,bj)drF(k)hFacZ(i,j)
./pkg/monitor/mon_vort3.F	298	MON_VORT3	tmpVal = tmpVal + fCoriG(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	302	MON_VORT3	tmpVal = tmpVal / hFacZ(i,j)
./pkg/monitor/mon_vort3.F	35	MON_VORT3	INTEGER bi,bj,i,j,k
./pkg/monitor/mon_vort3.F	83	MON_VORT3	DO j=1-Oly,sNy+Oly
./pkg/monitor/mon_vort3.F	85	MON_VORT3	etaFld(i,j) = etaH(i,j,bi,bj)
./pkg/monitor/mon_vort3.F	86	MON_VORT3	& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./pkg/monitor/mon_vort3.F	94	MON_VORT3	DO j=1,sNy
./model/src/cg2d_sr.F	124	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	126	CG2D_SR	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d_sr.F	127	CG2D_SR	rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax)
./model/src/cg2d_sr.F	140	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	142	CG2D_SR	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm
./model/src/cg2d_sr.F	143	CG2D_SR	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm
./model/src/cg2d_sr.F	158	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	160	CG2D_SR	cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_sr.F	164	CG2D_SR	DO j=0,sNy+1
./model/src/cg2d_sr.F	166	CG2D_SR	cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d_sr.F	174	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	176	CG2D_SR	cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d_sr.F	177	CG2D_SR	& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj)
./model/src/cg2d_sr.F	178	CG2D_SR	& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj)
./model/src/cg2d_sr.F	179	CG2D_SR	& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj)
./model/src/cg2d_sr.F	180	CG2D_SR	& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj)
./model/src/cg2d_sr.F	181	CG2D_SR	& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj)
./model/src/cg2d_sr.F	184	CG2D_SR	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F	185	CG2D_SR	sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d_sr.F	224	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	226	CG2D_SR	cg2d_y(i,j,bi,bj) =
./model/src/cg2d_sr.F	227	CG2D_SR	& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj)
./model/src/cg2d_sr.F	228	CG2D_SR	& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj)
./model/src/cg2d_sr.F	229	CG2D_SR	& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj)
./model/src/cg2d_sr.F	230	CG2D_SR	& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj)
./model/src/cg2d_sr.F	231	CG2D_SR	& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj)
./model/src/cg2d_sr.F	232	CG2D_SR	cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj)
./model/src/cg2d_sr.F	234	CG2D_SR	& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F	253	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	255	CG2D_SR	cg2d_q(i,j,bi,bj) =
./model/src/cg2d_sr.F	256	CG2D_SR	& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj)
./model/src/cg2d_sr.F	257	CG2D_SR	& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj)
./model/src/cg2d_sr.F	258	CG2D_SR	& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj)
./model/src/cg2d_sr.F	259	CG2D_SR	& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj)
./model/src/cg2d_sr.F	260	CG2D_SR	& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj)
./model/src/cg2d_sr.F	262	CG2D_SR	& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F	276	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	278	CG2D_SR	cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+sigma*cg2d_s(i,j,bi,bj)
./model/src/cg2d_sr.F	279	CG2D_SR	cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-sigma*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F	300	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	302	CG2D_SR	cg2d_y(i,j,bi,bj) =
./model/src/cg2d_sr.F	303	CG2D_SR	& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj)
./model/src/cg2d_sr.F	304	CG2D_SR	& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj)
./model/src/cg2d_sr.F	305	CG2D_SR	& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj)
./model/src/cg2d_sr.F	306	CG2D_SR	& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj)
./model/src/cg2d_sr.F	307	CG2D_SR	& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj)
./model/src/cg2d_sr.F	327	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	329	CG2D_SR	cg2d_v(i,j,bi,bj) =
./model/src/cg2d_sr.F	330	CG2D_SR	& aW2d(i ,j ,bi,bj)*cg2d_y(i-1,j ,bi,bj)
./model/src/cg2d_sr.F	331	CG2D_SR	& +aW2d(i+1,j ,bi,bj)*cg2d_y(i+1,j ,bi,bj)
./model/src/cg2d_sr.F	332	CG2D_SR	& +aS2d(i ,j ,bi,bj)*cg2d_y(i ,j-1,bi,bj)
./model/src/cg2d_sr.F	333	CG2D_SR	& +aS2d(i ,j+1,bi,bj)*cg2d_y(i ,j+1,bi,bj)
./model/src/cg2d_sr.F	334	CG2D_SR	& +aC2d(i ,j ,bi,bj)*cg2d_y(i ,j ,bi,bj)
./model/src/cg2d_sr.F	336	CG2D_SR	& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F	338	CG2D_SR	& +cg2d_y(i,j,bi,bj)*cg2d_v(i,j,bi,bj)
./model/src/cg2d_sr.F	340	CG2D_SR	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F	373	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	375	CG2D_SR	cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_sr.F	390	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	392	CG2D_SR	cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj)
./model/src/cg2d_sr.F	393	CG2D_SR	& + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d_sr.F	394	CG2D_SR	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_sr.F	395	CG2D_SR	& + sigma*cg2d_s(i,j,bi,bj)
./model/src/cg2d_sr.F	396	CG2D_SR	cg2d_q(i,j,bi,bj) = cg2d_v(i,j,bi,bj)
./model/src/cg2d_sr.F	397	CG2D_SR	& + cgBeta*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F	398	CG2D_SR	cg2d_r(i,j,bi,bj) = cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F	399	CG2D_SR	& - sigma*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F	412	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	415	CG2D_SR	& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F	427	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	429	CG2D_SR	cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj)
./model/src/cg2d_sr.F	440	CG2D_SR	DO j=1,sNy
./model/src/cg2d_sr.F	442	CG2D_SR	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm
./model/src/cg2d_sr.F	97	CG2D_SR	INTEGER i, j, it2d
./pkg/my82/my82_calc_diff.F	45	MY82_CALC_DIFF	INTEGER i,j,k
./pkg/my82/my82_calc_diff.F	51	MY82_CALC_DIFF	DO j=jMin,jMax
./pkg/my82/my82_calc_diff.F	53	MY82_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/my82/my82_calc_diff.F	54	MY82_CALC_DIFF	& +( MYdiffKr(i,j,k,bi,bj)
./pkg/my82/my82_calc_diff.F	56	MY82_CALC_DIFF	& - diffKr(i,j,k,bi,bj) )
./pkg/my82/my82_calc_diff.F	66	MY82_CALC_DIFF	DO j=jMin,jMax
./pkg/my82/my82_calc_diff.F	68	MY82_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/my82/my82_calc_diff.F	69	MY82_CALC_DIFF	& +( MYdiffKr(i,j,kArg,bi,bj)
./pkg/my82/my82_calc_diff.F	71	MY82_CALC_DIFF	& - diffKr(i,j,kArg,bi,bj) )
./pkg/my82/my82_calc_visc.F	37	MY82_CALC_VISC	INTEGER i,j
./pkg/my82/my82_calc_visc.F	39	MY82_CALC_VISC	DO j=jMin,jMax
./pkg/my82/my82_calc_visc.F	41	MY82_CALC_VISC	KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/my82/my82_calc_visc.F	42	MY82_CALC_VISC	& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) *
./pkg/my82/my82_calc_visc.F	43	MY82_CALC_VISC	& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) )
./pkg/my82/my82_calc_visc.F	47	MY82_CALC_VISC	DO j=jMin,jMax
./pkg/my82/my82_calc_visc.F	49	MY82_CALC_VISC	KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/my82/my82_calc_visc.F	50	MY82_CALC_VISC	& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) *
./pkg/my82/my82_calc_visc.F	51	MY82_CALC_VISC	& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) )
./model/src/cg3d.F	126	CG3D	DO j=1,sNy
./model/src/cg3d.F	128	CG3D	surfTerm(i,j) = 0.
./model/src/cg3d.F	141	CG3D	DO j=1,sNy
./model/src/cg3d.F	143	CG3D	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm
./model/src/cg3d.F	144	CG3D	& * maskC(i,j,k,bi,bj)
./model/src/cg3d.F	145	CG3D	rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax)
./model/src/cg3d.F	157	CG3D	DO j=1,sNy
./model/src/cg3d.F	159	CG3D	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm
./model/src/cg3d.F	160	CG3D	cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm
./model/src/cg3d.F	177	CG3D	DO j=1,sNy
./model/src/cg3d.F	179	CG3D	surfTerm(i,j) = 0.
./model/src/cg3d.F	183	CG3D	DO j=1,sNy
./model/src/cg3d.F	185	CG3D	surfTerm(i,j) = surfTerm(i,j)
./model/src/cg3d.F	186	CG3D	& +cg3d_x(i,j,k,bi,bj)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F	190	CG3D	DO j=1,sNy
./model/src/cg3d.F	192	CG3D	ks = kSurfC(i,j,bi,bj)
./model/src/cg3d.F	193	CG3D	surfTerm(i,j) = surfTerm(i,j)*cg3dNorm
./model/src/cg3d.F	194	CG3D	& recip_Rcol(i,j,bi,bj)recip_Rcol(i,j,bi,bj)
./model/src/cg3d.F	195	CG3D	& rA(i,j,bi,bj)deepFac2F(ks)
./model/src/cg3d.F	196	CG3D	& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d.F	211	CG3D	DO j=1,sNy
./model/src/cg3d.F	213	CG3D	cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/cg3d.F	215	CG3D	& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj)
./model/src/cg3d.F	216	CG3D	& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj)
./model/src/cg3d.F	217	CG3D	& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj)
./model/src/cg3d.F	218	CG3D	& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj)
./model/src/cg3d.F	219	CG3D	& +aV3d( i, j, k, bi,bj)cg3d_x( i, j,km1,bi,bj)maskM1
./model/src/cg3d.F	220	CG3D	& +aV3d( i, j,kp1,bi,bj)cg3d_x( i, j,kp1,bi,bj)maskP1
./model/src/cg3d.F	221	CG3D	& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj)
./model/src/cg3d.F	223	CG3D	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F	227	CG3D	& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F	228	CG3D	sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj)
./model/src/cg3d.F	231	CG3D	DO j=0,sNy+1
./model/src/cg3d.F	233	CG3D	cg3d_s(i,j,k,bi,bj) = 0.
./model/src/cg3d.F	277	CG3D	DO j=0,sNy+1
./model/src/cg3d.F	279	CG3D	cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d.F	280	CG3D	& *cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F	288	CG3D	DO j=0,sNy+1
./model/src/cg3d.F	290	CG3D	cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d.F	291	CG3D	& *( cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F	292	CG3D	& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj)
./model/src/cg3d.F	301	CG3D	DO j=1,sNy
./model/src/cg3d.F	304	CG3D	& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F	312	CG3D	DO j=0,sNy+1
./model/src/cg3d.F	314	CG3D	cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F	315	CG3D	& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj)
./model/src/cg3d.F	321	CG3D	DO j=1,sNy
./model/src/cg3d.F	324	CG3D	& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F	342	CG3D	DO j=0,sNy+1
./model/src/cg3d.F	344	CG3D	cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F	345	CG3D	& + cgBeta*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d.F	359	CG3D	DO j=1,sNy
./model/src/cg3d.F	361	CG3D	surfTerm(i,j) = 0.
./model/src/cg3d.F	365	CG3D	DO j=1,sNy
./model/src/cg3d.F	367	CG3D	surfTerm(i,j) = surfTerm(i,j)
./model/src/cg3d.F	368	CG3D	& +cg3d_s(i,j,k,bi,bj)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F	372	CG3D	DO j=1,sNy
./model/src/cg3d.F	374	CG3D	ks = kSurfC(i,j,bi,bj)
./model/src/cg3d.F	375	CG3D	surfTerm(i,j) = surfTerm(i,j)*cg3dNorm
./model/src/cg3d.F	376	CG3D	& recip_Rcol(i,j,bi,bj)recip_Rcol(i,j,bi,bj)
./model/src/cg3d.F	377	CG3D	& rA(i,j,bi,bj)deepFac2F(ks)
./model/src/cg3d.F	378	CG3D	& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d.F	388	CG3D	DO j=1,sNy
./model/src/cg3d.F	390	CG3D	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F	391	CG3D	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F	392	CG3D	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F	393	CG3D	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F	394	CG3D	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F	395	CG3D	& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d.F	396	CG3D	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F	398	CG3D	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F	401	CG3D	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F	409	CG3D	DO j=1,sNy
./model/src/cg3d.F	411	CG3D	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F	412	CG3D	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F	413	CG3D	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F	414	CG3D	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F	415	CG3D	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F	416	CG3D	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F	418	CG3D	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F	421	CG3D	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F	429	CG3D	DO j=1,sNy
./model/src/cg3d.F	431	CG3D	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F	432	CG3D	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F	433	CG3D	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F	434	CG3D	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F	435	CG3D	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F	436	CG3D	& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d.F	437	CG3D	& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d.F	438	CG3D	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F	440	CG3D	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F	443	CG3D	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F	452	CG3D	DO j=1,sNy
./model/src/cg3d.F	454	CG3D	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F	455	CG3D	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F	456	CG3D	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F	457	CG3D	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F	458	CG3D	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F	459	CG3D	& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d.F	460	CG3D	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F	462	CG3D	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F	465	CG3D	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F	487	CG3D	DO j=1,sNy
./model/src/cg3d.F	489	CG3D	cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj)
./model/src/cg3d.F	490	CG3D	& +alpha*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d.F	491	CG3D	cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F	492	CG3D	& -alpha*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F	494	CG3D	& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F	526	CG3D	DO j=1,sNy
./model/src/cg3d.F	528	CG3D	cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm
./model/src/cg3d.F	96	CG3D	INTEGER i, j, k, it3d
./pkg/my82/my82_init_varia.F	31	MY82_INIT_VARIA	INTEGER i, j, k, bi, bj
./pkg/my82/my82_init_varia.F	51	MY82_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/my82/my82_init_varia.F	53	MY82_INIT_VARIA	MYhbl (i,j ,bi,bj) = 0. _d 0
./pkg/my82/my82_init_varia.F	54	MY82_INIT_VARIA	MYviscAr (i,j,k,bi,bj) = viscArNr(k)
./pkg/my82/my82_init_varia.F	55	MY82_INIT_VARIA	MYdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./model/src/cg3d_ex0.F	118	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	120	CG3D_EX0	surfTerm(i,j) = 0.
./model/src/cg3d_ex0.F	134	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	136	CG3D_EX0	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm
./model/src/cg3d_ex0.F	137	CG3D_EX0	& * maskC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	138	CG3D_EX0	rhsMaxLoc = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMaxLoc)
./model/src/cg3d_ex0.F	145	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	147	CG3D_EX0	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm(bi,bj)
./model/src/cg3d_ex0.F	148	CG3D_EX0	cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm(bi,bj)
./model/src/cg3d_ex0.F	170	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	172	CG3D_EX0	surfTerm(i,j) = 0.
./model/src/cg3d_ex0.F	176	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	178	CG3D_EX0	surfTerm(i,j) = surfTerm(i,j)
./model/src/cg3d_ex0.F	179	CG3D_EX0	& +cg3d_x(i,j,k,bi,bj)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	183	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	185	CG3D_EX0	ks = kSurfC(i,j,bi,bj)
./model/src/cg3d_ex0.F	186	CG3D_EX0	surfTerm(i,j) = surfTerm(i,j)*cg3dNorm
./model/src/cg3d_ex0.F	187	CG3D_EX0	& recip_Rcol(i,j,bi,bj)recip_Rcol(i,j,bi,bj)
./model/src/cg3d_ex0.F	188	CG3D_EX0	& rA(i,j,bi,bj)deepFac2F(ks)
./model/src/cg3d_ex0.F	189	CG3D_EX0	& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d_ex0.F	204	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	206	CG3D_EX0	cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	208	CG3D_EX0	& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F	209	CG3D_EX0	& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F	210	CG3D_EX0	& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F	211	CG3D_EX0	& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F	212	CG3D_EX0	& +aV3d( i, j, k, bi,bj)cg3d_x( i, j,km1,bi,bj)maskM1
./model/src/cg3d_ex0.F	213	CG3D_EX0	& +aV3d( i, j,kp1,bi,bj)cg3d_x( i, j,kp1,bi,bj)maskP1
./model/src/cg3d_ex0.F	214	CG3D_EX0	& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj)
./model/src/cg3d_ex0.F	216	CG3D_EX0	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	220	CG3D_EX0	& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	221	CG3D_EX0	sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	224	CG3D_EX0	DO j=0,sNy+1
./model/src/cg3d_ex0.F	226	CG3D_EX0	cg3d_s(i,j,k,bi,bj) = 0.
./model/src/cg3d_ex0.F	274	CG3D_EX0	DO j=0,sNy+1
./model/src/cg3d_ex0.F	276	CG3D_EX0	cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	277	CG3D_EX0	& *cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	285	CG3D_EX0	DO j=0,sNy+1
./model/src/cg3d_ex0.F	287	CG3D_EX0	cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	288	CG3D_EX0	& *( cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	289	CG3D_EX0	& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj)
./model/src/cg3d_ex0.F	298	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	301	CG3D_EX0	& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	309	CG3D_EX0	DO j=0,sNy+1
./model/src/cg3d_ex0.F	311	CG3D_EX0	cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	312	CG3D_EX0	& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj)
./model/src/cg3d_ex0.F	318	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	321	CG3D_EX0	& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	330	CG3D_EX0	DO j=0,sNy+1
./model/src/cg3d_ex0.F	332	CG3D_EX0	cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	333	CG3D_EX0	& + cgBeta*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	343	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	345	CG3D_EX0	surfTerm(i,j) = 0.
./model/src/cg3d_ex0.F	349	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	351	CG3D_EX0	surfTerm(i,j) = surfTerm(i,j)
./model/src/cg3d_ex0.F	352	CG3D_EX0	& +cg3d_s(i,j,k,bi,bj)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	356	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	358	CG3D_EX0	ks = kSurfC(i,j,bi,bj)
./model/src/cg3d_ex0.F	359	CG3D_EX0	surfTerm(i,j) = surfTerm(i,j)*cg3dNorm
./model/src/cg3d_ex0.F	360	CG3D_EX0	& recip_Rcol(i,j,bi,bj)recip_Rcol(i,j,bi,bj)
./model/src/cg3d_ex0.F	361	CG3D_EX0	& rA(i,j,bi,bj)deepFac2F(ks)
./model/src/cg3d_ex0.F	362	CG3D_EX0	& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d_ex0.F	372	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	374	CG3D_EX0	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F	375	CG3D_EX0	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F	376	CG3D_EX0	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F	377	CG3D_EX0	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F	378	CG3D_EX0	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F	379	CG3D_EX0	& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d_ex0.F	380	CG3D_EX0	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F	382	CG3D_EX0	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	385	CG3D_EX0	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	393	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	395	CG3D_EX0	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F	396	CG3D_EX0	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F	397	CG3D_EX0	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F	398	CG3D_EX0	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F	399	CG3D_EX0	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F	400	CG3D_EX0	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F	402	CG3D_EX0	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	405	CG3D_EX0	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	413	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	415	CG3D_EX0	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F	416	CG3D_EX0	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F	417	CG3D_EX0	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F	418	CG3D_EX0	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F	419	CG3D_EX0	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F	420	CG3D_EX0	& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d_ex0.F	421	CG3D_EX0	& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d_ex0.F	422	CG3D_EX0	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F	424	CG3D_EX0	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	427	CG3D_EX0	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	436	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	438	CG3D_EX0	cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F	439	CG3D_EX0	& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F	440	CG3D_EX0	& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F	441	CG3D_EX0	& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F	442	CG3D_EX0	& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F	443	CG3D_EX0	& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d_ex0.F	444	CG3D_EX0	& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F	446	CG3D_EX0	& -surfFacsurfTerm(i,j)drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	449	CG3D_EX0	& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	462	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	464	CG3D_EX0	cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	465	CG3D_EX0	& +alpha*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	466	CG3D_EX0	cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	467	CG3D_EX0	& -alpha*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	469	CG3D_EX0	& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F	510	CG3D_EX0	DO j=1,sNy
./model/src/cg3d_ex0.F	512	CG3D_EX0	cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm(bi,bj)
./model/src/cg3d_ex0.F	88	CG3D_EX0	INTEGER i, j, k, it3d
./pkg/mypackage/mypackage_init_varia.F	33	MYPACKAGE_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/mypackage/mypackage_init_varia.F	41	MYPACKAGE_INIT_VARIA	DO j=1-Oly,sNy+OLy
./pkg/mypackage/mypackage_init_varia.F	44	MYPACKAGE_INIT_VARIA	myPa_StatScal1(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	45	MYPACKAGE_INIT_VARIA	myPa_StatScal2(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	46	MYPACKAGE_INIT_VARIA	myPa_StatVelU (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	47	MYPACKAGE_INIT_VARIA	myPa_StatVelV (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	50	MYPACKAGE_INIT_VARIA	myPa_TendScal1(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	51	MYPACKAGE_INIT_VARIA	myPa_TendScal2(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	52	MYPACKAGE_INIT_VARIA	myPa_TendVelU (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	53	MYPACKAGE_INIT_VARIA	myPa_TendVelV (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	61	MYPACKAGE_INIT_VARIA	DO j=1-Oly,sNy+OLy
./pkg/mypackage/mypackage_init_varia.F	63	MYPACKAGE_INIT_VARIA	myPa_Surf1(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F	64	MYPACKAGE_INIT_VARIA	myPa_Surf2(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_read_pickup.F	167	MYPACKAGE_READ_PICKUP	DO j=1,nMissing
./pkg/mypackage/mypackage_read_pickup.F	47	MYPACKAGE_READ_PICKUP	INTEGER j, nj, ioUnit
./pkg/mypackage/mypackage_tendency_apply.F	122	MYPACKAGE_TENDENCY_APPLY_V	INTEGER i, j
./pkg/mypackage/mypackage_tendency_apply.F	125	MYPACKAGE_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/mypackage/mypackage_tendency_apply.F	127	MYPACKAGE_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/mypackage/mypackage_tendency_apply.F	128	MYPACKAGE_TENDENCY_APPLY_V	& + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F	133	MYPACKAGE_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/mypackage/mypackage_tendency_apply.F	135	MYPACKAGE_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/mypackage/mypackage_tendency_apply.F	136	MYPACKAGE_TENDENCY_APPLY_V	& + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F	137	MYPACKAGE_TENDENCY_APPLY_V	& +myPa_TendVelV(i, j ,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F	189	MYPACKAGE_TENDENCY_APPLY_T	INTEGER i, j
./pkg/mypackage/mypackage_tendency_apply.F	192	MYPACKAGE_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/mypackage/mypackage_tendency_apply.F	194	MYPACKAGE_TENDENCY_APPLY_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/mypackage/mypackage_tendency_apply.F	195	MYPACKAGE_TENDENCY_APPLY_T	& + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F	246	MYPACKAGE_TENDENCY_APPLY_S	INTEGER i, j
./pkg/mypackage/mypackage_tendency_apply.F	249	MYPACKAGE_TENDENCY_APPLY_S	DO j=jMin,jMax
./pkg/mypackage/mypackage_tendency_apply.F	251	MYPACKAGE_TENDENCY_APPLY_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/mypackage/mypackage_tendency_apply.F	252	MYPACKAGE_TENDENCY_APPLY_S	& + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F	54	MYPACKAGE_TENDENCY_APPLY_U	INTEGER i, j
./pkg/mypackage/mypackage_tendency_apply.F	57	MYPACKAGE_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/mypackage/mypackage_tendency_apply.F	59	MYPACKAGE_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/mypackage/mypackage_tendency_apply.F	60	MYPACKAGE_TENDENCY_APPLY_U	& + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F	65	MYPACKAGE_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/mypackage/mypackage_tendency_apply.F	67	MYPACKAGE_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/mypackage/mypackage_tendency_apply.F	68	MYPACKAGE_TENDENCY_APPLY_U	& + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F	69	MYPACKAGE_TENDENCY_APPLY_U	& +myPa_TendVelU( i ,j,k,bi,bj)
./pkg/mypackage/mypackage_write_pickup.F	102	MYPACKAGE_WRITE_PICKUP	j = j + 1
./pkg/mypackage/mypackage_write_pickup.F	106	MYPACKAGE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'myPaSur1'
./pkg/mypackage/mypackage_write_pickup.F	108	MYPACKAGE_WRITE_PICKUP	j = j + 1
./pkg/mypackage/mypackage_write_pickup.F	112	MYPACKAGE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'myPaSur2'
./pkg/mypackage/mypackage_write_pickup.F	116	MYPACKAGE_WRITE_PICKUP	nWrFlds = j
./pkg/mypackage/mypackage_write_pickup.F	129	MYPACKAGE_WRITE_PICKUP	j = 1
./pkg/mypackage/mypackage_write_pickup.F	132	MYPACKAGE_WRITE_PICKUP	j = Nr
./pkg/mypackage/mypackage_write_pickup.F	138	MYPACKAGE_WRITE_PICKUP	& 0, 0, j, ' ',
./pkg/mypackage/mypackage_write_pickup.F	55	MYPACKAGE_WRITE_PICKUP	INTEGER j, nj, fp, lChar
./pkg/mypackage/mypackage_write_pickup.F	72	MYPACKAGE_WRITE_PICKUP	j = 0
./pkg/mypackage/mypackage_write_pickup.F	78	MYPACKAGE_WRITE_PICKUP	j = j + 1
./pkg/mypackage/mypackage_write_pickup.F	80	MYPACKAGE_WRITE_PICKUP	& myPa_StatScal1, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F	81	MYPACKAGE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'myPaSta1'
./pkg/mypackage/mypackage_write_pickup.F	83	MYPACKAGE_WRITE_PICKUP	j = j + 1
./pkg/mypackage/mypackage_write_pickup.F	85	MYPACKAGE_WRITE_PICKUP	& myPa_StatScal2, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F	86	MYPACKAGE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'myPaSta2'
./pkg/mypackage/mypackage_write_pickup.F	88	MYPACKAGE_WRITE_PICKUP	j = j + 1
./pkg/mypackage/mypackage_write_pickup.F	90	MYPACKAGE_WRITE_PICKUP	& myPa_StatVelU, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F	91	MYPACKAGE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'myPaStaU'
./pkg/mypackage/mypackage_write_pickup.F	92	MYPACKAGE_WRITE_PICKUP	j = j + 1
./pkg/mypackage/mypackage_write_pickup.F	94	MYPACKAGE_WRITE_PICKUP	& myPa_StatVelV, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F	95	MYPACKAGE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'myPaStaV'
./pkg/mypackage/mypackage_write_pickup.F	99	MYPACKAGE_WRITE_PICKUP	nj = -j*Nr
./model/src/check_pickup.F	103	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'dEtaHdt '
./model/src/check_pickup.F	118	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'EtaN '
./model/src/check_pickup.F	125	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'Phi_NHyd' ) THEN
./model/src/check_pickup.F	131	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'dPhiNH ' ) THEN
./model/src/check_pickup.F	138	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'AddMass '
./model/src/check_pickup.F	147	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'Uvel ' .OR.
./model/src/check_pickup.F	148	CHECK_PICKUP	& missFldList(j).EQ.'Vvel ' .OR.
./model/src/check_pickup.F	149	CHECK_PICKUP	& missFldList(j).EQ.'Theta ' .OR.
./model/src/check_pickup.F	150	CHECK_PICKUP	& missFldList(j).EQ.'Salt ' .OR.
./model/src/check_pickup.F	151	CHECK_PICKUP	& missFldList(j).EQ.'EtaN ' ) THEN
./model/src/check_pickup.F	154	CHECK_PICKUP	& 'cannot restart without field "',missFldList(j),'"'
./model/src/check_pickup.F	158	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'PhiHyd ' .OR.
./model/src/check_pickup.F	159	CHECK_PICKUP	& missFldList(j).EQ.'AddMass ' .OR.
./model/src/check_pickup.F	160	CHECK_PICKUP	& missFldList(j).EQ.'dEtaHdt ' .OR.
./model/src/check_pickup.F	161	CHECK_PICKUP	& missFldList(j).EQ.'EtaH ' ) THEN
./model/src/check_pickup.F	164	CHECK_PICKUP	& 'cannot currently restart without field "',missFldList(j),'"'
./model/src/check_pickup.F	169	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GuNm1 ' .OR.
./model/src/check_pickup.F	170	CHECK_PICKUP	& missFldList(j).EQ.'GvNm1 ' ) THEN
./model/src/check_pickup.F	172	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GuNm2 ' .OR.
./model/src/check_pickup.F	173	CHECK_PICKUP	& missFldList(j).EQ.'GvNm2 ' ) THEN
./model/src/check_pickup.F	175	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GtNm1 ' .OR.
./model/src/check_pickup.F	176	CHECK_PICKUP	& missFldList(j).EQ.'TempNm1 ' ) THEN
./model/src/check_pickup.F	178	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GtNm2 ' .OR.
./model/src/check_pickup.F	179	CHECK_PICKUP	& missFldList(j).EQ.'TempNm2 ' ) THEN
./model/src/check_pickup.F	181	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GsNm1 ' .OR.
./model/src/check_pickup.F	182	CHECK_PICKUP	& missFldList(j).EQ.'SaltNm1 ' ) THEN
./model/src/check_pickup.F	184	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GsNm2 ' .OR.
./model/src/check_pickup.F	185	CHECK_PICKUP	& missFldList(j).EQ.'SaltNm2 ' ) THEN
./model/src/check_pickup.F	187	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GwNm1 ' ) THEN
./model/src/check_pickup.F	189	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'GwNm2 ' ) THEN
./model/src/check_pickup.F	196	CHECK_PICKUP	& 'missing field "',missFldList(j),'" not recognized'
./model/src/check_pickup.F	49	CHECK_PICKUP	INTEGER j
./model/src/check_pickup.F	83	CHECK_PICKUP	DO j=1,nMissing
./model/src/check_pickup.F	85	CHECK_PICKUP	IF ( missFldList(j).EQ.'dEtaHdt '
./model/src/check_pickup.F	93	CHECK_PICKUP	ELSEIF ( missFldList(j).EQ.'dPhiNH '
./pkg/obcs/obcs_add_tides.F	48	OBCS_ADD_TIDES	INTEGER i, j, k, iB, jB
./pkg/obcs/obcs_add_tides.F	62	OBCS_ADD_TIDES	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_add_tides.F	63	OBCS_ADD_TIDES	iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_add_tides.F	66	OBCS_ADD_TIDES	OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) +
./pkg/obcs/obcs_add_tides.F	67	OBCS_ADD_TIDES	& maskW(iB,j,k,bi,bj) * OBEam(j,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F	68	OBCS_ADD_TIDES	& COS( 2.D0 * PI * (myTime-OBEph(j,td,bi,bj)) /
./pkg/obcs/obcs_add_tides.F	80	OBCS_ADD_TIDES	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_add_tides.F	81	OBCS_ADD_TIDES	iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_add_tides.F	84	OBCS_ADD_TIDES	OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) +
./pkg/obcs/obcs_add_tides.F	85	OBCS_ADD_TIDES	& maskW(1+iB,j,k,bi,bj) * OBWam(j,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F	86	OBCS_ADD_TIDES	& COS( 2.D0 * PI * (myTime-OBWph(j,td,bi,bj)) /
./pkg/obcs/obcs_apply_eta.F	45	OBCS_APPLY_ETA	INTEGER i, j
./pkg/obcs/obcs_apply_eta.F	75	OBCS_APPLY_ETA	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_eta.F	76	OBCS_APPLY_ETA	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F	78	OBCS_APPLY_ETA	IF ( kSurfW(Iobc,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F	79	OBCS_APPLY_ETA	& etaFld(Iobc,j,bi,bj) = OBEeta(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F	85	OBCS_APPLY_ETA	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_eta.F	86	OBCS_APPLY_ETA	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F	88	OBCS_APPLY_ETA	IF ( kSurfW(Iobc+1,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F	89	OBCS_APPLY_ETA	& etaFld(Iobc,j,bi,bj) = OBWeta(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F	102	OBCS_APPLY_PTRACER	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_ptracer.F	103	OBCS_APPLY_PTRACER	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F	107	OBCS_APPLY_PTRACER	pFld(Iobc,j,kl) = OBEptr(j,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_ptracer.F	117	OBCS_APPLY_PTRACER	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_ptracer.F	118	OBCS_APPLY_PTRACER	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F	122	OBCS_APPLY_PTRACER	pFld(Iobc,j,kl) = OBWptr(j,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_ptracer.F	54	OBCS_APPLY_PTRACER	INTEGER i, j
./pkg/obcs/obcs_apply_r_star.F	103	OBCS_APPLY_R_STAR	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_r_star.F	104	OBCS_APPLY_R_STAR	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_r_star.F	105	OBCS_APPLY_R_STAR	i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_r_star.F	106	OBCS_APPLY_R_STAR	IF (kSurfW(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F	108	OBCS_APPLY_R_STAR	rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	109	OBCS_APPLY_R_STAR	& + OBEeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F	111	OBCS_APPLY_R_STAR	rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	112	OBCS_APPLY_R_STAR	& + etaFld(i,j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F	120	OBCS_APPLY_R_STAR	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_r_star.F	121	OBCS_APPLY_R_STAR	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_r_star.F	122	OBCS_APPLY_R_STAR	i = OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_apply_r_star.F	123	OBCS_APPLY_R_STAR	IF (kSurfW(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F	125	OBCS_APPLY_R_STAR	rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	126	OBCS_APPLY_R_STAR	& + OBWeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F	128	OBCS_APPLY_R_STAR	rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	129	OBCS_APPLY_R_STAR	& + etaFld(i-1,j,bi,bj)/(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F	54	OBCS_APPLY_R_STAR	INTEGER i,j
./pkg/obcs/obcs_apply_r_star.F	69	OBCS_APPLY_R_STAR	j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F	70	OBCS_APPLY_R_STAR	IF (kSurfS(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F	72	OBCS_APPLY_R_STAR	rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	73	OBCS_APPLY_R_STAR	& + OBNeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F	75	OBCS_APPLY_R_STAR	rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	76	OBCS_APPLY_R_STAR	& + etaFld(i,j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F	86	OBCS_APPLY_R_STAR	j = OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_apply_r_star.F	87	OBCS_APPLY_R_STAR	IF (kSurfS(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F	89	OBCS_APPLY_R_STAR	rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	90	OBCS_APPLY_R_STAR	& + OBSeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F	92	OBCS_APPLY_R_STAR	rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F	93	OBCS_APPLY_R_STAR	& + etaFld(i,j-1,bi,bj)/(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	101	OBCS_APPLY_SEAICE	HSALT(Iobc,j,bi,bj) = OBEsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	111	OBCS_APPLY_SEAICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_seaice.F	112	OBCS_APPLY_SEAICE	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	114	OBCS_APPLY_SEAICE	HEFF (Iobc,j,bi,bj) = OBWh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	115	OBCS_APPLY_SEAICE	AREA (Iobc,j,bi,bj) = OBWa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	116	OBCS_APPLY_SEAICE	HSNOW(Iobc,j,bi,bj) = OBWsn(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	118	OBCS_APPLY_SEAICE	HSALT(Iobc,j,bi,bj) = OBWsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	211	OBCS_APPLY_SEAICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_seaice.F	214	OBCS_APPLY_SEAICE	IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F	217	OBCS_APPLY_SEAICE	& (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	218	OBCS_APPLY_SEAICE	HEFF(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	219	OBCS_APPLY_SEAICE	HEFF(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	223	OBCS_APPLY_SEAICE	& (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	224	OBCS_APPLY_SEAICE	AREA(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	225	OBCS_APPLY_SEAICE	AREA(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	229	OBCS_APPLY_SEAICE	& (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	230	OBCS_APPLY_SEAICE	HSNOW(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	231	OBCS_APPLY_SEAICE	HSNOW(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	236	OBCS_APPLY_SEAICE	& (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	237	OBCS_APPLY_SEAICE	HSALT(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	238	OBCS_APPLY_SEAICE	HSALT(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	250	OBCS_APPLY_SEAICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_seaice.F	251	OBCS_APPLY_SEAICE	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	253	OBCS_APPLY_SEAICE	IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F	256	OBCS_APPLY_SEAICE	& (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	257	OBCS_APPLY_SEAICE	HEFF(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	258	OBCS_APPLY_SEAICE	HEFF(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	262	OBCS_APPLY_SEAICE	& (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	263	OBCS_APPLY_SEAICE	AREA(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	264	OBCS_APPLY_SEAICE	AREA(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	268	OBCS_APPLY_SEAICE	& (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	269	OBCS_APPLY_SEAICE	HSNOW(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	270	OBCS_APPLY_SEAICE	HSNOW(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	275	OBCS_APPLY_SEAICE	& (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F	276	OBCS_APPLY_SEAICE	HSALT(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	277	OBCS_APPLY_SEAICE	HSALT(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F	47	OBCS_APPLY_SEAICE	INTEGER i, j
./pkg/obcs/obcs_apply_seaice.F	94	OBCS_APPLY_SEAICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_seaice.F	97	OBCS_APPLY_SEAICE	HEFF (Iobc,j,bi,bj) = OBEh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	98	OBCS_APPLY_SEAICE	AREA (Iobc,j,bi,bj) = OBEa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F	99	OBCS_APPLY_SEAICE	HSNOW(Iobc,j,bi,bj) = OBEsn(j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	100	OBCS_APPLY_SURF_DR	& + etaFld(i,j-1,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F	102	OBCS_APPLY_SURF_DR	hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F	111	OBCS_APPLY_SURF_DR	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_surf_dr.F	112	OBCS_APPLY_SURF_DR	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_surf_dr.F	113	OBCS_APPLY_SURF_DR	i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	114	OBCS_APPLY_SURF_DR	ks = kSurfW(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	117	OBCS_APPLY_SURF_DR	hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	118	OBCS_APPLY_SURF_DR	& + OBEeta(j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F	120	OBCS_APPLY_SURF_DR	hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	121	OBCS_APPLY_SURF_DR	& + etaFld(i,j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F	123	OBCS_APPLY_SURF_DR	hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F	130	OBCS_APPLY_SURF_DR	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_surf_dr.F	131	OBCS_APPLY_SURF_DR	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_surf_dr.F	132	OBCS_APPLY_SURF_DR	i = OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_apply_surf_dr.F	133	OBCS_APPLY_SURF_DR	ks = kSurfW(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	136	OBCS_APPLY_SURF_DR	hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	137	OBCS_APPLY_SURF_DR	& + OBWeta(j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F	139	OBCS_APPLY_SURF_DR	hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	140	OBCS_APPLY_SURF_DR	& + etaFld(i-1,j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F	142	OBCS_APPLY_SURF_DR	hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F	55	OBCS_APPLY_SURF_DR	INTEGER i,j,ks
./pkg/obcs/obcs_apply_surf_dr.F	73	OBCS_APPLY_SURF_DR	j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	74	OBCS_APPLY_SURF_DR	ks = kSurfS(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	77	OBCS_APPLY_SURF_DR	hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	80	OBCS_APPLY_SURF_DR	hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	81	OBCS_APPLY_SURF_DR	& + etaFld(i,j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F	83	OBCS_APPLY_SURF_DR	hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F	92	OBCS_APPLY_SURF_DR	j = OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_apply_surf_dr.F	93	OBCS_APPLY_SURF_DR	ks = kSurfS(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	96	OBCS_APPLY_SURF_DR	hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F	99	OBCS_APPLY_SURF_DR	hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_ts.F	151	OBCS_APPLY_TS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_ts.F	152	OBCS_APPLY_TS	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F	155	OBCS_APPLY_TS	tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	156	OBCS_APPLY_TS	& + dTtracerLev(k)*OBEt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	157	OBCS_APPLY_TS	sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	158	OBCS_APPLY_TS	& + dTtracerLev(k)*OBEs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	166	OBCS_APPLY_TS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_ts.F	167	OBCS_APPLY_TS	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F	170	OBCS_APPLY_TS	tFld(Iobc,j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	171	OBCS_APPLY_TS	sFld(Iobc,j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	185	OBCS_APPLY_TS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_ts.F	186	OBCS_APPLY_TS	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F	189	OBCS_APPLY_TS	tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	190	OBCS_APPLY_TS	& + dTtracerLev(k)*OBWt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	191	OBCS_APPLY_TS	sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	192	OBCS_APPLY_TS	& + dTtracerLev(k)*OBWs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	200	OBCS_APPLY_TS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_ts.F	201	OBCS_APPLY_TS	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F	204	OBCS_APPLY_TS	tFld(Iobc,j,k,bi,bj) = OBWt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	205	OBCS_APPLY_TS	sFld(Iobc,j,k,bi,bj) = OBWs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F	50	OBCS_APPLY_TS	INTEGER i, j
./pkg/obcs/obcs_apply_uv.F	116	OBCS_APPLY_UV	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uv.F	117	OBCS_APPLY_UV	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F	120	OBCS_APPLY_UV	vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	121	OBCS_APPLY_UV	& *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	130	OBCS_APPLY_UV	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uv.F	131	OBCS_APPLY_UV	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F	134	OBCS_APPLY_UV	vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	135	OBCS_APPLY_UV	& *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	183	OBCS_APPLY_UV	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uv.F	184	OBCS_APPLY_UV	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F	187	OBCS_APPLY_UV	uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	188	OBCS_APPLY_UV	& *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	189	OBCS_APPLY_UV	uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj)
./pkg/obcs/obcs_apply_uv.F	190	OBCS_APPLY_UV	& *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	200	OBCS_APPLY_UV	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uv.F	201	OBCS_APPLY_UV	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F	204	OBCS_APPLY_UV	uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	205	OBCS_APPLY_UV	& *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	206	OBCS_APPLY_UV	uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	207	OBCS_APPLY_UV	& *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F	51	OBCS_APPLY_UV	INTEGER i, j
./pkg/obcs/obcs_apply_uvice.F	107	OBCS_APPLY_UVICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uvice.F	108	OBCS_APPLY_UVICE	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	110	OBCS_APPLY_UVICE	vFld(Iobc,j,bi,bj) = OBEvice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	111	OBCS_APPLY_UVICE	& *seaiceMaskV(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	120	OBCS_APPLY_UVICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uvice.F	121	OBCS_APPLY_UVICE	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	123	OBCS_APPLY_UVICE	vFld(Iobc,j,bi,bj) = OBWvice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	124	OBCS_APPLY_UVICE	& *seaiceMaskV(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	171	OBCS_APPLY_UVICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uvice.F	172	OBCS_APPLY_UVICE	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	174	OBCS_APPLY_UVICE	uFld(Iobc,j,bi,bj) = OBEuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	175	OBCS_APPLY_UVICE	& *seaiceMaskU(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	177	OBCS_APPLY_UVICE	& uFld(Iobc+1,j,bi,bj) = OBEuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	178	OBCS_APPLY_UVICE	& *seaiceMaskU(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	188	OBCS_APPLY_UVICE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_uvice.F	189	OBCS_APPLY_UVICE	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	191	OBCS_APPLY_UVICE	uFld(Iobc+1,j,bi,bj) = OBWuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	192	OBCS_APPLY_UVICE	& *seaiceMaskU(Iobc+1,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	194	OBCS_APPLY_UVICE	& uFld(Iobc,j,bi,bj) = OBWuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	195	OBCS_APPLY_UVICE	& *seaiceMaskU(Iobc+1,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F	54	OBCS_APPLY_UVICE	INTEGER i, j
./pkg/obcs/obcs_apply_w.F	106	OBCS_APPLY_W	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_w.F	107	OBCS_APPLY_W	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_w.F	111	OBCS_APPLY_W	obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F	112	OBCS_APPLY_W	wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F	115	OBCS_APPLY_W	obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F	116	OBCS_APPLY_W	wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F	125	OBCS_APPLY_W	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_apply_w.F	126	OBCS_APPLY_W	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_w.F	130	OBCS_APPLY_W	obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F	131	OBCS_APPLY_W	wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F	134	OBCS_APPLY_W	obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F	135	OBCS_APPLY_W	wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F	49	OBCS_APPLY_W	INTEGER i, j
./pkg/obcs/obcs_balance_flow.F	101	OBCS_BALANCE_FLOW	tmpA = drF(k)hFacW(iB,j,k,bi,bj)dyG(iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F	102	OBCS_BALANCE_FLOW	& *maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F	104	OBCS_BALANCE_FLOW	tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBEu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F	145	OBCS_BALANCE_FLOW	DO j=1,sNy
./pkg/obcs/obcs_balance_flow.F	146	OBCS_BALANCE_FLOW	iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_balance_flow.F	150	OBCS_BALANCE_FLOW	tmpA = drF(k)hFacW(1+iB,j,k,bi,bj)dyG(1+iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F	151	OBCS_BALANCE_FLOW	& *maskInW(1+iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F	153	OBCS_BALANCE_FLOW	tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBWu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F	324	OBCS_BALANCE_FLOW	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_balance_flow.F	325	OBCS_BALANCE_FLOW	iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_balance_flow.F	327	OBCS_BALANCE_FLOW	OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F	328	OBCS_BALANCE_FLOW	& + flowE*maskW(iB,j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F	344	OBCS_BALANCE_FLOW	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_balance_flow.F	345	OBCS_BALANCE_FLOW	iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_balance_flow.F	347	OBCS_BALANCE_FLOW	OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F	348	OBCS_BALANCE_FLOW	& + flowW*maskW(1+iB,j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F	48	OBCS_BALANCE_FLOW	INTEGER i, j, k, iB, jB
./pkg/obcs/obcs_balance_flow.F	96	OBCS_BALANCE_FLOW	DO j=1,sNy
./pkg/obcs/obcs_balance_flow.F	97	OBCS_BALANCE_FLOW	iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc.F	102	OBCS_CALC	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc.F	103	OBCS_CALC	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F	104	OBCS_CALC	OBEu(j,k,bi,bj)= U_F1(j,k,2)
./pkg/obcs/obcs_calc.F	105	OBCS_CALC	OBEv(j,k,bi,bj)= V_F1(j,k,2)
./pkg/obcs/obcs_calc.F	106	OBCS_CALC	OBEt(j,k,bi,bj)= T_F1(j,k,2)
./pkg/obcs/obcs_calc.F	107	OBCS_CALC	OBEs(j,k,bi,bj)= S_F1(j,k,2)
./pkg/obcs/obcs_calc.F	109	OBCS_CALC	OBEeta(j,bi,bj)= ETA_F1(j,1,2)
./pkg/obcs/obcs_calc.F	117	OBCS_CALC	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc.F	118	OBCS_CALC	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F	119	OBCS_CALC	OBEu(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F	120	OBCS_CALC	OBEv(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F	121	OBCS_CALC	OBEt(j,k,bi,bj)=tRef(k)
./pkg/obcs/obcs_calc.F	122	OBCS_CALC	OBEs(j,k,bi,bj)=sRef(k)
./pkg/obcs/obcs_calc.F	124	OBCS_CALC	OBEw(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F	127	OBCS_CALC	OBEeta(j,bi,bj)=0.
./pkg/obcs/obcs_calc.F	152	OBCS_CALC	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc.F	153	OBCS_CALC	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F	154	OBCS_CALC	OBWu(j,k,bi,bj)= U_F1(j,k,1)
./pkg/obcs/obcs_calc.F	155	OBCS_CALC	OBWv(j,k,bi,bj)= V_F1(j,k,1)
./pkg/obcs/obcs_calc.F	156	OBCS_CALC	OBWt(j,k,bi,bj)= T_F1(j,k,1)
./pkg/obcs/obcs_calc.F	157	OBCS_CALC	OBWs(j,k,bi,bj)= S_F1(j,k,1)
./pkg/obcs/obcs_calc.F	159	OBCS_CALC	OBWeta(j,bi,bj)= ETA_F1(j,1,1)
./pkg/obcs/obcs_calc.F	167	OBCS_CALC	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc.F	168	OBCS_CALC	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F	169	OBCS_CALC	OBWu(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F	170	OBCS_CALC	OBWv(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F	171	OBCS_CALC	OBWt(j,k,bi,bj)=tRef(k)
./pkg/obcs/obcs_calc.F	172	OBCS_CALC	OBWs(j,k,bi,bj)=sRef(k)
./pkg/obcs/obcs_calc.F	174	OBCS_CALC	OBWw(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F	177	OBCS_CALC	OBWeta(j,bi,bj)=0.
./pkg/obcs/obcs_calc.F	284	OBCS_CALC	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc.F	285	OBCS_CALC	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F	286	OBCS_CALC	I_obc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc.F	287	OBCS_CALC	OBEptr(j,k,bi,bj,iTracer) =
./pkg/obcs/obcs_calc.F	288	OBCS_CALC	& pTracer(I_obc-1,j,k,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F	289	OBCS_CALC	& *_maskW(I_obc,j,k,bi,bj)
./pkg/obcs/obcs_calc.F	316	OBCS_CALC	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc.F	317	OBCS_CALC	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F	318	OBCS_CALC	I_obc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_calc.F	319	OBCS_CALC	OBWptr(j,k,bi,bj,iTracer) =
./pkg/obcs/obcs_calc.F	320	OBCS_CALC	& pTracer(I_obc+1,j,k,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F	321	OBCS_CALC	& *_maskW(I_obc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc.F	61	OBCS_CALC	INTEGER i, j, k
./pkg/obcs/obcs_calc_stevens.F	803	OBCS_STEVENS_SAVE_TRACERS	INTEGER bi,bj,i,j,k,Iobc,Jobc
./pkg/obcs/obcs_calc_stevens.F	843	OBCS_STEVENS_SAVE_TRACERS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc_stevens.F	844	OBCS_STEVENS_SAVE_TRACERS	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	847	OBCS_STEVENS_SAVE_TRACERS	OBEtStevens(j,k,bi,bj) = theta(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	848	OBCS_STEVENS_SAVE_TRACERS	& *maskC(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	849	OBCS_STEVENS_SAVE_TRACERS	OBEsStevens(j,k,bi,bj) = salt(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	850	OBCS_STEVENS_SAVE_TRACERS	& *maskC(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	859	OBCS_STEVENS_SAVE_TRACERS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_calc_stevens.F	860	OBCS_STEVENS_SAVE_TRACERS	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	863	OBCS_STEVENS_SAVE_TRACERS	OBWtStevens(j,k,bi,bj) = theta(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	864	OBCS_STEVENS_SAVE_TRACERS	& *maskC(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	865	OBCS_STEVENS_SAVE_TRACERS	OBWsStevens(j,k,bi,bj) = salt(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F	866	OBCS_STEVENS_SAVE_TRACERS	& *maskC(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_check.F	450	OBCS_CHECK	DO j=1,sNy
./pkg/obcs/obcs_check.F	452	OBCS_CHECK	i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_check.F	454	OBCS_CHECK	IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F	458	OBCS_CHECK	& ') expects Mask=0 @ i,j=', i, ',', j
./pkg/obcs/obcs_check.F	464	OBCS_CHECK	IF ( maskInC(i-1,j,bi,bj).GT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F	465	OBCS_CHECK	& .AND.ksurfW(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F	466	OBCS_CHECK	& .AND. i.NE.OB_Ie(j,bi,bj) ) THEN
./pkg/obcs/obcs_check.F	46	OBCS_CHECK	INTEGER i, j
./pkg/obcs/obcs_check.F	470	OBCS_CHECK	& ') expects OBE=', i, ' @ j=', j
./pkg/obcs/obcs_check.F	476	OBCS_CHECK	i = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_check.F	478	OBCS_CHECK	IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F	482	OBCS_CHECK	& ') expects Mask=0 @ i,j=', i, ',', j
./pkg/obcs/obcs_check.F	488	OBCS_CHECK	IF ( maskInC(i-1,j,bi,bj).LT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F	489	OBCS_CHECK	& .AND.ksurfW(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F	490	OBCS_CHECK	& .AND. i.NE.OB_Iw(j,bi,bj)+1 ) THEN
./pkg/obcs/obcs_check.F	494	OBCS_CHECK	& ') expects OBW=', i-1, ' @ j=', j
./pkg/obcs/obcs_check.F	503	OBCS_CHECK	j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_check.F	504	OBCS_CHECK	IF ( j.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_check.F	505	OBCS_CHECK	IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F	509	OBCS_CHECK	& ') expects Mask=0 @ i,j=', i, ',', j
./pkg/obcs/obcs_check.F	514	OBCS_CHECK	DO j=1,sNy+1
./pkg/obcs/obcs_check.F	515	OBCS_CHECK	IF ( maskInC(i,j-1,bi,bj).GT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F	516	OBCS_CHECK	& .AND.ksurfS(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F	517	OBCS_CHECK	& .AND. j.NE.OB_Jn(i,bi,bj) ) THEN
./pkg/obcs/obcs_check.F	521	OBCS_CHECK	& ') expects OBN=', j, ' @ i=', i
./pkg/obcs/obcs_check.F	527	OBCS_CHECK	j = OB_Js(i,bi,bj)
./pkg/obcs/obcs_check.F	528	OBCS_CHECK	IF ( j.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_check.F	529	OBCS_CHECK	IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F	533	OBCS_CHECK	& ') expects Mask=0 @ i,j=', i, ',', j
./pkg/obcs/obcs_check.F	538	OBCS_CHECK	DO j=1,sNy+1
./pkg/obcs/obcs_check.F	539	OBCS_CHECK	IF ( maskInC(i,j-1,bi,bj).LT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F	540	OBCS_CHECK	& .AND.ksurfS(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F	541	OBCS_CHECK	& .AND. j.NE.OB_Js(i,bi,bj)+1 ) THEN
./pkg/obcs/obcs_check.F	545	OBCS_CHECK	& ') expects OBS=', j-1, ' @ i=', i
./pkg/obcs/obcs_check_depths.F	100	OBCS_CHECK_DEPTHS	& '(i,j,bi,bj)=', i, j, bi, bj
./pkg/obcs/obcs_check_depths.F	32	OBCS_CHECK_DEPTHS	INTEGER bi, bj, i, j, ichanged
./pkg/obcs/obcs_check_depths.F	44	OBCS_CHECK_DEPTHS	j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_check_depths.F	45	OBCS_CHECK_DEPTHS	IF ( j.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_check_depths.F	46	OBCS_CHECK_DEPTHS	IF ( R_low(i,j,bi,bj) .LT. R_low(i,j-1,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F	48	OBCS_CHECK_DEPTHS	R_low(i,j,bi,bj) = R_low(i,j-1,bi,bj)
./pkg/obcs/obcs_check_depths.F	51	OBCS_CHECK_DEPTHS	& '(i,j,bi,bj)=', i, j, bi, bj
./pkg/obcs/obcs_check_depths.F	60	OBCS_CHECK_DEPTHS	j = OB_Js(i,bi,bj)
./pkg/obcs/obcs_check_depths.F	61	OBCS_CHECK_DEPTHS	IF ( j.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_check_depths.F	62	OBCS_CHECK_DEPTHS	IF ( R_low(i,j,bi,bj) .LT. R_low(i,j+1,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F	64	OBCS_CHECK_DEPTHS	R_low(i,j,bi,bj) = R_low(i,j+1,bi,bj)
./pkg/obcs/obcs_check_depths.F	67	OBCS_CHECK_DEPTHS	& '(i,j,bi,bj)=', i, j, bi, bj
./pkg/obcs/obcs_check_depths.F	75	OBCS_CHECK_DEPTHS	DO j=1,sNy
./pkg/obcs/obcs_check_depths.F	76	OBCS_CHECK_DEPTHS	i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_check_depths.F	78	OBCS_CHECK_DEPTHS	IF ( R_low(i,j,bi,bj) .LT. R_low(i-1,j,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F	80	OBCS_CHECK_DEPTHS	R_low(i,j,bi,bj) = R_low(i-1,j,bi,bj)
./pkg/obcs/obcs_check_depths.F	83	OBCS_CHECK_DEPTHS	& '(i,j,bi,bj)=', i, j, bi, bj
./pkg/obcs/obcs_check_depths.F	92	OBCS_CHECK_DEPTHS	DO j=1,sNy
./pkg/obcs/obcs_check_depths.F	93	OBCS_CHECK_DEPTHS	i = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_check_depths.F	95	OBCS_CHECK_DEPTHS	IF ( R_low(i,j,bi,bj) .LT. R_low(i+1,j,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F	97	OBCS_CHECK_DEPTHS	R_low(i,j,bi,bj) = R_low(i+1,j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F	108	OBCS_COPY_TRACER	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_copy_tracer.F	109	OBCS_COPY_TRACER	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F	113	OBCS_COPY_TRACER	trFld(i,j,k) = trFld(Iobc,j,k)
./pkg/obcs/obcs_copy_tracer.F	52	OBCS_COPY_TRACER	INTEGER i, j, k
./pkg/obcs/obcs_copy_tracer.F	63	OBCS_COPY_TRACER	DO j = Jobc+1, Jobc+OLy
./pkg/obcs/obcs_copy_tracer.F	64	OBCS_COPY_TRACER	trFld(i,j,k) = trFld(i,Jobc,k)
./pkg/obcs/obcs_copy_tracer.F	79	OBCS_COPY_TRACER	DO j = Jobc-OLy, Jobc-1
./pkg/obcs/obcs_copy_tracer.F	80	OBCS_COPY_TRACER	trFld(i,j,k) = trFld(i,Jobc,k)
./pkg/obcs/obcs_copy_tracer.F	92	OBCS_COPY_TRACER	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_copy_tracer.F	93	OBCS_COPY_TRACER	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F	97	OBCS_COPY_TRACER	trFld(i,j,k) = trFld(Iobc,j,k)
./pkg/obcs/obcs_copy_uv_n.F	106	OBCS_COPY_UV_N	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_copy_uv_n.F	107	OBCS_COPY_UV_N	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F	111	OBCS_COPY_UV_N	uFld(i,j,k) = uFld(Iobc+1,j,k)
./pkg/obcs/obcs_copy_uv_n.F	50	OBCS_COPY_UV_N	INTEGER i, j, k
./pkg/obcs/obcs_copy_uv_n.F	61	OBCS_COPY_UV_N	DO j = Jobc+1, Jobc+OLy
./pkg/obcs/obcs_copy_uv_n.F	62	OBCS_COPY_UV_N	vFld(i,j,k) = vFld(i,Jobc,k)
./pkg/obcs/obcs_copy_uv_n.F	77	OBCS_COPY_UV_N	DO j = Jobc-OLy, Jobc
./pkg/obcs/obcs_copy_uv_n.F	78	OBCS_COPY_UV_N	vFld(i,j,k) = vFld(i,Jobc+1,k)
./pkg/obcs/obcs_copy_uv_n.F	90	OBCS_COPY_UV_N	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_copy_uv_n.F	91	OBCS_COPY_UV_N	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F	95	OBCS_COPY_UV_N	uFld(i,j,k) = uFld(Iobc,j,k)
./pkg/obcs/obcs_diag_balance.F	109	OBCS_DIAG_BALANCE	DO j=1,sNy
./pkg/obcs/obcs_diag_balance.F	110	OBCS_DIAG_BALANCE	iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	112	OBCS_DIAG_BALANCE	tmpA = drF(k)hFacW(iB,j,k,bi,bj)dyG(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	113	OBCS_DIAG_BALANCE	& *maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	115	OBCS_DIAG_BALANCE	tileFlow(bi,bj) = tileFlow(bi,bj) + uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	154	OBCS_DIAG_BALANCE	DO j=1,sNy
./pkg/obcs/obcs_diag_balance.F	155	OBCS_DIAG_BALANCE	iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	158	OBCS_DIAG_BALANCE	tmpA = drF(k)hFacW(iB,j,k,bi,bj)dyG(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	159	OBCS_DIAG_BALANCE	& *maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	161	OBCS_DIAG_BALANCE	tileFlow(bi,bj) = tileFlow(bi,bj) + uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	321	OBCS_DIAG_BALANCE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_diag_balance.F	322	OBCS_DIAG_BALANCE	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_diag_balance.F	323	OBCS_DIAG_BALANCE	iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	324	OBCS_DIAG_BALANCE	uTrans(iB,j,bi,bj) = uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	325	OBCS_DIAG_BALANCE	& + flowEdrF(k)hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F	326	OBCS_DIAG_BALANCE	& dyG(iB,j,bi,bj)maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	340	OBCS_DIAG_BALANCE	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_diag_balance.F	341	OBCS_DIAG_BALANCE	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_diag_balance.F	342	OBCS_DIAG_BALANCE	iB = 1+OB_Iw(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	343	OBCS_DIAG_BALANCE	uTrans(iB,j,bi,bj) = uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	344	OBCS_DIAG_BALANCE	& + flowWdrF(k)hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F	345	OBCS_DIAG_BALANCE	& dyG(iB,j,bi,bj)maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F	62	OBCS_DIAG_BALANCE	INTEGER i, j, iB, jB
./pkg/obcs/obcs_fields_load.F	523	OBCS_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_fields_load.F	524	OBCS_FIELDS_LOAD	OBEeta(j,bi,bj) = bWght*OBEeta0(j,bi,bj)
./pkg/obcs/obcs_fields_load.F	525	OBCS_FIELDS_LOAD	& +aWght*OBEeta1(j,bi,bj)
./pkg/obcs/obcs_fields_load.F	549	OBCS_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_fields_load.F	550	OBCS_FIELDS_LOAD	OBWeta(j,bi,bj) = bWght*OBWeta0(j,bi,bj)
./pkg/obcs/obcs_fields_load.F	551	OBCS_FIELDS_LOAD	& +aWght*OBWeta1(j,bi,bj)
./pkg/obcs/obcs_fields_load.F	737	OBCS_TIME_INTERP_YZ	INTEGER bi,bj,j,k
./pkg/obcs/obcs_fields_load.F	742	OBCS_TIME_INTERP_YZ	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_fields_load.F	743	OBCS_TIME_INTERP_YZ	fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj)
./pkg/obcs/obcs_fields_load.F	744	OBCS_TIME_INTERP_YZ	& +aWght*fld1(j,k,bi,bj)
./pkg/obcs/obcs_fields_load.F	90	OBCS_FIELDS_LOAD	INTEGER i, j
./model/src/convective_adjustment.F	62	CONVECTIVE_ADJUSTMENT	INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment.F	92	CONVECTIVE_ADJUSTMENT	DO j=1-OLy,sNy+OLy
./model/src/convective_adjustment.F	94	CONVECTIVE_ADJUSTMENT	ConvectCount(i,j,K) = 0.
./pkg/obcs/obcs_init_fixed.F	100	OBCS_INIT_FIXED	IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	106	OBCS_INIT_FIXED	DO j=OB_Js(i,bi,bj),1,-1
./pkg/obcs/obcs_init_fixed.F	108	OBCS_INIT_FIXED	& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Jn(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F	109	OBCS_INIT_FIXED	IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	126	OBCS_INIT_FIXED	DO j=1,sNy
./pkg/obcs/obcs_init_fixed.F	128	OBCS_INIT_FIXED	IF ( OBCS_insideMask(i,j,bi,bj).NE.0. )
./pkg/obcs/obcs_init_fixed.F	129	OBCS_INIT_FIXED	& OBCS_insideMask(i,j,bi,bj) = 1.
./pkg/obcs/obcs_init_fixed.F	146	OBCS_INIT_FIXED	DO j=2-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	148	OBCS_INIT_FIXED	maskInW(i,j,bi,bj) = maskInW(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	149	OBCS_INIT_FIXED	& *MAX( OBCS_insideMask(i-1,j,bi,bj),
./pkg/obcs/obcs_init_fixed.F	150	OBCS_INIT_FIXED	& OBCS_insideMask(i,j,bi,bj) )
./pkg/obcs/obcs_init_fixed.F	151	OBCS_INIT_FIXED	maskInS(i,j,bi,bj) = maskInS(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	152	OBCS_INIT_FIXED	& *MAX( OBCS_insideMask(i,j-1,bi,bj),
./pkg/obcs/obcs_init_fixed.F	153	OBCS_INIT_FIXED	& OBCS_insideMask(i,j,bi,bj) )
./pkg/obcs/obcs_init_fixed.F	177	OBCS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	179	OBCS_INIT_FIXED	IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F	180	OBCS_INIT_FIXED	& OBCS_insideMask(i-1,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	181	OBCS_INIT_FIXED	& .AND. ( j.LT.1 .OR. j.GT.sNy )
./pkg/obcs/obcs_init_fixed.F	182	OBCS_INIT_FIXED	& .AND. ksurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F	183	OBCS_INIT_FIXED	IF ( OB_Ie(j,bi,bj).EQ.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F	184	OBCS_INIT_FIXED	OB_Ie(j,bi,bj) = i
./pkg/obcs/obcs_init_fixed.F	186	OBCS_INIT_FIXED	& ' Sets OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	188	OBCS_INIT_FIXED	ELSEIF ( OB_Ie(j,bi,bj).NE.i ) THEN
./pkg/obcs/obcs_init_fixed.F	192	OBCS_INIT_FIXED	& ' OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(j,bi,bj),
./pkg/obcs/obcs_init_fixed.F	200	OBCS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	202	OBCS_INIT_FIXED	IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F	203	OBCS_INIT_FIXED	& OBCS_insideMask(i+1,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	204	OBCS_INIT_FIXED	& .AND. ( j.LT.1 .OR. j.GT.sNy )
./pkg/obcs/obcs_init_fixed.F	205	OBCS_INIT_FIXED	& .AND. ksurfW(i+1,j,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F	206	OBCS_INIT_FIXED	IF ( OB_Iw(j,bi,bj).EQ.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F	207	OBCS_INIT_FIXED	OB_Iw(j,bi,bj) = i
./pkg/obcs/obcs_init_fixed.F	209	OBCS_INIT_FIXED	& ' Sets OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	211	OBCS_INIT_FIXED	ELSEIF ( OB_Iw(j,bi,bj).NE.i ) THEN
./pkg/obcs/obcs_init_fixed.F	215	OBCS_INIT_FIXED	& ' OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj),
./pkg/obcs/obcs_init_fixed.F	223	OBCS_INIT_FIXED	DO j=1,sNy+1
./pkg/obcs/obcs_init_fixed.F	225	OBCS_INIT_FIXED	IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F	226	OBCS_INIT_FIXED	& OBCS_insideMask(i,j-1,bi,bj)
./pkg/obcs/obcs_init_fixed.F	228	OBCS_INIT_FIXED	& .AND. ksurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F	230	OBCS_INIT_FIXED	OB_Jn(i,bi,bj) = j
./pkg/obcs/obcs_init_fixed.F	234	OBCS_INIT_FIXED	ELSEIF ( OB_Jn(i,bi,bj).NE.j ) THEN
./pkg/obcs/obcs_init_fixed.F	239	OBCS_INIT_FIXED	& ' but from insideMask expects J=', j
./pkg/obcs/obcs_init_fixed.F	246	OBCS_INIT_FIXED	DO j=0,sNy
./pkg/obcs/obcs_init_fixed.F	248	OBCS_INIT_FIXED	IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F	249	OBCS_INIT_FIXED	& OBCS_insideMask(i,j+1,bi,bj)
./pkg/obcs/obcs_init_fixed.F	251	OBCS_INIT_FIXED	& .AND. ksurfS(i,j+1,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F	253	OBCS_INIT_FIXED	OB_Js(i,bi,bj) = j
./pkg/obcs/obcs_init_fixed.F	257	OBCS_INIT_FIXED	ELSEIF ( OB_Js(i,bi,bj).NE.j ) THEN
./pkg/obcs/obcs_init_fixed.F	262	OBCS_INIT_FIXED	& ' but from insideMask expects J=', j
./pkg/obcs/obcs_init_fixed.F	291	OBCS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	292	OBCS_INIT_FIXED	jm = MAX( j-1, 1-OLy )
./pkg/obcs/obcs_init_fixed.F	293	OBCS_INIT_FIXED	iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	296	OBCS_INIT_FIXED	OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	299	OBCS_INIT_FIXED	maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	304	OBCS_INIT_FIXED	maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	310	OBCS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	311	OBCS_INIT_FIXED	jm = MAX( j-1, 1-OLy )
./pkg/obcs/obcs_init_fixed.F	312	OBCS_INIT_FIXED	iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	315	OBCS_INIT_FIXED	OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	318	OBCS_INIT_FIXED	maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	323	OBCS_INIT_FIXED	maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	333	OBCS_INIT_FIXED	DO j=jB,jB+OB_ApplY-1
./pkg/obcs/obcs_init_fixed.F	334	OBCS_INIT_FIXED	OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	336	OBCS_INIT_FIXED	DO j=jB+1,jB+OB_ApplY-1
./pkg/obcs/obcs_init_fixed.F	337	OBCS_INIT_FIXED	maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	341	OBCS_INIT_FIXED	DO j=jB,jB+OB_ApplY-1
./pkg/obcs/obcs_init_fixed.F	342	OBCS_INIT_FIXED	maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	352	OBCS_INIT_FIXED	DO j=1-OB_ApplY+jB,jB
./pkg/obcs/obcs_init_fixed.F	353	OBCS_INIT_FIXED	OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	355	OBCS_INIT_FIXED	DO j=2-OB_ApplY+jB,jB
./pkg/obcs/obcs_init_fixed.F	356	OBCS_INIT_FIXED	maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	360	OBCS_INIT_FIXED	DO j=1-OB_ApplY+jB,jB
./pkg/obcs/obcs_init_fixed.F	361	OBCS_INIT_FIXED	maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	368	OBCS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	370	OBCS_INIT_FIXED	maskInC(i,j,bi,bj) = maskInC(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	371	OBCS_INIT_FIXED	& *OBCS_insideMask(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	388	OBCS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	390	OBCS_INIT_FIXED	& ( OB_Ie(j,bi,bj).NE.OB_indexNone )
./pkg/obcs/obcs_init_fixed.F	392	OBCS_INIT_FIXED	& ( OB_Iw(j,bi,bj).NE.OB_indexNone )
./pkg/obcs/obcs_init_fixed.F	46	OBCS_INIT_FIXED	INTEGER i, j
./pkg/obcs/obcs_init_fixed.F	60	OBCS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F	62	OBCS_INIT_FIXED	OBCS_insideMask(i,j,bi,bj) = 1.
./pkg/obcs/obcs_init_fixed.F	73	OBCS_INIT_FIXED	DO j=1,sNy
./pkg/obcs/obcs_init_fixed.F	75	OBCS_INIT_FIXED	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F	77	OBCS_INIT_FIXED	DO i=OB_Ie(j,bi,bj),sNx
./pkg/obcs/obcs_init_fixed.F	79	OBCS_INIT_FIXED	& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	80	OBCS_INIT_FIXED	IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	84	OBCS_INIT_FIXED	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F	86	OBCS_INIT_FIXED	DO i=OB_Iw(j,bi,bj),1,-1
./pkg/obcs/obcs_init_fixed.F	88	OBCS_INIT_FIXED	& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F	89	OBCS_INIT_FIXED	IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F	97	OBCS_INIT_FIXED	DO j=OB_Jn(i,bi,bj),sNy
./pkg/obcs/obcs_init_fixed.F	99	OBCS_INIT_FIXED	& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Js(i,bi,bj)
./pkg/obcs/obcs_init_variables.F	112	OBCS_INIT_VARIABLES	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_init_variables.F	114	OBCS_INIT_VARIABLES	OBEu(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	115	OBCS_INIT_VARIABLES	OBEv(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	116	OBCS_INIT_VARIABLES	OBEt(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	117	OBCS_INIT_VARIABLES	OBEs(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	119	OBCS_INIT_VARIABLES	OBEu0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	120	OBCS_INIT_VARIABLES	OBEv0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	121	OBCS_INIT_VARIABLES	OBEt0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	122	OBCS_INIT_VARIABLES	OBEs0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	123	OBCS_INIT_VARIABLES	OBEu1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	124	OBCS_INIT_VARIABLES	OBEv1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	125	OBCS_INIT_VARIABLES	OBEt1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	126	OBCS_INIT_VARIABLES	OBEs1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	129	OBCS_INIT_VARIABLES	OBEuStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	130	OBCS_INIT_VARIABLES	OBEtStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	131	OBCS_INIT_VARIABLES	OBEsStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	136	OBCS_INIT_VARIABLES	OBWu(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	137	OBCS_INIT_VARIABLES	OBWv(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	138	OBCS_INIT_VARIABLES	OBWt(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	139	OBCS_INIT_VARIABLES	OBWs(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	141	OBCS_INIT_VARIABLES	OBWu0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	142	OBCS_INIT_VARIABLES	OBWv0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	143	OBCS_INIT_VARIABLES	OBWt0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	144	OBCS_INIT_VARIABLES	OBWs0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	145	OBCS_INIT_VARIABLES	OBWu1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	146	OBCS_INIT_VARIABLES	OBWv1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	147	OBCS_INIT_VARIABLES	OBWt1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	148	OBCS_INIT_VARIABLES	OBWs1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	151	OBCS_INIT_VARIABLES	OBWuStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	152	OBCS_INIT_VARIABLES	OBWtStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	153	OBCS_INIT_VARIABLES	OBWsStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	171	OBCS_INIT_VARIABLES	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_init_variables.F	172	OBCS_INIT_VARIABLES	OBEw (j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	173	OBCS_INIT_VARIABLES	OBWw (j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	175	OBCS_INIT_VARIABLES	OBEw0(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	176	OBCS_INIT_VARIABLES	OBWw0(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	177	OBCS_INIT_VARIABLES	OBEw1(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	178	OBCS_INIT_VARIABLES	OBWw1(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	195	OBCS_INIT_VARIABLES	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_init_variables.F	196	OBCS_INIT_VARIABLES	OBEeta (j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	197	OBCS_INIT_VARIABLES	OBWeta (j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	199	OBCS_INIT_VARIABLES	OBEeta0(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	200	OBCS_INIT_VARIABLES	OBWeta0(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	201	OBCS_INIT_VARIABLES	OBEeta1(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	202	OBCS_INIT_VARIABLES	OBWeta1(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F	252	OBCS_INIT_VARIABLES	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_init_variables.F	254	OBCS_INIT_VARIABLES	OBEa (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	255	OBCS_INIT_VARIABLES	OBEh (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	256	OBCS_INIT_VARIABLES	OBEa0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	257	OBCS_INIT_VARIABLES	OBEh0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	258	OBCS_INIT_VARIABLES	OBEa1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	259	OBCS_INIT_VARIABLES	OBEh1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	260	OBCS_INIT_VARIABLES	OBEsl (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	261	OBCS_INIT_VARIABLES	OBEsn (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	262	OBCS_INIT_VARIABLES	OBEsl0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	263	OBCS_INIT_VARIABLES	OBEsn0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	264	OBCS_INIT_VARIABLES	OBEsl1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	265	OBCS_INIT_VARIABLES	OBEsn1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	266	OBCS_INIT_VARIABLES	OBEuice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	267	OBCS_INIT_VARIABLES	OBEvice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	268	OBCS_INIT_VARIABLES	OBEuice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	269	OBCS_INIT_VARIABLES	OBEvice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	270	OBCS_INIT_VARIABLES	OBEuice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	271	OBCS_INIT_VARIABLES	OBEvice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	274	OBCS_INIT_VARIABLES	OBWa (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	275	OBCS_INIT_VARIABLES	OBWh (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	276	OBCS_INIT_VARIABLES	OBWa0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	277	OBCS_INIT_VARIABLES	OBWh0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	278	OBCS_INIT_VARIABLES	OBWa1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	279	OBCS_INIT_VARIABLES	OBWh1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	280	OBCS_INIT_VARIABLES	OBWsl (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	281	OBCS_INIT_VARIABLES	OBWsn (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	282	OBCS_INIT_VARIABLES	OBWsl0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	283	OBCS_INIT_VARIABLES	OBWsn0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	284	OBCS_INIT_VARIABLES	OBWsl1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	285	OBCS_INIT_VARIABLES	OBWsn1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	286	OBCS_INIT_VARIABLES	OBWuice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	287	OBCS_INIT_VARIABLES	OBWvice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	288	OBCS_INIT_VARIABLES	OBWuice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	289	OBCS_INIT_VARIABLES	OBWvice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	290	OBCS_INIT_VARIABLES	OBWuice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	291	OBCS_INIT_VARIABLES	OBWvice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	320	OBCS_INIT_VARIABLES	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_init_variables.F	322	OBCS_INIT_VARIABLES	OBEptr (j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F	324	OBCS_INIT_VARIABLES	OBEptr0(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F	325	OBCS_INIT_VARIABLES	OBEptr1(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F	330	OBCS_INIT_VARIABLES	OBWptr (j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F	332	OBCS_INIT_VARIABLES	OBWptr0(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F	333	OBCS_INIT_VARIABLES	OBWptr1(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F	373	OBCS_INIT_VARIABLES	DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_init_variables.F	375	OBCS_INIT_VARIABLES	OBEam (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	376	OBCS_INIT_VARIABLES	OBEph (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	379	OBCS_INIT_VARIABLES	OBWam (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	380	OBCS_INIT_VARIABLES	OBWph (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F	47	OBCS_INIT_VARIABLES	INTEGER i, j, k
./pkg/obcs/obcs_mon_stats.F	111	OBCS_MON_STATS_EW_RL	DO j=1,sNy
./pkg/obcs/obcs_mon_stats.F	113	OBCS_MON_STATS_EW_RL	ii = iEb(j,bi,bj)
./pkg/obcs/obcs_mon_stats.F	118	OBCS_MON_STATS_EW_RL	tmpMask = arrhFac(iB,j,km,bi,bj)
./pkg/obcs/obcs_mon_stats.F	119	OBCS_MON_STATS_EW_RL	& *( mskInC(ii-1,j,bi,bj)-mskInC(ii,j,bi,bj) )
./pkg/obcs/obcs_mon_stats.F	122	OBCS_MON_STATS_EW_RL	tmpV = arr(ii,j,k,bi,bj)
./pkg/obcs/obcs_mon_stats.F	123	OBCS_MON_STATS_EW_RL	tmpA = arrDy(iB,j,bi,bj)arrDr(k)tmpMask
./pkg/obcs/obcs_mon_stats.F	183	OBCS_MON_STATS_EW_RL	DO j=1,sNy
./pkg/obcs/obcs_mon_stats.F	185	OBCS_MON_STATS_EW_RL	ii = iWb(j,bi,bj)
./pkg/obcs/obcs_mon_stats.F	190	OBCS_MON_STATS_EW_RL	tmpMask = arrhFac(iB,j,km,bi,bj)
./pkg/obcs/obcs_mon_stats.F	191	OBCS_MON_STATS_EW_RL	& *( mskInC(ii+1,j,bi,bj)-mskInC(ii,j,bi,bj) )
./pkg/obcs/obcs_mon_stats.F	195	OBCS_MON_STATS_EW_RL	tmpV = arr(ii,j,k,bi,bj)
./pkg/obcs/obcs_mon_stats.F	196	OBCS_MON_STATS_EW_RL	tmpA = arrDy(iB,j,bi,bj)arrDr(k)tmpMask
./pkg/obcs/obcs_mon_stats.F	81	OBCS_MON_STATS_EW_RL	INTEGER j, k, km
./pkg/obcs/obcs_monitor.F	246	OBCS_MON_WRITESTATS	INTEGER j
./pkg/obcs/obcs_monitor.F	251	OBCS_MON_WRITESTATS	j = 1
./pkg/obcs/obcs_monitor.F	254	OBCS_MON_WRITESTATS	IF ( arrStats(0,j).GT.0. _d 0 ) THEN
./pkg/obcs/obcs_monitor.F	255	OBCS_MON_WRITESTATS	theMean= arrStats(1,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	256	OBCS_MON_WRITESTATS	theSD = arrStats(2,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	259	OBCS_MON_WRITESTATS	theMin = arrStats(3,j)
./pkg/obcs/obcs_monitor.F	260	OBCS_MON_WRITESTATS	theMax = arrStats(4,j)
./pkg/obcs/obcs_monitor.F	266	OBCS_MON_WRITESTATS	& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid )
./pkg/obcs/obcs_monitor.F	269	OBCS_MON_WRITESTATS	j = 2
./pkg/obcs/obcs_monitor.F	272	OBCS_MON_WRITESTATS	IF ( arrStats(0,j).GT.0. _d 0 ) THEN
./pkg/obcs/obcs_monitor.F	273	OBCS_MON_WRITESTATS	theMean= arrStats(1,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	274	OBCS_MON_WRITESTATS	theSD = arrStats(2,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	277	OBCS_MON_WRITESTATS	theMin = arrStats(3,j)
./pkg/obcs/obcs_monitor.F	278	OBCS_MON_WRITESTATS	theMax = arrStats(4,j)
./pkg/obcs/obcs_monitor.F	284	OBCS_MON_WRITESTATS	& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid )
./pkg/obcs/obcs_monitor.F	287	OBCS_MON_WRITESTATS	j = 3
./pkg/obcs/obcs_monitor.F	290	OBCS_MON_WRITESTATS	IF ( arrStats(0,j).GT.0. _d 0 ) THEN
./pkg/obcs/obcs_monitor.F	291	OBCS_MON_WRITESTATS	theMean= arrStats(1,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	292	OBCS_MON_WRITESTATS	theSD = arrStats(2,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	295	OBCS_MON_WRITESTATS	theMin = arrStats(3,j)
./pkg/obcs/obcs_monitor.F	296	OBCS_MON_WRITESTATS	theMax = arrStats(4,j)
./pkg/obcs/obcs_monitor.F	302	OBCS_MON_WRITESTATS	& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid )
./pkg/obcs/obcs_monitor.F	305	OBCS_MON_WRITESTATS	j = 4
./pkg/obcs/obcs_monitor.F	308	OBCS_MON_WRITESTATS	IF ( arrStats(0,j).GT.0. _d 0 ) THEN
./pkg/obcs/obcs_monitor.F	309	OBCS_MON_WRITESTATS	theMean= arrStats(1,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	310	OBCS_MON_WRITESTATS	theSD = arrStats(2,j)/arrStats(0,j)
./pkg/obcs/obcs_monitor.F	313	OBCS_MON_WRITESTATS	theMin = arrStats(3,j)
./pkg/obcs/obcs_monitor.F	314	OBCS_MON_WRITESTATS	theMax = arrStats(4,j)
./pkg/obcs/obcs_monitor.F	320	OBCS_MON_WRITESTATS	& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid )
./pkg/obcs/obcs_readparms.F	213	OBCS_READPARMS	DO j=1,OBEW_Ny
./pkg/obcs/obcs_readparms.F	214	OBCS_READPARMS	OB_Ieast(j) = OB_indexUnset
./pkg/obcs/obcs_readparms.F	215	OBCS_READPARMS	OB_Iwest(j) = OB_indexUnset
./pkg/obcs/obcs_readparms.F	414	OBCS_READPARMS	DO j=1,OBEW_Ny
./pkg/obcs/obcs_readparms.F	415	OBCS_READPARMS	IF ( OB_Ieast(j) .NE.OB_indexUnset .AND.
./pkg/obcs/obcs_readparms.F	416	OBCS_READPARMS	& OB_Ieast(j) .LT.0 ) OB_Ieast(j) = OB_Ieast(j)+OBEW_Nx+1
./pkg/obcs/obcs_readparms.F	471	OBCS_READPARMS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_readparms.F	472	OBCS_READPARMS	OB_Ie(j,bi,bj) = OB_indexNone
./pkg/obcs/obcs_readparms.F	488	OBCS_READPARMS	DO j=1,sNy+1
./pkg/obcs/obcs_readparms.F	489	OBCS_READPARMS	jG = exch2_tyXStackLo(tN)+j-1
./pkg/obcs/obcs_readparms.F	490	OBCS_READPARMS	IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j
./pkg/obcs/obcs_readparms.F	495	OBCS_READPARMS	DO j=0,sNy
./pkg/obcs/obcs_readparms.F	496	OBCS_READPARMS	jG = exch2_tyXStackLo(tN)+j-1
./pkg/obcs/obcs_readparms.F	497	OBCS_READPARMS	IF ( jG.EQ.OB_Jsouth(iG) ) OB_Js(i,bi,bj) = j
./pkg/obcs/obcs_readparms.F	504	OBCS_READPARMS	DO j=1,sNy
./pkg/obcs/obcs_readparms.F	505	OBCS_READPARMS	jG = exch2_tyYStackLo(tN)+j-1
./pkg/obcs/obcs_readparms.F	511	OBCS_READPARMS	IF ( iG.EQ.OB_Ieast(jG) ) OB_Ie(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F	518	OBCS_READPARMS	IF ( iG.EQ.OB_Iwest(jG) ) OB_Iw(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F	528	OBCS_READPARMS	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_readparms.F	530	OBCS_READPARMS	jG = myYGlobalLo+(bj-1)*sNy+j-1
./pkg/obcs/obcs_readparms.F	53	OBCS_READPARMS	INTEGER i, j
./pkg/obcs/obcs_readparms.F	542	OBCS_READPARMS	IF ( iG.EQ.OB_Ieast(jGm) ) OB_Ie(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F	550	OBCS_READPARMS	IF ( iG.EQ.OB_Iwest(jGm) ) OB_Iw(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F	561	OBCS_READPARMS	DO j=1,sNy+1
./pkg/obcs/obcs_readparms.F	562	OBCS_READPARMS	jG = myYGlobalLo+(bj-1)*sNy+j-1
./pkg/obcs/obcs_readparms.F	564	OBCS_READPARMS	IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j
./pkg/obcs/obcs_readparms.F	569	OBCS_READPARMS	DO j=0,sNy
./pkg/obcs/obcs_readparms.F	570	OBCS_READPARMS	jG = myYGlobalLo+(bj-1)*sNy+j-1
./pkg/obcs/obcs_readparms.F	572	OBCS_READPARMS	IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j
./pkg/obcs/obcs_save_uv_n.F	102	OBCS_SAVE_UV_N	OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F	103	OBCS_SAVE_UV_N	& *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F	112	OBCS_SAVE_UV_N	DO j=jMin,jMax
./pkg/obcs/obcs_save_uv_n.F	113	OBCS_SAVE_UV_N	Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_save_uv_n.F	116	OBCS_SAVE_UV_N	OBWuStevens(j,k,bi,bj) = uFld(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F	117	OBCS_SAVE_UV_N	& *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F	54	OBCS_SAVE_UV_N	INTEGER i, j
./pkg/obcs/obcs_save_uv_n.F	98	OBCS_SAVE_UV_N	DO j=jMin,jMax
./pkg/obcs/obcs_save_uv_n.F	99	OBCS_SAVE_UV_N	Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	110	OBCS_SEAICE_SPONGE_A	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	111	OBCS_SEAICE_SPONGE_A	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	113	OBCS_SEAICE_SPONGE_A	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F	124	OBCS_SEAICE_SPONGE_A	AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	125	OBCS_SEAICE_SPONGE_A	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	126	OBCS_SEAICE_SPONGE_A	& * ( AREA(i,j,bi,bj) - OBEa(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	137	OBCS_SEAICE_SPONGE_A	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	138	OBCS_SEAICE_SPONGE_A	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	140	OBCS_SEAICE_SPONGE_A	i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F	151	OBCS_SEAICE_SPONGE_A	AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	152	OBCS_SEAICE_SPONGE_A	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	153	OBCS_SEAICE_SPONGE_A	& * ( AREA(i,j,bi,bj) - OBWa(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	203	OBCS_SEAICE_SPONGE_H	INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F	216	OBCS_SEAICE_SPONGE_H	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F	217	OBCS_SEAICE_SPONGE_H	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	227	OBCS_SEAICE_SPONGE_H	HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	228	OBCS_SEAICE_SPONGE_H	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	229	OBCS_SEAICE_SPONGE_H	& * ( HEFF(i,j,bi,bj) - OBNh(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	243	OBCS_SEAICE_SPONGE_H	j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F	244	OBCS_SEAICE_SPONGE_H	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	254	OBCS_SEAICE_SPONGE_H	HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	255	OBCS_SEAICE_SPONGE_H	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	256	OBCS_SEAICE_SPONGE_H	& * ( HEFF(i,j,bi,bj) - OBSh(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	267	OBCS_SEAICE_SPONGE_H	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	268	OBCS_SEAICE_SPONGE_H	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	270	OBCS_SEAICE_SPONGE_H	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F	281	OBCS_SEAICE_SPONGE_H	HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	282	OBCS_SEAICE_SPONGE_H	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	283	OBCS_SEAICE_SPONGE_H	& * ( HEFF(i,j,bi,bj) - OBEh(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	294	OBCS_SEAICE_SPONGE_H	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	295	OBCS_SEAICE_SPONGE_H	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	297	OBCS_SEAICE_SPONGE_H	i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F	308	OBCS_SEAICE_SPONGE_H	HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	309	OBCS_SEAICE_SPONGE_H	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	310	OBCS_SEAICE_SPONGE_H	& * ( HEFF(i,j,bi,bj) - OBWh(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	360	OBCS_SEAICE_SPONGE_SL	INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F	373	OBCS_SEAICE_SPONGE_SL	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F	374	OBCS_SEAICE_SPONGE_SL	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	384	OBCS_SEAICE_SPONGE_SL	HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	385	OBCS_SEAICE_SPONGE_SL	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	386	OBCS_SEAICE_SPONGE_SL	& * ( HSALT(i,j,bi,bj) - OBNsl(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	400	OBCS_SEAICE_SPONGE_SL	j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F	401	OBCS_SEAICE_SPONGE_SL	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	411	OBCS_SEAICE_SPONGE_SL	HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	412	OBCS_SEAICE_SPONGE_SL	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	413	OBCS_SEAICE_SPONGE_SL	& * ( HSALT(i,j,bi,bj) - OBSsl(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	424	OBCS_SEAICE_SPONGE_SL	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	425	OBCS_SEAICE_SPONGE_SL	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	427	OBCS_SEAICE_SPONGE_SL	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F	438	OBCS_SEAICE_SPONGE_SL	HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	439	OBCS_SEAICE_SPONGE_SL	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	440	OBCS_SEAICE_SPONGE_SL	& * ( HSALT(i,j,bi,bj) - OBEsl(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	451	OBCS_SEAICE_SPONGE_SL	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	452	OBCS_SEAICE_SPONGE_SL	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	454	OBCS_SEAICE_SPONGE_SL	i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F	465	OBCS_SEAICE_SPONGE_SL	HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	466	OBCS_SEAICE_SPONGE_SL	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	467	OBCS_SEAICE_SPONGE_SL	& * ( HSALT(i,j,bi,bj) - OBWsl(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	46	OBCS_SEAICE_SPONGE_A	INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F	517	OBCS_SEAICE_SPONGE_SN	INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F	530	OBCS_SEAICE_SPONGE_SN	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F	531	OBCS_SEAICE_SPONGE_SN	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	541	OBCS_SEAICE_SPONGE_SN	HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	542	OBCS_SEAICE_SPONGE_SN	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	543	OBCS_SEAICE_SPONGE_SN	& * ( HSNOW(i,j,bi,bj) - OBNsn(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	557	OBCS_SEAICE_SPONGE_SN	j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F	558	OBCS_SEAICE_SPONGE_SN	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	568	OBCS_SEAICE_SPONGE_SN	HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	569	OBCS_SEAICE_SPONGE_SN	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	570	OBCS_SEAICE_SPONGE_SN	& * ( HSNOW(i,j,bi,bj) - OBSsn(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	581	OBCS_SEAICE_SPONGE_SN	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	582	OBCS_SEAICE_SPONGE_SN	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	584	OBCS_SEAICE_SPONGE_SN	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F	595	OBCS_SEAICE_SPONGE_SN	HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	596	OBCS_SEAICE_SPONGE_SN	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	597	OBCS_SEAICE_SPONGE_SN	& * ( HSNOW(i,j,bi,bj) - OBEsn(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	59	OBCS_SEAICE_SPONGE_A	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F	608	OBCS_SEAICE_SPONGE_SN	DO j=1,sNy
./pkg/obcs/obcs_seaice_sponge.F	609	OBCS_SEAICE_SPONGE_SN	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F	60	OBCS_SEAICE_SPONGE_A	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	611	OBCS_SEAICE_SPONGE_SN	i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F	622	OBCS_SEAICE_SPONGE_SN	HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	623	OBCS_SEAICE_SPONGE_SN	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	624	OBCS_SEAICE_SPONGE_SN	& * ( HSNOW(i,j,bi,bj) - OBWsn(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	70	OBCS_SEAICE_SPONGE_A	AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	71	OBCS_SEAICE_SPONGE_A	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	72	OBCS_SEAICE_SPONGE_A	& * ( AREA(i,j,bi,bj) - OBNa(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F	86	OBCS_SEAICE_SPONGE_A	j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F	87	OBCS_SEAICE_SPONGE_A	IF ((j.ge.1).and.(j.le.sNy)) THEN
./pkg/obcs/obcs_seaice_sponge.F	97	OBCS_SEAICE_SPONGE_A	AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F	98	OBCS_SEAICE_SPONGE_A	& - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F	99	OBCS_SEAICE_SPONGE_A	& * ( AREA(i,j,bi,bj) - OBSa(i,bi,bj) )
./model/src/convective_adjustment_ini.F	66	CONVECTIVE_ADJUSTMENT_INI	INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment_ini.F	92	CONVECTIVE_ADJUSTMENT_INI	DO j=1-OLy,sNy+OLy
./model/src/convective_adjustment_ini.F	94	CONVECTIVE_ADJUSTMENT_INI	ConvectCount(i,j,k) = 0.
./pkg/obcs/obcs_sponge.F	101	OBCS_SPONGE_U	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	104	OBCS_SPONGE_U	& + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	118	OBCS_SPONGE_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/obcs/obcs_sponge.F	119	OBCS_SPONGE_U	& - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F	120	OBCS_SPONGE_U	& * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F	130	OBCS_SPONGE_U	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	131	OBCS_SPONGE_U	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	133	OBCS_SPONGE_U	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F	137	OBCS_SPONGE_U	& float(spongeThickness-isl)*OBEu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	138	OBCS_SPONGE_U	& + float(isl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	152	OBCS_SPONGE_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/obcs/obcs_sponge.F	153	OBCS_SPONGE_U	& - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F	154	OBCS_SPONGE_U	& * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F	164	OBCS_SPONGE_U	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	165	OBCS_SPONGE_U	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	167	OBCS_SPONGE_U	i=OB_Iw(j,bi,bj)+isl+1
./pkg/obcs/obcs_sponge.F	171	OBCS_SPONGE_U	& float(spongeThickness-isl)*OBWu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	172	OBCS_SPONGE_U	& + float(isl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	186	OBCS_SPONGE_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/obcs/obcs_sponge.F	187	OBCS_SPONGE_U	& - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F	188	OBCS_SPONGE_U	& * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F	245	OBCS_SPONGE_V	INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F	255	OBCS_SPONGE_V	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F	257	OBCS_SPONGE_V	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	260	OBCS_SPONGE_V	& + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	274	OBCS_SPONGE_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/obcs/obcs_sponge.F	275	OBCS_SPONGE_V	& - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F	276	OBCS_SPONGE_V	& * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F	289	OBCS_SPONGE_V	j=OB_Js(i,bi,bj)+jsl+1
./pkg/obcs/obcs_sponge.F	291	OBCS_SPONGE_V	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	294	OBCS_SPONGE_V	& + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	308	OBCS_SPONGE_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/obcs/obcs_sponge.F	309	OBCS_SPONGE_V	& - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F	310	OBCS_SPONGE_V	& * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F	320	OBCS_SPONGE_V	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	321	OBCS_SPONGE_V	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	323	OBCS_SPONGE_V	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F	327	OBCS_SPONGE_V	& float(spongeThickness-isl)*OBEv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	328	OBCS_SPONGE_V	& + float(isl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	342	OBCS_SPONGE_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/obcs/obcs_sponge.F	343	OBCS_SPONGE_V	& - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F	344	OBCS_SPONGE_V	& * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F	354	OBCS_SPONGE_V	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	355	OBCS_SPONGE_V	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	357	OBCS_SPONGE_V	i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F	362	OBCS_SPONGE_V	& float(spongeThickness-isl)*OBWv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	363	OBCS_SPONGE_V	& + float(isl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	377	OBCS_SPONGE_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/obcs/obcs_sponge.F	378	OBCS_SPONGE_V	& - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F	379	OBCS_SPONGE_V	& * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F	440	OBCS_SPONGE_T	INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F	469	OBCS_SPONGE_T	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F	471	OBCS_SPONGE_T	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	475	OBCS_SPONGE_T	& + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	488	OBCS_SPONGE_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/obcs/obcs_sponge.F	489	OBCS_SPONGE_T	& - maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F	490	OBCS_SPONGE_T	& * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F	509	OBCS_SPONGE_T	j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F	511	OBCS_SPONGE_T	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	515	OBCS_SPONGE_T	& + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	529	OBCS_SPONGE_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/obcs/obcs_sponge.F	530	OBCS_SPONGE_T	& - maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F	531	OBCS_SPONGE_T	& * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F	547	OBCS_SPONGE_T	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	548	OBCS_SPONGE_T	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	550	OBCS_SPONGE_T	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F	553	OBCS_SPONGE_T	IF (OBEt(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F	555	OBCS_SPONGE_T	& float(spongeThickness-isl)*OBEt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	556	OBCS_SPONGE_T	& + float(isl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	55	OBCS_SPONGE_U	INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F	570	OBCS_SPONGE_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/obcs/obcs_sponge.F	571	OBCS_SPONGE_T	& - maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F	572	OBCS_SPONGE_T	& * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F	588	OBCS_SPONGE_T	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	589	OBCS_SPONGE_T	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	593	OBCS_SPONGE_T	i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F	596	OBCS_SPONGE_T	IF (OBWt(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F	598	OBCS_SPONGE_T	& float(spongeThickness-isl)*OBWt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	599	OBCS_SPONGE_T	& + float(isl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	613	OBCS_SPONGE_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/obcs/obcs_sponge.F	614	OBCS_SPONGE_T	& - maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F	615	OBCS_SPONGE_T	& * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F	65	OBCS_SPONGE_U	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F	677	OBCS_SPONGE_S	INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F	67	OBCS_SPONGE_U	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	706	OBCS_SPONGE_S	j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F	708	OBCS_SPONGE_S	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	70	OBCS_SPONGE_U	& + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	712	OBCS_SPONGE_S	& + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	726	OBCS_SPONGE_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/obcs/obcs_sponge.F	727	OBCS_SPONGE_S	& - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F	728	OBCS_SPONGE_S	& * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F	747	OBCS_SPONGE_S	j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F	749	OBCS_SPONGE_S	IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F	753	OBCS_SPONGE_S	& + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	767	OBCS_SPONGE_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/obcs/obcs_sponge.F	768	OBCS_SPONGE_S	& - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F	769	OBCS_SPONGE_S	& * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F	785	OBCS_SPONGE_S	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	786	OBCS_SPONGE_S	IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	788	OBCS_SPONGE_S	i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F	791	OBCS_SPONGE_S	IF (OBEs(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F	793	OBCS_SPONGE_S	& float(spongeThickness-isl)*OBEs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	794	OBCS_SPONGE_S	& + float(isl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	808	OBCS_SPONGE_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/obcs/obcs_sponge.F	809	OBCS_SPONGE_S	& - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F	810	OBCS_SPONGE_S	& * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F	826	OBCS_SPONGE_S	DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F	827	OBCS_SPONGE_S	IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F	832	OBCS_SPONGE_S	i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F	835	OBCS_SPONGE_S	IF (OBWs(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F	837	OBCS_SPONGE_S	& float(spongeThickness-isl)*OBWs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F	838	OBCS_SPONGE_S	& + float(isl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F	84	OBCS_SPONGE_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/obcs/obcs_sponge.F	852	OBCS_SPONGE_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/obcs/obcs_sponge.F	853	OBCS_SPONGE_S	& - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F	854	OBCS_SPONGE_S	& * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F	85	OBCS_SPONGE_U	& - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F	86	OBCS_SPONGE_U	& * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F	99	OBCS_SPONGE_U	j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_u1_adv_tracer.F	100	OBCS_U1_ADV_TRACER	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_u1_adv_tracer.F	102	OBCS_U1_ADV_TRACER	tmpVar = vTrans(i,j)*maskLoc(i,j)
./pkg/obcs/obcs_u1_adv_tracer.F	103	OBCS_U1_ADV_TRACER	& *( maskInC(i-1,j,bi,bj) - maskInC(i,j,bi,bj) )
./pkg/obcs/obcs_u1_adv_tracer.F	105	OBCS_U1_ADV_TRACER	vAbs = ABS(vTrans(i,j))
./pkg/obcs/obcs_u1_adv_tracer.F	106	OBCS_U1_ADV_TRACER	vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j)
./pkg/obcs/obcs_u1_adv_tracer.F	107	OBCS_U1_ADV_TRACER	& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/obcs/obcs_u1_adv_tracer.F	113	OBCS_U1_ADV_TRACER	DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_u1_adv_tracer.F	115	OBCS_U1_ADV_TRACER	IF ( maskLoc(i,j).EQ.1. .AND.
./pkg/obcs/obcs_u1_adv_tracer.F	116	OBCS_U1_ADV_TRACER	& maskInC(i-1,j,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN
./pkg/obcs/obcs_u1_adv_tracer.F	117	OBCS_U1_ADV_TRACER	vAbs = ABS(vTrans(i,j))
./pkg/obcs/obcs_u1_adv_tracer.F	118	OBCS_U1_ADV_TRACER	vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j)
./pkg/obcs/obcs_u1_adv_tracer.F	119	OBCS_U1_ADV_TRACER	& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/obcs/obcs_u1_adv_tracer.F	130	OBCS_U1_ADV_TRACER	DO j=2-OLy,sNy+OLy
./pkg/obcs/obcs_u1_adv_tracer.F	132	OBCS_U1_ADV_TRACER	tmpVar = vTrans(i,j)*maskLoc(i,j)
./pkg/obcs/obcs_u1_adv_tracer.F	133	OBCS_U1_ADV_TRACER	& *( maskInC(i,j-1,bi,bj) - maskInC(i,j,bi,bj) )
./pkg/obcs/obcs_u1_adv_tracer.F	135	OBCS_U1_ADV_TRACER	vAbs = ABS(vTrans(i,j))
./pkg/obcs/obcs_u1_adv_tracer.F	136	OBCS_U1_ADV_TRACER	vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1)
./pkg/obcs/obcs_u1_adv_tracer.F	137	OBCS_U1_ADV_TRACER	& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/obcs/obcs_u1_adv_tracer.F	143	OBCS_U1_ADV_TRACER	DO j=2-OLy,sNy+OLy
./pkg/obcs/obcs_u1_adv_tracer.F	145	OBCS_U1_ADV_TRACER	IF ( maskLoc(i,j).EQ.1. .AND.
./pkg/obcs/obcs_u1_adv_tracer.F	146	OBCS_U1_ADV_TRACER	& maskInC(i,j-1,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN
./pkg/obcs/obcs_u1_adv_tracer.F	147	OBCS_U1_ADV_TRACER	vAbs = ABS(vTrans(i,j))
./pkg/obcs/obcs_u1_adv_tracer.F	148	OBCS_U1_ADV_TRACER	vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1)
./pkg/obcs/obcs_u1_adv_tracer.F	149	OBCS_U1_ADV_TRACER	& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/obcs/obcs_u1_adv_tracer.F	63	OBCS_U1_ADV_TRACER	INTEGER i,j
./model/src/convective_weights.F	54	CONVECTIVE_WEIGHTS	INTEGER i,j
./model/src/convective_weights.F	58	CONVECTIVE_WEIGHTS	DO j=1-OLy,sNy+OLy
./model/src/convective_weights.F	60	CONVECTIVE_WEIGHTS	IF ( _hFacC(i,j,k-1,bi,bj)* _hFacC(i,j,k,bi,bj) .GT. 0. .AND.
./model/src/convective_weights.F	61	CONVECTIVE_WEIGHTS	& (rhok(i,j)-rhokm1(i,j))rkSigngravitySign .LT. 0.
./model/src/convective_weights.F	65	CONVECTIVE_WEIGHTS	d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1)
./model/src/convective_weights.F	66	CONVECTIVE_WEIGHTS	d2 = _hFacC(i,j, k ,bi,bj)*drF( k )
./model/src/convective_weights.F	68	CONVECTIVE_WEIGHTS	weightA(i,j) = d2/dS
./model/src/convective_weights.F	69	CONVECTIVE_WEIGHTS	weightB(i,j) = d1/dS
./model/src/convective_weights.F	70	CONVECTIVE_WEIGHTS	convectCount(i,j,k) = 1.
./model/src/convective_weights.F	73	CONVECTIVE_WEIGHTS	weightA(i,j) = 0.
./model/src/convective_weights.F	74	CONVECTIVE_WEIGHTS	weightB(i,j) = 0.
./model/src/convective_weights.F	75	CONVECTIVE_WEIGHTS	convectCount(i,j,k) = 0.
./pkg/ocn_compon_interf/cpl_exch_configs.F	101	CPL_EXCH_CONFIGS	& 'Depth (ocean) ==', R_low(i,j,bi,bj)
./pkg/ocn_compon_interf/cpl_exch_configs.F	48	CPL_EXCH_CONFIGS	INTEGER i, j, bi, bj
./pkg/ocn_compon_interf/cpl_exch_configs.F	86	CPL_EXCH_CONFIGS	DO j=1,sNy
./pkg/ocn_compon_interf/cpl_exch_configs.F	88	CPL_EXCH_CONFIGS	IF ( ( landMask(i,j,bi,bj) .EQ. atm_waterOnly
./pkg/ocn_compon_interf/cpl_exch_configs.F	89	CPL_EXCH_CONFIGS	& .AND. R_low(i,j,bi,bj) .EQ. depth_noWater )
./pkg/ocn_compon_interf/cpl_exch_configs.F	90	CPL_EXCH_CONFIGS	& .OR. ( landMask(i,j,bi,bj) .EQ. atm_landOnly
./pkg/ocn_compon_interf/cpl_exch_configs.F	91	CPL_EXCH_CONFIGS	& .AND. R_low(i,j,bi,bj) .NE. depth_noWater ) ) THEN
./pkg/ocn_compon_interf/cpl_exch_configs.F	94	CPL_EXCH_CONFIGS	& 'Inconsistent land/sea mask @ (i=', i, ',j=', j,
./pkg/ocn_compon_interf/cpl_exch_configs.F	98	CPL_EXCH_CONFIGS	& 'Land (atmosphere) ==', landMask(i,j,bi,bj)
./pkg/ocn_compon_interf/cpl_register.F	50	CPL_REGISTER	INTEGER j, nTiles
./pkg/ocn_compon_interf/cpl_register.F	57	CPL_REGISTER	j = 0
./pkg/ocn_compon_interf/cpl_register.F	60	CPL_REGISTER	j = j+1
./pkg/ocn_compon_interf/cpl_register.F	70	CPL_REGISTER	iReg(1,j) = bi
./pkg/ocn_compon_interf/cpl_register.F	71	CPL_REGISTER	iReg(2,j) = bj
./pkg/ocn_compon_interf/cpl_register.F	72	CPL_REGISTER	iReg(3,j) = sNx
./pkg/ocn_compon_interf/cpl_register.F	73	CPL_REGISTER	iReg(4,j) = sNy
./pkg/ocn_compon_interf/cpl_register.F	74	CPL_REGISTER	iReg(5,j) = iG0
./pkg/ocn_compon_interf/cpl_register.F	75	CPL_REGISTER	iReg(6,j) = jG0
./model/src/convectively_mixtracer.F	42	CONVECTIVELY_MIXTRACER	INTEGER i,j
./model/src/convectively_mixtracer.F	46	CONVECTIVELY_MIXTRACER	DO j=1-OLy,sNy+OLy
./model/src/convectively_mixtracer.F	49	CONVECTIVELY_MIXTRACER	delTrac=Tracer(i,j,k,bi,bj)-Tracer(i,j,k-1,bi,bj)
./model/src/convectively_mixtracer.F	50	CONVECTIVELY_MIXTRACER	Tracer(i,j,k-1,bi,bj)=Tracer(i,j,k-1,bi,bj)
./model/src/convectively_mixtracer.F	51	CONVECTIVELY_MIXTRACER	& +weightA(i,j)*delTrac
./model/src/convectively_mixtracer.F	52	CONVECTIVELY_MIXTRACER	Tracer(i,j,k,bi,bj)=Tracer(i,j,k,bi,bj)
./model/src/convectively_mixtracer.F	53	CONVECTIVELY_MIXTRACER	& -weightB(i,j)*delTrac
./pkg/ocn_compon_interf/ocn_apply_import.F	103	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	105	OCN_APPLY_IMPORT	Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	109	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	111	OCN_APPLY_IMPORT	Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	120	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	122	OCN_APPLY_IMPORT	fice(i,j,bi,bj)= fracIce(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	127	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	129	OCN_APPLY_IMPORT	AtmospCO2(i,j,bi,bj)= airCO2(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	134	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	136	OCN_APPLY_IMPORT	wind(i,j,bi,bj)= surfWSpeed(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	146	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	148	OCN_APPLY_IMPORT	phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F	149	OCN_APPLY_IMPORT	& + gravityseaIceMass(i,j,bi,bj)recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F	153	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	155	OCN_APPLY_IMPORT	phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F	156	OCN_APPLY_IMPORT	& + gravityseaIceMass(i,j,bi,bj)recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F	160	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	162	OCN_APPLY_IMPORT	phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F	168	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	170	OCN_APPLY_IMPORT	EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	51	OCN_APPLY_IMPORT	INTEGER bi,bj,i,j
./pkg/ocn_compon_interf/ocn_apply_import.F	63	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	65	OCN_APPLY_IMPORT	fu(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	66	OCN_APPLY_IMPORT	fv(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	71	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	73	OCN_APPLY_IMPORT	pLoad(i,j,bi,bj) = atmSLPr(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	78	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	80	OCN_APPLY_IMPORT	sIceLoad(i,j,bi,bj) = seaIceMass(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	87	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	89	OCN_APPLY_IMPORT	EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F	94	OCN_APPLY_IMPORT	DO j=1-Oly,sNy+Oly
./pkg/ocn_compon_interf/ocn_apply_import.F	96	OCN_APPLY_IMPORT	saltFlux(i,j,bi,bj)= iceSaltFlx(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	100	OCN_CPL_DIAGS	iceftave(i,j,bi,bj) = iceftave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	101	OCN_CPL_DIAGS	& + DDTT * fracIce(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	102	OCN_CPL_DIAGS	fCO2tave(i,j,bi,bj) = fCO2tave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	103	OCN_CPL_DIAGS	& + DDTT * fluxCO2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	46	OCN_CPL_DIAGS	INTEGER i,j
./pkg/ocn_compon_interf/ocn_cpl_diags.F	59	OCN_CPL_DIAGS	DO j=1,sNy
./pkg/ocn_compon_interf/ocn_cpl_diags.F	61	OCN_CPL_DIAGS	SLPtave(i,j,bi,bj) = SLPtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	62	OCN_CPL_DIAGS	& + DDTT * atmSLPr(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	63	OCN_CPL_DIAGS	HFtave(i,j,bi,bj) = HFtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	64	OCN_CPL_DIAGS	& + DDTT * HeatFlux(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	65	OCN_CPL_DIAGS	QSWtave(i,j,bi,bj) = QSWtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	66	OCN_CPL_DIAGS	& + DDTT * qShortWave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	77	OCN_CPL_DIAGS	TXtave(i,j,bi,bj) = TXtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	78	OCN_CPL_DIAGS	& + DDTT * tauX(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	79	OCN_CPL_DIAGS	TYtave(i,j,bi,bj) = TYtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	80	OCN_CPL_DIAGS	& + DDTT * tauY(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	81	OCN_CPL_DIAGS	FWtave(i,j,bi,bj) = FWtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	82	OCN_CPL_DIAGS	& + DDTT * FWFlux(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	83	OCN_CPL_DIAGS	SFxtave(i,j,bi,bj) = SFxtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	84	OCN_CPL_DIAGS	& + DDTT * iceSaltFlx(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	85	OCN_CPL_DIAGS	SICtave(i,j,bi,bj) = SICtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	86	OCN_CPL_DIAGS	& + DDTT * seaIceMass(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	87	OCN_CPL_DIAGS	MXLtave(i,j,bi,bj) = MXLtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	88	OCN_CPL_DIAGS	& + DDTT * ocMxlD2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	89	OCN_CPL_DIAGS	SSTtave(i,j,bi,bj) = SSTtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	90	OCN_CPL_DIAGS	& + DDTT * SSTocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	91	OCN_CPL_DIAGS	SSStave(i,j,bi,bj) = SSStave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	92	OCN_CPL_DIAGS	& + DDTT * SSSocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	93	OCN_CPL_DIAGS	vSqtave(i,j,bi,bj) = vSqtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	94	OCN_CPL_DIAGS	& + DDTT * vSqocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	96	OCN_CPL_DIAGS	aCO2tave(i,j,bi,bj) = aCO2tave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	97	OCN_CPL_DIAGS	& + DDTT * airCO2(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	98	OCN_CPL_DIAGS	sWSpdtave(i,j,bi,bj) = sWSpdtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F	99	OCN_CPL_DIAGS	& + DDTT * surfWSpeed(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F	37	OCN_EXPORT_OCNCONFIG	INTEGER i,j,bi,bj
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F	43	OCN_EXPORT_OCNCONFIG	DO j=1-OLy,sNy+OLy
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F	45	OCN_EXPORT_OCNCONFIG	ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F	57	OCN_STORE_MY_DATA	INTEGER i,j
./pkg/ocn_compon_interf/ocn_store_my_data.F	59	OCN_STORE_MY_DATA	DO j=1,sNy
./pkg/ocn_compon_interf/ocn_store_my_data.F	61	OCN_STORE_MY_DATA	SSTocn2cpl(i,j,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F	62	OCN_STORE_MY_DATA	SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F	68	OCN_STORE_MY_DATA	DO j=1,sNy
./pkg/ocn_compon_interf/ocn_store_my_data.F	70	OCN_STORE_MY_DATA	ocMxlD2cpl(i,j,bi,bj) =
./pkg/ocn_compon_interf/ocn_store_my_data.F	71	OCN_STORE_MY_DATA	& h0FacC(i,j,1,bi,bj)rStarFacC(i,j,bi,bj)drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F	75	OCN_STORE_MY_DATA	DO j=1,sNy
./pkg/ocn_compon_interf/ocn_store_my_data.F	77	OCN_STORE_MY_DATA	ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F	85	OCN_STORE_MY_DATA	DO j=1,sNy
./pkg/ocn_compon_interf/ocn_store_my_data.F	87	OCN_STORE_MY_DATA	ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F	92	OCN_STORE_MY_DATA	DO j=1,sNy
./pkg/ocn_compon_interf/ocn_store_my_data.F	94	OCN_STORE_MY_DATA	vSqocn2cpl(i,j,bi,bj) =
./pkg/ocn_compon_interf/ocn_store_my_data.F	95	OCN_STORE_MY_DATA	& ( uVel(i , j,1,bi,bj)*uVel(i , j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F	96	OCN_STORE_MY_DATA	& + uVel(i+1,j,1,bi,bj)*uVel(i+1,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F	97	OCN_STORE_MY_DATA	& + vVel(i,j+1,1,bi,bj)*vVel(i,j+1,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F	98	OCN_STORE_MY_DATA	& + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj)
./model/src/correction_step.F	53	CORRECTION_STEP	INTEGER i,j
./model/src/correction_step.F	68	CORRECTION_STEP	DO j=jMin,jMax
./model/src/correction_step.F	70	CORRECTION_STEP	uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj)
./model/src/correction_step.F	71	CORRECTION_STEP	& -deltaTmompsFacphiSurfX(i,j)
./model/src/correction_step.F	73	CORRECTION_STEP	& -deltaTmomnhFac_recip_dxC(i,j,bi,bj)
./model/src/correction_step.F	74	CORRECTION_STEP	& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/correction_step.F	76	CORRECTION_STEP	& )*_maskW(i,j,k,bi,bj)
./model/src/correction_step.F	78	CORRECTION_STEP	& *maskInW(i,j,bi,bj)
./model/src/correction_step.F	84	CORRECTION_STEP	DO j=jMin,jMax
./model/src/correction_step.F	86	CORRECTION_STEP	vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj)
./model/src/correction_step.F	87	CORRECTION_STEP	& -deltaTmompsFacphiSurfY(i,j)
./model/src/correction_step.F	89	CORRECTION_STEP	& -deltaTmomnhFac_recip_dyC(i,j,bi,bj)
./model/src/correction_step.F	90	CORRECTION_STEP	& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/correction_step.F	92	CORRECTION_STEP	& )*_maskS(i,j,k,bi,bj)
./model/src/correction_step.F	94	CORRECTION_STEP	& *maskInS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	358	OFFLINE_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/offline/offline_fields_load.F	360	OFFLINE_FIELDS_LOAD	uVel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	361	OFFLINE_FIELDS_LOAD	& + aWght*uvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	362	OFFLINE_FIELDS_LOAD	vVel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	363	OFFLINE_FIELDS_LOAD	& + aWght*vvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	364	OFFLINE_FIELDS_LOAD	wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	365	OFFLINE_FIELDS_LOAD	& + aWght*wvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	366	OFFLINE_FIELDS_LOAD	theta(i,j,k,bi,bj)= bWght*tave0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	367	OFFLINE_FIELDS_LOAD	& + aWght*tave1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	368	OFFLINE_FIELDS_LOAD	salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	369	OFFLINE_FIELDS_LOAD	& + aWght*save1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	371	OFFLINE_FIELDS_LOAD	Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	372	OFFLINE_FIELDS_LOAD	& + aWght*gmkx1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	373	OFFLINE_FIELDS_LOAD	Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	374	OFFLINE_FIELDS_LOAD	& + aWght*gmky1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	375	OFFLINE_FIELDS_LOAD	Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	376	OFFLINE_FIELDS_LOAD	& + aWght*gmkz1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	380	OFFLINE_FIELDS_LOAD	IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	381	OFFLINE_FIELDS_LOAD	& + aWght*conv1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	383	OFFLINE_FIELDS_LOAD	KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	384	OFFLINE_FIELDS_LOAD	& + aWght*kdfs1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	387	OFFLINE_FIELDS_LOAD	KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	388	OFFLINE_FIELDS_LOAD	& + aWght*kght1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	396	OFFLINE_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/offline/offline_fields_load.F	398	OFFLINE_FIELDS_LOAD	uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	399	OFFLINE_FIELDS_LOAD	& / rStarFacW(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	400	OFFLINE_FIELDS_LOAD	vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	401	OFFLINE_FIELDS_LOAD	& / rStarFacS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	407	OFFLINE_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/offline/offline_fields_load.F	409	OFFLINE_FIELDS_LOAD	uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	410	OFFLINE_FIELDS_LOAD	& / rStarFacNm1W(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	411	OFFLINE_FIELDS_LOAD	vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F	412	OFFLINE_FIELDS_LOAD	& / rStarFacNm1S(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	420	OFFLINE_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/offline/offline_fields_load.F	426	OFFLINE_FIELDS_LOAD	surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	427	OFFLINE_FIELDS_LOAD	& + aWght*sflx1(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	428	OFFLINE_FIELDS_LOAD	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F	73	OFFLINE_FIELDS_LOAD	INTEGER bi,bj,i,j,k
./pkg/offline/offline_get_surfforcing.F	50	OFFLINE_GET_SURFFORCING	INTEGER bi,bj,i,j
./pkg/offline/offline_get_surfforcing.F	60	OFFLINE_GET_SURFFORCING	DO j=1-OLy,sNy+OLy
./pkg/offline/offline_get_surfforcing.F	66	OFFLINE_GET_SURFFORCING	surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj)
./pkg/offline/offline_get_surfforcing.F	67	OFFLINE_GET_SURFFORCING	& + aWght*sflx1(i,j,bi,bj)
./pkg/offline/offline_get_surfforcing.F	68	OFFLINE_GET_SURFFORCING	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/offline/offline_init_varia.F	27	OFFLINE_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/offline/offline_init_varia.F	35	OFFLINE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/offline/offline_init_varia.F	37	OFFLINE_INIT_VARIA	uvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	38	OFFLINE_INIT_VARIA	uvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	39	OFFLINE_INIT_VARIA	vvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	40	OFFLINE_INIT_VARIA	vvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	41	OFFLINE_INIT_VARIA	wvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	42	OFFLINE_INIT_VARIA	wvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	43	OFFLINE_INIT_VARIA	tave0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	44	OFFLINE_INIT_VARIA	tave1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	45	OFFLINE_INIT_VARIA	save0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	46	OFFLINE_INIT_VARIA	save1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	47	OFFLINE_INIT_VARIA	gmkx0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	48	OFFLINE_INIT_VARIA	gmkx1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	49	OFFLINE_INIT_VARIA	gmky0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	50	OFFLINE_INIT_VARIA	gmky1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	51	OFFLINE_INIT_VARIA	gmkz0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	52	OFFLINE_INIT_VARIA	gmkz1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	53	OFFLINE_INIT_VARIA	conv0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	54	OFFLINE_INIT_VARIA	conv1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	55	OFFLINE_INIT_VARIA	kdfs0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	56	OFFLINE_INIT_VARIA	kdfs1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	57	OFFLINE_INIT_VARIA	kght0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	58	OFFLINE_INIT_VARIA	kght1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	62	OFFLINE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/offline/offline_init_varia.F	66	OFFLINE_INIT_VARIA	sflx0(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F	67	OFFLINE_INIT_VARIA	sflx1(i,j,bi,bj) = 0. _d 0
./model/src/cycle_ab_tracer.F	45	CYCLE_AB_TRACER	INTEGER i,j,k
./model/src/cycle_ab_tracer.F	50	CYCLE_AB_TRACER	DO j=1-OLy,sNy+OLy
./model/src/cycle_ab_tracer.F	52	CYCLE_AB_TRACER	tracNm1(i,j,k) = tracer(i,j,k)
./model/src/cycle_ab_tracer.F	53	CYCLE_AB_TRACER	tracer(i,j,k) = tracNew(i,j,k)
./model/src/cycle_tracer.F	43	CYCLE_TRACER	INTEGER i,j,k
./model/src/cycle_tracer.F	48	CYCLE_TRACER	DO j=1-OLy,sNy+OLy
./model/src/cycle_tracer.F	50	CYCLE_TRACER	tracer(i,j,k) = gTracer(i,j,k)
./pkg/opps/opps_calc.F	139	OPPS_CALC	Dd(k)=STATE1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid)
./pkg/opps/opps_calc.F	177	OPPS_CALC	D1=STATE1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F	179	OPPS_CALC	& i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F	233	OPPS_CALC	Dd(k2+1)=STATE1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F	440	OPPS_CALC	_RL FUNCTION STATE1( sLoc, tLoc, i, j, kRef, bi, bj, myThid )
./pkg/opps/opps_calc.F	463	OPPS_CALC	INTEGER i, j, kRef, bi, bj, myThid
./pkg/opps/opps_calc.F	483	OPPS_CALC	pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F	485	OPPS_CALC	& )*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F	487	OPPS_CALC	pLoc = -rhoConstrC(kRef)gravity*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F	492	OPPS_CALC	pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F	519	NLOPPS	subroutine NLOPPS(j,is,ie,ta,sa,gcmdz)
./pkg/opps/opps_calc.F	555	NLOPPS	INTEGER i,j,k
./pkg/opps/opps_calc.F	621	NLOPPS	numgridpoints=kmp(i,j)
./pkg/opps/opps_calc.F	646	NLOPPS	write(0,*)"t out of range at j ",j
./pkg/opps/opps_calc.F	653	NLOPPS	write(,)"T and S Profile at ",i,j
./pkg/opps/opps_calc.F	894	NLOPPS	convadj(i,j,k2) = convadj(i,j,k2) + (ttemp(k2)-
./pkg/opps/opps_calc.F	906	NLOPPS	write(0,*)"t out of range at j after adjust",j
./pkg/opps/opps_init.F	31	OPPS_INIT	INTEGER i, j, k, bi, bj
./pkg/opps/opps_init.F	40	OPPS_INIT	do j = 1-OLy, sNy+OLy
./model/src/diags_oceanic_surf_flux.F	119	DIAGS_OCEANIC_SURF_FLUX	DO j = 1,sNy
./model/src/diags_oceanic_surf_flux.F	121	DIAGS_OCEANIC_SURF_FLUX	tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F	123	DIAGS_OCEANIC_SURF_FLUX	& -Qsw(i,j,bi,bj)+
./model/src/diags_oceanic_surf_flux.F	125	DIAGS_OCEANIC_SURF_FLUX	& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(i,j,bi,bj))
./model/src/diags_oceanic_surf_flux.F	132	DIAGS_OCEANIC_SURF_FLUX	DO j=1,sNy
./model/src/diags_oceanic_surf_flux.F	134	DIAGS_OCEANIC_SURF_FLUX	tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F	135	DIAGS_OCEANIC_SURF_FLUX	& + PmEpR(i,j,bi,bj)theta(i,j,ks,bi,bj)HeatCapacity_Cp
./model/src/diags_oceanic_surf_flux.F	155	DIAGS_OCEANIC_SURF_FLUX	DO j = 1,sNy
./model/src/diags_oceanic_surf_flux.F	157	DIAGS_OCEANIC_SURF_FLUX	tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F	158	DIAGS_OCEANIC_SURF_FLUX	& surfaceForcingS(i,j,bi,bj)*rUnit2mass
./model/src/diags_oceanic_surf_flux.F	165	DIAGS_OCEANIC_SURF_FLUX	DO j=1,sNy
./model/src/diags_oceanic_surf_flux.F	167	DIAGS_OCEANIC_SURF_FLUX	tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F	168	DIAGS_OCEANIC_SURF_FLUX	& + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj)
./model/src/diags_oceanic_surf_flux.F	49	DIAGS_OCEANIC_SURF_FLUX	INTEGER i,j,bi,bj
./pkg/pp81/pp81_calc_diff.F	45	PP81_CALC_DIFF	INTEGER i,j,k
./pkg/pp81/pp81_calc_diff.F	51	PP81_CALC_DIFF	DO j=jMin,jMax
./pkg/pp81/pp81_calc_diff.F	53	PP81_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/pp81/pp81_calc_diff.F	54	PP81_CALC_DIFF	& +( PPdiffKr(i,j,k,bi,bj)
./pkg/pp81/pp81_calc_diff.F	56	PP81_CALC_DIFF	& - diffKr(i,j,k,bi,bj) )
./pkg/pp81/pp81_calc_diff.F	66	PP81_CALC_DIFF	DO j=jMin,jMax
./pkg/pp81/pp81_calc_diff.F	68	PP81_CALC_DIFF	KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/pp81/pp81_calc_diff.F	69	PP81_CALC_DIFF	& +( PPdiffKr(i,j,kArg,bi,bj)
./pkg/pp81/pp81_calc_diff.F	71	PP81_CALC_DIFF	& - diffKr(i,j,kArg,bi,bj) )
./pkg/pp81/pp81_calc_visc.F	40	PP81_CALC_VISC	INTEGER i,j
./pkg/pp81/pp81_calc_visc.F	42	PP81_CALC_VISC	DO j=jMin,jMax
./pkg/pp81/pp81_calc_visc.F	44	PP81_CALC_VISC	KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/pp81/pp81_calc_visc.F	45	PP81_CALC_VISC	& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc_visc.F	46	PP81_CALC_VISC	& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) )
./pkg/pp81/pp81_calc_visc.F	50	PP81_CALC_VISC	DO j=jMin,jMax
./pkg/pp81/pp81_calc_visc.F	52	PP81_CALC_VISC	KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/pp81/pp81_calc_visc.F	53	PP81_CALC_VISC	& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc_visc.F	54	PP81_CALC_VISC	& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) )
./pkg/pp81/pp81_init_varia.F	31	PP81_INIT_VARIA	INTEGER i, j, k, bi, bj
./pkg/pp81/pp81_init_varia.F	40	PP81_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/pp81/pp81_init_varia.F	42	PP81_INIT_VARIA	PPviscAr (i,j,k,bi,bj) = viscArNr(k)
./pkg/pp81/pp81_init_varia.F	43	PP81_INIT_VARIA	PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./model/src/diags_phi_hyd.F	100	DIAGS_PHI_HYD	dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst
./model/src/diags_phi_hyd.F	101	DIAGS_PHI_HYD	totPhiHyd(i,j,k,bi,bj) =
./model/src/diags_phi_hyd.F	102	DIAGS_PHI_HYD	& phiHydC(i,j)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_hyd.F	104	DIAGS_PHI_HYD	& *( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_hyd.F	105	DIAGS_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F	110	DIAGS_PHI_HYD	DO j=jMin,jMax
./model/src/diags_phi_hyd.F	112	DIAGS_PHI_HYD	dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity
./model/src/diags_phi_hyd.F	113	DIAGS_PHI_HYD	totPhiHyd(i,j,k,bi,bj) =
./model/src/diags_phi_hyd.F	114	DIAGS_PHI_HYD	& phiHydC(i,j)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_hyd.F	116	DIAGS_PHI_HYD	& *( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_hyd.F	117	DIAGS_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F	56	DIAGS_PHI_HYD	INTEGER i,j
./model/src/diags_phi_hyd.F	63	DIAGS_PHI_HYD	DO j=jMin,jMax
./model/src/diags_phi_hyd.F	65	DIAGS_PHI_HYD	totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_hyd.F	66	DIAGS_PHI_HYD	& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/diags_phi_hyd.F	67	DIAGS_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F	69	DIAGS_PHI_HYD	phiHydCstR(i,j) = totPhiHyd(i,j,k,bi,bj)
./model/src/diags_phi_hyd.F	81	DIAGS_PHI_HYD	DO j=jMin,jMax
./model/src/diags_phi_hyd.F	83	DIAGS_PHI_HYD	facP = pStarFacK(i,j,bi,bj)
./model/src/diags_phi_hyd.F	84	DIAGS_PHI_HYD	dPhiRef = phiRef(2k) - gravitytopoZ(i,j,bi,bj)
./model/src/diags_phi_hyd.F	85	DIAGS_PHI_HYD	& - phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F	86	DIAGS_PHI_HYD	totPhiHyd(i,j,k,bi,bj) =
./model/src/diags_phi_hyd.F	87	DIAGS_PHI_HYD	& phiHydC(i,j)*facP
./model/src/diags_phi_hyd.F	89	DIAGS_PHI_HYD	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F	95	DIAGS_PHI_HYD	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	104	DIAGS_PHI_RLOW	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	106	DIAGS_PHI_RLOW	IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN
./model/src/diags_phi_rlow.F	107	DIAGS_PHI_RLOW	ddRloc = rC(k)-R_low(i,j,bi,bj)
./model/src/diags_phi_rlow.F	108	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_rlow.F	111	DIAGS_PHI_RLOW	& )gravityalphRho(i,j)*recip_rhoConst
./model/src/diags_phi_rlow.F	128	DIAGS_PHI_RLOW	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	130	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) = phiHydF(i,j)
./model/src/diags_phi_rlow.F	141	DIAGS_PHI_RLOW	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	143	DIAGS_PHI_RLOW	facP = pStarFacK(i,j,bi,bj)
./model/src/diags_phi_rlow.F	144	DIAGS_PHI_RLOW	dPhiRef = phiRef(2k+1) - gravitytopoZ(i,j,bi,bj)
./model/src/diags_phi_rlow.F	145	DIAGS_PHI_RLOW	& - phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F	146	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) =
./model/src/diags_phi_rlow.F	147	DIAGS_PHI_RLOW	& phiHydLow(i,j,bi,bj)*facP
./model/src/diags_phi_rlow.F	149	DIAGS_PHI_RLOW	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F	155	DIAGS_PHI_RLOW	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	157	DIAGS_PHI_RLOW	dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) )
./model/src/diags_phi_rlow.F	159	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) =
./model/src/diags_phi_rlow.F	160	DIAGS_PHI_RLOW	& phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_rlow.F	161	DIAGS_PHI_RLOW	& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_rlow.F	162	DIAGS_PHI_RLOW	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F	168	DIAGS_PHI_RLOW	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	170	DIAGS_PHI_RLOW	dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) )
./model/src/diags_phi_rlow.F	172	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) =
./model/src/diags_phi_rlow.F	173	DIAGS_PHI_RLOW	& phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_rlow.F	174	DIAGS_PHI_RLOW	& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_rlow.F	175	DIAGS_PHI_RLOW	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F	184	DIAGS_PHI_RLOW	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	186	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj)
./model/src/diags_phi_rlow.F	187	DIAGS_PHI_RLOW	& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/diags_phi_rlow.F	188	DIAGS_PHI_RLOW	& + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F	61	DIAGS_PHI_RLOW	INTEGER i,j
./model/src/diags_phi_rlow.F	76	DIAGS_PHI_RLOW	DO j=1-OLy,sNy+OLy
./model/src/diags_phi_rlow.F	78	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/diags_phi_rlow.F	86	DIAGS_PHI_RLOW	DO j=jMin,jMax
./model/src/diags_phi_rlow.F	88	DIAGS_PHI_RLOW	IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN
./model/src/diags_phi_rlow.F	89	DIAGS_PHI_RLOW	ddRloc = rC(k)-R_low(i,j,bi,bj)
./model/src/diags_phi_rlow.F	90	DIAGS_PHI_RLOW	phiHydLow(i,j,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_rlow.F	91	DIAGS_PHI_RLOW	& + ddRlocgravityalphRho(i,j)*recip_rhoConst
./pkg/profiles/profiles_interp.F	101	PROFILES_INTERP	if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F	102	PROFILES_INTERP	lon_tmp2=xC(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp.F	104	PROFILES_INTERP	lon_tmp2=xC(i+1,j,bi,bj)
./pkg/profiles/profiles_interp.F	106	PROFILES_INTERP	if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F	107	PROFILES_INTERP	lon_tmp1=xC(i,j,bi,bj)+360
./pkg/profiles/profiles_interp.F	109	PROFILES_INTERP	lon_tmp1=xC(i,j,bi,bj)
./pkg/profiles/profiles_interp.F	112	PROFILES_INTERP	if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F	113	PROFILES_INTERP	lon_tmp2=xG(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp.F	115	PROFILES_INTERP	lon_tmp2=xG(i+1,j,bi,bj)
./pkg/profiles/profiles_interp.F	117	PROFILES_INTERP	if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F	118	PROFILES_INTERP	lon_tmp1=xG(i,j,bi,bj)+360
./pkg/profiles/profiles_interp.F	120	PROFILES_INTERP	lon_tmp1=xG(i,j,bi,bj)
./pkg/profiles/profiles_interp.F	58	PROFILES_INTERP	integer i,j,k,kk,kcur,bi,bj
./pkg/profiles/profiles_interp.F	71	PROFILES_INTERP	DO j=1,sNy+1
./pkg/profiles/profiles_interp.F	76	PROFILES_INTERP	if ((yC(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp.F	77	PROFILES_INTERP	& (yC(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp.F	78	PROFILES_INTERP	prof_j=j
./pkg/profiles/profiles_interp.F	79	PROFILES_INTERP	lat_1=yC(i,j,bi,bj)
./pkg/profiles/profiles_interp.F	80	PROFILES_INTERP	lat_2=yC(i,j+1,bi,bj)
./pkg/profiles/profiles_interp.F	87	PROFILES_INTERP	if ((yG(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp.F	88	PROFILES_INTERP	& (yG(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp.F	89	PROFILES_INTERP	prof_j=j
./pkg/profiles/profiles_interp.F	90	PROFILES_INTERP	lat_1=yG(i,j,bi,bj)
./pkg/profiles/profiles_interp.F	91	PROFILES_INTERP	lat_2=yG(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_mean.F	101	PROFILES_INTERP_MEAN	if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F	102	PROFILES_INTERP_MEAN	lon_tmp2=xC(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F	104	PROFILES_INTERP_MEAN	lon_tmp2=xC(i+1,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F	106	PROFILES_INTERP_MEAN	if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F	107	PROFILES_INTERP_MEAN	lon_tmp1=xC(i,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F	109	PROFILES_INTERP_MEAN	lon_tmp1=xC(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F	112	PROFILES_INTERP_MEAN	if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F	113	PROFILES_INTERP_MEAN	lon_tmp2=xG(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F	115	PROFILES_INTERP_MEAN	lon_tmp2=xG(i+1,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F	117	PROFILES_INTERP_MEAN	if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F	118	PROFILES_INTERP_MEAN	lon_tmp1=xG(i,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F	120	PROFILES_INTERP_MEAN	lon_tmp1=xG(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F	58	PROFILES_INTERP_MEAN	integer i,j,k,kk,kcur,bi,bj
./pkg/profiles/profiles_interp_mean.F	71	PROFILES_INTERP_MEAN	DO j=1,sNy+1
./pkg/profiles/profiles_interp_mean.F	76	PROFILES_INTERP_MEAN	if ((yC(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp_mean.F	77	PROFILES_INTERP_MEAN	& (yC(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp_mean.F	78	PROFILES_INTERP_MEAN	prof_j=j
./pkg/profiles/profiles_interp_mean.F	79	PROFILES_INTERP_MEAN	lat_1=yC(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F	80	PROFILES_INTERP_MEAN	lat_2=yC(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_mean.F	87	PROFILES_INTERP_MEAN	if ((yG(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp_mean.F	88	PROFILES_INTERP_MEAN	& (yG(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp_mean.F	89	PROFILES_INTERP_MEAN	prof_j=j
./pkg/profiles/profiles_interp_mean.F	90	PROFILES_INTERP_MEAN	lat_1=yG(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F	91	PROFILES_INTERP_MEAN	lat_2=yG(i,j+1,bi,bj)
./model/src/diags_rho.F	150	DIAGS_RHO_G	INTEGER i,j
./model/src/diags_rho.F	167	DIAGS_RHO_G	DO j=1,sNy
./model/src/diags_rho.F	169	DIAGS_RHO_G	tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj)
./model/src/diags_rho.F	170	DIAGS_RHO_G	& *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F	184	DIAGS_RHO_G	DO j=1,sNy+1
./model/src/diags_rho.F	186	DIAGS_RHO_G	tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj)
./model/src/diags_rho.F	187	DIAGS_RHO_G	& *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F	202	DIAGS_RHO_G	DO j=1,sNy
./model/src/diags_rho.F	204	DIAGS_RHO_G	tmpFld(i,j) = wFld(i,j,k,bi,bj)*rho3d(i,j,k,bi,bj)
./model/src/diags_rho.F	208	DIAGS_RHO_G	DO j=1,sNy
./model/src/diags_rho.F	210	DIAGS_RHO_G	tmpFld(i,j) = wFld(i,j,k,bi,bj)
./model/src/diags_rho.F	211	DIAGS_RHO_G	& *(rho3d(i,j,k-1,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F	63	DIAGS_RHO_L	INTEGER i,j
./model/src/diags_rho.F	71	DIAGS_RHO_L	DO j=1,sNy
./model/src/diags_rho.F	73	DIAGS_RHO_L	tmpFld(i,j) = wFld(i,j,k,bi,bj)
./model/src/diags_rho.F	74	DIAGS_RHO_L	& ( rho3d(i,j,k) - rhoKm1(i,j) )rkSign
./model/src/diags_rho.F	84	DIAGS_RHO_L	DO j=1,sNy
./model/src/diags_rho.F	86	DIAGS_RHO_L	tmpFld(i,j) = wFld(i,j,k,bi,bj)
./model/src/diags_rho.F	87	DIAGS_RHO_L	& ( rhoKm1(i,j) - rho3d(i,j,k-1) )rkSign
./model/src/do_atmospheric_phys.F	51	DO_ATMOSPHERIC_PHYS	INTEGER i, j, k
./model/src/do_atmospheric_phys.F	76	DO_ATMOSPHERIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_atmospheric_phys.F	78	DO_ATMOSPHERIC_PHYS	rhoInSitu(i,j,k,bi,bj) =
./model/src/do_atmospheric_phys.F	79	DO_ATMOSPHERIC_PHYS	& ( theta(i,j,k,bi,bj)
./model/src/do_atmospheric_phys.F	80	DO_ATMOSPHERIC_PHYS	& ( salt(i,j,k,bi,bj)atm_Rq + oneRL )
./model/src/do_atmospheric_phys.F	81	DO_ATMOSPHERIC_PHYS	& - thetaRef )*maskC(i,j,k,bi,bj)
./model/src/do_atmospheric_phys.F	93	DO_ATMOSPHERIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_atmospheric_phys.F	95	DO_ATMOSPHERIC_PHYS	rhoInSitu(i,j,k,bi,bj) = 0.
./pkg/ptracers/ptracers_apply_forcing.F	52	PTRACERS_APPLY_FORCING	INTEGER i,j
./pkg/ptracers/ptracers_apply_forcing.F	77	PTRACERS_APPLY_FORCING	DO j=jMin,jMax
./pkg/ptracers/ptracers_apply_forcing.F	79	PTRACERS_APPLY_FORCING	gPtracer(i,j) = gPtracer(i,j)
./pkg/ptracers/ptracers_apply_forcing.F	80	PTRACERS_APPLY_FORCING	& + surfForcPtr(i,j)
./pkg/ptracers/ptracers_apply_forcing.F	81	PTRACERS_APPLY_FORCING	& recip_drF(k)recip_hFacC(i,j,k,bi,bj)
./pkg/ptracers/ptracers_calc_wsurf_tr.F	47	PTRACERS_CALC_WSURF_TR	INTEGER i,j,bi,bj,ks,itr
./pkg/ptracers/ptracers_calc_wsurf_tr.F	57	PTRACERS_CALC_WSURF_TR	DO j=1,sNy
./pkg/ptracers/ptracers_calc_wsurf_tr.F	59	PTRACERS_CALC_WSURF_TR	ks = ksurfC(i,j,bi,bj)
./pkg/ptracers/ptracers_calc_wsurf_tr.F	62	PTRACERS_CALC_WSURF_TR	& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./pkg/ptracers/ptracers_calc_wsurf_tr.F	63	PTRACERS_CALC_WSURF_TR	& *ptracer(i,j,ks,bi,bj,iTr)
./pkg/ptracers/ptracers_check_pickup.F	119	PTRACERS_CHECK_PICKUP	& 'missing field "',missFldList(j),'" not recognized'
./pkg/ptracers/ptracers_check_pickup.F	48	PTRACERS_CHECK_PICKUP	INTEGER j
./pkg/ptracers/ptracers_check_pickup.F	63	PTRACERS_CHECK_PICKUP	DO j=1,nMissing
./pkg/ptracers/ptracers_check_pickup.F	64	PTRACERS_CHECK_PICKUP	fldName = missFldList(j)
./pkg/ptracers/ptracers_diagnostics_state.F	112	PTRACERS_DIAGNOSTICS_STATE	DO j = 1,sNy+1
./pkg/ptracers/ptracers_diagnostics_state.F	118	PTRACERS_DIAGNOSTICS_STATE	dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F	119	PTRACERS_DIAGNOSTICS_STATE	& LS_vVel(i,j,k,bi,bj)hFacS(i,j,k,bi,bj)
./pkg/ptracers/ptracers_diagnostics_state.F	120	PTRACERS_DIAGNOSTICS_STATE	& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F	121	PTRACERS_DIAGNOSTICS_STATE	& + pTracer(i,j-1,k,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F	126	PTRACERS_DIAGNOSTICS_STATE	dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F	127	PTRACERS_DIAGNOSTICS_STATE	& vVel(i,j,k,bi,bj)hFacS(i,j,k,bi,bj)
./pkg/ptracers/ptracers_diagnostics_state.F	128	PTRACERS_DIAGNOSTICS_STATE	& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F	129	PTRACERS_DIAGNOSTICS_STATE	& + pTracer(i,j-1,k,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F	146	PTRACERS_DIAGNOSTICS_STATE	DO j = 1,sNy
./pkg/ptracers/ptracers_diagnostics_state.F	152	PTRACERS_DIAGNOSTICS_STATE	dummy(i,j,k,bi,bj) = LS_wVel(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F	153	PTRACERS_DIAGNOSTICS_STATE	& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F	154	PTRACERS_DIAGNOSTICS_STATE	& + pTracer(i,j,km1,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F	159	PTRACERS_DIAGNOSTICS_STATE	dummy(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F	160	PTRACERS_DIAGNOSTICS_STATE	& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F	161	PTRACERS_DIAGNOSTICS_STATE	& + pTracer(i,j,km1,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F	41	PTRACERS_DIAGNOSTICS_STATE	INTEGER i,j,k,bi,bj,iTr
./pkg/ptracers/ptracers_diagnostics_state.F	79	PTRACERS_DIAGNOSTICS_STATE	DO j = 1,sNy
./pkg/ptracers/ptracers_diagnostics_state.F	85	PTRACERS_DIAGNOSTICS_STATE	dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F	86	PTRACERS_DIAGNOSTICS_STATE	& LS_uVel(i,j,k,bi,bj)hFacW(i,j,k,bi,bj)
./pkg/ptracers/ptracers_diagnostics_state.F	87	PTRACERS_DIAGNOSTICS_STATE	& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F	88	PTRACERS_DIAGNOSTICS_STATE	& + pTracer(i-1,j,k,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F	93	PTRACERS_DIAGNOSTICS_STATE	dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F	94	PTRACERS_DIAGNOSTICS_STATE	& uVel(i,j,k,bi,bj)hFacW(i,j,k,bi,bj)
./pkg/ptracers/ptracers_diagnostics_state.F	95	PTRACERS_DIAGNOSTICS_STATE	& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F	96	PTRACERS_DIAGNOSTICS_STATE	& + pTracer(i-1,j,k,bi,bj,iTr) )
./pkg/ptracers/ptracers_forcing_surf.F	109	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F	111	PTRACERS_FORCING_SURF	add2EmP(i,j) = 0. _d 0
./pkg/ptracers/ptracers_forcing_surf.F	129	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F	131	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F	132	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F	133	PTRACERS_FORCING_SURF	& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F	134	PTRACERS_FORCING_SURF	& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F	160	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F	162	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F	163	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F	164	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F	165	PTRACERS_FORCING_SURF	& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F	182	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F	184	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F	185	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F	186	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F	52	PTRACERS_FORCING_SURF	INTEGER i, j
./pkg/ptracers/ptracers_forcing_surf.F	67	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F	69	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) = 0. _d 0
./pkg/ptracers/ptracers_forcing_surf.F	86	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F	88	PTRACERS_FORCING_SURF	tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./pkg/ptracers/ptracers_forcing_surf.F	89	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/tmpVar
./pkg/ptracers/ptracers_forcing_surf.F	90	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./pkg/ptracers/ptracers_forcing_surf.F	91	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./pkg/ptracers/ptracers_forcing_surf.F	95	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F	97	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt
./pkg/ptracers/ptracers_forcing_surf.F	98	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./pkg/ptracers/ptracers_forcing_surf.F	99	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./pkg/ptracers/ptracers_init_varia.F	115	PTRACERS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_init_varia.F	117	PTRACERS_INIT_VARIA	IF (maskC(i,j,k,bi,bj).EQ.0.)
./pkg/ptracers/ptracers_init_varia.F	118	PTRACERS_INIT_VARIA	& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/ptracers/ptracers_init_varia.F	38	PTRACERS_INIT_VARIA	INTEGER i,j,k,bi,bj,iTracer
./pkg/ptracers/ptracers_init_varia.F	63	PTRACERS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_init_varia.F	65	PTRACERS_INIT_VARIA	pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer)
./pkg/ptracers/ptracers_init_varia.F	66	PTRACERS_INIT_VARIA	gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F	70	PTRACERS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_init_varia.F	72	PTRACERS_INIT_VARIA	surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F	81	PTRACERS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_init_varia.F	83	PTRACERS_INIT_VARIA	_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_integrate.F	138	PTRACERS_INTEGRATE	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_integrate.F	140	PTRACERS_INTEGRATE	gTracer(i,j,k) = 0. _d 0
./pkg/ptracers/ptracers_integrate.F	192	PTRACERS_INTEGRATE	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_integrate.F	194	PTRACERS_INTEGRATE	fVer(i,j,1) = 0. _d 0
./pkg/ptracers/ptracers_integrate.F	195	PTRACERS_INTEGRATE	fVer(i,j,2) = 0. _d 0
./pkg/ptracers/ptracers_integrate.F	200	PTRACERS_INTEGRATE	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_integrate.F	202	PTRACERS_INTEGRATE	kappaRk(i,j,k) = 0. _d 0
./pkg/ptracers/ptracers_integrate.F	282	PTRACERS_INTEGRATE	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_integrate.F	284	PTRACERS_INTEGRATE	gTrForc(i,j) = 0. _d 0
./pkg/ptracers/ptracers_integrate.F	324	PTRACERS_INTEGRATE	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_integrate.F	326	PTRACERS_INTEGRATE	gTracer(i,j,k) = gTracer(i,j,k) + gTrForc(i,j)
./pkg/ptracers/ptracers_integrate.F	354	PTRACERS_INTEGRATE	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_integrate.F	356	PTRACERS_INTEGRATE	gTracer(i,j,k) = gTracer(i,j,k) + gTrForc(i,j)
./pkg/ptracers/ptracers_integrate.F	94	PTRACERS_INTEGRATE	INTEGER i, j, k
./model/src/do_oceanic_phys.F	131	DO_OCEANIC_PHYS	INTEGER i, j, k
./model/src/do_oceanic_phys.F	197	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	199	DO_OCEANIC_PHYS	saltPlumeDepth(i,j,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	200	DO_OCEANIC_PHYS	saltPlumeFlux(i,j,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	211	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	213	DO_OCEANIC_PHYS	sigmaRfield(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	538	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	541	DO_OCEANIC_PHYS	sigmaX(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F	542	DO_OCEANIC_PHYS	sigmaY(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F	543	DO_OCEANIC_PHYS	sigmaR(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F	549	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	551	DO_OCEANIC_PHYS	rhoKm1 (i,j) = 0. _d 0
./model/src/do_oceanic_phys.F	552	DO_OCEANIC_PHYS	rhoKp1 (i,j) = 0. _d 0
./model/src/do_oceanic_phys.F	558	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	560	DO_OCEANIC_PHYS	rhoInSitu(i,j,k,bi,bj) = 0.
./model/src/do_oceanic_phys.F	562	DO_OCEANIC_PHYS	GGL90viscArU(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	563	DO_OCEANIC_PHYS	GGL90viscArV(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	564	DO_OCEANIC_PHYS	GGL90diffKr(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	568	DO_OCEANIC_PHYS	SPforcingS(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	569	DO_OCEANIC_PHYS	SPforcingT(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	579	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	581	DO_OCEANIC_PHYS	IVDConvCount(i,j,k,bi,bj) = 0.
./model/src/do_oceanic_phys.F	591	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	593	DO_OCEANIC_PHYS	Kwx(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	594	DO_OCEANIC_PHYS	Kwy(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	595	DO_OCEANIC_PHYS	Kwz(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	597	DO_OCEANIC_PHYS	Kux(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	598	DO_OCEANIC_PHYS	Kvy(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	601	DO_OCEANIC_PHYS	Kuz(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	602	DO_OCEANIC_PHYS	Kvz(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	605	DO_OCEANIC_PHYS	GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	606	DO_OCEANIC_PHYS	GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	609	DO_OCEANIC_PHYS	VisbeckK(i,j,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	621	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	623	DO_OCEANIC_PHYS	KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	624	DO_OCEANIC_PHYS	KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F	709	DO_OCEANIC_PHYS	DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F	711	DO_OCEANIC_PHYS	rhoInSitu(i,j,k,bi,bj) =
./model/src/do_oceanic_phys.F	712	DO_OCEANIC_PHYS	& ( theta(i,j,k,bi,bj)
./model/src/do_oceanic_phys.F	713	DO_OCEANIC_PHYS	& ( salt(i,j,k,bi,bj)atm_Rq + oneRL )
./model/src/do_oceanic_phys.F	714	DO_OCEANIC_PHYS	& - thetaRef )*maskC(i,j,k,bi,bj)
./model/src/do_oceanic_phys.F	769	DO_OCEANIC_PHYS	DO j=jMin,jMax
./model/src/do_oceanic_phys.F	771	DO_OCEANIC_PHYS	rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/do_oceanic_phys.F	781	DO_OCEANIC_PHYS	DO j=jMin,jMax
./model/src/do_oceanic_phys.F	783	DO_OCEANIC_PHYS	sigmaRfield(i,j,k,bi,bj)=sigmaR(i,j,k)
./pkg/ptracers/ptracers_reset.F	119	PTRACERS_RESET	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_reset.F	121	PTRACERS_RESET	_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_reset.F	43	PTRACERS_RESET	INTEGER i,j,k,bi,bj,iTracer
./pkg/ptracers/ptracers_reset.F	73	PTRACERS_RESET	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_reset.F	75	PTRACERS_RESET	pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer)
./pkg/ptracers/ptracers_reset.F	76	PTRACERS_RESET	gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_reset.F	96	PTRACERS_RESET	DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_reset.F	98	PTRACERS_RESET	IF (maskC(i,j,k,bi,bj).EQ.0.)
./pkg/ptracers/ptracers_reset.F	99	PTRACERS_RESET	& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/ptracers/ptracers_set_iolabel.F	102	PTRACERS_SET_IOLABEL	IF ( i.NE.1 .OR. j.NE.1 ) THEN
./pkg/ptracers/ptracers_set_iolabel.F	105	PTRACERS_SET_IOLABEL	ioLbl(n)(1:1) = c1Set1(j:j)
./pkg/ptracers/ptracers_set_iolabel.F	115	PTRACERS_SET_IOLABEL	DO j=1,l1Set
./pkg/ptracers/ptracers_set_iolabel.F	119	PTRACERS_SET_IOLABEL	ioLbl(n)(1:1) = c1Set2(j:j)
./pkg/ptracers/ptracers_set_iolabel.F	128	PTRACERS_SET_IOLABEL	DO j=1,l1Set
./pkg/ptracers/ptracers_set_iolabel.F	132	PTRACERS_SET_IOLABEL	ioLbl(n)(1:1) = c1Set3(j:j)
./pkg/ptracers/ptracers_set_iolabel.F	75	PTRACERS_SET_IOLABEL	INTEGER i,j,n
./pkg/ptracers/ptracers_set_iolabel.F	99	PTRACERS_SET_IOLABEL	DO j=1,l1Set
./pkg/ptracers/ptracers_write_pickup.F	132	PTRACERS_WRITE_PICKUP	j = 0
./pkg/ptracers/ptracers_write_pickup.F	135	PTRACERS_WRITE_PICKUP	j = j + 1
./pkg/ptracers/ptracers_write_pickup.F	138	PTRACERS_WRITE_PICKUP	& -j, myIter, myThid )
./pkg/ptracers/ptracers_write_pickup.F	139	PTRACERS_WRITE_PICKUP	IF (j.LE.listDim)
./pkg/ptracers/ptracers_write_pickup.F	140	PTRACERS_WRITE_PICKUP	& wrFldList(j) = 'pTr'//PTRACERS_ioLabel(iTracer)//' '
./pkg/ptracers/ptracers_write_pickup.F	147	PTRACERS_WRITE_PICKUP	j = j + 1
./pkg/ptracers/ptracers_write_pickup.F	150	PTRACERS_WRITE_PICKUP	& -j, myIter, myThid )
./pkg/ptracers/ptracers_write_pickup.F	151	PTRACERS_WRITE_PICKUP	IF ( j.LE.listDim .AND. PTRACERS_AdamsBashGtr(iTracer) )
./pkg/ptracers/ptracers_write_pickup.F	152	PTRACERS_WRITE_PICKUP	& wrFldList(j) = 'gPtr'//PTRACERS_ioLabel(iTracer)//'m1'
./pkg/ptracers/ptracers_write_pickup.F	153	PTRACERS_WRITE_PICKUP	IF ( j.LE.listDim .AND. PTRACERS_AdamsBash_Tr(iTracer) )
./pkg/ptracers/ptracers_write_pickup.F	154	PTRACERS_WRITE_PICKUP	& wrFldList(j) = 'pTr'//PTRACERS_ioLabel(iTracer)//'Nm1'
./pkg/ptracers/ptracers_write_pickup.F	160	PTRACERS_WRITE_PICKUP	nWrFlds = j
./pkg/ptracers/ptracers_write_pickup.F	178	PTRACERS_WRITE_PICKUP	& j, myIter, myThid )
./pkg/ptracers/ptracers_write_pickup.F	199	PTRACERS_WRITE_PICKUP	j = ILNBLNK(fn)
./pkg/ptracers/ptracers_write_pickup.F	200	PTRACERS_WRITE_PICKUP	WRITE(msgBuf,'(A,A)') ' to file: ',fn(1:j)
./pkg/ptracers/ptracers_write_pickup.F	59	PTRACERS_WRITE_PICKUP	INTEGER iTracer, j, prec, lChar
./pkg/rbcs/rbcs_add_tendency.F	106	RBCS_ADD_TENDENCY	DO j=1,sNy
./pkg/rbcs/rbcs_add_tendency.F	108	RBCS_ADD_TENDENCY	gTendency(i,j) = gTendency(i,j)
./pkg/rbcs/rbcs_add_tendency.F	109	RBCS_ADD_TENDENCY	& - RBC_mask(i,j,k,bi,bj,2)/tauRelaxS
./pkg/rbcs/rbcs_add_tendency.F	110	RBCS_ADD_TENDENCY	& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F	122	RBCS_ADD_TENDENCY	DO j=1,sNy
./pkg/rbcs/rbcs_add_tendency.F	124	RBCS_ADD_TENDENCY	gTendency(i,j) = gTendency(i,j)
./pkg/rbcs/rbcs_add_tendency.F	125	RBCS_ADD_TENDENCY	& - RBC_mask(i,j,k,bi,bj,irbc)/tauRelaxPTR(iTracer)
./pkg/rbcs/rbcs_add_tendency.F	126	RBCS_ADD_TENDENCY	& *( pTracer(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_add_tendency.F	127	RBCS_ADD_TENDENCY	& - RBC_ptracers(i,j,k,bi,bj,iTracer) )
./pkg/rbcs/rbcs_add_tendency.F	50	RBCS_ADD_TENDENCY	INTEGER i,j
./pkg/rbcs/rbcs_add_tendency.F	69	RBCS_ADD_TENDENCY	DO j=0,sNy+1
./pkg/rbcs/rbcs_add_tendency.F	71	RBCS_ADD_TENDENCY	gTendency(i,j) = gTendency(i,j)
./pkg/rbcs/rbcs_add_tendency.F	72	RBCS_ADD_TENDENCY	& - RBC_maskU(i,j,k,bi,bj)/tauRelaxU
./pkg/rbcs/rbcs_add_tendency.F	73	RBCS_ADD_TENDENCY	& *( uVel(i,j,k,bi,bj)- RBCuVel(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F	80	RBCS_ADD_TENDENCY	DO j=0,sNy+1
./pkg/rbcs/rbcs_add_tendency.F	82	RBCS_ADD_TENDENCY	gTendency(i,j) = gTendency(i,j)
./pkg/rbcs/rbcs_add_tendency.F	83	RBCS_ADD_TENDENCY	& - RBC_maskV(i,j,k,bi,bj)/tauRelaxV
./pkg/rbcs/rbcs_add_tendency.F	84	RBCS_ADD_TENDENCY	& *( vVel(i,j,k,bi,bj)- RBCvVel(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F	93	RBCS_ADD_TENDENCY	DO j=1,sNy
./pkg/rbcs/rbcs_add_tendency.F	95	RBCS_ADD_TENDENCY	gTendency(i,j) = gTendency(i,j)
./pkg/rbcs/rbcs_add_tendency.F	96	RBCS_ADD_TENDENCY	& - RBC_mask(i,j,k,bi,bj,1)/tauRelaxT
./pkg/rbcs/rbcs_add_tendency.F	97	RBCS_ADD_TENDENCY	& *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_fields_load.F	236	RBCS_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/rbcs/rbcs_fields_load.F	238	RBCS_FIELDS_LOAD	RBCuVel(i,j,k,bi,bj) = bWght*rbcu0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	239	RBCS_FIELDS_LOAD	& +aWght*rbcu1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	240	RBCS_FIELDS_LOAD	RBCvVel(i,j,k,bi,bj) = bWght*rbcv0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	241	RBCS_FIELDS_LOAD	& +aWght*rbcv1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	248	RBCS_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/rbcs/rbcs_fields_load.F	250	RBCS_FIELDS_LOAD	RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	251	RBCS_FIELDS_LOAD	& +aWght*rbct1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	252	RBCS_FIELDS_LOAD	RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	253	RBCS_FIELDS_LOAD	& +aWght*rbcs1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F	267	RBCS_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/rbcs/rbcs_fields_load.F	269	RBCS_FIELDS_LOAD	RBC_ptracers(i,j,k,bi,bj,iTracer) =
./pkg/rbcs/rbcs_fields_load.F	270	RBCS_FIELDS_LOAD	& bWght*rbcptr0(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_fields_load.F	271	RBCS_FIELDS_LOAD	& +aWght*rbcptr1(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_fields_load.F	55	RBCS_FIELDS_LOAD	INTEGER bi, bj, i, j, k
./pkg/rbcs/rbcs_init_fixed.F	120	RBCS_INIT_FIXED	DO j=1-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_fixed.F	122	RBCS_INIT_FIXED	RBC_maskU(i,j,k,bi,bj) =
./pkg/rbcs/rbcs_init_fixed.F	123	RBCS_INIT_FIXED	& ( RBC_mask(i-1,j,k,bi,bj,1)
./pkg/rbcs/rbcs_init_fixed.F	124	RBCS_INIT_FIXED	& + RBC_mask( i ,j,k,bi,bj,1) )*0.5 _d 0
./pkg/rbcs/rbcs_init_fixed.F	141	RBCS_INIT_FIXED	DO j=2-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_fixed.F	143	RBCS_INIT_FIXED	RBC_maskV(i,j,k,bi,bj) =
./pkg/rbcs/rbcs_init_fixed.F	144	RBCS_INIT_FIXED	& ( RBC_mask(i,j-1,k,bi,bj,1)
./pkg/rbcs/rbcs_init_fixed.F	145	RBCS_INIT_FIXED	& + RBC_mask(i, j ,k,bi,bj,1) )*0.5 _d 0
./pkg/rbcs/rbcs_init_fixed.F	158	RBCS_INIT_FIXED	DO j=1-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_fixed.F	160	RBCS_INIT_FIXED	RBC_maskU(i,j,k,bi,bj) = RBC_maskU(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F	161	RBCS_INIT_FIXED	& * maskW(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F	162	RBCS_INIT_FIXED	RBC_maskV(i,j,k,bi,bj) = RBC_maskV(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F	163	RBCS_INIT_FIXED	& * maskS(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F	35	RBCS_INIT_FIXED	INTEGER i,j,k,bi,bj
./pkg/rbcs/rbcs_init_fixed.F	49	RBCS_INIT_FIXED	DO j=1-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_fixed.F	51	RBCS_INIT_FIXED	RBC_maskU(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_fixed.F	52	RBCS_INIT_FIXED	RBC_maskV(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_fixed.F	69	RBCS_INIT_FIXED	DO j=1-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_fixed.F	71	RBCS_INIT_FIXED	RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0
./pkg/rbcs/rbcs_init_fixed.F	92	RBCS_INIT_FIXED	DO j=1-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_fixed.F	94	RBCS_INIT_FIXED	RBC_mask(i,j,k,bi,bj,irbc) = RBC_mask(i,j,k,bi,bj,irbc)
./pkg/rbcs/rbcs_init_fixed.F	95	RBCS_INIT_FIXED	& * maskC(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_varia.F	34	RBCS_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/rbcs/rbcs_init_varia.F	43	RBCS_INIT_VARIA	DO j=1-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_varia.F	46	RBCS_INIT_VARIA	rbcu0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	47	RBCS_INIT_VARIA	rbcv0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	48	RBCS_INIT_VARIA	rbcu1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	49	RBCS_INIT_VARIA	rbcv1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	50	RBCS_INIT_VARIA	RBCuVel(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	51	RBCS_INIT_VARIA	RBCvVel(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	53	RBCS_INIT_VARIA	rbct0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	54	RBCS_INIT_VARIA	rbcs0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	55	RBCS_INIT_VARIA	rbct1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	56	RBCS_INIT_VARIA	rbcs1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	57	RBCS_INIT_VARIA	RBCtemp(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	58	RBCS_INIT_VARIA	RBCsalt(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	71	RBCS_INIT_VARIA	DO j=1-Oly,sNy+OLy
./pkg/rbcs/rbcs_init_varia.F	73	RBCS_INIT_VARIA	rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	74	RBCS_INIT_VARIA	rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F	75	RBCS_INIT_VARIA	RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rw/read_mflds.F	116	READ_MFLDS_SET	INTEGER i, j, ioUnit
./pkg/rw/read_mflds.F	207	READ_MFLDS_SET	DO j=1,nDims
./pkg/rw/read_mflds.F	208	READ_MFLDS_SET	WRITE(msgBuf,'(I4,A,3I4)') j,':',(dimList(i,j),i=1,3)
./pkg/rw/read_mflds.F	214	READ_MFLDS_SET	DO j=1,nFlds,20
./pkg/rw/read_mflds.F	216	READ_MFLDS_SET	& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) )
./pkg/rw/read_mflds.F	283	READ_MFLDS_3D_RL	INTEGER j, iL, ioUnit
./pkg/rw/read_mflds.F	308	READ_MFLDS_3D_RL	DO j=1,nFlds
./pkg/rw/read_mflds.F	309	READ_MFLDS_3D_RL	IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j
./pkg/rw/read_mflds.F	315	READ_MFLDS_3D_RL	j = MIN(nMissFld,sizFldList)
./pkg/rw/read_mflds.F	316	READ_MFLDS_3D_RL	fldMiss(j) = fldName
./pkg/rw/read_mflds.F	327	READ_MFLDS_3D_RL	j = nj
./pkg/rw/read_mflds.F	331	READ_MFLDS_3D_RL	& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj
./pkg/rw/read_mflds.F	412	READ_MFLDS_LEV_RL	INTEGER j, iL, ioUnit
./pkg/rw/read_mflds.F	437	READ_MFLDS_LEV_RL	DO j=1,nFlds
./pkg/rw/read_mflds.F	438	READ_MFLDS_LEV_RL	IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j
./pkg/rw/read_mflds.F	444	READ_MFLDS_LEV_RL	j = MIN(nMissFld,sizFldList)
./pkg/rw/read_mflds.F	445	READ_MFLDS_LEV_RL	fldMiss(j) = fldName
./pkg/rw/read_mflds.F	456	READ_MFLDS_LEV_RL	j = nj
./pkg/rw/read_mflds.F	460	READ_MFLDS_LEV_RL	& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj
./pkg/rw/read_mflds.F	541	READ_MFLDS_LEV_RS	INTEGER j, iL, ioUnit
./pkg/rw/read_mflds.F	566	READ_MFLDS_LEV_RS	DO j=1,nFlds
./pkg/rw/read_mflds.F	567	READ_MFLDS_LEV_RS	IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j
./pkg/rw/read_mflds.F	573	READ_MFLDS_LEV_RS	j = MIN(nMissFld,sizFldList)
./pkg/rw/read_mflds.F	574	READ_MFLDS_LEV_RS	fldMiss(j) = fldName
./pkg/rw/read_mflds.F	585	READ_MFLDS_LEV_RS	j = nj
./pkg/rw/read_mflds.F	589	READ_MFLDS_LEV_RS	& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj
./pkg/rw/read_mflds.F	663	READ_MFLDS_CHECK	INTEGER i, j, nj, iL, ioUnit
./pkg/rw/read_mflds.F	680	READ_MFLDS_CHECK	DO j=1,nbErr
./pkg/rw/read_mflds.F	681	READ_MFLDS_CHECK	errList(j) = ' '
./pkg/rw/read_mflds.F	699	READ_MFLDS_CHECK	DO j=1,nFlds,20
./pkg/rw/read_mflds.F	701	READ_MFLDS_CHECK	& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) )
./pkg/rw/read_mflds.F	708	READ_MFLDS_CHECK	DO j=1,nj,20
./pkg/rw/read_mflds.F	710	READ_MFLDS_CHECK	& (' >', fldMiss(i), '<', i=j,MIN(j+19,nj) )
./pkg/rw/read_mflds.F	726	READ_MFLDS_CHECK	DO j=1,nj
./pkg/rw/read_mflds.F	727	READ_MFLDS_CHECK	errList(j) = fldMiss(j)
./pkg/rw/read_mflds.F	788	READ_MFLDS_RENAME	INTEGER i , j
./pkg/rw/read_mflds.F	795	READ_MFLDS_RENAME	j = 0
./pkg/rw/read_mflds.F	798	READ_MFLDS_RENAME	IF ( j.EQ.0 ) THEN
./pkg/rw/read_mflds.F	800	READ_MFLDS_RENAME	j = i
./pkg/rw/read_mflds.F	818	READ_MFLDS_RENAME	fldList(j) = newName
./pkg/rw/write_fld_s3d_rl.F	57	WRITE_FLD_S3D_RL	INTEGER i,j,k,bi,bj
./pkg/rw/write_fld_s3d_rl.F	90	WRITE_FLD_S3D_RL	DO j=1,sNy
./pkg/rw/write_fld_s3d_rl.F	92	WRITE_FLD_S3D_RL	locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./pkg/rw/write_fld_s3d_rs.F	57	WRITE_FLD_S3D_RS	INTEGER i,j,k,bi,bj
./pkg/rw/write_fld_s3d_rs.F	90	WRITE_FLD_S3D_RS	DO j=1,sNy
./pkg/rw/write_fld_s3d_rs.F	92	WRITE_FLD_S3D_RS	locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./model/src/dynamics.F	186	DYNAMICS	INTEGER i, j
./model/src/dynamics.F	302	DYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/dynamics.F	305	DYNAMICS	gU(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F	306	DYNAMICS	gV(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F	311	DYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/dynamics.F	313	DYNAMICS	fVerU (i,j,1) = 0. _d 0
./model/src/dynamics.F	314	DYNAMICS	fVerU (i,j,2) = 0. _d 0
./model/src/dynamics.F	315	DYNAMICS	fVerV (i,j,1) = 0. _d 0
./model/src/dynamics.F	316	DYNAMICS	fVerV (i,j,2) = 0. _d 0
./model/src/dynamics.F	317	DYNAMICS	phiHydF (i,j) = 0. _d 0
./model/src/dynamics.F	318	DYNAMICS	phiHydC (i,j) = 0. _d 0
./model/src/dynamics.F	320	DYNAMICS	dPhiHydX(i,j) = 0. _d 0
./model/src/dynamics.F	321	DYNAMICS	dPhiHydY(i,j) = 0. _d 0
./model/src/dynamics.F	323	DYNAMICS	phiSurfX(i,j) = 0. _d 0
./model/src/dynamics.F	324	DYNAMICS	phiSurfY(i,j) = 0. _d 0
./model/src/dynamics.F	325	DYNAMICS	guDissip(i,j) = 0. _d 0
./model/src/dynamics.F	326	DYNAMICS	gvDissip(i,j) = 0. _d 0
./model/src/dynamics.F	328	DYNAMICS	phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F	331	DYNAMICS	dWtransC(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F	332	DYNAMICS	dWtransU(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F	333	DYNAMICS	dWtransV(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F	370	DYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/dynamics.F	372	DYNAMICS	KappaRU(i,j,k) = 0. _d 0
./model/src/dynamics.F	373	DYNAMICS	KappaRV(i,j,k) = 0. _d 0
./model/src/dynamics.F	501	DYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/dynamics.F	503	DYNAMICS	guDissip(i,j) = 0. _d 0
./model/src/dynamics.F	504	DYNAMICS	gvDissip(i,j) = 0. _d 0
./model/src/dynamics.F	558	DYNAMICS	DO j= jMin,jMax
./model/src/dynamics.F	560	DYNAMICS	guDissip(i,j) = guDissip(i,j) + addDissU(i,j)
./model/src/dynamics.F	561	DYNAMICS	gvDissip(i,j) = gvDissip(i,j) + addDissV(i,j)
./model/src/external_fields_load.F	149	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	151	EXTERNAL_FIELDS_LOAD	EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh
./model/src/external_fields_load.F	152	EXTERNAL_FIELDS_LOAD	EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh
./model/src/external_fields_load.F	187	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	189	EXTERNAL_FIELDS_LOAD	Qnet0(i,j,bi,bj) = Qnet0(i,j,bi,bj) + Qsw0(i,j,bi,bj)
./model/src/external_fields_load.F	190	EXTERNAL_FIELDS_LOAD	Qnet1(i,j,bi,bj) = Qnet1(i,j,bi,bj) + Qsw1(i,j,bi,bj)
./model/src/external_fields_load.F	243	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	245	EXTERNAL_FIELDS_LOAD	SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj)
./model/src/external_fields_load.F	246	EXTERNAL_FIELDS_LOAD	& + aWght*SST1(i,j,bi,bj)
./model/src/external_fields_load.F	251	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	253	EXTERNAL_FIELDS_LOAD	SSS(i,j,bi,bj) = bWght*SSS0(i,j,bi,bj)
./model/src/external_fields_load.F	254	EXTERNAL_FIELDS_LOAD	& + aWght*SSS1(i,j,bi,bj)
./model/src/external_fields_load.F	259	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	261	EXTERNAL_FIELDS_LOAD	fu(i,j,bi,bj) = bWght*taux0(i,j,bi,bj)
./model/src/external_fields_load.F	262	EXTERNAL_FIELDS_LOAD	& + aWght*taux1(i,j,bi,bj)
./model/src/external_fields_load.F	267	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	269	EXTERNAL_FIELDS_LOAD	fv(i,j,bi,bj) = bWght*tauy0(i,j,bi,bj)
./model/src/external_fields_load.F	270	EXTERNAL_FIELDS_LOAD	& + aWght*tauy1(i,j,bi,bj)
./model/src/external_fields_load.F	276	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	278	EXTERNAL_FIELDS_LOAD	Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj)
./model/src/external_fields_load.F	279	EXTERNAL_FIELDS_LOAD	& + aWght*Qnet1(i,j,bi,bj)
./model/src/external_fields_load.F	284	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	286	EXTERNAL_FIELDS_LOAD	EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj)
./model/src/external_fields_load.F	287	EXTERNAL_FIELDS_LOAD	& + aWght*EmPmR1(i,j,bi,bj)
./model/src/external_fields_load.F	292	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	294	EXTERNAL_FIELDS_LOAD	saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj)
./model/src/external_fields_load.F	295	EXTERNAL_FIELDS_LOAD	& + aWght*saltFlux1(i,j,bi,bj)
./model/src/external_fields_load.F	301	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	303	EXTERNAL_FIELDS_LOAD	Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj)
./model/src/external_fields_load.F	304	EXTERNAL_FIELDS_LOAD	& + aWght*Qsw1(i,j,bi,bj)
./model/src/external_fields_load.F	311	EXTERNAL_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./model/src/external_fields_load.F	313	EXTERNAL_FIELDS_LOAD	pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj)
./model/src/external_fields_load.F	314	EXTERNAL_FIELDS_LOAD	& + aWght*pLoad1(i,j,bi,bj)
./model/src/external_fields_load.F	61	EXTERNAL_FIELDS_LOAD	INTEGER bi, bj, i, j
./pkg/salt_plume/salt_plume_apply.F	151	SALT_PLUME_APPLY	DO j=1,OLy
./pkg/salt_plume/salt_plume_apply.F	153	SALT_PLUME_APPLY	plumetend(i,j,k) = 0. _d 0
./pkg/salt_plume/salt_plume_apply.F	154	SALT_PLUME_APPLY	work(i,j,k) = tracer(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_apply.F	158	SALT_PLUME_APPLY	DO j=1,OLy
./pkg/salt_plume/salt_plume_apply.F	160	SALT_PLUME_APPLY	work(i,j,Nrp1) = 0. _d 0
./pkg/salt_plume/salt_plume_apply.F	174	SALT_PLUME_APPLY	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_apply.F	176	SALT_PLUME_APPLY	SPforcingT(i,j,k,bi,bj)=0. _d 0
./pkg/salt_plume/salt_plume_apply.F	183	SALT_PLUME_APPLY	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_apply.F	185	SALT_PLUME_APPLY	SPforcingS(i,j,k,bi,bj)=0. _d 0
./pkg/salt_plume/salt_plume_apply.F	193	SALT_PLUME_APPLY	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_apply.F	196	SALT_PLUME_APPLY	IF(trIdentity.EQ.GAD_TEMPERATURE) SurfVal=tracer(i,j,1,bi,bj)
./pkg/salt_plume/salt_plume_apply.F	198	SALT_PLUME_APPLY	gTr_totSurf2Below = SPbrineVolFlux(i,j,bi,bj)*SurfVal
./pkg/salt_plume/salt_plume_apply.F	199	SALT_PLUME_APPLY	gTr_Surf2kLev = dSPvolSurf2kLev(i,j,k,bi,bj) * SurfVal
./pkg/salt_plume/salt_plume_apply.F	200	SALT_PLUME_APPLY	dSPvolBelow2kLev = -dSPvolkLev2Above(i,j,kp1,bi,bj)
./pkg/salt_plume/salt_plume_apply.F	201	SALT_PLUME_APPLY	gTr_Below2kLev= dSPvolBelow2kLev * work(i,j,kp1)
./pkg/salt_plume/salt_plume_apply.F	206	SALT_PLUME_APPLY	gTr_kLev2Above= dSPvolkLev2Above(i,j,k,bi,bj) * work(i,j,k)
./pkg/salt_plume/salt_plume_apply.F	210	SALT_PLUME_APPLY	plumetend(i,j,k) = ConvertFac *
./pkg/salt_plume/salt_plume_apply.F	212	SALT_PLUME_APPLY	IF(k.eq.1) plumetend(i,j,k) = ConvertFac *
./pkg/salt_plume/salt_plume_apply.F	225	SALT_PLUME_APPLY	SPforcingS(i,j,k,bi,bj)=plumetend(i,j,k)
./pkg/salt_plume/salt_plume_apply.F	228	SALT_PLUME_APPLY	SPforcingT(i,j,k,bi,bj)=plumetend(i,j,k)
./pkg/salt_plume/salt_plume_apply.F	247	SALT_PLUME_APPLY	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_apply.F	250	SALT_PLUME_APPLY	& plumetend(i,j,k)=SPforcingT(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_apply.F	252	SALT_PLUME_APPLY	plumetend(i,j,k)=SPforcingS(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_apply.F	70	SALT_PLUME_APPLY	INTEGER i, j, k
./pkg/salt_plume/salt_plume_calc_depth.F	117	SALT_PLUME_CALC_DEPTH	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_calc_depth.F	119	SALT_PLUME_CALC_DEPTH	IF ( k.LE.klowC(i,j,bi,bj) .AND.
./pkg/salt_plume/salt_plume_calc_depth.F	120	SALT_PLUME_CALC_DEPTH	& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN
./pkg/salt_plume/salt_plume_calc_depth.F	121	SALT_PLUME_CALC_DEPTH	IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN
./pkg/salt_plume/salt_plume_calc_depth.F	122	SALT_PLUME_CALC_DEPTH	tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) )
./pkg/salt_plume/salt_plume_calc_depth.F	123	SALT_PLUME_CALC_DEPTH	& / ( rhoLoc(i,j) - rhoKm1(i,j) )
./pkg/salt_plume/salt_plume_calc_depth.F	127	SALT_PLUME_CALC_DEPTH	SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k)
./pkg/salt_plume/salt_plume_calc_depth.F	128	SALT_PLUME_CALC_DEPTH	rhoMxL(i,j) = rhoBigNb
./pkg/salt_plume/salt_plume_calc_depth.F	130	SALT_PLUME_CALC_DEPTH	rhoKm1(i,j) = rhoLoc(i,j)
./pkg/salt_plume/salt_plume_calc_depth.F	138	SALT_PLUME_CALC_DEPTH	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_calc_depth.F	140	SALT_PLUME_CALC_DEPTH	SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj)
./pkg/salt_plume/salt_plume_calc_depth.F	141	SALT_PLUME_CALC_DEPTH	SPIND(i,j) = 0. _d 0
./pkg/salt_plume/salt_plume_calc_depth.F	151	SALT_PLUME_CALC_DEPTH	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_calc_depth.F	153	SALT_PLUME_CALC_DEPTH	GG =-1.0*sigmaR(i,j,k)
./pkg/salt_plume/salt_plume_calc_depth.F	154	SALT_PLUME_CALC_DEPTH	GGm1=-1.0*sigmaR(i,j,k-1)
./pkg/salt_plume/salt_plume_calc_depth.F	155	SALT_PLUME_CALC_DEPTH	IF ( k.LE.klowC(i,j,bi,bj) .AND.
./pkg/salt_plume/salt_plume_calc_depth.F	160	SALT_PLUME_CALC_DEPTH	IF(SPIND(i,j) .LT. 0.5) THEN
./pkg/salt_plume/salt_plume_calc_depth.F	161	SALT_PLUME_CALC_DEPTH	SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k)
./pkg/salt_plume/salt_plume_calc_depth.F	162	SALT_PLUME_CALC_DEPTH	SPIND(i,j)=1.
./pkg/salt_plume/salt_plume_calc_depth.F	172	SALT_PLUME_CALC_DEPTH	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_calc_depth.F	174	SALT_PLUME_CALC_DEPTH	SaltPlumeDepth(i,j,bi,bj) =
./pkg/salt_plume/salt_plume_calc_depth.F	175	SALT_PLUME_CALC_DEPTH	& min( SaltPlumeDepth(i,j,bi,bj)*SPovershoot,
./pkg/salt_plume/salt_plume_calc_depth.F	176	SALT_PLUME_CALC_DEPTH	& rF(1)-R_low(i,j,bi,bj) )
./pkg/salt_plume/salt_plume_calc_depth.F	182	SALT_PLUME_CALC_DEPTH	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_calc_depth.F	184	SALT_PLUME_CALC_DEPTH	SaltPlumeDepth(i,j,bi,bj) =
./pkg/salt_plume/salt_plume_calc_depth.F	185	SALT_PLUME_CALC_DEPTH	& min( SaltPlumeDepth(i,j,bi,bj),
./pkg/salt_plume/salt_plume_calc_depth.F	186	SALT_PLUME_CALC_DEPTH	& rF(1)-R_low(i,j,bi,bj) )
./pkg/salt_plume/salt_plume_calc_depth.F	55	SALT_PLUME_CALC_DEPTH	INTEGER i,j,k
./pkg/salt_plume/salt_plume_calc_depth.F	77	SALT_PLUME_CALC_DEPTH	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_calc_depth.F	79	SALT_PLUME_CALC_DEPTH	SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj)
./pkg/salt_plume/salt_plume_calc_depth.F	80	SALT_PLUME_CALC_DEPTH	SPIND(i,j) = 0. _d 0
./pkg/salt_plume/salt_plume_calc_depth.F	81	SALT_PLUME_CALC_DEPTH	rhoKm1(i,j) = 0. _d 0
./pkg/salt_plume/salt_plume_calc_depth.F	82	SALT_PLUME_CALC_DEPTH	rhoMxL(i,j) = 0. _d 0
./pkg/salt_plume/salt_plume_calc_depth.F	90	SALT_PLUME_CALC_DEPTH	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_calc_depth.F	92	SALT_PLUME_CALC_DEPTH	SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj)
./pkg/salt_plume/salt_plume_calc_depth.F	93	SALT_PLUME_CALC_DEPTH	rhoKm1(i,j) = rhoSurf(i,j)
./pkg/salt_plume/salt_plume_calc_depth.F	94	SALT_PLUME_CALC_DEPTH	rhoMxL(i,j) = rhoSurf(i,j) + SaltPlumeCriterion
./pkg/salt_plume/salt_plume_forcing_surf.F	48	SALT_PLUME_FORCING_SURF	INTEGER i, j, ks
./pkg/salt_plume/salt_plume_forcing_surf.F	55	SALT_PLUME_FORCING_SURF	DO j = jMin, jMax
./pkg/salt_plume/salt_plume_forcing_surf.F	58	SALT_PLUME_FORCING_SURF	SPforcS1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F	60	SALT_PLUME_FORCING_SURF	SPforcT1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F	61	SALT_PLUME_FORCING_SURF	& theta(i,j,1,bi,bj)rhoConst
./pkg/salt_plume/salt_plume_forcing_surf.F	67	SALT_PLUME_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F	68	SALT_PLUME_FORCING_SURF	& - SPforcS1(i,j,bi,bj) * mass2rUnit
./pkg/salt_plume/salt_plume_forcing_surf.F	69	SALT_PLUME_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F	70	SALT_PLUME_FORCING_SURF	& - SPforcT1(i,j,bi,bj) * mass2rUnit / HeatCapacity_Cp
./pkg/salt_plume/salt_plume_forcing_surf.F	72	SALT_PLUME_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F	73	SALT_PLUME_FORCING_SURF	& - saltPlumeFlux(i,j,bi,bj) * mass2rUnit
./model/src/external_forcing.F	100	EXTERNAL_FORCING_U	& recip_drF(kLev)_recip_hFacW(i,j,kLev,bi,bj)
./model/src/external_forcing.F	104	EXTERNAL_FORCING_U	DO j=0,sNy+1
./model/src/external_forcing.F	106	EXTERNAL_FORCING_U	IF ( kSurfW(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F	107	EXTERNAL_FORCING_U	gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/external_forcing.F	108	EXTERNAL_FORCING_U	& +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/external_forcing.F	109	EXTERNAL_FORCING_U	& recip_drF(kLev)_recip_hFacW(i,j,kLev,bi,bj)
./model/src/external_forcing.F	198	EXTERNAL_FORCING_V	INTEGER i, j
./model/src/external_forcing.F	234	EXTERNAL_FORCING_V	DO j=1,sNy+1
./model/src/external_forcing.F	238	EXTERNAL_FORCING_V	gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./model/src/external_forcing.F	239	EXTERNAL_FORCING_V	& +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/external_forcing.F	240	EXTERNAL_FORCING_V	& recip_drF(kLev)_recip_hFacS(i,j,kLev,bi,bj)
./model/src/external_forcing.F	244	EXTERNAL_FORCING_V	DO j=1,sNy+1
./model/src/external_forcing.F	246	EXTERNAL_FORCING_V	IF ( kSurfS(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F	247	EXTERNAL_FORCING_V	gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./model/src/external_forcing.F	248	EXTERNAL_FORCING_V	& +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/external_forcing.F	249	EXTERNAL_FORCING_V	& recip_drF(kLev)_recip_hFacS(i,j,kLev,bi,bj)
./model/src/external_forcing.F	338	EXTERNAL_FORCING_T	INTEGER i, j
./model/src/external_forcing.F	389	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	391	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	392	EXTERNAL_FORCING_T	& + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F	393	EXTERNAL_FORCING_T	& *( temp_addMass - theta(i,j,kLev,bi,bj) )
./model/src/external_forcing.F	394	EXTERNAL_FORCING_T	& *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F	395	EXTERNAL_FORCING_T	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	400	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	402	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	403	EXTERNAL_FORCING_T	& + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F	405	EXTERNAL_FORCING_T	& *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F	406	EXTERNAL_FORCING_T	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	425	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	427	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	428	EXTERNAL_FORCING_T	& + frictionHeating(i,j,kLev,bi,bj)
./model/src/external_forcing.F	429	EXTERNAL_FORCING_T	& tmpFacrecip_rA(i,j,bi,bj)
./model/src/external_forcing.F	430	EXTERNAL_FORCING_T	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	452	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	454	EXTERNAL_FORCING_T	tmpVar(i,j) = 0.
./model/src/external_forcing.F	460	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	462	EXTERNAL_FORCING_T	tmpVar(i,j) = wVel(i,j,kc,bi,bj)delPIatm_Rq
./model/src/external_forcing.F	463	EXTERNAL_FORCING_T	& ( theta(i,j,km,bi,bj)salt(i,j,km,bi,bj)
./model/src/external_forcing.F	464	EXTERNAL_FORCING_T	& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./model/src/external_forcing.F	465	EXTERNAL_FORCING_T	& )maskC(i,j,km,bi,bj)0.25 _d 0
./model/src/external_forcing.F	472	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	474	EXTERNAL_FORCING_T	tmpVar(i,j) = tmpVar(i,j)
./model/src/external_forcing.F	475	EXTERNAL_FORCING_T	& + wVel(i,j,kp,bi,bj)delPIatm_Rq
./model/src/external_forcing.F	476	EXTERNAL_FORCING_T	& ( theta(i,j,kc,bi,bj)salt(i,j,kc,bi,bj)
./model/src/external_forcing.F	477	EXTERNAL_FORCING_T	& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj)
./model/src/external_forcing.F	478	EXTERNAL_FORCING_T	& )maskC(i,j,kp,bi,bj)0.25 _d 0
./model/src/external_forcing.F	482	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	484	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	485	EXTERNAL_FORCING_T	& + tmpVar(i,j)*tmpFac
./model/src/external_forcing.F	486	EXTERNAL_FORCING_T	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	501	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	503	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	504	EXTERNAL_FORCING_T	& +surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing.F	505	EXTERNAL_FORCING_T	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	509	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	511	EXTERNAL_FORCING_T	IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F	512	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	513	EXTERNAL_FORCING_T	& +surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing.F	514	EXTERNAL_FORCING_T	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	521	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	523	EXTERNAL_FORCING_T	IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/external_forcing.F	524	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	525	EXTERNAL_FORCING_T	& +TsurfCorrecip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	545	EXTERNAL_FORCING_T	DO j=1,sNy
./model/src/external_forcing.F	547	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F	548	EXTERNAL_FORCING_T	& -Qsw(i,j,bi,bj)(swfracb(1)maskC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	549	EXTERNAL_FORCING_T	& -swfracb(2)*maskC(i,j,kp1, bi,bj))
./model/src/external_forcing.F	551	EXTERNAL_FORCING_T	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	58	EXTERNAL_FORCING_U	INTEGER i, j
./model/src/external_forcing.F	672	EXTERNAL_FORCING_S	INTEGER i, j
./model/src/external_forcing.F	712	EXTERNAL_FORCING_S	DO j=1,sNy
./model/src/external_forcing.F	714	EXTERNAL_FORCING_S	gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F	715	EXTERNAL_FORCING_S	& + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F	716	EXTERNAL_FORCING_S	& *( salt_addMass - salt(i,j,kLev,bi,bj) )
./model/src/external_forcing.F	717	EXTERNAL_FORCING_S	& *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F	718	EXTERNAL_FORCING_S	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	723	EXTERNAL_FORCING_S	DO j=1,sNy
./model/src/external_forcing.F	725	EXTERNAL_FORCING_S	gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F	726	EXTERNAL_FORCING_S	& + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F	728	EXTERNAL_FORCING_S	& *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F	729	EXTERNAL_FORCING_S	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	739	EXTERNAL_FORCING_S	DO j=1,sNy
./model/src/external_forcing.F	741	EXTERNAL_FORCING_S	gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F	742	EXTERNAL_FORCING_S	& +surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing.F	743	EXTERNAL_FORCING_S	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	747	EXTERNAL_FORCING_S	DO j=1,sNy
./model/src/external_forcing.F	749	EXTERNAL_FORCING_S	IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F	750	EXTERNAL_FORCING_S	gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F	751	EXTERNAL_FORCING_S	& +surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing.F	752	EXTERNAL_FORCING_S	& recip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	759	EXTERNAL_FORCING_S	DO j=1,sNy
./model/src/external_forcing.F	761	EXTERNAL_FORCING_S	IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/external_forcing.F	762	EXTERNAL_FORCING_S	gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F	763	EXTERNAL_FORCING_S	& +SsurfCorrecip_drF(kLev)_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F	96	EXTERNAL_FORCING_U	DO j=0,sNy+1
./model/src/external_forcing.F	98	EXTERNAL_FORCING_U	gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/external_forcing.F	99	EXTERNAL_FORCING_U	& +foFacMom*surfaceForcingU(i,j,bi,bj)
./pkg/salt_plume/salt_plume_init_varia.F	28	SALT_PLUME_INIT_VARIA	INTEGER i,j, bi,bj,Nrp1
./pkg/salt_plume/salt_plume_init_varia.F	39	SALT_PLUME_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_init_varia.F	41	SALT_PLUME_INIT_VARIA	SaltPlumeDepth (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	42	SALT_PLUME_INIT_VARIA	saltPlumeFlux (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	44	SALT_PLUME_INIT_VARIA	SPbrineVolFlux (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	45	SALT_PLUME_INIT_VARIA	SPforcS1 (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	47	SALT_PLUME_INIT_VARIA	dSPvolSurf2kLev (i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	48	SALT_PLUME_INIT_VARIA	dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	49	SALT_PLUME_INIT_VARIA	SPforcingS (i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	50	SALT_PLUME_INIT_VARIA	SPforcingT (i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	51	SALT_PLUME_INIT_VARIA	SPplumek (i,j,k,bi,bj) = 1. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	53	SALT_PLUME_INIT_VARIA	dSPvolkLev2Above (i,j,Nrp1,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F	54	SALT_PLUME_INIT_VARIA	SPplumek (i,j,Nrp1,bi,bj) = 1. _d 0
./pkg/salt_plume/salt_plume_tendency_apply_s.F	100	SALT_PLUME_TENDENCY_APPLY_S	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_tendency_apply_s.F	103	SALT_PLUME_TENDENCY_APPLY_S	IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_s.F	105	SALT_PLUME_TENDENCY_APPLY_S	plumefrac(i,j) = ( plumekb2D(i,j)-plumefrac(i,j) )
./pkg/salt_plume/salt_plume_tendency_apply_s.F	106	SALT_PLUME_TENDENCY_APPLY_S	& *maskC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	107	SALT_PLUME_TENDENCY_APPLY_S	plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	109	SALT_PLUME_TENDENCY_APPLY_S	plumetend(I,J) = SPforcingS(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	111	SALT_PLUME_TENDENCY_APPLY_S	gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	112	SALT_PLUME_TENDENCY_APPLY_S	& recip_drF(k)mass2rUnit*_recip_hFacC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	114	SALT_PLUME_TENDENCY_APPLY_S	plumefrac(i,j) = 0. _d 0
./pkg/salt_plume/salt_plume_tendency_apply_s.F	121	SALT_PLUME_TENDENCY_APPLY_S	DO j=jMin,jMax
./pkg/salt_plume/salt_plume_tendency_apply_s.F	124	SALT_PLUME_TENDENCY_APPLY_S	IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_s.F	129	SALT_PLUME_TENDENCY_APPLY_S	SPdepth(1)=SaltPlumeDepth(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	130	SALT_PLUME_TENDENCY_APPLY_S	SPdepth(2)=SaltPlumeDepth(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	132	SALT_PLUME_TENDENCY_APPLY_S	lon(1) = XC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	133	SALT_PLUME_TENDENCY_APPLY_S	lon(2) = XC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	134	SALT_PLUME_TENDENCY_APPLY_S	lat(1) = YC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	135	SALT_PLUME_TENDENCY_APPLY_S	lat(2) = YC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	144	SALT_PLUME_TENDENCY_APPLY_S	plumefrac(I,J) = (plumekb(2)-plumekb(1))*maskC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	145	SALT_PLUME_TENDENCY_APPLY_S	plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	147	SALT_PLUME_TENDENCY_APPLY_S	plumetend(i,j) = SPforcingS(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	149	SALT_PLUME_TENDENCY_APPLY_S	gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	150	SALT_PLUME_TENDENCY_APPLY_S	& recip_drF(k)mass2rUnit*_recip_hFacC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	51	SALT_PLUME_TENDENCY_APPLY_S	INTEGER i, j
./pkg/salt_plume/salt_plume_tendency_apply_s.F	74	SALT_PLUME_TENDENCY_APPLY_S	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_tendency_apply_s.F	76	SALT_PLUME_TENDENCY_APPLY_S	plumekb2D(i,j)=ABS(rF(k))
./pkg/salt_plume/salt_plume_tendency_apply_s.F	86	SALT_PLUME_TENDENCY_APPLY_S	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_tendency_apply_s.F	88	SALT_PLUME_TENDENCY_APPLY_S	plumefrac(I,J) = plumekb2D(i,j)
./pkg/salt_plume/salt_plume_tendency_apply_s.F	89	SALT_PLUME_TENDENCY_APPLY_S	plumekb2D(i,j) = ABS(rF(k+1))
./pkg/salt_plume/salt_plume_tendency_apply_t.F	51	SALT_PLUME_TENDENCY_APPLY_T	INTEGER i, j
./pkg/salt_plume/salt_plume_tendency_apply_t.F	56	SALT_PLUME_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/salt_plume/salt_plume_tendency_apply_t.F	58	SALT_PLUME_TENDENCY_APPLY_T	IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_t.F	59	SALT_PLUME_TENDENCY_APPLY_T	plumeEtend(i,j) = SPforcingT(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_t.F	60	SALT_PLUME_TENDENCY_APPLY_T	gT_arr(i,j) = gT_arr(i,j) + plumeEtend(I,J)
./pkg/salt_plume/salt_plume_tendency_apply_t.F	61	SALT_PLUME_TENDENCY_APPLY_T	& recip_drF(k)mass2rUnit*_recip_hFacC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_t.F	64	SALT_PLUME_TENDENCY_APPLY_T	plumeEtend(i,j) = 0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F	107	SALT_PLUME_VOLFRAC	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_volfrac.F	109	SALT_PLUME_VOLFRAC	SPplumek(i,j,k,bi,bj)=dMbdt(i,j)
./pkg/salt_plume/salt_plume_volfrac.F	110	SALT_PLUME_VOLFRAC	IF(SPplumek(i,j,k,bi,bj).GT. 0.9999999) THEN
./pkg/salt_plume/salt_plume_volfrac.F	111	SALT_PLUME_VOLFRAC	SPkBottom(i,j)=k
./pkg/salt_plume/salt_plume_volfrac.F	118	SALT_PLUME_VOLFRAC	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_volfrac.F	120	SALT_PLUME_VOLFRAC	dMbdt(i,j)=0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F	146	SALT_PLUME_VOLFRAC	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_volfrac.F	149	SALT_PLUME_VOLFRAC	dMbdt(i,j)=saltPlumeFlux(i,j,bi,bj)/SPbrineSconst
./pkg/salt_plume/salt_plume_volfrac.F	150	SALT_PLUME_VOLFRAC	SPbrineVolFlux(i,j,bi,bj)=dMbdt(i,j)*mass2rUnit
./pkg/salt_plume/salt_plume_volfrac.F	156	SALT_PLUME_VOLFRAC	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_volfrac.F	158	SALT_PLUME_VOLFRAC	dplumek=SPplumek(i,j,k+1,bi,bj)-SPplumek(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F	159	SALT_PLUME_VOLFRAC	dSPvolSurf2kLev(i,j,k,bi,bj)=dplumek*SPbrineVolFlux(i,j,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F	165	SALT_PLUME_VOLFRAC	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_volfrac.F	167	SALT_PLUME_VOLFRAC	Nlev=SPkBottom(i,j)
./pkg/salt_plume/salt_plume_volfrac.F	171	SALT_PLUME_VOLFRAC	dSPvolkLev2Above(i,j,k,bi,bj)=dSPvolkLev2Above(i,j,kp1,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F	172	SALT_PLUME_VOLFRAC	& - dSPvolSurf2kLev(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F	68	SALT_PLUME_VOLFRAC	INTEGER i,j,k,kp1,Nlev,Nrp1
./pkg/salt_plume/salt_plume_volfrac.F	75	SALT_PLUME_VOLFRAC	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_volfrac.F	77	SALT_PLUME_VOLFRAC	dSPvolSurf2kLev(i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F	78	SALT_PLUME_VOLFRAC	dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F	79	SALT_PLUME_VOLFRAC	SPplumek(i,j,k,bi,bj) = 1. _d 0
./pkg/salt_plume/salt_plume_volfrac.F	83	SALT_PLUME_VOLFRAC	DO j=1-OLy,sNy+OLy
./pkg/salt_plume/salt_plume_volfrac.F	85	SALT_PLUME_VOLFRAC	SPplumek(i,j,Nrp1,bi,bj) = 1. _d 0
./pkg/salt_plume/salt_plume_volfrac.F	86	SALT_PLUME_VOLFRAC	SPbrineVolFlux(i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F	87	SALT_PLUME_VOLFRAC	SPkBottom(i,j) = 0
./pkg/salt_plume/salt_plume_volfrac.F	94	SALT_PLUME_VOLFRAC	DO j=1-Oly,sNy+Oly
./pkg/salt_plume/salt_plume_volfrac.F	96	SALT_PLUME_VOLFRAC	temp(i,j)=SaltPlumeDepth(i,j,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F	97	SALT_PLUME_VOLFRAC	dMbdt(i,j)=abs(rF(k))
./model/src/external_forcing_surf.F	125	EXTERNAL_FORCING_SURF	DO j=1-OLy,sNy+OLy
./model/src/external_forcing_surf.F	127	EXTERNAL_FORCING_SURF	PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F	138	EXTERNAL_FORCING_SURF	DO j=1-OLy,sNy+OLy
./model/src/external_forcing_surf.F	140	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F	141	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F	203	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	207	EXTERNAL_FORCING_SURF	surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F	209	EXTERNAL_FORCING_SURF	surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F	211	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F	212	EXTERNAL_FORCING_SURF	& - ( Qnet(i,j,bi,bj)
./model/src/external_forcing_surf.F	214	EXTERNAL_FORCING_SURF	& -Qsw(i,j,bi,bj)
./model/src/external_forcing_surf.F	218	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F	219	EXTERNAL_FORCING_SURF	& -saltFlux(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F	255	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	257	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F	258	EXTERNAL_FORCING_SURF	& + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F	259	EXTERNAL_FORCING_SURF	& *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F	266	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	268	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F	269	EXTERNAL_FORCING_SURF	& + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F	270	EXTERNAL_FORCING_SURF	& *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F	290	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	292	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F	293	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F	294	EXTERNAL_FORCING_SURF	& *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/src/external_forcing_surf.F	301	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	303	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F	304	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F	305	EXTERNAL_FORCING_SURF	& *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./model/src/external_forcing_surf.F	316	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	318	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F	319	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F	327	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	329	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F	330	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F	357	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	359	EXTERNAL_FORCING_SURF	phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./model/src/external_forcing_surf.F	360	EXTERNAL_FORCING_SURF	& +sIceLoad(i,j,bi,bj)*gravity
./model/src/external_forcing_surf.F	365	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./model/src/external_forcing_surf.F	367	EXTERNAL_FORCING_SURF	phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./model/src/external_forcing_surf.F	61	EXTERNAL_FORCING_SURF	INTEGER i,j
./pkg/sbo/sbo_calc.F	106	SBO_CALC	integer bi, bj, i, j, k
./pkg/sbo/sbo_calc.F	202	SBO_CALC	DO j=1-OLy,sNy+OLy
./pkg/sbo/sbo_calc.F	204	SBO_CALC	UEice(i,j,bi,bj) = 0.
./pkg/sbo/sbo_calc.F	205	SBO_CALC	VNice(i,j,bi,bj) = 0.
./pkg/sbo/sbo_calc.F	228	SBO_CALC	DO j = 1, sNy
./pkg/sbo/sbo_calc.F	230	SBO_CALC	darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/sbo/sbo_calc.F	233	SBO_CALC	& rhoConstetaN(i,j,bi,bj)darea +
./pkg/sbo/sbo_calc.F	234	SBO_CALC	& sIceLoad(i,j,bi,bj)*darea
./pkg/sbo/sbo_calc.F	236	SBO_CALC	dvolume = rA(i,j,bi,bj)drF(k)hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F	238	SBO_CALC	& rhoInSitu(i,j,k,bi,bj) * dvolume
./pkg/sbo/sbo_calc.F	253	SBO_CALC	DO j = 1-OLy, sNy+OLy
./pkg/sbo/sbo_calc.F	255	SBO_CALC	Mload(i,j,bi,bj) = rhoConst*etaN(i,j,bi,bj) +
./pkg/sbo/sbo_calc.F	256	SBO_CALC	& sIceLoad(i,j,bi,bj) +
./pkg/sbo/sbo_calc.F	257	SBO_CALC	& GCload - R_low(i,j,bi,bj)*rhoConst
./pkg/sbo/sbo_calc.F	259	SBO_CALC	Mload(i,j,bi,bj) = Mload(i,j,bi,bj) +
./pkg/sbo/sbo_calc.F	260	SBO_CALC	& rhoInSitu(i,j,k,bi,bj)drF(k)hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F	270	SBO_CALC	DO j = 1-OLy, sNy+OLy
./pkg/sbo/sbo_calc.F	272	SBO_CALC	lat = yC(i,j,bi,bj) * deg2rad
./pkg/sbo/sbo_calc.F	273	SBO_CALC	lon = xC(i,j,bi,bj) * deg2rad
./pkg/sbo/sbo_calc.F	274	SBO_CALC	COSlat(i,j,bi,bj) = COS(lat)
./pkg/sbo/sbo_calc.F	275	SBO_CALC	SINlat(i,j,bi,bj) = SIN(lat)
./pkg/sbo/sbo_calc.F	276	SBO_CALC	COSlon(i,j,bi,bj) = COS(lon)
./pkg/sbo/sbo_calc.F	277	SBO_CALC	SINlon(i,j,bi,bj) = SIN(lon)
./pkg/sbo/sbo_calc.F	317	SBO_CALC	DO j = 1, sNy
./pkg/sbo/sbo_calc.F	320	SBO_CALC	IF ( maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/sbo/sbo_calc.F	323	SBO_CALC	darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/sbo/sbo_calc.F	327	SBO_CALC	& Mload(i,j,bi,bj)*darea
./pkg/sbo/sbo_calc.F	331	SBO_CALC	& sIceLoad(i,j,bi,bj)*darea
./pkg/sbo/sbo_calc.F	335	SBO_CALC	& Mload(i,j,bi,bj)COSlat(i,j,bi,bj)COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	338	SBO_CALC	& Mload(i,j,bi,bj)COSlat(i,j,bi,bj)SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	341	SBO_CALC	& Mload(i,j,bi,bj)*SINlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	347	SBO_CALC	dvolume = rA(i,j,bi,bj)*drF(k)
./pkg/sbo/sbo_calc.F	348	SBO_CALC	& * maskC(i,j,k,bi,bj)*hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F	350	SBO_CALC	& ( VN(i,j,k,bi,bj)*SINlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F	351	SBO_CALC	& UE(i,j,k,bi,bj)*
./pkg/sbo/sbo_calc.F	352	SBO_CALC	& SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F	355	SBO_CALC	& (-VN(i,j,k,bi,bj)*COSlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F	356	SBO_CALC	& UE(i,j,k,bi,bj)*
./pkg/sbo/sbo_calc.F	357	SBO_CALC	& SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F	360	SBO_CALC	& UE(i,j,k,bi,bj)*COSlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	366	SBO_CALC	& ( VNice(i,j,bi,bj)*SINlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F	367	SBO_CALC	& UEice(i,j,bi,bj)*
./pkg/sbo/sbo_calc.F	368	SBO_CALC	& SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F	369	SBO_CALC	& * sIceLoad(i,j,bi,bj) * ae * darea
./pkg/sbo/sbo_calc.F	371	SBO_CALC	& (-VNice(i,j,bi,bj)*COSlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F	372	SBO_CALC	& UEice(i,j,bi,bj)*
./pkg/sbo/sbo_calc.F	373	SBO_CALC	& SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F	374	SBO_CALC	& * sIceLoad(i,j,bi,bj) * ae * darea
./pkg/sbo/sbo_calc.F	376	SBO_CALC	& UEice(i,j,bi,bj)*COSlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	377	SBO_CALC	& * sIceLoad(i,j,bi,bj) * ae * darea
./pkg/sbo/sbo_calc.F	381	SBO_CALC	& SINlat(i,j,bi,bj)COSlat(i,j,bi,bj)COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	382	SBO_CALC	& * sbo_omega * Mload(i,j,bi,bj) * aeae darea
./pkg/sbo/sbo_calc.F	384	SBO_CALC	& SINlat(i,j,bi,bj)COSlat(i,j,bi,bj)SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	385	SBO_CALC	& * sbo_omega * Mload(i,j,bi,bj) * aeae darea
./pkg/sbo/sbo_calc.F	387	SBO_CALC	& COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	388	SBO_CALC	& * sbo_omega * Mload(i,j,bi,bj) * aeae darea
./pkg/sbo/sbo_calc.F	396	SBO_CALC	& FWload * COSlat(i,j,bi,bj) * COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	399	SBO_CALC	& FWload * COSlat(i,j,bi,bj) * SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	402	SBO_CALC	& FWload * SINlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	407	SBO_CALC	& SINlat(i,j,bi,bj)COSlat(i,j,bi,bj)COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	410	SBO_CALC	& SINlat(i,j,bi,bj)COSlat(i,j,bi,bj)SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F	413	SBO_CALC	& COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj)
./model/src/find_alpha.F	104	FIND_ALPHA	alphaLoc(i,j) =
./model/src/find_alpha.F	136	FIND_ALPHA	DO j=jMin,jMax
./model/src/find_alpha.F	140	FIND_ALPHA	t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F	148	FIND_ALPHA	s1 = salt(i,j,k,bi,bj)
./model/src/find_alpha.F	156	FIND_ALPHA	p1 = locPres(i,j)*SItoBar
./model/src/find_alpha.F	216	FIND_ALPHA	alphaLoc(i,j) =
./model/src/find_alpha.F	217	FIND_ALPHA	& ( bulkmod(i,j)*2drhoP0dtheta
./model/src/find_alpha.F	218	FIND_ALPHA	& - bulkmod(i,j)p1drhoP0dtheta
./model/src/find_alpha.F	219	FIND_ALPHA	& - rhoP0(i,j)p1dKdtheta )
./model/src/find_alpha.F	220	FIND_ALPHA	& /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F	243	FIND_ALPHA	DO j=jMin,jMax
./model/src/find_alpha.F	245	FIND_ALPHA	t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F	247	FIND_ALPHA	s1 = salt(i,j,k,bi,bj)
./model/src/find_alpha.F	259	FIND_ALPHA	p1 = locPres(i,j)*SItodBar
./model/src/find_alpha.F	276	FIND_ALPHA	alphaLoc(i,j) = rhoDen(i,j)*(dnum_dtheta
./model/src/find_alpha.F	277	FIND_ALPHA	& - (rhoLoc(i,j)rhoDen(i,j))dden_dtheta)
./model/src/find_alpha.F	295	FIND_ALPHA	DO j=jMin,jMax
./model/src/find_alpha.F	297	FIND_ALPHA	ct = theta(i,j,k,bi,bj)
./model/src/find_alpha.F	298	FIND_ALPHA	sa = salt(i,j,k,bi,bj)
./model/src/find_alpha.F	309	FIND_ALPHA	p = locPres(i,j)*SItodBar
./model/src/find_alpha.F	329	FIND_ALPHA	alphaLoc(i,j) = rhoDen(i,j)*(dnum_dtheta
./model/src/find_alpha.F	330	FIND_ALPHA	& - (rhoLoc(i,j)rhoDen(i,j))dden_dtheta)
./model/src/find_alpha.F	387	FIND_BETA	INTEGER i,j
./model/src/find_alpha.F	410	FIND_BETA	DO j=jMin,jMax
./model/src/find_alpha.F	412	FIND_BETA	betaLoc(i,j) = rhonil * sBeta
./model/src/find_alpha.F	421	FIND_BETA	DO j=jMin,jMax
./model/src/find_alpha.F	423	FIND_BETA	tP=theta(i,j,k,bi,bj)-refTemp
./model/src/find_alpha.F	424	FIND_BETA	sP=salt(i,j,k,bi,bj)-refSalt
./model/src/find_alpha.F	426	FIND_BETA	betaLoc(i,j) =
./model/src/find_alpha.F	432	FIND_BETA	betaLoc(i,j) =
./model/src/find_alpha.F	464	FIND_BETA	DO j=jMin,jMax
./model/src/find_alpha.F	468	FIND_BETA	t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F	472	FIND_BETA	s1 = salt(i,j,k,bi,bj)
./model/src/find_alpha.F	484	FIND_BETA	p1 = locPres(i,j)*SItoBar
./model/src/find_alpha.F	530	FIND_BETA	betaLoc(i,j) =
./model/src/find_alpha.F	531	FIND_BETA	& ( bulkmod(i,j)*2drhoP0dS
./model/src/find_alpha.F	532	FIND_BETA	& - bulkmod(i,j)p1drhoP0dS
./model/src/find_alpha.F	533	FIND_BETA	& - rhoP0(i,j)p1dKdS )
./model/src/find_alpha.F	534	FIND_BETA	& /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F	557	FIND_BETA	DO j=jMin,jMax
./model/src/find_alpha.F	559	FIND_BETA	t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F	561	FIND_BETA	s1 = salt(i,j,k,bi,bj)
./model/src/find_alpha.F	573	FIND_BETA	p1 = locPres(i,j)*SItodBar
./model/src/find_alpha.F	57	FIND_ALPHA	INTEGER i,j
./model/src/find_alpha.F	583	FIND_BETA	betaLoc(i,j) = rhoDen(i,j)*( dnum_dsalt
./model/src/find_alpha.F	584	FIND_BETA	& - (rhoLoc(i,j)rhoDen(i,j))dden_dsalt )
./model/src/find_alpha.F	602	FIND_BETA	DO j=jMin,jMax
./model/src/find_alpha.F	604	FIND_BETA	ct = theta(i,j,k,bi,bj)
./model/src/find_alpha.F	605	FIND_BETA	sa = salt(i,j,k,bi,bj)
./model/src/find_alpha.F	616	FIND_BETA	p = locPres(i,j)*SItodBar
./model/src/find_alpha.F	630	FIND_BETA	betaLoc(i,j) = rhoDen(i,j)*( dnum_dsalt
./model/src/find_alpha.F	631	FIND_BETA	& - (rhoLoc(i,j)rhoDen(i,j))dden_dsalt )
./model/src/find_alpha.F	80	FIND_ALPHA	DO j=jMin,jMax
./model/src/find_alpha.F	82	FIND_ALPHA	alphaLoc(i,j) = -rhonil * tAlpha
./model/src/find_alpha.F	91	FIND_ALPHA	DO j=jMin,jMax
./model/src/find_alpha.F	93	FIND_ALPHA	tP=theta(i,j,k,bi,bj)-refTemp
./model/src/find_alpha.F	94	FIND_ALPHA	sP=salt(i,j,k,bi,bj)-refSalt
./model/src/find_alpha.F	96	FIND_ALPHA	alphaLoc(i,j) =
./pkg/seaice/advect.F	108	ADVECT	afx(i,j) = 0. _d 0
./pkg/seaice/advect.F	109	ADVECT	afy(i,j) = 0. _d 0
./pkg/seaice/advect.F	118	ADVECT	DO j=0,sNy+1
./pkg/seaice/advect.F	122	ADVECT	fld(i,j,bi,bj)=fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F	124	ADVECT	& ( tmpFld(i ,j ,bi,bj)+tmpFld(i+1,j ,bi,bj))
./pkg/seaice/advect.F	125	ADVECT	& * UI(i+1,j, bi,bj) -
./pkg/seaice/advect.F	126	ADVECT	& ( tmpFld(i ,j ,bi,bj)+tmpFld(i-1,j ,bi,bj))
./pkg/seaice/advect.F	127	ADVECT	& * UI(i ,j, bi,bj) )*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F	128	ADVECT	& (HALF _recip_dxF(i,j,bi,bj))
./pkg/seaice/advect.F	130	ADVECT	& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j+1,bi,bj))
./pkg/seaice/advect.F	131	ADVECT	& * VI(i ,j+1, bi,bj)
./pkg/seaice/advect.F	132	ADVECT	& * _dxG(i ,j+1,bi,bj) -
./pkg/seaice/advect.F	133	ADVECT	& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j-1,bi,bj))
./pkg/seaice/advect.F	134	ADVECT	& * VI(i ,j , bi,bj)
./pkg/seaice/advect.F	135	ADVECT	& * _dxG(i,j,bi,bj))*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F	136	ADVECT	& (HALF _recip_dyF(i,j,bi,bj) * _recip_dxF(i,j,bi,bj))
./pkg/seaice/advect.F	146	ADVECT	DO j=1,sNy+1
./pkg/seaice/advect.F	148	ADVECT	afx(i,j) = _dyG(i,j,bi,bj) * UI(i,j,bi,bj)
./pkg/seaice/advect.F	149	ADVECT	& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i-1,j,bi,bj))
./pkg/seaice/advect.F	150	ADVECT	afy(i,j) = _dxG(i,j,bi,bj) * VI(i,j,bi,bj)
./pkg/seaice/advect.F	151	ADVECT	& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i,j-1,bi,bj))
./pkg/seaice/advect.F	154	ADVECT	DO j=1,sNy
./pkg/seaice/advect.F	156	ADVECT	fld(i,j,bi,bj)=fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F	158	ADVECT	& afx(i+1,j) - afx(i,j)
./pkg/seaice/advect.F	159	ADVECT	& + afy(i,j+1) - afy(i,j)
./pkg/seaice/advect.F	160	ADVECT	& )recip_rA(i,j,bi,bj)maskInC(i,j,bi,bj)
./pkg/seaice/advect.F	177	ADVECT	DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F	179	ADVECT	tmpFld(i,j,bi,bj) = fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F	189	ADVECT	DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F	191	ADVECT	DIFFA(i,j,bi,bj) = MIN( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) )
./pkg/seaice/advect.F	201	ADVECT	DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F	203	ADVECT	fld(i,j,bi,bj) = ( fld(i,j,bi,bj)
./pkg/seaice/advect.F	204	ADVECT	& +tmpFld(i,j,bi,bj)DIFF1DELTT
./pkg/seaice/advect.F	205	ADVECT	& )*iceMsk(i,j,bi,bj)
./pkg/seaice/advect.F	217	ADVECT	DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F	223	ADVECT	DIFFA(i,j,bi,bj) = - DIFFA(i,j,bi,bj)*DIFFA(i,j,bi,bj)
./pkg/seaice/advect.F	233	ADVECT	DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F	235	ADVECT	fld(i,j,bi,bj) = ( fld(i,j,bi,bj)
./pkg/seaice/advect.F	236	ADVECT	& +tmpFld(i,j,bi,bj)DIFF1DELTT
./pkg/seaice/advect.F	237	ADVECT	& )*iceMsk(i,j,bi,bj)
./pkg/seaice/advect.F	55	ADVECT	INTEGER i, j, bi, bj
./pkg/seaice/advect.F	67	ADVECT	DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F	69	ADVECT	fldNm1(i,j,bi,bj) = fld(i,j,bi,bj)
./pkg/seaice/advect.F	91	ADVECT	DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F	94	ADVECT	tmpFld(i,j,bi,bj)=HALF*(fld(i,j,bi,bj)
./pkg/seaice/advect.F	95	ADVECT	& +fldNm1(i,j,bi,bj))
./pkg/seaice/cost_ice_test.F	102	COST_ICE_TEST	& tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F	112	COST_ICE_TEST	do j = 1,sny
./pkg/seaice/cost_ice_test.F	115	COST_ICE_TEST	& tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F	146	COST_ICE_TEST	do j = 1,sny
./pkg/seaice/cost_ice_test.F	149	COST_ICE_TEST	& tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F	150	COST_ICE_TEST	& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F	152	COST_ICE_TEST	& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 )
./pkg/seaice/cost_ice_test.F	162	COST_ICE_TEST	do j = 1,sny
./pkg/seaice/cost_ice_test.F	165	COST_ICE_TEST	& tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F	166	COST_ICE_TEST	& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F	177	COST_ICE_TEST	do j = 1,sny
./pkg/seaice/cost_ice_test.F	180	COST_ICE_TEST	& tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F	181	COST_ICE_TEST	& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F	183	COST_ICE_TEST	& (TICES(i,j,1,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F	184	COST_ICE_TEST	& HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F	185	COST_ICE_TEST	& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F	186	COST_ICE_TEST	& HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 )
./pkg/seaice/cost_ice_test.F	199	COST_ICE_TEST	do j = 1,sny
./pkg/seaice/cost_ice_test.F	202	COST_ICE_TEST	& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) *
./pkg/seaice/cost_ice_test.F	203	COST_ICE_TEST	& ( AREA(i,j,bi,bj) - 0.5 _d 0 )
./pkg/seaice/cost_ice_test.F	213	COST_ICE_TEST	do j = 1,sny
./pkg/seaice/cost_ice_test.F	216	COST_ICE_TEST	& UICE(i,j,bi,bj) * UICE(i,j,bi,bj) +
./pkg/seaice/cost_ice_test.F	217	COST_ICE_TEST	& VICE(i,j,bi,bj) * VICE(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F	75	COST_ICE_TEST	integer bi,bj,i,j,kSrf
./pkg/seaice/cost_ice_test.F	99	COST_ICE_TEST	do j = 1,sny
./pkg/seaice/diffus.F	106	DIFFUS	DO j=1-OLy,sNy+OLy
./pkg/seaice/diffus.F	108	DIFFUS	tmpFld(i,j) = 0.0 _d 0
./pkg/seaice/diffus.F	112	DIFFUS	DO j=1,sNy
./pkg/seaice/diffus.F	114	DIFFUS	DELTXX = DIFFA(i,j,bi,bj)
./pkg/seaice/diffus.F	115	DIFFUS	& * _recip_dxF(i,j,bi,bj)*_recip_dxF(i,j,bi,bj)
./pkg/seaice/diffus.F	116	DIFFUS	DELTYY = DIFFA(i,j,bi,bj)
./pkg/seaice/diffus.F	117	DIFFUS	& * _recip_dyF(i,j,bi,bj)*_recip_dyF(i,j,bi,bj)
./pkg/seaice/diffus.F	118	DIFFUS	& * _recip_dxF(i,j,bi,bj)
./pkg/seaice/diffus.F	119	DIFFUS	tmpFld(i,j) =
./pkg/seaice/diffus.F	121	DIFFUS	& (fld(i+1,j,bi,bj)-fld(i, j,bi,bj))
./pkg/seaice/diffus.F	122	DIFFUS	& *iceMsk(i+1,j,bi,bj)
./pkg/seaice/diffus.F	124	DIFFUS	& *maskInW(i+1,j,bi,bj)
./pkg/seaice/diffus.F	126	DIFFUS	& -(fld(i, j,bi,bj)-fld(i-1,j,bi,bj))
./pkg/seaice/diffus.F	127	DIFFUS	& *iceMsk(i-1,j,bi,bj)
./pkg/seaice/diffus.F	129	DIFFUS	& *maskInW(i,j,bi,bj)
./pkg/seaice/diffus.F	133	DIFFUS	& (fld(i,j+1,bi,bj)-fld(i,j, bi,bj))
./pkg/seaice/diffus.F	134	DIFFUS	& * _dxG(i,j+1,bi,bj)*iceMsk(i,j+1,bi,bj)
./pkg/seaice/diffus.F	136	DIFFUS	& *maskInS(i,j+1,bi,bj)
./pkg/seaice/diffus.F	138	DIFFUS	& -(fld(i,j, bi,bj)-fld(i,j-1,bi,bj))
./pkg/seaice/diffus.F	139	DIFFUS	& * _dxG(i,j, bi,bj)*iceMsk(i,j-1,bi,bj)
./pkg/seaice/diffus.F	141	DIFFUS	& *maskInS(i,j,bi,bj)
./pkg/seaice/diffus.F	146	DIFFUS	DO j=1-OLy,sNy+OLy
./pkg/seaice/diffus.F	148	DIFFUS	fld(i,j,bi,bj) = tmpFld(i,j)
./pkg/seaice/diffus.F	46	DIFFUS	INTEGER i, j, bi, bj
./pkg/seaice/diffus.F	59	DIFFUS	DO j=1-Oly,sNy+Oly
./pkg/seaice/diffus.F	61	DIFFUS	dfx(i,j) = 0. _d 0
./pkg/seaice/diffus.F	62	DIFFUS	dfy(i,j) = 0. _d 0
./pkg/seaice/diffus.F	66	DIFFUS	DO j=1,sNy+1
./pkg/seaice/diffus.F	68	DIFFUS	dfx(i,j) = _dyG(i,j,bi,bj) * _recip_dxC(i,j,bi,bj)
./pkg/seaice/diffus.F	69	DIFFUS	& * (fld(i,j,bi,bj)-fld(i-1,j,bi,bj))
./pkg/seaice/diffus.F	70	DIFFUS	& * cosFacU(j,bi,bj)
./pkg/seaice/diffus.F	71	DIFFUS	& * iceMsk(i,j,bi,bj)*iceMsk(i-1,j,bi,bj)
./pkg/seaice/diffus.F	72	DIFFUS	& * ( DIFFA(i,j,bi,bj)+DIFFA(i-1,j,bi,bj) )*HALF
./pkg/seaice/diffus.F	74	DIFFUS	& * maskInW(i,j,bi,bj)
./pkg/seaice/diffus.F	76	DIFFUS	dfy(i,j) = _dxG(i,j,bi,bj) * _recip_dyC(i,j,bi,bj)
./pkg/seaice/diffus.F	77	DIFFUS	& * (fld(i,j,bi,bj)-fld(i,j-1,bi,bj))
./pkg/seaice/diffus.F	79	DIFFUS	& * cosFacV(j,bi,bj)
./pkg/seaice/diffus.F	81	DIFFUS	& * iceMsk(i,j,bi,bj)*iceMsk(i,j-1,bi,bj)
./pkg/seaice/diffus.F	82	DIFFUS	& * ( DIFFA(i,j,bi,bj)+DIFFA(i,j-1,bi,bj) )*HALF
./pkg/seaice/diffus.F	84	DIFFUS	& * maskInS(i,j,bi,bj)
./pkg/seaice/diffus.F	88	DIFFUS	DO j=1-OLy,sNy+OLy
./pkg/seaice/diffus.F	90	DIFFUS	fld(i,j,bi,bj) = 0. _d 0
./pkg/seaice/diffus.F	94	DIFFUS	DO j=1,sNy
./pkg/seaice/diffus.F	96	DIFFUS	fld(i,j,bi,bj) = (
./pkg/seaice/diffus.F	97	DIFFUS	& ( dfx(i+1,j) - dfx(i,j) )
./pkg/seaice/diffus.F	98	DIFFUS	& + ( dfy(i,j+1) - dfy(i,j) )
./pkg/seaice/diffus.F	99	DIFFUS	& ) * recip_rA(i,j,bi,bj)
./pkg/seaice/dynsolver.F	102	DYNSOLVER	DO j=1,sNy
./pkg/seaice/dynsolver.F	105	DYNSOLVER	& HEFF(i,j ,bi,bj) + HEFF(i-1,j ,bi,bj)
./pkg/seaice/dynsolver.F	106	DYNSOLVER	& +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) )
./pkg/seaice/dynsolver.F	119	DYNSOLVER	DO j=1,sNy
./pkg/seaice/dynsolver.F	165	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	167	DYNSOLVER	phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/dynsolver.F	173	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	175	DYNSOLVER	phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/dynsolver.F	176	DYNSOLVER	& + ( pload(i,j,bi,bj)
./pkg/seaice/dynsolver.F	177	DYNSOLVER	& +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/dynsolver.F	182	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	184	DYNSOLVER	phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/dynsolver.F	185	DYNSOLVER	& + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/dynsolver.F	190	DYNSOLVER	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/dynsolver.F	195	DYNSOLVER	& ( (phiSurf(i, j )-phiSurf(i-1, j ))maskW(i, j ,1,bi,bj)
./pkg/seaice/dynsolver.F	196	DYNSOLVER	& +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj)
./pkg/seaice/dynsolver.F	200	DYNSOLVER	& ( (phiSurf( i ,j)-phiSurf( i ,j-1))maskS( i ,j,1,bi,bj)
./pkg/seaice/dynsolver.F	201	DYNSOLVER	& +(phiSurf(i-1,j)-phiSurf(i-1,j-1))*maskS(i-1,j,1,bi,bj)
./pkg/seaice/dynsolver.F	209	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	252	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	273	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	315	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	325	DYNSOLVER	UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F	326	DYNSOLVER	VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F	337	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	339	DYNSOLVER	UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F	340	DYNSOLVER	VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F	53	DYNSOLVER	INTEGER i, j, bi, bj
./pkg/seaice/dynsolver.F	76	DYNSOLVER	DO j=0,sNy+1
./pkg/seaice/dynsolver.F	78	DYNSOLVER	GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/dynsolver.F	79	DYNSOLVER	& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/dynsolver.F	80	DYNSOLVER	GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/dynsolver.F	81	DYNSOLVER	& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/dynsolver.F	97	DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F	99	DYNSOLVER	COR_ICE(i,j,bi,bj) = 0.
./pkg/seaice/lsr.F	1012	LSR	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/lsr.F	1014	LSR	uz(i,j) = quart * (
./pkg/seaice/lsr.F	1015	LSR	& uicec(i,j,bi,bj) + uicec(i+1,j,bi,bj) )
./pkg/seaice/lsr.F	1016	LSR	uz(i,j)= uz(i,j) + quart * (
./pkg/seaice/lsr.F	1017	LSR	& uicec(i,j+1,bi,bj) + uicec(i+1,j+1,bi,bj) )
./pkg/seaice/lsr.F	1028	LSR	& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i-1,j,bi,bj))
./pkg/seaice/lsr.F	1029	LSR	& (uz(i,j)-uz(i-1,j)) _recip_dxC(i,j,bi,bj)
./pkg/seaice/lsr.F	1031	LSR	& (zetaMinusEta(i,j-1,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj))
./pkg/seaice/lsr.F	1032	LSR	& (uz(i,j-1)-uz(i-1,j-1)) _recip_dxC(i,j-1,bi,bj)
./pkg/seaice/lsr.F	1033	LSR	& ) * _recip_dyU(i,j,bi,bj)
./pkg/seaice/lsr.F	169	LSR	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/lsr.F	217	LSR	DO j=1,sNy
./pkg/seaice/lsr.F	276	LSR	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/lsr.F	284	LSR	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/lsr.F	415	LSR	DO j=1,sNy
./pkg/seaice/lsr.F	432	LSR	DO j=0,sNy
./pkg/seaice/lsr.F	449	LSR	DO j=1,sNy
./pkg/seaice/lsr.F	491	LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/lsr.F	497	LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/lsr.F	50	LSR	INTEGER i, j, m, bi, bj, j1, j2, im, jm
./pkg/seaice/lsr.F	699	LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/lsr.F	705	LSR	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/lsr.F	769	LSR	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/lsr.F	771	LSR	vz(i,j) = quart * (
./pkg/seaice/lsr.F	772	LSR	& vicec(i,j,bi,bj) + vicec(i+1,j,bi,bj) )
./pkg/seaice/lsr.F	773	LSR	vz(i,j)= vz(i,j) + quart * (
./pkg/seaice/lsr.F	774	LSR	& vicec(i,j+1,bi,bj) + vicec(i+1,j+1,bi,bj) )
./pkg/seaice/lsr.F	784	LSR	& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i,j-1,bi,bj))
./pkg/seaice/lsr.F	785	LSR	& (vz(i,j)-vz(i,j-1)) _recip_dyC(i,j,bi,bj)
./pkg/seaice/lsr.F	787	LSR	& (zetaMinusEta(i-1,j,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj))
./pkg/seaice/lsr.F	788	LSR	& (vz(i-1,j)-vz(i-1,j-1)) _recip_dyC(i-1,j,bi,bj)
./pkg/seaice/lsr.F	789	LSR	& ) * _recip_dxV(i,j,bi,bj)
./pkg/seaice/ostres.F	33	OSTRES	INTEGER i, j, bi, bj
./pkg/seaice/ostres.F	53	OSTRES	DO j=1,sNy
./pkg/seaice/ostres.F	70	OSTRES	DO j=1,sNy
./model/src/find_rho.F	104	FIND_RHO_2D	DO j=jMin,jMax
./model/src/find_rho.F	106	FIND_RHO_2D	rhoLoc(i,j)=rhoNil*(
./model/src/find_rho.F	107	FIND_RHO_2D	& sBeta*(sFld(i,j)-refSalt)
./model/src/find_rho.F	108	FIND_RHO_2D	& -tAlpha*(tFld(i,j)-refTemp) )
./model/src/find_rho.F	1190	LOOK_FOR_NEG_SALINITY	INTEGER i,j, localWarning
./model/src/find_rho.F	1195	LOOK_FOR_NEG_SALINITY	DO j=jMin,jMax
./model/src/find_rho.F	1198	LOOK_FOR_NEG_SALINITY	IF ( sFld(i,j) .LT. 0. _d 0 ) THEN
./model/src/find_rho.F	119	FIND_RHO_2D	DO j=jMin,jMax
./model/src/find_rho.F	1200	LOOK_FOR_NEG_SALINITY	sFld(i,j) = 0. _d 0
./model/src/find_rho.F	121	FIND_RHO_2D	tP=tFld(i,j)-refTemp
./model/src/find_rho.F	122	FIND_RHO_2D	sP=sFld(i,j)-refSalt
./model/src/find_rho.F	144	FIND_RHO_2D	rhoLoc(i,j)=sigRef+deltaSig
./model/src/find_rho.F	173	FIND_RHO_2D	DO j=jMin,jMax
./model/src/find_rho.F	177	FIND_RHO_2D	rhoLoc(i,j) = rhoP0(i,j)
./model/src/find_rho.F	179	FIND_RHO_2D	& locPres(i,j)*SItoBar/bulkMod(i,j) )
./model/src/find_rho.F	208	FIND_RHO_2D	DO j=jMin,jMax
./model/src/find_rho.F	210	FIND_RHO_2D	rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst
./model/src/find_rho.F	231	FIND_RHO_2D	DO j=jMin,jMax
./model/src/find_rho.F	233	FIND_RHO_2D	rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst
./model/src/find_rho.F	285	FIND_RHOP0	INTEGER i,j
./model/src/find_rho.F	312	FIND_RHOP0	DO j=jMin,jMax
./model/src/find_rho.F	315	FIND_RHOP0	t = tFld(i,j)
./model/src/find_rho.F	324	FIND_RHOP0	s = sFld(i,j)
./model/src/find_rho.F	378	FIND_RHOP0	rhoP0(i,j) = rfresh + rsalt
./model/src/find_rho.F	424	FIND_BULKMOD	INTEGER i,j
./model/src/find_rho.F	465	FIND_BULKMOD	DO j=jMin,jMax
./model/src/find_rho.F	468	FIND_BULKMOD	t = tFld(i,j)
./model/src/find_rho.F	477	FIND_BULKMOD	s = sFld(i,j)
./model/src/find_rho.F	485	FIND_BULKMOD	p = locPres(i,j)*SItoBar
./model/src/find_rho.F	560	FIND_BULKMOD	bulkMod(i,j) = bMfresh + bMsalt + bMpres
./model/src/find_rho.F	607	FIND_RHONUM	INTEGER i,j
./model/src/find_rho.F	610	FIND_RHONUM	DO j=jMin,jMax
./model/src/find_rho.F	613	FIND_RHONUM	t1 = tFld(i,j)
./model/src/find_rho.F	615	FIND_RHONUM	s1 = sFld(i,j)
./model/src/find_rho.F	617	FIND_RHONUM	p1 = locPres(i,j)*SItodBar
./model/src/find_rho.F	619	FIND_RHONUM	rhoNum(i,j) = eosMDJWFnum(0)
./model/src/find_rho.F	66	FIND_RHO_2D	INTEGER i,j
./model/src/find_rho.F	673	FIND_RHODEN	INTEGER i,j
./model/src/find_rho.F	678	FIND_RHODEN	DO j=jMin,jMax
./model/src/find_rho.F	681	FIND_RHODEN	t1 = tFld(i,j)
./model/src/find_rho.F	683	FIND_RHODEN	s1 = sFld(i,j)
./model/src/find_rho.F	695	FIND_RHODEN	p1 = locPres(i,j)*SItodBar
./model/src/find_rho.F	709	FIND_RHODEN	rhoDen(i,j) = 1.0/(epsln+den)
./model/src/find_rho.F	757	FIND_RHOTEOS	INTEGER i,j
./model/src/find_rho.F	762	FIND_RHOTEOS	DO j=jMin,jMax
./model/src/find_rho.F	765	FIND_RHOTEOS	ct = tFld(i,j)
./model/src/find_rho.F	766	FIND_RHOTEOS	sa = sFld(i,j)
./model/src/find_rho.F	777	FIND_RHOTEOS	p = locPres(i,j)*SItodBar
./model/src/find_rho.F	779	FIND_RHOTEOS	rhoNum(i,j) = teos(01)
./model/src/find_rho.F	77	FIND_RHO_2D	DO j=1-OLy,sNy+OLy
./model/src/find_rho.F	79	FIND_RHO_2D	rhoLoc(i,j) = 0. _d 0
./model/src/find_rho.F	800	FIND_RHOTEOS	rhoDen(i,j) = 1.0/(epsln+den)
./model/src/find_rho.F	80	FIND_RHO_2D	rhoP0(i,j) = 0. _d 0
./model/src/find_rho.F	81	FIND_RHO_2D	bulkMod(i,j) = 0. _d 0
./pkg/seaice/seaice_advdiff.F	115	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_advdiff.F	117	SEAICE_ADVDIFF	uc(i,j,bi,bj)=.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj))
./pkg/seaice/seaice_advdiff.F	118	SEAICE_ADVDIFF	vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj))
./pkg/seaice/seaice_advdiff.F	123	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	125	SEAICE_ADVDIFF	xA(i,j,bi,bj) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F	126	SEAICE_ADVDIFF	yA(i,j,bi,bj) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F	160	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	162	SEAICE_ADVDIFF	gFld(i,j) = 0. _d 0
./pkg/seaice/seaice_advdiff.F	191	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	194	SEAICE_ADVDIFF	hEffNm1(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	195	SEAICE_ADVDIFF	areaNm1(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	197	SEAICE_ADVDIFF	recip_heff(i,j) = 1. _d 0
./pkg/seaice/seaice_advdiff.F	202	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	204	SEAICE_ADVDIFF	uTrans(i,j) = uc(i,j,bi,bj)*xA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	205	SEAICE_ADVDIFF	vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	213	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	215	SEAICE_ADVDIFF	HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F	235	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	237	SEAICE_ADVDIFF	HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F	238	SEAICE_ADVDIFF	& HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F	243	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	245	SEAICE_ADVDIFF	HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	256	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	258	SEAICE_ADVDIFF	AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F	278	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	280	SEAICE_ADVDIFF	AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F	281	SEAICE_ADVDIFF	& AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F	286	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	288	SEAICE_ADVDIFF	AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	309	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	311	SEAICE_ADVDIFF	opnWtrFrac(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F	312	SEAICE_ADVDIFF	& opnWtrFrac(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F	323	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	325	SEAICE_ADVDIFF	HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F	345	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	347	SEAICE_ADVDIFF	HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F	348	SEAICE_ADVDIFF	& HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F	353	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	355	SEAICE_ADVDIFF	HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	388	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	390	SEAICE_ADVDIFF	HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F	391	SEAICE_ADVDIFF	& HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F	407	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	409	SEAICE_ADVDIFF	SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) *
./pkg/seaice/seaice_advdiff.F	410	SEAICE_ADVDIFF	& SItracer(i,j,bi,bj,iTr) * hEffNm1(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	417	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	419	SEAICE_ADVDIFF	SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) *
./pkg/seaice/seaice_advdiff.F	420	SEAICE_ADVDIFF	& SItracer(i,j,bi,bj,iTr) * areaNm1(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	425	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	429	SEAICE_ADVDIFF	SItrPrev(i,j,bi,bj)=SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F	432	SEAICE_ADVDIFF	diagArray(I,J,2+(iTr-1)*5) = SItrExt(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	454	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	456	SEAICE_ADVDIFF	SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F	457	SEAICE_ADVDIFF	& SItrExt(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) )
./pkg/seaice/seaice_advdiff.F	462	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	465	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F	466	SEAICE_ADVDIFF	SItrBucket(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F	468	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F	469	SEAICE_ADVDIFF	SItrBucket(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	474	SEAICE_ADVDIFF	tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F	475	SEAICE_ADVDIFF	& SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj),
./pkg/seaice/seaice_advdiff.F	476	SEAICE_ADVDIFF	& SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj))
./pkg/seaice/seaice_advdiff.F	477	SEAICE_ADVDIFF	tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F	478	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F	479	SEAICE_ADVDIFF	SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F	484	SEAICE_ADVDIFF	tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F	485	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F	486	SEAICE_ADVDIFF	SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F	490	SEAICE_ADVDIFF	diagArray(I,J,1+(iTr-1)*5)= - SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F	492	SEAICE_ADVDIFF	tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F	493	SEAICE_ADVDIFF	& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F	495	SEAICE_ADVDIFF	diagArray(I,J,3+(iTr-1)5)=HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	496	SEAICE_ADVDIFF	& SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F	502	SEAICE_ADVDIFF	DO j=1,sNy
./pkg/seaice/seaice_advdiff.F	505	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F	507	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F	509	SEAICE_ADVDIFF	SItrBucket(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F	511	SEAICE_ADVDIFF	tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F	512	SEAICE_ADVDIFF	& SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj),
./pkg/seaice/seaice_advdiff.F	513	SEAICE_ADVDIFF	& SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj))
./pkg/seaice/seaice_advdiff.F	514	SEAICE_ADVDIFF	tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F	515	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F	519	SEAICE_ADVDIFF	tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F	520	SEAICE_ADVDIFF	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F	525	SEAICE_ADVDIFF	& + AREA(I,J,bi,bj)SItracer(i,j,bi,bj,iTr)HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F	526	SEAICE_ADVDIFF	diagArray(I,J,3+(iTr-1)5)=HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	527	SEAICE_ADVDIFF	& SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F	555	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	557	SEAICE_ADVDIFF	HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F	580	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	582	SEAICE_ADVDIFF	HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	598	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	600	SEAICE_ADVDIFF	AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F	623	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	625	SEAICE_ADVDIFF	AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F	656	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	658	SEAICE_ADVDIFF	HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F	67	SEAICE_ADVDIFF	INTEGER i, j, bi, bj
./pkg/seaice/seaice_advdiff.F	681	SEAICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F	683	SEAICE_ADVDIFF	HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	128	SEAICE_ADVECTION	INTEGER i,j,k
./pkg/seaice/seaice_advection.F	194	SEAICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F	196	SEAICE_ADVECTION	localTij(i,j) = 0. _d 0
./pkg/seaice/seaice_advection.F	251	SEAICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F	253	SEAICE_ADVECTION	localTij(i,j)=iceFld(i,j)
./pkg/seaice/seaice_advection.F	255	SEAICE_ADVECTION	maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	256	SEAICE_ADVECTION	maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	258	SEAICE_ADVECTION	maskLocW(i,j) = _maskW(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F	259	SEAICE_ADVECTION	maskLocS(i,j) = _maskS(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F	266	SEAICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F	268	SEAICE_ADVECTION	afx(i,j) = 0.
./pkg/seaice/seaice_advection.F	269	SEAICE_ADVECTION	afy(i,j) = 0.
./pkg/seaice/seaice_advection.F	341	SEAICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F	343	SEAICE_ADVECTION	af(i,j) = 0.
./pkg/seaice/seaice_advection.F	370	SEAICE_ADVECTION	j=MIN(11,sNy)
./pkg/seaice/seaice_advection.F	371	SEAICE_ADVECTION	WRITE(ioUnit,'(A,1P4E14.6)') 'ICE_adv: xFx=', af(i+1,j),
./pkg/seaice/seaice_advection.F	372	SEAICE_ADVECTION	& localTij(i,j), uTrans(i+1,j), af(i+1,j)/uTrans(i+1,j)
./pkg/seaice/seaice_advection.F	423	SEAICE_ADVECTION	DO j=1-OLy,0
./pkg/seaice/seaice_advection.F	425	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	426	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	427	SEAICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	428	SEAICE_ADVECTION	& *( af(i+1,j)-af(i,j)
./pkg/seaice/seaice_advection.F	433	SEAICE_ADVECTION	DO j=1-OLy,0
./pkg/seaice/seaice_advection.F	435	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	436	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	437	SEAICE_ADVECTION	& recip_rA(i,j,bi,bj)r_hFld(i,j)
./pkg/seaice/seaice_advection.F	438	SEAICE_ADVECTION	& *( (af(i+1,j)-af(i,j))
./pkg/seaice/seaice_advection.F	439	SEAICE_ADVECTION	& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F	445	SEAICE_ADVECTION	DO j=sNy+1,sNy+OLy
./pkg/seaice/seaice_advection.F	447	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	448	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	449	SEAICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	450	SEAICE_ADVECTION	& *( af(i+1,j)-af(i,j)
./pkg/seaice/seaice_advection.F	455	SEAICE_ADVECTION	DO j=sNy+1,sNy+OLy
./pkg/seaice/seaice_advection.F	457	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	458	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	459	SEAICE_ADVECTION	& recip_rA(i,j,bi,bj)r_hFld(i,j)
./pkg/seaice/seaice_advection.F	460	SEAICE_ADVECTION	& *( (af(i+1,j)-af(i,j))
./pkg/seaice/seaice_advection.F	461	SEAICE_ADVECTION	& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F	468	SEAICE_ADVECTION	DO j=1-OLy,0
./pkg/seaice/seaice_advection.F	470	SEAICE_ADVECTION	afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F	475	SEAICE_ADVECTION	DO j=sNy+1,sNy+OLy
./pkg/seaice/seaice_advection.F	477	SEAICE_ADVECTION	afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F	489	SEAICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F	491	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	492	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	493	SEAICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	494	SEAICE_ADVECTION	& *( af(i+1,j)-af(i,j)
./pkg/seaice/seaice_advection.F	499	SEAICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F	501	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	502	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	503	SEAICE_ADVECTION	& recip_rA(i,j,bi,bj)r_hFld(i,j)
./pkg/seaice/seaice_advection.F	504	SEAICE_ADVECTION	& *( (af(i+1,j)-af(i,j))
./pkg/seaice/seaice_advection.F	505	SEAICE_ADVECTION	& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F	511	SEAICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F	513	SEAICE_ADVECTION	afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F	543	SEAICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F	545	SEAICE_ADVECTION	af(i,j) = 0.
./pkg/seaice/seaice_advection.F	572	SEAICE_ADVECTION	j=MIN(11,sNy)
./pkg/seaice/seaice_advection.F	573	SEAICE_ADVECTION	WRITE(ioUnit,'(A,1P4E14.6)') 'ICE_adv: yFx=', af(i,j+1),
./pkg/seaice/seaice_advection.F	574	SEAICE_ADVECTION	& localTij(i,j), vTrans(i,j+1), af(i,j+1)/vTrans(i,j+1)
./pkg/seaice/seaice_advection.F	625	SEAICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F	627	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	628	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	629	SEAICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	630	SEAICE_ADVECTION	& *( af(i,j+1)-af(i,j)
./pkg/seaice/seaice_advection.F	635	SEAICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F	637	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	638	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	639	SEAICE_ADVECTION	& recip_rA(i,j,bi,bj)r_hFld(i,j)
./pkg/seaice/seaice_advection.F	640	SEAICE_ADVECTION	& *( (af(i,j+1)-af(i,j))
./pkg/seaice/seaice_advection.F	641	SEAICE_ADVECTION	& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F	647	SEAICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F	649	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	650	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	651	SEAICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	652	SEAICE_ADVECTION	& *( af(i,j+1)-af(i,j)
./pkg/seaice/seaice_advection.F	657	SEAICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F	659	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	660	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	661	SEAICE_ADVECTION	& recip_rA(i,j,bi,bj)r_hFld(i,j)
./pkg/seaice/seaice_advection.F	662	SEAICE_ADVECTION	& *( (af(i,j+1)-af(i,j))
./pkg/seaice/seaice_advection.F	663	SEAICE_ADVECTION	& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F	670	SEAICE_ADVECTION	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_advection.F	672	SEAICE_ADVECTION	afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F	677	SEAICE_ADVECTION	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_advection.F	679	SEAICE_ADVECTION	afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F	691	SEAICE_ADVECTION	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_advection.F	693	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	694	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	695	SEAICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	696	SEAICE_ADVECTION	& *( af(i,j+1)-af(i,j)
./pkg/seaice/seaice_advection.F	701	SEAICE_ADVECTION	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_advection.F	703	SEAICE_ADVECTION	localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F	704	SEAICE_ADVECTION	& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	705	SEAICE_ADVECTION	& recip_rA(i,j,bi,bj)r_hFld(i,j)
./pkg/seaice/seaice_advection.F	706	SEAICE_ADVECTION	& *( (af(i,j+1)-af(i,j))
./pkg/seaice/seaice_advection.F	707	SEAICE_ADVECTION	& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F	713	SEAICE_ADVECTION	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_advection.F	715	SEAICE_ADVECTION	afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F	729	SEAICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F	731	SEAICE_ADVECTION	gFld(i,j)=(localTij(i,j)-iceFld(i,j))/SEAICE_deltaTtherm
./pkg/seaice/seaice_advection.F	736	SEAICE_ADVECTION	j=MIN(11,sNy)
./pkg/seaice/seaice_advection.F	737	SEAICE_ADVECTION	tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F	739	SEAICE_ADVECTION	& afx(i,j)tmpFac,afx(i+1,j)tmpFac,
./pkg/seaice/seaice_advection.F	740	SEAICE_ADVECTION	& afy(i,j)tmpFac,afy(i,j+1)tmpFac
./pkg/seaice/seaice_budget_ocean.F	141	SEAICE_BUDGET_OCEAN	evap(i,j,bi,bj) = -hl(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F	144	SEAICE_BUDGET_OCEAN	sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj)
./pkg/seaice/seaice_budget_ocean.F	146	SEAICE_BUDGET_OCEAN	sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj)
./pkg/seaice/seaice_budget_ocean.F	148	SEAICE_BUDGET_OCEAN	sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/seaice/seaice_budget_ocean.F	149	SEAICE_BUDGET_OCEAN	empmr(i,j,bi,bj) = sflux(i,j,bi,bj)*rhoConstFresh
./pkg/seaice/seaice_budget_ocean.F	57	SEAICE_BUDGET_OCEAN	INTEGER i, j
./pkg/seaice/seaice_calc_ice_strength.F	100	SEAICE_CALC_ICE_STRENGTH	DO j=jMin,jMax
./pkg/seaice/seaice_calc_ice_strength.F	103	SEAICE_CALC_ICE_STRENGTH	IF ( (HEFF(i,j,bi,bj).LE.SEAICEpresH0).AND.
./pkg/seaice/seaice_calc_ice_strength.F	105	SEAICE_CALC_ICE_STRENGTH	tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F	107	SEAICE_CALC_ICE_STRENGTH	ELSEIF ( (HEFF(i,j,bi,bj).GT.SEAICEpresH0).AND.
./pkg/seaice/seaice_calc_ice_strength.F	109	SEAICE_CALC_ICE_STRENGTH	tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F	112	SEAICE_CALC_ICE_STRENGTH	tmpscal2=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F	115	SEAICE_CALC_ICE_STRENGTH	& EXP(-20.0 _d 0(SEAICE_area_max-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_calc_ice_strength.F	124	SEAICE_CALC_ICE_STRENGTH	DO j=jMin,jMax
./pkg/seaice/seaice_calc_ice_strength.F	126	SEAICE_CALC_ICE_STRENGTH	PRESS0(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_calc_ice_strength.F	136	SEAICE_CALC_ICE_STRENGTH	DO j=jMin,jMax
./pkg/seaice/seaice_calc_ice_strength.F	141	SEAICE_CALC_ICE_STRENGTH	IF ( partFunc(i,j,k) .GT. 0. _d 0 )
./pkg/seaice/seaice_calc_ice_strength.F	142	SEAICE_CALC_ICE_STRENGTH	& PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F	143	SEAICE_CALC_ICE_STRENGTH	& + partFunc(i,j,k) * ( - hActual(i,j,k)**2
./pkg/seaice/seaice_calc_ice_strength.F	144	SEAICE_CALC_ICE_STRENGTH	& + ( hrMax(i,j,k)2 + hrMin(i,j,k)2
./pkg/seaice/seaice_calc_ice_strength.F	145	SEAICE_CALC_ICE_STRENGTH	& + hrMax(i,j,k)hrMin(i,j,k) )tmpscal1
./pkg/seaice/seaice_calc_ice_strength.F	146	SEAICE_CALC_ICE_STRENGTH	& / ridgeRatio(i,j,k) )
./pkg/seaice/seaice_calc_ice_strength.F	152	SEAICE_CALC_ICE_STRENGTH	DO j=jMin,jMax
./pkg/seaice/seaice_calc_ice_strength.F	154	SEAICE_CALC_ICE_STRENGTH	PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F	155	SEAICE_CALC_ICE_STRENGTH	& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 +
./pkg/seaice/seaice_calc_ice_strength.F	156	SEAICE_CALC_ICE_STRENGTH	& ( hrMin(i,j,k)*hrMin(i,j,k)
./pkg/seaice/seaice_calc_ice_strength.F	157	SEAICE_CALC_ICE_STRENGTH	& + 2. _d 0 * hrMin(i,j,k)*hrExp(i,j,k)
./pkg/seaice/seaice_calc_ice_strength.F	158	SEAICE_CALC_ICE_STRENGTH	& + 2. _d 0 * hrExp(i,j,k)*hrExp(i,j,k)
./pkg/seaice/seaice_calc_ice_strength.F	159	SEAICE_CALC_ICE_STRENGTH	& )/ridgeRatio(i,j,k) )
./pkg/seaice/seaice_calc_ice_strength.F	167	SEAICE_CALC_ICE_STRENGTH	DO j=jMin,jMax
./pkg/seaice/seaice_calc_ice_strength.F	169	SEAICE_CALC_ICE_STRENGTH	PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)/ridgingModeNorm(i,j)
./pkg/seaice/seaice_calc_ice_strength.F	57	SEAICE_CALC_ICE_STRENGTH	INTEGER i, j
./pkg/seaice/seaice_calc_ice_strength.F	90	SEAICE_CALC_ICE_STRENGTH	DO j=jMin,jMax
./pkg/seaice/seaice_calc_ice_strength.F	92	SEAICE_CALC_ICE_STRENGTH	opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,bi,bj)
./pkg/seaice/seaice_calc_lhs.F	102	SEAICE_CALC_LHS	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_calc_lhs.F	110	SEAICE_CALC_LHS	DO j=0,sNy
./pkg/seaice/seaice_calc_lhs.F	121	SEAICE_CALC_LHS	DO j=1,sNy+1
./pkg/seaice/seaice_calc_lhs.F	72	SEAICE_CALC_LHS	INTEGER i,j,bi,bj
./pkg/seaice/seaice_calc_residual.F	61	SEAICE_CALC_RESIDUAL	INTEGER i,j,bi,bj
./pkg/seaice/seaice_calc_rhs.F	55	SEAICE_CALC_RHS	INTEGER i,j,bi,bj
./model/src/forcing_surf_relax.F	100	FORCING_SURF_RELAX	& -lambdaThetaClimRelax(i,j,bi,bj)
./model/src/forcing_surf_relax.F	101	FORCING_SURF_RELAX	& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/forcing_surf_relax.F	102	FORCING_SURF_RELAX	& drF(ks)_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F	104	FORCING_SURF_RELAX	surfaceForcingS(i,j,bi,bj) =
./model/src/forcing_surf_relax.F	105	FORCING_SURF_RELAX	& -lambdaSaltClimRelax(i,j,bi,bj)
./model/src/forcing_surf_relax.F	106	FORCING_SURF_RELAX	& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/forcing_surf_relax.F	107	FORCING_SURF_RELAX	& drF(ks)_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F	121	FORCING_SURF_RELAX	DO j=jMin,jMax
./model/src/forcing_surf_relax.F	123	FORCING_SURF_RELAX	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F	124	FORCING_SURF_RELAX	& * rStarExpC(i,j,bi,bj)
./model/src/forcing_surf_relax.F	125	FORCING_SURF_RELAX	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F	126	FORCING_SURF_RELAX	& * rStarExpC(i,j,bi,bj)
./model/src/forcing_surf_relax.F	132	FORCING_SURF_RELAX	DO j=jMin,jMax
./model/src/forcing_surf_relax.F	134	FORCING_SURF_RELAX	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F	135	FORCING_SURF_RELAX	& ( 1. _d 0 + dEtaHdt(i,j,bi,bj)deltaTFreeSurf
./model/src/forcing_surf_relax.F	137	FORCING_SURF_RELAX	& *recip_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F	139	FORCING_SURF_RELAX	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F	140	FORCING_SURF_RELAX	& ( 1. _d 0 + dEtaHdt(i,j,bi,bj)deltaTFreeSurf
./model/src/forcing_surf_relax.F	142	FORCING_SURF_RELAX	& *recip_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F	148	FORCING_SURF_RELAX	DO j=jMin,jMax
./model/src/forcing_surf_relax.F	150	FORCING_SURF_RELAX	IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/forcing_surf_relax.F	151	FORCING_SURF_RELAX	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F	152	FORCING_SURF_RELAX	& _recip_hFacC(i,j,ks,bi,bj)hFac_surfC(i,j,bi,bj)
./model/src/forcing_surf_relax.F	153	FORCING_SURF_RELAX	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F	154	FORCING_SURF_RELAX	& _recip_hFacC(i,j,ks,bi,bj)hFac_surfC(i,j,bi,bj)
./model/src/forcing_surf_relax.F	174	FORCING_SURF_RELAX	DO j=1,sNy
./model/src/forcing_surf_relax.F	177	FORCING_SURF_RELAX	& + surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F	178	FORCING_SURF_RELAX	& rA(i,j,bi,bj)maskInC(i,j,bi,bj)
./model/src/forcing_surf_relax.F	188	FORCING_SURF_RELAX	DO j=1-OLy,sNy+OLy
./model/src/forcing_surf_relax.F	190	FORCING_SURF_RELAX	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F	210	FORCING_SURF_RELAX	DO j=1,sNy
./model/src/forcing_surf_relax.F	213	FORCING_SURF_RELAX	& + surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F	214	FORCING_SURF_RELAX	& rA(i,j,bi,bj)maskInC(i,j,bi,bj)
./model/src/forcing_surf_relax.F	224	FORCING_SURF_RELAX	DO j=1-OLy,sNy+OLy
./model/src/forcing_surf_relax.F	226	FORCING_SURF_RELAX	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F	55	FORCING_SURF_RELAX	INTEGER i,j
./model/src/forcing_surf_relax.F	80	FORCING_SURF_RELAX	DO j = jMin, jMax
./model/src/forcing_surf_relax.F	83	FORCING_SURF_RELAX	surfaceForcingT(i,j,bi,bj) =
./model/src/forcing_surf_relax.F	84	FORCING_SURF_RELAX	& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj))
./model/src/forcing_surf_relax.F	85	FORCING_SURF_RELAX	& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/forcing_surf_relax.F	86	FORCING_SURF_RELAX	& drF(ks)_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F	88	FORCING_SURF_RELAX	surfaceForcingS(i,j,bi,bj) =
./model/src/forcing_surf_relax.F	89	FORCING_SURF_RELAX	& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj))
./model/src/forcing_surf_relax.F	90	FORCING_SURF_RELAX	& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/forcing_surf_relax.F	91	FORCING_SURF_RELAX	& drF(ks)_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F	96	FORCING_SURF_RELAX	DO j = jMin, jMax
./model/src/forcing_surf_relax.F	99	FORCING_SURF_RELAX	surfaceForcingT(i,j,bi,bj) =
./pkg/seaice/seaice_calc_strainrates.F	102	SEAICE_CALC_STRAINRATES	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_calc_strainrates.F	104	SEAICE_CALC_STRAINRATES	dvdy(i,j) = _recip_dyF(i,j,bi,bj) *
./pkg/seaice/seaice_calc_strainrates.F	105	SEAICE_CALC_STRAINRATES	& (vFld(i,j+1,bi,bj)-vFld(i,j,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F	106	SEAICE_CALC_STRAINRATES	vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i,j+1,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F	110	SEAICE_CALC_STRAINRATES	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_calc_strainrates.F	112	SEAICE_CALC_STRAINRATES	e11Loc(i,j,bi,bj) = dudx(i,j) + vave(i,j) * k2AtC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	113	SEAICE_CALC_STRAINRATES	e22Loc(i,j,bi,bj) = dvdy(i,j) + uave(i,j) * k1AtC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	118	SEAICE_CALC_STRAINRATES	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_calc_strainrates.F	120	SEAICE_CALC_STRAINRATES	e11Loc(i,j,bi,bj) = e11Loc(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	121	SEAICE_CALC_STRAINRATES	e22Loc(i,j,bi,bj) = e22Loc(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	128	SEAICE_CALC_STRAINRATES	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_calc_strainrates.F	130	SEAICE_CALC_STRAINRATES	dudy(i,j) = ( uFld(i,j,bi,bj) - uFld(i ,j-1,bi,bj) )
./pkg/seaice/seaice_calc_strainrates.F	131	SEAICE_CALC_STRAINRATES	& * _recip_dyU(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	132	SEAICE_CALC_STRAINRATES	uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i ,j-1,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F	135	SEAICE_CALC_STRAINRATES	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_calc_strainrates.F	137	SEAICE_CALC_STRAINRATES	dvdx(i,j) = ( vFld(i,j,bi,bj) - vFld(i-1,j ,bi,bj) )
./pkg/seaice/seaice_calc_strainrates.F	138	SEAICE_CALC_STRAINRATES	& * _recip_dxV(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	139	SEAICE_CALC_STRAINRATES	vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i-1,j ,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F	143	SEAICE_CALC_STRAINRATES	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_calc_strainrates.F	145	SEAICE_CALC_STRAINRATES	hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	146	SEAICE_CALC_STRAINRATES	hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	147	SEAICE_CALC_STRAINRATES	e12Loc(i,j,bi,bj) = 0.5 _d 0 * (
./pkg/seaice/seaice_calc_strainrates.F	148	SEAICE_CALC_STRAINRATES	& dudy(i,j) + dvdx(i,j)
./pkg/seaice/seaice_calc_strainrates.F	149	SEAICE_CALC_STRAINRATES	& - k1AtZ(i,j,bi,bj) * vave(i,j)
./pkg/seaice/seaice_calc_strainrates.F	150	SEAICE_CALC_STRAINRATES	& - k2AtZ(i,j,bi,bj) * uave(i,j)
./pkg/seaice/seaice_calc_strainrates.F	152	SEAICE_CALC_STRAINRATES	& maskC(i ,j ,k,bi,bj)maskC(i-1,j ,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	153	SEAICE_CALC_STRAINRATES	& maskC(i ,j-1,k,bi,bj)maskC(i-1,j-1,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F	155	SEAICE_CALC_STRAINRATES	& 2.0 _d 0 * uave(i,j) * _recip_dyU(i,j,bi,bj) * hFacU
./pkg/seaice/seaice_calc_strainrates.F	156	SEAICE_CALC_STRAINRATES	& + 2.0 _d 0 * vave(i,j) * _recip_dxV(i,j,bi,bj) * hFacV
./pkg/seaice/seaice_calc_strainrates.F	71	SEAICE_CALC_STRAINRATES	INTEGER i, j, bi, bj
./pkg/seaice/seaice_calc_strainrates.F	95	SEAICE_CALC_STRAINRATES	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_calc_strainrates.F	97	SEAICE_CALC_STRAINRATES	dudx(i,j) = _recip_dxF(i,j,bi,bj) *
./pkg/seaice/seaice_calc_strainrates.F	98	SEAICE_CALC_STRAINRATES	& (uFld(i+1,j,bi,bj)-uFld(i,j,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F	99	SEAICE_CALC_STRAINRATES	uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i+1,j,bi,bj))
./pkg/seaice/seaice_calc_viscosities.F	103	SEAICE_CALC_VISCOSITIES	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_calc_viscosities.F	107	SEAICE_CALC_VISCOSITIES	e12Csqr(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) *
./pkg/seaice/seaice_calc_viscosities.F	115	SEAICE_CALC_VISCOSITIES	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_calc_viscosities.F	118	SEAICE_CALC_VISCOSITIES	& (e11(i,j,bi,bj)2+e22(i,j,bi,bj)2)*(ONE+ecm2)
./pkg/seaice/seaice_calc_viscosities.F	119	SEAICE_CALC_VISCOSITIES	& + 4. _d 0ecm2e12Csqr(i,j)
./pkg/seaice/seaice_calc_viscosities.F	120	SEAICE_CALC_VISCOSITIES	& + 2. _d 0e11(i,j,bi,bj)e22(i,j,bi,bj)*(ONE-ecm2)
./pkg/seaice/seaice_calc_viscosities.F	151	SEAICE_CALC_VISCOSITIES	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_calc_viscosities.F	154	SEAICE_CALC_VISCOSITIES	& + 4. _d 0*e12Csqr(i,j)
./pkg/seaice/seaice_calc_viscosities.F	165	SEAICE_CALC_VISCOSITIES	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_calc_viscosities.F	68	SEAICE_CALC_VISCOSITIES	INTEGER i, j, bi, bj
./pkg/seaice/seaice_calc_viscosities.F	94	SEAICE_CALC_VISCOSITIES	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_calc_viscosities.F	99	SEAICE_CALC_VISCOSITIES	e12Csqr(i,j) = tmp*tmp
./pkg/seaice/seaice_cost_accumulate_mean.F	35	SEAICE_COST_ACCUMULATE_MEAN	INTEGER i, j
./pkg/seaice/seaice_cost_accumulate_mean.F	51	SEAICE_COST_ACCUMULATE_MEAN	DO j=1,sNy
./pkg/seaice/seaice_cost_accumulate_mean.F	53	SEAICE_COST_ACCUMULATE_MEAN	uHeffExportCell(i,j,bi,bj) = uHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F	54	SEAICE_COST_ACCUMULATE_MEAN	& + ( 0.92 _d 0(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F	55	SEAICE_COST_ACCUMULATE_MEAN	& + 0.33 _d 0(HSNOW(i,j,bi,bj)+HSNOW(i-1,j,bi,bj))0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F	56	SEAICE_COST_ACCUMULATE_MEAN	& )*UICE(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F	57	SEAICE_COST_ACCUMULATE_MEAN	& _dyG(i,j,bi,bj)/lastintervaldeltaTClock
./pkg/seaice/seaice_cost_accumulate_mean.F	58	SEAICE_COST_ACCUMULATE_MEAN	vHeffExportCell(i,j,bi,bj) = vHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F	59	SEAICE_COST_ACCUMULATE_MEAN	& + ( 0.92 _d 0(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F	60	SEAICE_COST_ACCUMULATE_MEAN	& + 0.33 _d 0(HSNOW(i,j,bi,bj)+HSNOW(i,j-1,bi,bj))0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F	61	SEAICE_COST_ACCUMULATE_MEAN	& )*VICE(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F	62	SEAICE_COST_ACCUMULATE_MEAN	& _dxG(i,j,bi,bj)/lastintervaldeltaTClock
./pkg/seaice/seaice_cost_concentration.F	243	SEAICE_COST_CONCENTRATION	do j = jmin,jmax
./pkg/seaice/seaice_cost_concentration.F	245	SEAICE_COST_CONCENTRATION	localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_concentration.F	257	SEAICE_COST_CONCENTRATION	do j = jmin,jmax
./pkg/seaice/seaice_cost_concentration.F	260	SEAICE_COST_CONCENTRATION	localModWeight(i,j,bi,bj) =
./pkg/seaice/seaice_cost_concentration.F	261	SEAICE_COST_CONCENTRATION	& localweight(i,j,bi,bj)
./pkg/seaice/seaice_cost_concentration.F	264	SEAICE_COST_CONCENTRATION	if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN
./pkg/seaice/seaice_cost_concentration.F	267	SEAICE_COST_CONCENTRATION	areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj))
./pkg/seaice/seaice_cost_concentration.F	270	SEAICE_COST_CONCENTRATION	IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN
./pkg/seaice/seaice_cost_concentration.F	272	SEAICE_COST_CONCENTRATION	ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and.
./pkg/seaice/seaice_cost_concentration.F	273	SEAICE_COST_CONCENTRATION	& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F	275	SEAICE_COST_CONCENTRATION	ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and.
./pkg/seaice/seaice_cost_concentration.F	276	SEAICE_COST_CONCENTRATION	& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F	282	SEAICE_COST_CONCENTRATION	localModWeight(i,j,bi,bj) =
./pkg/seaice/seaice_cost_concentration.F	293	SEAICE_COST_CONCENTRATION	& (j == SEAICE_debugPointY)) then
./pkg/seaice/seaice_cost_concentration.F	296	SEAICE_COST_CONCENTRATION	& 'costg i j obs,locWeight,locModWt,areaigma ',i,j,
./pkg/seaice/seaice_cost_concentration.F	297	SEAICE_COST_CONCENTRATION	& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj),
./pkg/seaice/seaice_cost_concentration.F	298	SEAICE_COST_CONCENTRATION	& localModWeight(i,j,bi,bj),
./pkg/seaice/seaice_cost_concentration.F	317	SEAICE_COST_CONCENTRATION	do j = jmin,jmax
./pkg/seaice/seaice_cost_concentration.F	318	SEAICE_COST_CONCENTRATION	if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_concentration.F	319	SEAICE_COST_CONCENTRATION	print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_concentration.F	335	SEAICE_COST_CONCENTRATION	do j = jmin,jmax
./pkg/seaice/seaice_cost_concentration.F	337	SEAICE_COST_CONCENTRATION	cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_concentration.F	338	SEAICE_COST_CONCENTRATION	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_concentration.F	339	SEAICE_COST_CONCENTRATION	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_concentration.F	340	SEAICE_COST_CONCENTRATION	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_concentration.F	341	SEAICE_COST_CONCENTRATION	cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F	348	SEAICE_COST_CONCENTRATION	do j = jmin,jmax
./pkg/seaice/seaice_cost_concentration.F	350	SEAICE_COST_CONCENTRATION	localwww = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_concentration.F	353	SEAICE_COST_CONCENTRATION	localwww = localModWeight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_concentration.F	356	SEAICE_COST_CONCENTRATION	junk = ( localbar(i,j,k,bi,bj) -
./pkg/seaice/seaice_cost_concentration.F	357	SEAICE_COST_CONCENTRATION	& localobs(i,j,k,bi,bj) )
./pkg/seaice/seaice_cost_concentration.F	362	SEAICE_COST_CONCENTRATION	& (j == SEAICE_debugPointY)) then
./pkg/seaice/seaice_cost_concentration.F	365	SEAICE_COST_CONCENTRATION	& 'costg i j bar, obs ',i,j,
./pkg/seaice/seaice_cost_concentration.F	366	SEAICE_COST_CONCENTRATION	& localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_concentration.F	367	SEAICE_COST_CONCENTRATION	& localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_concentration.F	370	SEAICE_COST_CONCENTRATION	& 'costg i j bar-obs,wgt,loCost ',i,j,
./pkg/seaice/seaice_cost_concentration.F	74	SEAICE_COST_CONCENTRATION	integer i,j,k
./pkg/seaice/seaice_cost_export.F	32	SEAICE_COST_EXPORT	integer i, j, k
./pkg/seaice/seaice_cost_export.F	51	SEAICE_COST_EXPORT	do j=1,sNy
./pkg/seaice/seaice_cost_export.F	52	SEAICE_COST_EXPORT	jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/seaice/seaice_cost_export.F	55	SEAICE_COST_EXPORT	& - uHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_init_varia.F	44	SEAICE_COST_INIT_VARIA	integer i,j,k
./pkg/seaice/seaice_cost_init_varia.F	79	SEAICE_COST_INIT_VARIA	do j = jmin,jmax
./pkg/seaice/seaice_cost_init_varia.F	82	SEAICE_COST_INIT_VARIA	uHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F	83	SEAICE_COST_INIT_VARIA	vHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F	261	SEAICE_COST_SSS	do j = jmin,jmax
./pkg/seaice/seaice_cost_sss.F	263	SEAICE_COST_SSS	localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sss.F	277	SEAICE_COST_SSS	do j = jmin,jmax
./pkg/seaice/seaice_cost_sss.F	278	SEAICE_COST_SSS	if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_sss.F	279	SEAICE_COST_SSS	print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_sss.F	295	SEAICE_COST_SSS	do j = jmin,jmax
./pkg/seaice/seaice_cost_sss.F	297	SEAICE_COST_SSS	cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sss.F	298	SEAICE_COST_SSS	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_sss.F	299	SEAICE_COST_SSS	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_sss.F	300	SEAICE_COST_SSS	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_sss.F	301	SEAICE_COST_SSS	cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F	308	SEAICE_COST_SSS	do j = jmin,jmax
./pkg/seaice/seaice_cost_sss.F	310	SEAICE_COST_SSS	localwww = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_sss.F	313	SEAICE_COST_SSS	if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND.
./pkg/seaice/seaice_cost_sss.F	314	SEAICE_COST_SSS	& areabar(i,j,1,bi,bj) .LE. 0.0) then
./pkg/seaice/seaice_cost_sss.F	319	SEAICE_COST_SSS	junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt )
./pkg/seaice/seaice_cost_sss.F	331	SEAICE_COST_SSS	& (j == SEAICE_debugPointY)) then
./pkg/seaice/seaice_cost_sss.F	334	SEAICE_COST_SSS	& 'costg i j sbar, abar,obs ',i,j,
./pkg/seaice/seaice_cost_sss.F	335	SEAICE_COST_SSS	& localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sss.F	336	SEAICE_COST_SSS	& areabar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sss.F	337	SEAICE_COST_SSS	& localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sss.F	340	SEAICE_COST_SSS	& 'costg i j bar-obs,wgt,loCost ',i,j,
./pkg/seaice/seaice_cost_sss.F	75	SEAICE_COST_SSS	integer i,j,k
./pkg/seaice/seaice_cost_sst.F	261	SEAICE_COST_SST	do j = jmin,jmax
./pkg/seaice/seaice_cost_sst.F	263	SEAICE_COST_SST	localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sst.F	277	SEAICE_COST_SST	do j = jmin,jmax
./pkg/seaice/seaice_cost_sst.F	278	SEAICE_COST_SST	if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_sst.F	279	SEAICE_COST_SST	print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_sst.F	295	SEAICE_COST_SST	do j = jmin,jmax
./pkg/seaice/seaice_cost_sst.F	297	SEAICE_COST_SST	cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sst.F	298	SEAICE_COST_SST	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_sst.F	299	SEAICE_COST_SST	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_sst.F	300	SEAICE_COST_SST	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_sst.F	301	SEAICE_COST_SST	cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_sst.F	308	SEAICE_COST_SST	do j = jmin,jmax
./pkg/seaice/seaice_cost_sst.F	310	SEAICE_COST_SST	localwww = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_sst.F	313	SEAICE_COST_SST	if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND.
./pkg/seaice/seaice_cost_sst.F	314	SEAICE_COST_SST	& areabar(i,j,1,bi,bj) .LE. 0.0) then
./pkg/seaice/seaice_cost_sst.F	316	SEAICE_COST_SST	junk = ( localbar(i,j,k,bi,bj) -
./pkg/seaice/seaice_cost_sst.F	327	SEAICE_COST_SST	& (j == SEAICE_debugPointY)) then
./pkg/seaice/seaice_cost_sst.F	330	SEAICE_COST_SST	& 'costg i j tbar, abar,obs ',i,j,
./pkg/seaice/seaice_cost_sst.F	331	SEAICE_COST_SST	& localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sst.F	332	SEAICE_COST_SST	& areabar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sst.F	333	SEAICE_COST_SST	& localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sst.F	336	SEAICE_COST_SST	& 'costg i j bar-obs,wgt,loCost ',i,j,
./pkg/seaice/seaice_cost_sst.F	73	SEAICE_COST_SST	integer i,j,k
./pkg/seaice/seaice_cost_weights.F	108	SEAICE_COST_WEIGHTS	do j = jmin,jmax
./pkg/seaice/seaice_cost_weights.F	110	SEAICE_COST_WEIGHTS	wsmrarea(i,j,bi,bj) = wsmrarea(i,j,bi,bj)
./pkg/seaice/seaice_cost_weights.F	111	SEAICE_COST_WEIGHTS	& frame(i,j)_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F	119	SEAICE_COST_WEIGHTS	do j = jmin,jmax
./pkg/seaice/seaice_cost_weights.F	121	SEAICE_COST_WEIGHTS	wsmrarea(i,j,bi,bj) = wsmrarea0
./pkg/seaice/seaice_cost_weights.F	122	SEAICE_COST_WEIGHTS	& frame(i,j)_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F	131	SEAICE_COST_WEIGHTS	do j = jmin,jmax
./pkg/seaice/seaice_cost_weights.F	133	SEAICE_COST_WEIGHTS	if (wsmrarea(i,j,bi,bj) .ne. 0.)
./pkg/seaice/seaice_cost_weights.F	134	SEAICE_COST_WEIGHTS	& wsmrarea(i,j,bi,bj) =
./pkg/seaice/seaice_cost_weights.F	135	SEAICE_COST_WEIGHTS	& 1./wsmrarea(i,j,bi,bj)/wsmrarea(i,j,bi,bj)
./pkg/seaice/seaice_cost_weights.F	42	SEAICE_COST_WEIGHTS	integer i,j,k
./pkg/seaice/seaice_cost_weights.F	72	SEAICE_COST_WEIGHTS	do j = jmin,jmax
./pkg/seaice/seaice_cost_weights.F	75	SEAICE_COST_WEIGHTS	if ( (j .lt. 1) .or. (j .gt. sny) .or.
./pkg/seaice/seaice_cost_weights.F	77	SEAICE_COST_WEIGHTS	frame(i,j) = 0. _d 0
./pkg/seaice/seaice_cost_weights.F	79	SEAICE_COST_WEIGHTS	frame(i,j) = 1. _d 0
./pkg/seaice/seaice_cost_weights.F	88	SEAICE_COST_WEIGHTS	do j = jmin,jmax
./pkg/seaice/seaice_cost_weights.F	90	SEAICE_COST_WEIGHTS	wsmrarea (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_ctrl_map_ini.F	101	SEAICE_CTRL_MAP_INI	do j = jmin,jmax
./pkg/seaice/seaice_ctrl_map_ini.F	103	SEAICE_CTRL_MAP_INI	area(i,j,bi,bj) = area(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F	104	SEAICE_CTRL_MAP_INI	& tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F	121	SEAICE_CTRL_MAP_INI	do j = jmin,jmax
./pkg/seaice/seaice_ctrl_map_ini.F	123	SEAICE_CTRL_MAP_INI	heff(i,j,bi,bj) = heff(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F	124	SEAICE_CTRL_MAP_INI	& tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F	141	SEAICE_CTRL_MAP_INI	do j = jmin,jmax
./pkg/seaice/seaice_ctrl_map_ini.F	143	SEAICE_CTRL_MAP_INI	hsnow(i,j,bi,bj) = hsnow(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F	144	SEAICE_CTRL_MAP_INI	& tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F	48	SEAICE_CTRL_MAP_INI	integer i,j,k
./pkg/seaice/seaice_diagnostics_state.F	138	SEAICE_DIAGNOSTICS_STATE	DO j=1,sNy
./pkg/seaice/seaice_diagnostics_state.F	172	SEAICE_DIAGNOSTICS_STATE	DO j=1,sNy
./pkg/seaice/seaice_diagnostics_state.F	203	SEAICE_DIAGNOSTICS_STATE	DO j = 1,sNy
./pkg/seaice/seaice_diagnostics_state.F	205	SEAICE_DIAGNOSTICS_STATE	press(i,j,bi,bj) =
./pkg/seaice/seaice_diagnostics_state.F	207	SEAICE_DIAGNOSTICS_STATE	& UICE(i,j,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F	210	SEAICE_DIAGNOSTICS_STATE	& 0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F	212	SEAICE_DIAGNOSTICS_STATE	& 0.5 _d 0(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F	222	SEAICE_DIAGNOSTICS_STATE	DO j = 1,sNy+1
./pkg/seaice/seaice_diagnostics_state.F	224	SEAICE_DIAGNOSTICS_STATE	press(i,j,bi,bj) =
./pkg/seaice/seaice_diagnostics_state.F	226	SEAICE_DIAGNOSTICS_STATE	& VICE(i,j,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F	229	SEAICE_DIAGNOSTICS_STATE	& 0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F	231	SEAICE_DIAGNOSTICS_STATE	& 0.5 _d 0(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F	43	SEAICE_DIAGNOSTICS_STATE	INTEGER i,j,bi,bj
./pkg/seaice/seaice_diagnostics_state.F	72	SEAICE_DIAGNOSTICS_STATE	DO j=1,sNy
./pkg/seaice/seaice_diagnostics_state.F	80	SEAICE_DIAGNOSTICS_STATE	DO j=1,sNy
./pkg/seaice/seaice_diffusion.F	65	SEAICE_DIFFUSION	INTEGER i, j, k
./pkg/seaice/seaice_diffusion.F	78	SEAICE_DIFFUSION	DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_diffusion.F	80	SEAICE_DIFFUSION	fZon (i,j) = 0. _d 0
./pkg/seaice/seaice_diffusion.F	81	SEAICE_DIFFUSION	fMer (i,j) = 0. _d 0
./pkg/seaice/seaice_diffusion.F	89	SEAICE_DIFFUSION	DO j=1-Oly,sNy+Oly-1
./pkg/seaice/seaice_diffusion.F	91	SEAICE_DIFFUSION	gFld(i,j)= gFld(i,j)
./pkg/seaice/seaice_diffusion.F	92	SEAICE_DIFFUSION	& - faciceMask(i,j,bi,bj)recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_diffusion.F	93	SEAICE_DIFFUSION	& *( (fZon(i+1,j)-fZon(i,j))
./pkg/seaice/seaice_diffusion.F	94	SEAICE_DIFFUSION	& + (fMer(i,j+1)-fMer(i,j)) )
./model/src/freesurf_rescale_g.F	37	FREESURF_RESCALE_G	INTEGER i,j
./model/src/freesurf_rescale_g.F	45	FREESURF_RESCALE_G	DO j=1-OLy,sNy+OLy
./model/src/freesurf_rescale_g.F	47	FREESURF_RESCALE_G	gTracer(i,j,k) = gTracer(i,j,k)
./model/src/freesurf_rescale_g.F	48	FREESURF_RESCALE_G	& / rStarExpC(i,j,bi,bj)
./model/src/freesurf_rescale_g.F	54	FREESURF_RESCALE_G	DO j=1-OLy,sNy+OLy
./model/src/freesurf_rescale_g.F	56	FREESURF_RESCALE_G	gTracer(i,j,k) = gTracer(i,j,k)
./model/src/freesurf_rescale_g.F	57	FREESURF_RESCALE_G	& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/freesurf_rescale_g.F	59	FREESURF_RESCALE_G	& *recip_hFacC(i,j,k,bi,bj)
./model/src/freesurf_rescale_g.F	65	FREESURF_RESCALE_G	DO j=1-OLy,sNy+OLy
./model/src/freesurf_rescale_g.F	67	FREESURF_RESCALE_G	IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/freesurf_rescale_g.F	68	FREESURF_RESCALE_G	gTracer(i,j,k) = gTracer(i,j,k)
./model/src/freesurf_rescale_g.F	69	FREESURF_RESCALE_G	& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F	109	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	116	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	118	SEAICE_DO_RIDGING	openWater(i,j) = ONE
./pkg/seaice/seaice_do_ridging.F	122	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	124	SEAICE_DO_RIDGING	openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F	133	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	135	SEAICE_DO_RIDGING	IF (openWater(i,j) .lt. 0.0)
./pkg/seaice/seaice_do_ridging.F	136	SEAICE_DO_RIDGING	& AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj)
./pkg/seaice/seaice_do_ridging.F	142	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	144	SEAICE_DO_RIDGING	ridgingArea(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	145	SEAICE_DO_RIDGING	ridgingHeff(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	146	SEAICE_DO_RIDGING	ridgingHsnw(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	147	SEAICE_DO_RIDGING	areaFraction(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	148	SEAICE_DO_RIDGING	volFraction(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	149	SEAICE_DO_RIDGING	fw2ObyRidge(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	150	SEAICE_DO_RIDGING	ridgedArea(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	160	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	162	SEAICE_DO_RIDGING	divergence = e11(i,j,bi,bj) + e22(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F	163	SEAICE_DO_RIDGING	shear = 0.5 _d 0 * ( deltaC(i,j,bi,bj) - ABS(divergence) )
./pkg/seaice/seaice_do_ridging.F	165	SEAICE_DO_RIDGING	closingRate(i,j) = SEAICEshearParm*shear + convergence
./pkg/seaice/seaice_do_ridging.F	170	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	172	SEAICE_DO_RIDGING	netArea(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	176	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	178	SEAICE_DO_RIDGING	netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F	183	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	188	SEAICE_DO_RIDGING	divAdv = (1. _d 0-netArea(i,j)-opnWtrFrac(i,j,bi,bj))
./pkg/seaice/seaice_do_ridging.F	191	SEAICE_DO_RIDGING	& closingRate(i,j) = MAX(closingRate(i,j), -divAdv)
./pkg/seaice/seaice_do_ridging.F	194	SEAICE_DO_RIDGING	openingRate(i,j) = closingRate(i,j) + divAdv
./pkg/seaice/seaice_do_ridging.F	205	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	207	SEAICE_DO_RIDGING	areaPR(i,j,k) = AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F	208	SEAICE_DO_RIDGING	heffPR(i,j,k) = HEFFITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F	209	SEAICE_DO_RIDGING	hsnwPR(i,j,k) = HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F	217	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	222	SEAICE_DO_RIDGING	grossClosing(i,j) = closingRate(i,j)*SEAICE_deltaTtherm
./pkg/seaice/seaice_do_ridging.F	223	SEAICE_DO_RIDGING	& /ridgingModeNorm(i,j)
./pkg/seaice/seaice_do_ridging.F	225	SEAICE_DO_RIDGING	IF ( partFunc(i,j,0) .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_do_ridging.F	226	SEAICE_DO_RIDGING	tmp = partFunc(i,j,0)*grossClosing(i,j)
./pkg/seaice/seaice_do_ridging.F	227	SEAICE_DO_RIDGING	IF ( tmp .GT. opnWtrFrac(i,j,bi,bj) ) THEN
./pkg/seaice/seaice_do_ridging.F	228	SEAICE_DO_RIDGING	tmpFac = opnWtrFrac(i,j,bi,bj)/tmp
./pkg/seaice/seaice_do_ridging.F	229	SEAICE_DO_RIDGING	grossClosing(i,j) = grossClosing(i,j) * tmpFac
./pkg/seaice/seaice_do_ridging.F	230	SEAICE_DO_RIDGING	openingRate(i,j) = openingRate(i,j) * tmpFac
./pkg/seaice/seaice_do_ridging.F	236	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	239	SEAICE_DO_RIDGING	IF ( areaPR(i,j,k) .GT. SEAICE_area_reg
./pkg/seaice/seaice_do_ridging.F	240	SEAICE_DO_RIDGING	& .AND. partFunc(i,j,k) .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_do_ridging.F	241	SEAICE_DO_RIDGING	tmp = partFunc(i,j,k)*grossClosing(i,j)
./pkg/seaice/seaice_do_ridging.F	242	SEAICE_DO_RIDGING	IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN
./pkg/seaice/seaice_do_ridging.F	243	SEAICE_DO_RIDGING	tmpFac = AREAITD(i,j,k,bi,bj)/tmp
./pkg/seaice/seaice_do_ridging.F	244	SEAICE_DO_RIDGING	grossClosing(i,j) = grossClosing(i,j) * tmpFac
./pkg/seaice/seaice_do_ridging.F	245	SEAICE_DO_RIDGING	openingRate(i,j) = openingRate(i,j) * tmpFac
./pkg/seaice/seaice_do_ridging.F	254	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	257	SEAICE_DO_RIDGING	opnWtrFrac(i,j,bi,bj) = opnWtrFrac(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F	258	SEAICE_DO_RIDGING	& - partFunc(i,j,0)*grossClosing(i,j)
./pkg/seaice/seaice_do_ridging.F	259	SEAICE_DO_RIDGING	& + openingRate(i,j)*SEAICE_deltaTtherm
./pkg/seaice/seaice_do_ridging.F	262	SEAICE_DO_RIDGING	opnWtrFrac(i,j,bi,bj) = MAX( 0. _d 0, opnWtrFrac(i,j,bi,bj) )
./pkg/seaice/seaice_do_ridging.F	268	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	270	SEAICE_DO_RIDGING	doRidging(i,j) = areaPR(i,j,k) .GT. SEAICE_area_reg
./pkg/seaice/seaice_do_ridging.F	271	SEAICE_DO_RIDGING	& .AND. partFunc(i,j,k) .GT. 0. _d 0
./pkg/seaice/seaice_do_ridging.F	272	SEAICE_DO_RIDGING	& .AND. grossClosing(i,j) .GT. 0. _d 0
./pkg/seaice/seaice_do_ridging.F	273	SEAICE_DO_RIDGING	& .AND. HEFFM(i,j,bi,bj) .GT. 0. _d 0
./pkg/seaice/seaice_do_ridging.F	276	SEAICE_DO_RIDGING	IF ( doRidging(i,j) ) THEN
./pkg/seaice/seaice_do_ridging.F	279	SEAICE_DO_RIDGING	ridgingArea(i,j) = partFunc(i,j,k)*grossClosing(i,j)
./pkg/seaice/seaice_do_ridging.F	280	SEAICE_DO_RIDGING	IF ( ridgingArea(i,j) .GT. areaPR(i,j,k) ) THEN
./pkg/seaice/seaice_do_ridging.F	281	SEAICE_DO_RIDGING	ridgingArea(i,j) = areaPR(i,j,k)
./pkg/seaice/seaice_do_ridging.F	283	SEAICE_DO_RIDGING	areaFraction(i,j) = ridgingArea(i,j)/areaPR(i,j,k)
./pkg/seaice/seaice_do_ridging.F	284	SEAICE_DO_RIDGING	ridgedArea(i,j) = ridgingArea(i,j)/ridgeRatio(i,j,k)
./pkg/seaice/seaice_do_ridging.F	287	SEAICE_DO_RIDGING	ridgingHEFF(i,j) = heffPR(i,j,k) * areaFraction(i,j)
./pkg/seaice/seaice_do_ridging.F	288	SEAICE_DO_RIDGING	ridgingHsnw(i,j) = hsnwPR(i,j,k) * areaFraction(i,j)
./pkg/seaice/seaice_do_ridging.F	292	SEAICE_DO_RIDGING	fw2ObyRidge(i,j,bi,bj) = fw2ObyRidge(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F	293	SEAICE_DO_RIDGING	& + SEAICE_rhoSnow*ridgingHsnw(i,j)
./pkg/seaice/seaice_do_ridging.F	296	SEAICE_DO_RIDGING	ridgingHsnw(i,j) = ridgingHsnw(i,j) * SEAICEsnowFracRidge
./pkg/seaice/seaice_do_ridging.F	299	SEAICE_DO_RIDGING	AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j)
./pkg/seaice/seaice_do_ridging.F	300	SEAICE_DO_RIDGING	HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) - ridgingHeff(i,j)
./pkg/seaice/seaice_do_ridging.F	301	SEAICE_DO_RIDGING	HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j)
./pkg/seaice/seaice_do_ridging.F	310	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	312	SEAICE_DO_RIDGING	areaFraction(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	313	SEAICE_DO_RIDGING	volFraction (i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	319	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	321	SEAICE_DO_RIDGING	IF ( doRidging(i,j) ) THEN
./pkg/seaice/seaice_do_ridging.F	322	SEAICE_DO_RIDGING	IF ( hrMin(i,j,k) .GE. hLimit(l) .OR.
./pkg/seaice/seaice_do_ridging.F	323	SEAICE_DO_RIDGING	& hrMax(i,j,k) .LE. hLimit(l-1) ) THEN
./pkg/seaice/seaice_do_ridging.F	326	SEAICE_DO_RIDGING	areaFraction(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	327	SEAICE_DO_RIDGING	volFraction (i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	329	SEAICE_DO_RIDGING	hL = MAX(hrMin(i,j,k), hLimit(l-1))
./pkg/seaice/seaice_do_ridging.F	330	SEAICE_DO_RIDGING	hR = MIN(hrMax(i,j,k), hLimit(l))
./pkg/seaice/seaice_do_ridging.F	331	SEAICE_DO_RIDGING	areaFraction(i,j) = ( hR - hL )
./pkg/seaice/seaice_do_ridging.F	332	SEAICE_DO_RIDGING	& / ( hrMax(i,j,k) - hrMin(i,j,k) )
./pkg/seaice/seaice_do_ridging.F	335	SEAICE_DO_RIDGING	volFraction (i,j) = areaFraction(i,j)*( hR + hL )
./pkg/seaice/seaice_do_ridging.F	336	SEAICE_DO_RIDGING	& / ( hrMax(i,j,k) + hrMin(i,j,k) )
./pkg/seaice/seaice_do_ridging.F	345	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	347	SEAICE_DO_RIDGING	IF ( doRidging(i,j)
./pkg/seaice/seaice_do_ridging.F	348	SEAICE_DO_RIDGING	& .AND. hrMin(i,j,k) .LT. hLimit(l)
./pkg/seaice/seaice_do_ridging.F	349	SEAICE_DO_RIDGING	& .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN
./pkg/seaice/seaice_do_ridging.F	350	SEAICE_DO_RIDGING	hL = MAX( hrMin(i,j,k), hLimit(l-1) )
./pkg/seaice/seaice_do_ridging.F	352	SEAICE_DO_RIDGING	expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) )
./pkg/seaice/seaice_do_ridging.F	353	SEAICE_DO_RIDGING	expR = EXP(-( hR - hrMin(i,j,k) )/hrExp(i,j,k) )
./pkg/seaice/seaice_do_ridging.F	354	SEAICE_DO_RIDGING	areaFraction(i,j) = expL - expR
./pkg/seaice/seaice_do_ridging.F	355	SEAICE_DO_RIDGING	volFraction (i,j) =
./pkg/seaice/seaice_do_ridging.F	356	SEAICE_DO_RIDGING	& ( ( hL + hrExp(i,j,k) ) * expL
./pkg/seaice/seaice_do_ridging.F	357	SEAICE_DO_RIDGING	& - ( hR + hrExp(i,j,k) ) * expR )
./pkg/seaice/seaice_do_ridging.F	358	SEAICE_DO_RIDGING	& / ( hrMin(i,j,k) + hrExp(i,j,k) )
./pkg/seaice/seaice_do_ridging.F	363	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	365	SEAICE_DO_RIDGING	IF ( doRidging(i,j) .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN
./pkg/seaice/seaice_do_ridging.F	366	SEAICE_DO_RIDGING	hL = MAX( hrMin(i,j,k), hLimit(l-1) )
./pkg/seaice/seaice_do_ridging.F	367	SEAICE_DO_RIDGING	expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) )
./pkg/seaice/seaice_do_ridging.F	368	SEAICE_DO_RIDGING	areaFraction(i,j) = expL
./pkg/seaice/seaice_do_ridging.F	369	SEAICE_DO_RIDGING	volFraction (i,j) = ( hL + hrExp(i,j,k) ) * expL
./pkg/seaice/seaice_do_ridging.F	370	SEAICE_DO_RIDGING	& / ( hrMin(i,j,k) + hrExp(i,j,k) )
./pkg/seaice/seaice_do_ridging.F	377	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	379	SEAICE_DO_RIDGING	AREAITD(i,j,l,bi,bj) = AREAITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F	380	SEAICE_DO_RIDGING	& +areaFraction(i,j)*ridgedArea(i,j)
./pkg/seaice/seaice_do_ridging.F	381	SEAICE_DO_RIDGING	HEFFITD(i,j,l,bi,bj) = HEFFITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F	382	SEAICE_DO_RIDGING	& +volFraction(i,j)*ridgingHeff(i,j)
./pkg/seaice/seaice_do_ridging.F	383	SEAICE_DO_RIDGING	HSNOWITD(i,j,l,bi,bj) = HSNOWITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F	384	SEAICE_DO_RIDGING	& +volFraction(i,j)ridgingHsnw(i,j)SEAICEsnowFracRidge
./pkg/seaice/seaice_do_ridging.F	393	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	395	SEAICE_DO_RIDGING	netArea(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	399	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	401	SEAICE_DO_RIDGING	netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F	406	SEAICE_DO_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_do_ridging.F	408	SEAICE_DO_RIDGING	tmp = netArea(i,j)+opnWtrFrac(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F	410	SEAICE_DO_RIDGING	IF ( HEFFM(i,j,bi,bj) .GT. 0. _d 0 .AND. areaTooLarge ) THEN
./pkg/seaice/seaice_do_ridging.F	411	SEAICE_DO_RIDGING	doRidging(i,j) = .TRUE.
./pkg/seaice/seaice_do_ridging.F	414	SEAICE_DO_RIDGING	closingRate(i,j) = MAX( 0. _d 0, -divAdv)
./pkg/seaice/seaice_do_ridging.F	415	SEAICE_DO_RIDGING	openingRate(i,j) = MAX( 0. _d 0, divAdv)
./pkg/seaice/seaice_do_ridging.F	418	SEAICE_DO_RIDGING	closingRate(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	419	SEAICE_DO_RIDGING	openingRate(i,j) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F	420	SEAICE_DO_RIDGING	doRidging(i,j) = .FALSE.
./pkg/seaice/seaice_do_ridging.F	56	SEAICE_DO_RIDGING	INTEGER i, j
./pkg/seaice/seaice_dynsolver.F	112	SEAICE_DYNSOLVER	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	114	SEAICE_DYNSOLVER	seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F	116	SEAICE_DYNSOLVER	& HEFF(i,j,bi,bj) + HEFF(i-1,j ,bi,bj) )
./pkg/seaice/seaice_dynsolver.F	118	SEAICE_DYNSOLVER	& HEFF(i,j,bi,bj) + HEFF(i ,j-1,bi,bj) )
./pkg/seaice/seaice_dynsolver.F	129	SEAICE_DYNSOLVER	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	131	SEAICE_DYNSOLVER	seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F	132	SEAICE_DYNSOLVER	mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj)
./pkg/seaice/seaice_dynsolver.F	139	SEAICE_DYNSOLVER	seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj)
./pkg/seaice/seaice_dynsolver.F	140	SEAICE_DYNSOLVER	mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj)
./pkg/seaice/seaice_dynsolver.F	160	SEAICE_DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	189	SEAICE_DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	191	SEAICE_DYNSOLVER	phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F	197	SEAICE_DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	199	SEAICE_DYNSOLVER	phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/seaice_dynsolver.F	200	SEAICE_DYNSOLVER	& + ( pload(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F	201	SEAICE_DYNSOLVER	& +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/seaice_dynsolver.F	206	SEAICE_DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	208	SEAICE_DYNSOLVER	phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/seaice_dynsolver.F	209	SEAICE_DYNSOLVER	& + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/seaice_dynsolver.F	214	SEAICE_DYNSOLVER	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	223	SEAICE_DYNSOLVER	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	228	SEAICE_DYNSOLVER	& *( phiSurf(i,j)-phiSurf(i-1,j) )
./pkg/seaice/seaice_dynsolver.F	231	SEAICE_DYNSOLVER	& *( phiSurf(i,j)-phiSurf(i,j-1) )
./pkg/seaice/seaice_dynsolver.F	252	SEAICE_DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	254	SEAICE_DYNSOLVER	uIce(i,j,bi,bj) = uIce_fd(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F	255	SEAICE_DYNSOLVER	vIce(i,j,bi,bj) = vIce_fd(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F	256	SEAICE_DYNSOLVER	stressDivergenceX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F	257	SEAICE_DYNSOLVER	stressDivergenceY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F	339	SEAICE_DYNSOLVER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	341	SEAICE_DYNSOLVER	uIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F	342	SEAICE_DYNSOLVER	& MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F	343	SEAICE_DYNSOLVER	vIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F	344	SEAICE_DYNSOLVER	& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F	60	SEAICE_DYNSOLVER	INTEGER i, j, bi, bj
./pkg/seaice/seaice_dynsolver.F	71	SEAICE_DYNSOLVER	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_dynsolver.F	73	SEAICE_DYNSOLVER	PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F	74	SEAICE_DYNSOLVER	& EXP(-20.0 _d 0(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_dynsolver.F	76	SEAICE_DYNSOLVER	ZMIN(i,j,bi,bj) = SEAICE_zetaMin
./pkg/seaice/seaice_dynsolver.F	77	SEAICE_DYNSOLVER	PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F	78	SEAICE_DYNSOLVER	TAUX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F	79	SEAICE_DYNSOLVER	TAUY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F	81	SEAICE_DYNSOLVER	uice_fd(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_dynsolver.F	82	SEAICE_DYNSOLVER	vice_fd(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_evp.F	148	SEAICE_EVP	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_evp.F	170	SEAICE_EVP	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_evp.F	214	SEAICE_EVP	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_evp.F	226	SEAICE_EVP	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_evp.F	228	SEAICE_EVP	ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj)
./pkg/seaice/seaice_evp.F	229	SEAICE_EVP	em(i,j) = e11(i,j,bi,bj) - e22(i,j,bi,bj)
./pkg/seaice/seaice_evp.F	232	SEAICE_EVP	DO j=0,sNy+1
./pkg/seaice/seaice_evp.F	281	SEAICE_EVP	DO j=0,sNy+1
./pkg/seaice/seaice_evp.F	300	SEAICE_EVP	DO j=0,sNy+1
./pkg/seaice/seaice_evp.F	308	SEAICE_EVP	DO j=1,sNy
./pkg/seaice/seaice_evp.F	324	SEAICE_EVP	DO j=0,sNy+1
./pkg/seaice/seaice_evp.F	366	SEAICE_EVP	DO j=0,sNy+1
./pkg/seaice/seaice_evp.F	381	SEAICE_EVP	DO j=0,sNy
./pkg/seaice/seaice_evp.F	412	SEAICE_EVP	DO j=1,sNy+1
./pkg/seaice/seaice_evp.F	563	SEAICE_EVP	DO j=1,sNy
./pkg/seaice/seaice_evp.F	565	SEAICE_EVP	locMaskU = maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj)
./pkg/seaice/seaice_evp.F	566	SEAICE_EVP	locMaskV = maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./pkg/seaice/seaice_evp.F	567	SEAICE_EVP	uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU
./pkg/seaice/seaice_evp.F	568	SEAICE_EVP	& + uIceNm1(i,j,bi,bj)*(ONE-locMaskU)
./pkg/seaice/seaice_evp.F	569	SEAICE_EVP	vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV
./pkg/seaice/seaice_evp.F	570	SEAICE_EVP	& + vIceNm1(i,j,bi,bj)*(ONE-locMaskV)
./pkg/seaice/seaice_evp.F	80	SEAICE_EVP	INTEGER i, j, bi, bj
./pkg/seaice/seaice_fake.F	41	SEAICE_FAKE	INTEGER i, j, bi, bj
./pkg/seaice/seaice_fake.F	52	SEAICE_FAKE	DO j=1,sNy
./pkg/seaice/seaice_fake.F	55	SEAICE_FAKE	fac=MIN(1. _d 0, MAX(0. _d 0 , 1. _d 0 - area(i,j,bi,bj)))
./pkg/seaice/seaice_fake.F	56	SEAICE_FAKE	fu(i,j,bi,bj) = fu(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F	57	SEAICE_FAKE	fv(i,j,bi,bj) = fv(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F	58	SEAICE_FAKE	qnet(i,j,bi,bj) = qnet(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F	59	SEAICE_FAKE	qsw(i,j,bi,bj) = qsw(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F	62	SEAICE_FAKE	EmPmR(i,j,bi,bj) = maskC(i,j,1,bi,bj)*(
./pkg/seaice/seaice_fake.F	63	SEAICE_FAKE	& fac * EVAP(i,j,bi,bj)
./pkg/seaice/seaice_fake.F	64	SEAICE_FAKE	& - PRECIP(i,j,bi,bj)
./pkg/seaice/seaice_fake.F	66	SEAICE_FAKE	& - RUNOFF(i,j,bi,bj)
./pkg/seaice/seaice_fake.F	71	SEAICE_FAKE	fac=MIN(1. _d 0, MAX(0. _d 0 , area(i,j,bi,bj)))
./pkg/seaice/seaice_fake.F	73	SEAICE_FAKE	& SEAICE_dTempFrz_dS *salt(i,j,1,bi,bj)
./pkg/seaice/seaice_fake.F	74	SEAICE_FAKE	theta(i,j,1,bi,bj)=theta(i,j,1,bi,bj) + fac *
./pkg/seaice/seaice_fake.F	75	SEAICE_FAKE	& ( tempFrz-theta(i,j,1,bi,bj) ) *
./pkg/seaice/seaice_fgmres.F	474	SEAICE_FGMRES	integer i, i1, ii, j, jj, k, k1!, n1
./pkg/seaice/seaice_fgmres.F	501	SEAICE_FGMRES	do j=1,n
./pkg/seaice/seaice_fgmres.F	502	SEAICE_FGMRES	wk1(j,bi,bj)=sol(j,bi,bj)
./pkg/seaice/seaice_fgmres.F	511	SEAICE_FGMRES	do j=1,n
./pkg/seaice/seaice_fgmres.F	512	SEAICE_FGMRES	vv(j,1,bi,bj) = rhs(j,bi,bj) - wk2(j,bi,bj)
./pkg/seaice/seaice_fgmres.F	524	SEAICE_FGMRES	do j=1, n
./pkg/seaice/seaice_fgmres.F	525	SEAICE_FGMRES	vv(j,1,bi,bj) = vv(j,1,bi,bj)*t
./pkg/seaice/seaice_fgmres.F	601	SEAICE_FGMRES	do j=1, i
./pkg/seaice/seaice_fgmres.F	603	SEAICE_FGMRES	call SEAICE_SCALPROD(n, im+1, j, i1, vv, vv, t, myThid)
./pkg/seaice/seaice_fgmres.F	604	SEAICE_FGMRES	hh(j,i) = t
./pkg/seaice/seaice_fgmres.F	612	SEAICE_FGMRES	vv(k,i1,bi,bj) = vv(k,i1,bi,bj) - t*vv(k,j,bi,bj)
./pkg/seaice/seaice_fgmres.F	689	SEAICE_FGMRES	do j=k1,i
./pkg/seaice/seaice_fgmres.F	690	SEAICE_FGMRES	t = t-hh(k,j)*rs(j)
./pkg/seaice/seaice_fgmres.F	698	SEAICE_FGMRES	do j=1, i
./pkg/seaice/seaice_fgmres.F	699	SEAICE_FGMRES	t = rs(j)
./pkg/seaice/seaice_fgmres.F	704	SEAICE_FGMRES	sol(k,bi,bj) = sol(k,bi,bj) + t*w(k,j,bi,bj)
./pkg/seaice/seaice_fgmres.F	718	SEAICE_FGMRES	do j=1,i
./pkg/seaice/seaice_fgmres.F	719	SEAICE_FGMRES	jj = i1-j+1
./pkg/seaice/seaice_fgmres.F	723	SEAICE_FGMRES	do j=1,i1
./pkg/seaice/seaice_fgmres.F	724	SEAICE_FGMRES	t = rs(j)
./pkg/seaice/seaice_fgmres.F	725	SEAICE_FGMRES	if (j .eq. 1) t = t-1.0 _d 0
./pkg/seaice/seaice_fgmres.F	730	SEAICE_FGMRES	vv(k,1,bi,bj) = vv(k,1,bi,bj) + t*vv(k,j,bi,bj)
./pkg/seaice/seaice_freedrift.F	142	SEAICE_FREEDRIFT	uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*COS(sol_a)
./pkg/seaice/seaice_freedrift.F	143	SEAICE_FREEDRIFT	vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*SIN(sol_a)
./pkg/seaice/seaice_freedrift.F	158	SEAICE_FREEDRIFT	DO j=1,sNy
./pkg/seaice/seaice_freedrift.F	160	SEAICE_FREEDRIFT	uice_fd(i,j,bi,bj)=HALF*
./pkg/seaice/seaice_freedrift.F	161	SEAICE_FREEDRIFT	& (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj))
./pkg/seaice/seaice_freedrift.F	162	SEAICE_FREEDRIFT	vice_fd(i,j,bi,bj)=HALF*
./pkg/seaice/seaice_freedrift.F	163	SEAICE_FREEDRIFT	& (vice_cntr(i,j-1,bi,bj)+vice_cntr(i,j,bi,bj))
./pkg/seaice/seaice_freedrift.F	174	SEAICE_FREEDRIFT	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_freedrift.F	176	SEAICE_FREEDRIFT	uIce_fd(i,j,bi,bj)=uIce_fd(i,j,bi,bj)* _maskW(i,j,kSrf,bi,bj)
./pkg/seaice/seaice_freedrift.F	177	SEAICE_FREEDRIFT	vIce_fd(i,j,bi,bj)=vIce_fd(i,j,bi,bj)* _maskS(i,j,kSrf,bi,bj)
./pkg/seaice/seaice_freedrift.F	41	SEAICE_FREEDRIFT	INTEGER i, j, kSrf, bi, bj
./pkg/seaice/seaice_freedrift.F	59	SEAICE_FREEDRIFT	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_freedrift.F	61	SEAICE_FREEDRIFT	uice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F	62	SEAICE_FREEDRIFT	vice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F	63	SEAICE_FREEDRIFT	uice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F	64	SEAICE_FREEDRIFT	Vice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F	75	SEAICE_FREEDRIFT	DO j=1,sNy
./pkg/seaice/seaice_freedrift.F	82	SEAICE_FREEDRIFT	& (FORCEX0(i,j,bi,bj)+FORCEX0(i+1,j,bi,bj))
./pkg/seaice/seaice_freedrift.F	84	SEAICE_FREEDRIFT	& (FORCEY0(i,j,bi,bj)+FORCEY0(i,j+1,bi,bj))
./pkg/seaice/seaice_freedrift.F	86	SEAICE_FREEDRIFT	mIceCor=SEAICE_rhoIceHEFF(i,j,bi,bj)_fCori(I,J,bi,bj)
./pkg/seaice/seaice_freedrift.F	88	SEAICE_FREEDRIFT	uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj))
./pkg/seaice/seaice_freedrift.F	89	SEAICE_FREEDRIFT	vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	106	SEAICE_GET_DYNFORCING	CDAIR(i,j)=SEAICE_rhoAir*OCEAN_drag
./pkg/seaice/seaice_get_dynforcing.F	108	SEAICE_GET_DYNFORCING	oceTauX(i,j)=CDAIR(i,j)*
./pkg/seaice/seaice_get_dynforcing.F	109	SEAICE_GET_DYNFORCING	& (COSWINU1-SIGN(SINWIN, _fCori(i,j,bi,bj))V1)
./pkg/seaice/seaice_get_dynforcing.F	110	SEAICE_GET_DYNFORCING	oceTauY(i,j)=CDAIR(i,j)*
./pkg/seaice/seaice_get_dynforcing.F	111	SEAICE_GET_DYNFORCING	& (SIGN(SINWIN, _fCori(i,j,bi,bj))U1+COSWINV1)
./pkg/seaice/seaice_get_dynforcing.F	116	SEAICE_GET_DYNFORCING	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_get_dynforcing.F	118	SEAICE_GET_DYNFORCING	fu(i,j,bi,bj) = 0.5 _d 0*( oceTauX(i,j) + oceTauX(i-1,j) )
./pkg/seaice/seaice_get_dynforcing.F	119	SEAICE_GET_DYNFORCING	& *_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	120	SEAICE_GET_DYNFORCING	fv(i,j,bi,bj) = 0.5 _d 0*( oceTauY(i,j) + oceTauY(i,j-1) )
./pkg/seaice/seaice_get_dynforcing.F	121	SEAICE_GET_DYNFORCING	& *_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	133	SEAICE_GET_DYNFORCING	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_get_dynforcing.F	135	SEAICE_GET_DYNFORCING	U1=UWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	136	SEAICE_GET_DYNFORCING	& + 0.5 _d 0 * (uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	137	SEAICE_GET_DYNFORCING	& - 0.5 _d 0 * (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	138	SEAICE_GET_DYNFORCING	V1=VWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	139	SEAICE_GET_DYNFORCING	& + 0.5 _d 0 * (vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	140	SEAICE_GET_DYNFORCING	& - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	147	SEAICE_GET_DYNFORCING	IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_get_dynforcing.F	148	SEAICE_GET_DYNFORCING	CDAIR(i,j) = SEAICE_rhoAirSEAICE_drag_southAAA
./pkg/seaice/seaice_get_dynforcing.F	150	SEAICE_GET_DYNFORCING	CDAIR(i,j) = SEAICE_rhoAirSEAICE_dragAAA
./pkg/seaice/seaice_get_dynforcing.F	155	SEAICE_GET_DYNFORCING	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_get_dynforcing.F	157	SEAICE_GET_DYNFORCING	U1=UWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	158	SEAICE_GET_DYNFORCING	V1=VWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	165	SEAICE_GET_DYNFORCING	IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_get_dynforcing.F	166	SEAICE_GET_DYNFORCING	CDAIR(i,j) = SEAICE_rhoAirSEAICE_drag_southAAA
./pkg/seaice/seaice_get_dynforcing.F	168	SEAICE_GET_DYNFORCING	CDAIR(i,j) = SEAICE_rhoAirSEAICE_dragAAA
./pkg/seaice/seaice_get_dynforcing.F	174	SEAICE_GET_DYNFORCING	DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_get_dynforcing.F	177	SEAICE_GET_DYNFORCING	taux(i,j,bi,bj)= 0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F	178	SEAICE_GET_DYNFORCING	& ( CDAIR(i,j)(COSWIN
./pkg/seaice/seaice_get_dynforcing.F	179	SEAICE_GET_DYNFORCING	& (uWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	180	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	181	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F	182	SEAICE_GET_DYNFORCING	& -SIGN(SINWIN, _fCori(i,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F	183	SEAICE_GET_DYNFORCING	& (vWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	184	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	185	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F	186	SEAICE_GET_DYNFORCING	& +CDAIR(i-1,j)(COSWIN
./pkg/seaice/seaice_get_dynforcing.F	187	SEAICE_GET_DYNFORCING	& (uWind(i-1,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	188	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(uVel(i-1,j,ks,bi,bj)+uVel(i,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	189	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(uIce(i-1,j,bi,bj)+uIce(i,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F	190	SEAICE_GET_DYNFORCING	& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F	191	SEAICE_GET_DYNFORCING	& (vWind(i-1,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	192	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(vVel(i-1,j,ks,bi,bj)+vVel(i-1,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	193	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(vIce(i-1,j,bi,bj)+vIce(i-1,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F	194	SEAICE_GET_DYNFORCING	& )*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	196	SEAICE_GET_DYNFORCING	tauy(i,j,bi,bj)= 0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F	197	SEAICE_GET_DYNFORCING	& ( CDAIR(i,j)(SIGN(SINWIN, _fCori(i,j,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	198	SEAICE_GET_DYNFORCING	& (uWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	199	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	200	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F	202	SEAICE_GET_DYNFORCING	& (vWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	203	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	204	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F	205	SEAICE_GET_DYNFORCING	& +CDAIR(i,j-1)(SIGN(SINWIN, _fCori(i,j-1,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	206	SEAICE_GET_DYNFORCING	& (uWind(i,j-1,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	207	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(uVel(i,j-1,ks,bi,bj)+uVel(i+1,j-1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	208	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(uIce(i,j-1,bi,bj)+uIce(i+1,j-1,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F	210	SEAICE_GET_DYNFORCING	& (vWind(i,j-1,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	211	SEAICE_GET_DYNFORCING	& +0.5 _d 0*(vVel(i,j-1,ks,bi,bj)+vVel(i,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F	212	SEAICE_GET_DYNFORCING	& -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F	213	SEAICE_GET_DYNFORCING	& )*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	217	SEAICE_GET_DYNFORCING	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_get_dynforcing.F	220	SEAICE_GET_DYNFORCING	taux(i,j,bi,bj)=0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F	221	SEAICE_GET_DYNFORCING	& ( CDAIR(i ,j)*(
./pkg/seaice/seaice_get_dynforcing.F	222	SEAICE_GET_DYNFORCING	& COSWIN *uWind(i ,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	223	SEAICE_GET_DYNFORCING	& -SIGN(SINWIN, _fCori(i ,j,bi,bj))*vWind(i ,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F	224	SEAICE_GET_DYNFORCING	& + CDAIR(i-1,j)*(
./pkg/seaice/seaice_get_dynforcing.F	225	SEAICE_GET_DYNFORCING	& COSWIN *uWind(i-1,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	226	SEAICE_GET_DYNFORCING	& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F	227	SEAICE_GET_DYNFORCING	& )*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	229	SEAICE_GET_DYNFORCING	tauy(i,j,bi,bj)=0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F	230	SEAICE_GET_DYNFORCING	& ( CDAIR(i,j )*(
./pkg/seaice/seaice_get_dynforcing.F	231	SEAICE_GET_DYNFORCING	& SIGN(SINWIN, _fCori(i,j ,bi,bj))*uWind(i,j ,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	232	SEAICE_GET_DYNFORCING	& +COSWIN*vWind(i,j ,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F	233	SEAICE_GET_DYNFORCING	& + CDAIR(i,j-1)*(
./pkg/seaice/seaice_get_dynforcing.F	234	SEAICE_GET_DYNFORCING	& SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	235	SEAICE_GET_DYNFORCING	& +COSWIN*vWind(i,j-1,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F	236	SEAICE_GET_DYNFORCING	& )*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	247	SEAICE_GET_DYNFORCING	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_get_dynforcing.F	250	SEAICE_GET_DYNFORCING	IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_get_dynforcing.F	251	SEAICE_GET_DYNFORCING	CDAIR(i,j) = SEAICE_drag_south/OCEAN_drag
./pkg/seaice/seaice_get_dynforcing.F	253	SEAICE_GET_DYNFORCING	CDAIR(i,j) = SEAICE_drag /OCEAN_drag
./pkg/seaice/seaice_get_dynforcing.F	255	SEAICE_GET_DYNFORCING	taux(i,j,bi,bj) = CDAIR(i,j)*fu(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	256	SEAICE_GET_DYNFORCING	& *_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	257	SEAICE_GET_DYNFORCING	tauy(i,j,bi,bj) = CDAIR(i,j)*fv(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	258	SEAICE_GET_DYNFORCING	& *_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	62	SEAICE_GET_DYNFORCING	INTEGER bi, bj, i, j
./pkg/seaice/seaice_get_dynforcing.F	96	SEAICE_GET_DYNFORCING	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_get_dynforcing.F	98	SEAICE_GET_DYNFORCING	U1=UWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F	99	SEAICE_GET_DYNFORCING	V1=VWIND(i,j,bi,bj)
./pkg/seaice/seaice_growth.F	1043	SEAICE_GROWTH	& * SEAICE_deltaTtherm * maskC(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F	1045	SEAICE_GROWTH	a_QbyOCN(i,j) =
./pkg/seaice/seaice_growth.F	1047	SEAICE_GROWTH	r_QbyOCN(i,j) = a_QbyOCN(i,j)
./pkg/seaice/seaice_growth.F	1062	SEAICE_GROWTH	tmpscal2=sqrt(0.87 + 0.067UG(i,j)) UG(i,j)
./pkg/seaice/seaice_growth.F	1074	SEAICE_GROWTH	IF (a_QbyATMmult_cover(i,j,it).LT.ZERO .OR.
./pkg/seaice/seaice_growth.F	1075	SEAICE_GROWTH	& a_QbyATM_open(i,j) .LT.ZERO .OR.
./pkg/seaice/seaice_growth.F	1076	SEAICE_GROWTH	& a_QbyOCN(i,j) .LT.ZERO) THEN
./pkg/seaice/seaice_growth.F	1078	SEAICE_GROWTH	latMeltRate(i,j,it) = 1.6 _d -6 * tmpscal1**1.36
./pkg/seaice/seaice_growth.F	1088	SEAICE_GROWTH	latMeltFrac(i,j,it) =
./pkg/seaice/seaice_growth.F	1089	SEAICE_GROWTH	& latMeltRate(i,j,it)SEAICE_deltaTthermPI /
./pkg/seaice/seaice_growth.F	1091	SEAICE_GROWTH	latMeltFrac(i,j,it)=max(ZERO, min(latMeltFrac(i,j,it),ONE))
./pkg/seaice/seaice_growth.F	1093	SEAICE_GROWTH	latMeltRate(i,j,it)=0.0 _d 0
./pkg/seaice/seaice_growth.F	1094	SEAICE_GROWTH	latMeltFrac(i,j,it)=0.0 _d 0
./pkg/seaice/seaice_growth.F	1140	SEAICE_GROWTH	& 0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F	1141	SEAICE_GROWTH	& +uVel(i+1,j,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F	1142	SEAICE_GROWTH	& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj))
./pkg/seaice/seaice_growth.F	1145	SEAICE_GROWTH	& 0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F	1146	SEAICE_GROWTH	& +vVel(i,j+1,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F	1147	SEAICE_GROWTH	& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj))
./pkg/seaice/seaice_growth.F	1287	SEAICE_GROWTH	tmpscal1=MAX(r_QbyOCN(i,j)*areaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F	1311	SEAICE_GROWTH	d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F	1446	SEAICE_GROWTH	& snowPrecip(i,j,bi,bj) * AREApreTH(I,J)
./pkg/seaice/seaice_growth.F	1517	SEAICE_GROWTH	tmpscal1=MAX(r_QbyOCN(i,j)ICE2SNOWareaFracFactor(I,J,IT),
./pkg/seaice/seaice_growth.F	1533	SEAICE_GROWTH	tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F	1577	SEAICE_GROWTH	tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j) *
./pkg/seaice/seaice_growth.F	1626	SEAICE_GROWTH	SItracer(i,j,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F	1627	SEAICE_GROWTH	& SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil
./pkg/seaice/seaice_growth.F	1823	SEAICE_GROWTH	IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR.
./pkg/seaice/seaice_growth.F	1824	SEAICE_GROWTH	& (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN
./pkg/seaice/seaice_growth.F	1999	SEAICE_GROWTH	& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F	2057	SEAICE_GROWTH	saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F	2091	SEAICE_GROWTH	& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F	2174	SEAICE_GROWTH	& snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J))
./pkg/seaice/seaice_growth.F	2230	SEAICE_GROWTH	& - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) )
./pkg/seaice/seaice_growth.F	2425	SEAICE_GROWTH	sIceLoad(i,j,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F	2435	SEAICE_GROWTH	DO j=1,sNy
./pkg/seaice/seaice_growth.F	2438	SEAICE_GROWTH	& FWFsiTile(bi,bj) + SIatmFW(i,j,bi,bj)
./pkg/seaice/seaice_growth.F	2439	SEAICE_GROWTH	& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj)
./pkg/seaice/seaice_growth.F	2446	SEAICE_GROWTH	DO j=1,sNy
./pkg/seaice/seaice_growth.F	2450	SEAICE_GROWTH	& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj)
./pkg/seaice/seaice_growth.F	2456	SEAICE_GROWTH	DO j=1,sNy
./pkg/seaice/seaice_growth.F	2459	SEAICE_GROWTH	& HFsiTile(bi,bj) + SItflux(i,j,bi,bj)
./pkg/seaice/seaice_growth.F	2460	SEAICE_GROWTH	& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj)
./pkg/seaice/seaice_growth.F	2597	SEAICE_GROWTH	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_growth.F	2599	SEAICE_GROWTH	empmr(i,j,bi,bj) = empmr(i,j,bi,bj) - tmpscal0
./pkg/seaice/seaice_growth.F	2600	SEAICE_GROWTH	SIatmFW(i,j,bi,bj) = SIatmFW(i,j,bi,bj) - tmpscal0
./pkg/seaice/seaice_growth.F	2616	SEAICE_GROWTH	SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1
./pkg/seaice/seaice_growth.F	2634	SEAICE_GROWTH	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_growth.F	2636	SEAICE_GROWTH	SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F	2637	SEAICE_GROWTH	qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F	2638	SEAICE_GROWTH	SIatmQnt(i,j,bi,bj) = SIatmQnt(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F	713	SEAICE_GROWTH	DO j=1,sNy
./pkg/seaice/seaice_growth.F	716	SEAICE_GROWTH	TmixLoc(i,j) = theta(i,j,kSurface,bi,bj)+celsius2K
./pkg/seaice/seaice_growth.F	744	SEAICE_GROWTH	& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F	745	SEAICE_GROWTH	& +uVel(i+1,j,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F	746	SEAICE_GROWTH	& -0.5 _d 0(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))*2
./pkg/seaice/seaice_growth.F	748	SEAICE_GROWTH	& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F	749	SEAICE_GROWTH	& +vVel(i,j+1,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F	750	SEAICE_GROWTH	& -0.5 _d 0(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))*2
./pkg/seaice/seaice_growth.F	95	SEAICE_GROWTH	INTEGER i, j, bi, bj
./pkg/seaice/seaice_init_varia.F	107	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	116	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	123	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	130	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_init_varia.F	137	SEAICE_INIT_VARIA	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_init_varia.F	146	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	163	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	173	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	180	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	187	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	194	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_init_varia.F	201	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_init_varia.F	208	SEAICE_INIT_VARIA	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_init_varia.F	224	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	226	SEAICE_INIT_VARIA	KGEO(i,j,bi,bj) = 0
./pkg/seaice/seaice_init_varia.F	229	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	232	SEAICE_INIT_VARIA	KGEO(i,j,bi,bj) = 1
./pkg/seaice/seaice_init_varia.F	234	SEAICE_INIT_VARIA	IF (klowc(i,j,bi,bj) .LT. 2) THEN
./pkg/seaice/seaice_init_varia.F	235	SEAICE_INIT_VARIA	KGEO(i,j,bi,bj) = 1
./pkg/seaice/seaice_init_varia.F	237	SEAICE_INIT_VARIA	KGEO(i,j,bi,bj) = 2
./pkg/seaice/seaice_init_varia.F	238	SEAICE_INIT_VARIA	DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND.
./pkg/seaice/seaice_init_varia.F	239	SEAICE_INIT_VARIA	& KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) )
./pkg/seaice/seaice_init_varia.F	240	SEAICE_INIT_VARIA	KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1
./pkg/seaice/seaice_init_varia.F	254	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	256	SEAICE_INIT_VARIA	HEFF(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	257	SEAICE_INIT_VARIA	AREA(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	261	SEAICE_INIT_VARIA	AREAITD(i,j,k,bi,bj) =0. _d 0
./pkg/seaice/seaice_init_varia.F	262	SEAICE_INIT_VARIA	HEFFITD(i,j,k,bi,bj) =0. _d 0
./pkg/seaice/seaice_init_varia.F	266	SEAICE_INIT_VARIA	UICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	267	SEAICE_INIT_VARIA	VICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	269	SEAICE_INIT_VARIA	uice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	270	SEAICE_INIT_VARIA	vice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	273	SEAICE_INIT_VARIA	uIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	274	SEAICE_INIT_VARIA	vIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	275	SEAICE_INIT_VARIA	ETA (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	276	SEAICE_INIT_VARIA	etaZ(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	277	SEAICE_INIT_VARIA	ZETA(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	278	SEAICE_INIT_VARIA	FORCEX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	279	SEAICE_INIT_VARIA	FORCEY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	281	SEAICE_INIT_VARIA	seaiceMassC(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	282	SEAICE_INIT_VARIA	seaiceMassU(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	283	SEAICE_INIT_VARIA	seaiceMassV(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	284	SEAICE_INIT_VARIA	stressDivergenceX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	285	SEAICE_INIT_VARIA	stressDivergenceY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	287	SEAICE_INIT_VARIA	seaice_sigma1 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	288	SEAICE_INIT_VARIA	seaice_sigma2 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	289	SEAICE_INIT_VARIA	seaice_sigma12(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	292	SEAICE_INIT_VARIA	uIceC(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	293	SEAICE_INIT_VARIA	vIceC(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	294	SEAICE_INIT_VARIA	AMASS(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	295	SEAICE_INIT_VARIA	DAIRN(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	296	SEAICE_INIT_VARIA	WINDX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	297	SEAICE_INIT_VARIA	WINDY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	298	SEAICE_INIT_VARIA	GWATX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	299	SEAICE_INIT_VARIA	GWATY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	301	SEAICE_INIT_VARIA	DWATN(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	302	SEAICE_INIT_VARIA	PRESS0(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	303	SEAICE_INIT_VARIA	FORCEX0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F	304	SEAICE_INIT_VARIA	FORCEY0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F	305	SEAICE_INIT_VARIA	ZMAX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	306	SEAICE_INIT_VARIA	ZMIN(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	307	SEAICE_INIT_VARIA	HSNOW(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	311	SEAICE_INIT_VARIA	HSNOWITD(i,j,k,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	316	SEAICE_INIT_VARIA	HSALT(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	320	SEAICE_INIT_VARIA	SItracer(i,j,bi,bj,iTr) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	321	SEAICE_INIT_VARIA	SItrBucket(i,j,bi,bj,iTr) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	323	SEAICE_INIT_VARIA	if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0
./pkg/seaice/seaice_init_varia.F	326	SEAICE_INIT_VARIA	SItrHEFF (i,j,bi,bj,jTh) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	329	SEAICE_INIT_VARIA	SItrAREA (i,j,bi,bj,jTh) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	333	SEAICE_INIT_VARIA	TICES(i,j,k,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	335	SEAICE_INIT_VARIA	TAUX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	336	SEAICE_INIT_VARIA	TAUY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	338	SEAICE_INIT_VARIA	uHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	339	SEAICE_INIT_VARIA	vHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	340	SEAICE_INIT_VARIA	icevolMeanCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	342	SEAICE_INIT_VARIA	saltWtrIce(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	343	SEAICE_INIT_VARIA	frWtrIce(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	345	SEAICE_INIT_VARIA	frWtrAtm(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	346	SEAICE_INIT_VARIA	AREAforAtmFW(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	377	SEAICE_INIT_VARIA	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_init_varia.F	379	SEAICE_INIT_VARIA	seaiceMaskU(i,j,bi,bj)= 0.0 _d 0
./pkg/seaice/seaice_init_varia.F	380	SEAICE_INIT_VARIA	seaiceMaskV(i,j,bi,bj)= 0.0 _d 0
./pkg/seaice/seaice_init_varia.F	381	SEAICE_INIT_VARIA	mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj)
./pkg/seaice/seaice_init_varia.F	382	SEAICE_INIT_VARIA	IF(mask_uice.GT.1.5 _d 0) seaiceMaskU(i,j,bi,bj)=1.0 _d 0
./pkg/seaice/seaice_init_varia.F	383	SEAICE_INIT_VARIA	mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj)
./pkg/seaice/seaice_init_varia.F	384	SEAICE_INIT_VARIA	IF(mask_uice.GT.1.5 _d 0) seaiceMaskV(i,j,bi,bj)=1.0 _d 0
./pkg/seaice/seaice_init_varia.F	405	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	407	SEAICE_INIT_VARIA	I_obc = OB_Iw(j,bi,bj)
./pkg/seaice/seaice_init_varia.F	409	SEAICE_INIT_VARIA	seaiceMaskU(I_obc,j,bi,bj)= 0.0 _d 0
./pkg/seaice/seaice_init_varia.F	410	SEAICE_INIT_VARIA	seaiceMaskV(I_obc,j,bi,bj)= 0.0 _d 0
./pkg/seaice/seaice_init_varia.F	417	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	420	SEAICE_INIT_VARIA	TICES(i,j,k,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init_varia.F	423	SEAICE_INIT_VARIA	AMASS (i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F	425	SEAICE_INIT_VARIA	seaiceMassC(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F	426	SEAICE_INIT_VARIA	seaiceMassU(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F	427	SEAICE_INIT_VARIA	seaiceMassV(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F	42	SEAICE_INIT_VARIA	INTEGER i, j, bi, bj
./pkg/seaice/seaice_init_varia.F	467	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	469	SEAICE_INIT_VARIA	HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F	470	SEAICE_INIT_VARIA	UICE(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init_varia.F	471	SEAICE_INIT_VARIA	VICE(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init_varia.F	486	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	488	SEAICE_INIT_VARIA	uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F	489	SEAICE_INIT_VARIA	vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F	504	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	506	SEAICE_INIT_VARIA	HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F	515	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	517	SEAICE_INIT_VARIA	IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE
./pkg/seaice/seaice_init_varia.F	529	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	531	SEAICE_INIT_VARIA	AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F	532	SEAICE_INIT_VARIA	AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE)
./pkg/seaice/seaice_init_varia.F	533	SEAICE_INIT_VARIA	IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_init_varia.F	534	SEAICE_INIT_VARIA	IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_init_varia.F	543	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	545	SEAICE_INIT_VARIA	HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F	557	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	559	SEAICE_INIT_VARIA	HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F	569	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	586	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	588	SEAICE_INIT_VARIA	HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)salt(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_init_varia.F	620	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	622	SEAICE_INIT_VARIA	AREAforAtmFW(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F	63	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	65	SEAICE_INIT_VARIA	HEFFM(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F	670	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	672	SEAICE_INIT_VARIA	ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11)
./pkg/seaice/seaice_init_varia.F	673	SEAICE_INIT_VARIA	ETA(i,j,bi,bj) = ZETA(i,j,bi,bj)/SEAICE_eccen**2
./pkg/seaice/seaice_init_varia.F	674	SEAICE_INIT_VARIA	PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F	675	SEAICE_INIT_VARIA	& EXP(-20.0 _d 0(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_init_varia.F	677	SEAICE_INIT_VARIA	ZMIN(i,j,bi,bj) = SEAICE_zetaMin
./pkg/seaice/seaice_init_varia.F	678	SEAICE_INIT_VARIA	PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F	682	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	684	SEAICE_INIT_VARIA	sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_init_varia.F	685	SEAICE_INIT_VARIA	& + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow
./pkg/seaice/seaice_init_varia.F	68	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F	70	SEAICE_INIT_VARIA	HEFFM(i,j,bi,bj)= 1. _d 0
./pkg/seaice/seaice_init_varia.F	71	SEAICE_INIT_VARIA	IF (_hFacC(i,j,kSurface,bi,bj).eq.0.)
./pkg/seaice/seaice_init_varia.F	72	SEAICE_INIT_VARIA	& HEFFM(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F	76	SEAICE_INIT_VARIA	DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_init_varia.F	78	SEAICE_INIT_VARIA	UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F	79	SEAICE_INIT_VARIA	mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj)
./pkg/seaice/seaice_init_varia.F	80	SEAICE_INIT_VARIA	& +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j, bi,bj)
./pkg/seaice/seaice_init_varia.F	81	SEAICE_INIT_VARIA	IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0
./pkg/seaice/seaice_init_varia.F	92	SEAICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./model/src/freeze_surface.F	41	FREEZE_SURFACE	INTEGER bi,bj,i,j,k
./model/src/freeze_surface.F	56	FREEZE_SURFACE	DO j=1-OLy,sNy+OLy
./model/src/freeze_surface.F	58	FREEZE_SURFACE	IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/freeze_surface.F	59	FREEZE_SURFACE	surfaceForcingTice(i,j,bi,bj) =
./model/src/freeze_surface.F	60	FREEZE_SURFACE	& ( Tfreezing - theta(i,j,k,bi,bj) )
./model/src/freeze_surface.F	61	FREEZE_SURFACE	& drF(k)_hFacC(i,j,k,bi,bj) / dTtracerLev(k)
./model/src/freeze_surface.F	62	FREEZE_SURFACE	theta(i,j,k,bi,bj) = Tfreezing
./model/src/freeze_surface.F	64	FREEZE_SURFACE	surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_itd_pickup.F	106	SEAICE_ITD_PICKUP	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_pickup.F	108	SEAICE_ITD_PICKUP	AREAITD(i,j,1,bi,bj) = AREA(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F	109	SEAICE_ITD_PICKUP	HEFFITD(i,j,1,bi,bj) = HEFF(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F	110	SEAICE_ITD_PICKUP	HSNOWITD(i,j,1,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F	122	SEAICE_ITD_PICKUP	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_pickup.F	126	SEAICE_ITD_PICKUP	LND_mu = log(HEFF(i,j,bi,bj)/AREA(i,j,bi,bj))
./pkg/seaice/seaice_itd_pickup.F	140	SEAICE_ITD_PICKUP	& * AREA(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F	146	SEAICE_ITD_PICKUP	AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_pickup.F	148	SEAICE_ITD_PICKUP	HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_pickup.F	74	SEAICE_ITD_PICKUP	INTEGER i, j, bi, bj, k
./pkg/seaice/seaice_itd_redist.F	109	SEAICE_ITD_REDIST	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_redist.F	111	SEAICE_ITD_REDIST	IF (openWater(i,j) .lt. 0.0)
./pkg/seaice/seaice_itd_redist.F	112	SEAICE_ITD_REDIST	& AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	122	SEAICE_ITD_REDIST	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_redist.F	124	SEAICE_ITD_REDIST	IF (AREAITD(i,j,k,bi,bj) .lt. 0.0) THEN
./pkg/seaice/seaice_itd_redist.F	127	SEAICE_ITD_REDIST	AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	128	SEAICE_ITD_REDIST	& + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	129	SEAICE_ITD_REDIST	AREAITD (i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	130	SEAICE_ITD_REDIST	HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	131	SEAICE_ITD_REDIST	& + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	132	SEAICE_ITD_REDIST	HEFFITD (i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	133	SEAICE_ITD_REDIST	HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	134	SEAICE_ITD_REDIST	& + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	135	SEAICE_ITD_REDIST	HSNOWITD(i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	151	SEAICE_ITD_REDIST	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_redist.F	153	SEAICE_ITD_REDIST	IF (HEFFITD(i,j,k,bi,bj) .gt.
./pkg/seaice/seaice_itd_redist.F	154	SEAICE_ITD_REDIST	& Hlimit(k)*AREAITD(i,j,k,bi,bj)) THEN
./pkg/seaice/seaice_itd_redist.F	157	SEAICE_ITD_REDIST	AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	158	SEAICE_ITD_REDIST	& + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	159	SEAICE_ITD_REDIST	AREAITD (i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	160	SEAICE_ITD_REDIST	HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	161	SEAICE_ITD_REDIST	& + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	162	SEAICE_ITD_REDIST	HEFFITD (i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	163	SEAICE_ITD_REDIST	HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	164	SEAICE_ITD_REDIST	& + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	165	SEAICE_ITD_REDIST	HSNOWITD(i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	178	SEAICE_ITD_REDIST	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_redist.F	180	SEAICE_ITD_REDIST	IF (HEFFITD(i,j,k,bi,bj) .lt.
./pkg/seaice/seaice_itd_redist.F	181	SEAICE_ITD_REDIST	& Hlimit(k-1)*AREAITD(i,j,k,bi,bj)) THEN
./pkg/seaice/seaice_itd_redist.F	184	SEAICE_ITD_REDIST	AREAITD (i,j,k-1,bi,bj) = AREAITD (i,j,k-1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	185	SEAICE_ITD_REDIST	& + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	186	SEAICE_ITD_REDIST	AREAITD (i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	187	SEAICE_ITD_REDIST	HEFFITD (i,j,k-1,bi,bj) = HEFFITD (i,j,k-1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	188	SEAICE_ITD_REDIST	& + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	189	SEAICE_ITD_REDIST	HEFFITD (i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	190	SEAICE_ITD_REDIST	HSNOWITD(i,j,k-1,bi,bj) = HSNOWITD(i,j,k-1,bi,bj)
./pkg/seaice/seaice_itd_redist.F	191	SEAICE_ITD_REDIST	& + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F	192	SEAICE_ITD_REDIST	HSNOWITD(i,j,k ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F	70	SEAICE_ITD_REDIST	INTEGER i, j, k
./pkg/seaice/seaice_itd_redist.F	85	SEAICE_ITD_REDIST	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_redist.F	87	SEAICE_ITD_REDIST	openWater(i,j) = ONE
./pkg/seaice/seaice_itd_redist.F	91	SEAICE_ITD_REDIST	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_redist.F	93	SEAICE_ITD_REDIST	openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_sum.F	64	SEAICE_ITD_SUM	INTEGER i, j, k
./pkg/seaice/seaice_itd_sum.F	78	SEAICE_ITD_SUM	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_sum.F	80	SEAICE_ITD_SUM	AREA (i,j,bi,bj)=AREAITD (i,j,1,bi,bj)
./pkg/seaice/seaice_itd_sum.F	81	SEAICE_ITD_SUM	HEFF (i,j,bi,bj)=HEFFITD (i,j,1,bi,bj)
./pkg/seaice/seaice_itd_sum.F	82	SEAICE_ITD_SUM	HSNOW(i,j,bi,bj)=HSNOWITD(i,j,1,bi,bj)
./pkg/seaice/seaice_itd_sum.F	87	SEAICE_ITD_SUM	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_itd_sum.F	89	SEAICE_ITD_SUM	AREA (i,j,bi,bj) = AREA (i,j,bi,bj) + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_sum.F	90	SEAICE_ITD_SUM	HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_sum.F	91	SEAICE_ITD_SUM	HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_jacvec.F	68	SEAICE_JACVEC	INTEGER i,j,bi,bj
./pkg/seaice/seaice_jfnk.F	184	SEAICE_JFNK	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_jfnk.F	485	SEAICE_JFNK_UPDATE	INTEGER i,j,bi,bj
./pkg/seaice/seaice_jfnk.F	64	SEAICE_JFNK	INTEGER i,j,bi,bj
./pkg/seaice/seaice_lsr.F	1027	SEAICE_RESIDUAL	INTEGER i, j, bi, bj
./pkg/seaice/seaice_lsr.F	1036	SEAICE_RESIDUAL	DO j=1,sNy
./pkg/seaice/seaice_lsr.F	1038	SEAICE_RESIDUAL	uRes(i,j,bi,bj) = rhsU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1039	SEAICE_RESIDUAL	& + uRt1(i,j,bi,bj)*uFld(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F	1040	SEAICE_RESIDUAL	& + uRt2(i,j,bi,bj)*uFld(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F	1041	SEAICE_RESIDUAL	& - ( AU(i,j,bi,bj)*uFld(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1042	SEAICE_RESIDUAL	& + BU(i,j,bi,bj)*uFld( i ,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1043	SEAICE_RESIDUAL	& + CU(i,j,bi,bj)*uFld(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1045	SEAICE_RESIDUAL	vRes(i,j,bi,bj) = rhsV(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1046	SEAICE_RESIDUAL	& + vRt1(i,j,bi,bj)*vFld(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1047	SEAICE_RESIDUAL	& + vRt2(i,j,bi,bj)*vFld(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1048	SEAICE_RESIDUAL	& - ( AV(i,j,bi,bj)*vFld(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F	1049	SEAICE_RESIDUAL	& + BV(i,j,bi,bj)*vFld(i, j ,bi,bj)
./pkg/seaice/seaice_lsr.F	1050	SEAICE_RESIDUAL	& + CV(i,j,bi,bj)*vFld(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F	1055	SEAICE_RESIDUAL	DO j=1,sNy
./pkg/seaice/seaice_lsr.F	1057	SEAICE_RESIDUAL	residU = residU + uRes(i,j,bi,bj)*uRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1058	SEAICE_RESIDUAL	& rAw(i,j,bi,bj)maskInW(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1060	SEAICE_RESIDUAL	& maskInC(i,j,bi,bj)maskInC(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1062	SEAICE_RESIDUAL	residV = residV + vRes(i,j,bi,bj)*vRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1063	SEAICE_RESIDUAL	& rAs(i,j,bi,bj)maskInS(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1065	SEAICE_RESIDUAL	& maskInC(i,j,bi,bj)maskInC(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F	1155	SEAICE_LSR_CALC_COEFFS	INTEGER i, j, bi, bj
./pkg/seaice/seaice_lsr.F	1327	SEAICE_LSR_CALC_COEFFS	hFacM = seaiceMaskV(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1328	SEAICE_LSR_CALC_COEFFS	hFacP = seaiceMaskV(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	1537	SEAICE_LSR_RHSV	hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F	166	SEAICE_LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F	168	SEAICE_LSR	press (i,j,bi,bj )= 0. _d 0
./pkg/seaice/seaice_lsr.F	169	SEAICE_LSR	zeta (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F	170	SEAICE_LSR	eta (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F	171	SEAICE_LSR	etaZ (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F	172	SEAICE_LSR	uIceC (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F	173	SEAICE_LSR	vIceC (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F	174	SEAICE_LSR	uIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F	175	SEAICE_LSR	vIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F	236	SEAICE_LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F	238	SEAICE_LSR	uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F	239	SEAICE_LSR	vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F	250	SEAICE_LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F	252	SEAICE_LSR	uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F	253	SEAICE_LSR	vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F	265	SEAICE_LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F	267	SEAICE_LSR	uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F	268	SEAICE_LSR	vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F	347	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	352	SEAICE_LSR	& 0.5 _d 0( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) )
./pkg/seaice/seaice_lsr.F	354	SEAICE_LSR	& 0.5 _d 0( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F	357	SEAICE_LSR	& 0.5 _d 0( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) )
./pkg/seaice/seaice_lsr.F	359	SEAICE_LSR	& 0.5 _d 0( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F	363	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	367	SEAICE_LSR	& *uIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	370	SEAICE_LSR	& *vIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	379	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	391	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	421	SEAICE_LSR	IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_lsr.F	429	SEAICE_LSR	IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_lsr.F	469	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	471	SEAICE_LSR	uIce_fd(i,j,bi,bj) = FORCEX(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	472	SEAICE_LSR	& / ( 1. _d 0 - seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	473	SEAICE_LSR	& + seaiceMassU(i,j,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F	474	SEAICE_LSR	& + HALF( DWATN(i,j,bi,bj) + DWATN(i-1,j,bi,bj) )COSWAT
./pkg/seaice/seaice_lsr.F	476	SEAICE_LSR	vIce_fd(i,j,bi,bj) = FORCEY(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	477	SEAICE_LSR	& / ( 1. _d 0 - seaiceMaskV(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	478	SEAICE_LSR	& + seaiceMassV(i,j,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F	479	SEAICE_LSR	& + HALF( DWATN(i,j,bi,bj) + DWATN(i,j-1,bi,bj) )COSWAT
./pkg/seaice/seaice_lsr.F	503	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	505	SEAICE_LSR	errIni = uTmp(i,j,bi,bj)*uTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	506	SEAICE_LSR	errFD = uRes(i,j,bi,bj)*uRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	512	SEAICE_LSR	& maskInC(i,j,bi,bj)maskInC(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F	514	SEAICE_LSR	uIce(i,j,bi,bj) = ( errFD *uIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	515	SEAICE_LSR	& + errIni*uIce_fd(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	518	SEAICE_LSR	errIni = vTmp(i,j,bi,bj)*vTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	519	SEAICE_LSR	errFD = vRes(i,j,bi,bj)*vRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	525	SEAICE_LSR	& maskInC(i,j,bi,bj)maskInC(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F	527	SEAICE_LSR	vIce(i,j,bi,bj) = ( errFD *vIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	528	SEAICE_LSR	& + errIni*vIce_fd(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	616	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	618	SEAICE_LSR	uTmp(i,j,bi,bj) = uIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	619	SEAICE_LSR	rhsUx(i,j,bi,bj) = ( rhsU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	620	SEAICE_LSR	& + uRt1(i,j,bi,bj)*uIce(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F	621	SEAICE_LSR	& + uRt2(i,j,bi,bj)*uIce(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F	622	SEAICE_LSR	& )*seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	627	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	629	SEAICE_LSR	vTmp(i,j,bi,bj) = vIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	630	SEAICE_LSR	rhsVy(i,j,bi,bj) = ( rhsV(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	631	SEAICE_LSR	& + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F	632	SEAICE_LSR	& + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj)
./pkg/seaice/seaice_lsr.F	633	SEAICE_LSR	& )*seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	652	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	654	SEAICE_LSR	uIce(i,j,bi,bj) = uTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	655	SEAICE_LSR	& + WFAU*( uIce(i,j,bi,bj)-uTmp(i,j,bi,bj) )
./pkg/seaice/seaice_lsr.F	660	SEAICE_LSR	DO j=jMin,jMax
./pkg/seaice/seaice_lsr.F	662	SEAICE_LSR	vIce(i,j,bi,bj) = vTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F	663	SEAICE_LSR	& + WFAV*( vIce(i,j,bi,bj)-vTmp(i,j,bi,bj) )
./pkg/seaice/seaice_lsr.F	693	SEAICE_LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F	80	SEAICE_LSR	INTEGER i, j, m, bi, bj
./pkg/seaice/seaice_lsr.F	858	SEAICE_LSR	DO j=1,sNy
./pkg/seaice/seaice_lsr.F	861	SEAICE_LSR	& ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj))
./pkg/seaice/seaice_lsr.F	862	SEAICE_LSR	& - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F	863	SEAICE_LSR	& + ( (vIceNm1(i,j,bi,bj)+vIceNm1(i,j+1,bi,bj))
./pkg/seaice/seaice_lsr.F	864	SEAICE_LSR	& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F	865	SEAICE_LSR	IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN
./pkg/seaice/seaice_lsr.F	866	SEAICE_LSR	EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F	867	SEAICE_LSR	& ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F	868	SEAICE_LSR	& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F	908	SEAICE_LSR	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F	916	SEAICE_LSR	DO j=0,sNy
./pkg/seaice/seaice_lsr.F	927	SEAICE_LSR	DO j=1,sNy+1
./pkg/seaice/seaice_map_thsice.F	46	SEAICE_MAP_THSICE	INTEGER i, j, bi, bj
./pkg/seaice/seaice_map_thsice.F	55	SEAICE_MAP_THSICE	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_map_thsice.F	57	SEAICE_MAP_THSICE	AREA(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/seaice/seaice_map_thsice.F	58	SEAICE_MAP_THSICE	HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/seaice/seaice_model.F	59	SEAICE_MODEL	INTEGER i, j
./pkg/seaice/seaice_model.F	86	SEAICE_MODEL	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_model.F	88	SEAICE_MODEL	uIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F	89	SEAICE_MODEL	vIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F	92	SEAICE_MODEL	SItrBucket(i,j,bi,bj,iTr) = 0. _d 0
./model/src/grad_sigma.F	100	GRAD_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/grad_sigma.F	102	GRAD_SIGMA	sigmaR(i,j,k)= maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./model/src/grad_sigma.F	104	GRAD_SIGMA	& *(sigKp1(i,j)-sigKm1(i,j))
./model/src/grad_sigma.F	52	GRAD_SIGMA	INTEGER i,j
./model/src/grad_sigma.F	57	GRAD_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/grad_sigma.F	59	GRAD_SIGMA	rhoLoc(i,j) = rhoK(i,j)
./model/src/grad_sigma.F	70	GRAD_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/grad_sigma.F	72	GRAD_SIGMA	sigmaX(i,j,k)=_maskW(i,j,k,bi,bj)
./model/src/grad_sigma.F	73	GRAD_SIGMA	& *_recip_dxC(i,j,bi,bj)
./model/src/grad_sigma.F	74	GRAD_SIGMA	& *(rhoLoc(i,j)-rhoLoc(i-1,j))
./model/src/grad_sigma.F	85	GRAD_SIGMA	DO j=1-OLy+1,sNy+OLy
./model/src/grad_sigma.F	87	GRAD_SIGMA	sigmaY(i,j,k)=_maskS(i,j,k,bi,bj)
./model/src/grad_sigma.F	88	GRAD_SIGMA	& *_recip_dyC(i,j,bi,bj)
./model/src/grad_sigma.F	89	GRAD_SIGMA	& *(rhoLoc(i,j)-rhoLoc(i,j-1))
./model/src/grad_sigma.F	94	GRAD_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/grad_sigma.F	96	GRAD_SIGMA	sigmaR(i,j,k)= 0. _d 0
./pkg/seaice/seaice_ocean_stress.F	41	SEAICE_OCEAN_STRESS	INTEGER i, j, bi, bj
./pkg/seaice/seaice_ocean_stress.F	93	SEAICE_OCEAN_STRESS	DO j=1,sNy
./pkg/seaice/seaice_oceandrag_coeffs.F	62	SEAICE_OCEANDRAG_COEFFS	INTEGER i,j,bi,bj
./pkg/seaice/seaice_oceandrag_coeffs.F	71	SEAICE_OCEANDRAG_COEFFS	DO j=1-OLy,sNy+Oly-1
./pkg/seaice/seaice_oceandrag_coeffs.F	76	SEAICE_OCEANDRAG_COEFFS	& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	77	SEAICE_OCEANDRAG_COEFFS	& +( uIceLoc(i+1,j,bi,bj)-uVel(i+1,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	79	SEAICE_OCEANDRAG_COEFFS	& + ( ( vIceLoc(i, j ,bi,bj)-vVel(i, j ,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	80	SEAICE_OCEANDRAG_COEFFS	& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	84	SEAICE_OCEANDRAG_COEFFS	& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	85	SEAICE_OCEANDRAG_COEFFS	& *maskInW( i ,j,bi,bj)
./pkg/seaice/seaice_oceandrag_coeffs.F	86	SEAICE_OCEANDRAG_COEFFS	& +( uIceLoc(i+1,J,bi,bj)-uVel(i+1,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	87	SEAICE_OCEANDRAG_COEFFS	& maskInW(i+1,j,bi,bj) )*2
./pkg/seaice/seaice_oceandrag_coeffs.F	88	SEAICE_OCEANDRAG_COEFFS	& + ( ( vIceLoc(i,j ,bi,bj)-vVel(i,j ,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	89	SEAICE_OCEANDRAG_COEFFS	& *maskInS(i, j ,bi,bj)
./pkg/seaice/seaice_oceandrag_coeffs.F	90	SEAICE_OCEANDRAG_COEFFS	& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F	91	SEAICE_OCEANDRAG_COEFFS	& maskInS(i,j+1,bi,bj) )*2 )
./pkg/seaice/seaice_output.F	185	SEAICE_OUTPUT	DO j=1,sNy
./pkg/seaice/seaice_output.F	188	SEAICE_OUTPUT	FUtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	189	SEAICE_OUTPUT	& FUtave(i,j,bi,bj) +FU(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_output.F	190	SEAICE_OUTPUT	FVtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	191	SEAICE_OUTPUT	& FVtave(i,j,bi,bj) +FV(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_output.F	192	SEAICE_OUTPUT	EmPmRtave(i,j,bi,bj)=
./pkg/seaice/seaice_output.F	193	SEAICE_OUTPUT	& EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_output.F	194	SEAICE_OUTPUT	QNETtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	195	SEAICE_OUTPUT	& QNETtave(i,j,bi,bj) +QNET(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_output.F	196	SEAICE_OUTPUT	QSWtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	197	SEAICE_OUTPUT	& QSWtave(i,j,bi,bj) +QSW(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_output.F	198	SEAICE_OUTPUT	UICEtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	199	SEAICE_OUTPUT	& UICEtave(i,j,bi,bj) +UICE(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F	200	SEAICE_OUTPUT	VICEtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	201	SEAICE_OUTPUT	& VICEtave(i,j,bi,bj) +VICE(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F	202	SEAICE_OUTPUT	HEFFtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	203	SEAICE_OUTPUT	& HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F	204	SEAICE_OUTPUT	AREAtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F	205	SEAICE_OUTPUT	& AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F	210	SEAICE_OUTPUT	DO j=1,sNy
./pkg/seaice/seaice_output.F	212	SEAICE_OUTPUT	HEFFITDtave(i,j,k,bi,bj) =
./pkg/seaice/seaice_output.F	213	SEAICE_OUTPUT	& HEFFITDtave(i,j,k,bi,bj) +HEFFITD(i,j,k,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F	214	SEAICE_OUTPUT	AREAITDtave(i,j,k,bi,bj) =
./pkg/seaice/seaice_output.F	215	SEAICE_OUTPUT	& AREAITDtave(i,j,k,bi,bj) +AREAITD(i,j,k,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F	61	SEAICE_OUTPUT	INTEGER i, j, bi, bj
./pkg/seaice/seaice_preconditioner.F	150	SEAICE_PRECONDITIONER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_preconditioner.F	191	SEAICE_PRECONDITIONER	IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F	198	SEAICE_PRECONDITIONER	IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F	231	SEAICE_PRECONDITIONER	DO j=jMin,jMax
./pkg/seaice/seaice_preconditioner.F	250	SEAICE_PRECONDITIONER	IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F	253	SEAICE_PRECONDITIONER	IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F	282	SEAICE_PRECONDITIONER	DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_preconditioner.F	290	SEAICE_PRECONDITIONER	DO j=jMin,jMax
./pkg/seaice/seaice_preconditioner.F	314	SEAICE_PRECONDITIONER	IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F	318	SEAICE_PRECONDITIONER	IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F	341	SEAICE_PRECONDITIONER	DO j=jMin,jMax
./pkg/seaice/seaice_preconditioner.F	355	SEAICE_PRECONDITIONER	IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F	536	SEAICE_PRECOND_RHSU	& 0.5 _d 0(vIceLoc( i ,j,bi,bj)+vIceLoc( i ,j+1,bi,bj))
./pkg/seaice/seaice_preconditioner.F	538	SEAICE_PRECOND_RHSU	& 0.5 _d 0(vIceLoc(i-1,j,bi,bj)+vIceLoc(i-1,j+1,bi,bj))
./pkg/seaice/seaice_preconditioner.F	612	SEAICE_PRECOND_RHSV	hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj)
./pkg/seaice/seaice_preconditioner.F	658	SEAICE_PRECOND_RHSV	& 0.5 _d 0(uIceLoc(i ,j ,bi,bj)+uIceLoc(i+1, j,bi,bj))
./pkg/seaice/seaice_preconditioner.F	660	SEAICE_PRECOND_RHSV	& 0.5 _d 0(uIceLoc(i ,j-1,bi,bj)+uIceLoc(i+1,j-1,bi,bj))
./pkg/seaice/seaice_preconditioner.F	82	SEAICE_PRECONDITIONER	INTEGER i, j, m, bi, bj
./pkg/seaice/seaice_prepare_ridging.F	102	SEAICE_PREPARE_RIDGING	tmp = HEFFITD(i,j,k,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F	103	SEAICE_PREPARE_RIDGING	& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq )
./pkg/seaice/seaice_prepare_ridging.F	104	SEAICE_PREPARE_RIDGING	hActual(i,j,k) = SQRT(tmp * tmp + hice_reg_sq)
./pkg/seaice/seaice_prepare_ridging.F	113	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	115	SEAICE_PREPARE_RIDGING	gSum(i,j,-1) = 0. _d 0
./pkg/seaice/seaice_prepare_ridging.F	116	SEAICE_PREPARE_RIDGING	gSum(i,j,0) = 0. _d 0
./pkg/seaice/seaice_prepare_ridging.F	117	SEAICE_PREPARE_RIDGING	IF ( opnWtrFrac(i,j,bi,bj) .GT. SEAICE_area_floor )
./pkg/seaice/seaice_prepare_ridging.F	118	SEAICE_PREPARE_RIDGING	& gSum(i,j,0) = opnWtrFrac(i,j,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F	122	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	124	SEAICE_PREPARE_RIDGING	gSum(i,j,k) = gSum(i,j,k-1)
./pkg/seaice/seaice_prepare_ridging.F	125	SEAICE_PREPARE_RIDGING	IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_floor )
./pkg/seaice/seaice_prepare_ridging.F	126	SEAICE_PREPARE_RIDGING	& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F	132	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	134	SEAICE_PREPARE_RIDGING	IF ( gSum(i,j,nITD).NE.0. _d 0 )
./pkg/seaice/seaice_prepare_ridging.F	135	SEAICE_PREPARE_RIDGING	& gSum(i,j,k) = gSum(i,j,k) / gSum(i,j,nITD)
./pkg/seaice/seaice_prepare_ridging.F	151	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	153	SEAICE_PREPARE_RIDGING	partFunc(i,j,k) = 0. _d 0
./pkg/seaice/seaice_prepare_ridging.F	154	SEAICE_PREPARE_RIDGING	IF ( gSum(i,j,k) .LT. SEAICEgStar ) THEN
./pkg/seaice/seaice_prepare_ridging.F	155	SEAICE_PREPARE_RIDGING	partFunc(i,j,k) =
./pkg/seaice/seaice_prepare_ridging.F	156	SEAICE_PREPARE_RIDGING	& (gSum(i,j,k)-gSum(i,j,k-1)) * recip_gStar
./pkg/seaice/seaice_prepare_ridging.F	157	SEAICE_PREPARE_RIDGING	& ( 2. _d 0 - (gSum(i,j,k-1)+gSum(i,j,k))recip_gStar)
./pkg/seaice/seaice_prepare_ridging.F	158	SEAICE_PREPARE_RIDGING	ELSEIF ( gSum(i,j,k-1) .LT. SEAICEgStar
./pkg/seaice/seaice_prepare_ridging.F	159	SEAICE_PREPARE_RIDGING	& .AND. gSum(i,j,k) .GE. SEAICEgStar ) THEN
./pkg/seaice/seaice_prepare_ridging.F	160	SEAICE_PREPARE_RIDGING	partFunc(i,j,k) =
./pkg/seaice/seaice_prepare_ridging.F	161	SEAICE_PREPARE_RIDGING	& (SEAICEgStar-gSum(i,j,k-1)) * recip_gStar
./pkg/seaice/seaice_prepare_ridging.F	162	SEAICE_PREPARE_RIDGING	& ( 2. _d 0 - (gSum(i,j,k-1)+SEAICEgStar)recip_gStar)
./pkg/seaice/seaice_prepare_ridging.F	176	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	178	SEAICE_PREPARE_RIDGING	gSum(i,j,k) = EXP(-gSum(i,j,k)recip_astar) tmp
./pkg/seaice/seaice_prepare_ridging.F	182	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	184	SEAICE_PREPARE_RIDGING	gSum(i,j,k) = EXP(-gSum(i,j,k)recip_astar) tmp
./pkg/seaice/seaice_prepare_ridging.F	185	SEAICE_PREPARE_RIDGING	partFunc(i,j,k) = gSum(i,j,k-1) - gSum(i,j,k)
./pkg/seaice/seaice_prepare_ridging.F	199	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	201	SEAICE_PREPARE_RIDGING	hrMin(i,j,k) = 0. _d 0
./pkg/seaice/seaice_prepare_ridging.F	202	SEAICE_PREPARE_RIDGING	hrMax(i,j,k) = 0. _d 0
./pkg/seaice/seaice_prepare_ridging.F	203	SEAICE_PREPARE_RIDGING	hrExp(i,j,k) = 0. _d 0
./pkg/seaice/seaice_prepare_ridging.F	205	SEAICE_PREPARE_RIDGING	ridgeRatio(i,j,k) = 1. _d 0
./pkg/seaice/seaice_prepare_ridging.F	213	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	215	SEAICE_PREPARE_RIDGING	IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_prepare_ridging.F	217	SEAICE_PREPARE_RIDGING	hrMin(i,j,k) = 2. _d 0 * hActual(i,j,k)
./pkg/seaice/seaice_prepare_ridging.F	218	SEAICE_PREPARE_RIDGING	hrMax(i,j,k) = 2. _d 0 * SQRT(hActual(i,j,k)*SEAICEhStar)
./pkg/seaice/seaice_prepare_ridging.F	221	SEAICE_PREPARE_RIDGING	hrMin(i,j,k) = MIN(hrMin(i,j,k),hActual(i,j,k)+SEAICEmaxRaft)
./pkg/seaice/seaice_prepare_ridging.F	222	SEAICE_PREPARE_RIDGING	hrMax(i,j,k) = MAX(hrMax(i,j,k),hrMin(i,j,k)+SEAICE_hice_reg)
./pkg/seaice/seaice_prepare_ridging.F	224	SEAICE_PREPARE_RIDGING	ridgeRatio(i,j,k) =
./pkg/seaice/seaice_prepare_ridging.F	225	SEAICE_PREPARE_RIDGING	& 0.5 _d 0 * (hrMax(i,j,k)+hrMin(i,j,k))/hActual(i,j,k)
./pkg/seaice/seaice_prepare_ridging.F	234	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	236	SEAICE_PREPARE_RIDGING	IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_prepare_ridging.F	239	SEAICE_PREPARE_RIDGING	tmp = hActual(i,j,k)
./pkg/seaice/seaice_prepare_ridging.F	240	SEAICE_PREPARE_RIDGING	hrMin(i,j,k) = MIN(2.D0 * tmp, tmp+SEAICEmaxRaft)
./pkg/seaice/seaice_prepare_ridging.F	241	SEAICE_PREPARE_RIDGING	hrExp(i,j,k) = SEAICEmuRidging*SQRT(tmp)
./pkg/seaice/seaice_prepare_ridging.F	243	SEAICE_PREPARE_RIDGING	ridgeRatio(i,j,k)=(hrMin(i,j,k)+hrExp(i,j,k))/tmp
./pkg/seaice/seaice_prepare_ridging.F	258	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	260	SEAICE_PREPARE_RIDGING	ridgingModeNorm(i,j) = partFunc(i,j,0)
./pkg/seaice/seaice_prepare_ridging.F	264	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	266	SEAICE_PREPARE_RIDGING	partFunc(i,j,k) = partFunc(i,j,k) * heffM(i,j,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F	267	SEAICE_PREPARE_RIDGING	ridgingModeNorm(i,j) = ridgingModeNorm(i,j)
./pkg/seaice/seaice_prepare_ridging.F	268	SEAICE_PREPARE_RIDGING	& + partFunc(i,j,k)*( 1. _d 0 - 1. _d 0/ridgeRatio(i,j,k) )
./pkg/seaice/seaice_prepare_ridging.F	273	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	275	SEAICE_PREPARE_RIDGING	IF ( ridgingModeNorm(i,j) .LE. 0. _d 0 )
./pkg/seaice/seaice_prepare_ridging.F	276	SEAICE_PREPARE_RIDGING	& ridgingModeNorm(i,j) = 1. _d 0
./pkg/seaice/seaice_prepare_ridging.F	77	SEAICE_PREPARE_RIDGING	INTEGER i, j
./pkg/seaice/seaice_prepare_ridging.F	93	SEAICE_PREPARE_RIDGING	DO j=jMin,jMax
./pkg/seaice/seaice_prepare_ridging.F	95	SEAICE_PREPARE_RIDGING	hActual(i,j,k) = 0. _d 0
./pkg/seaice/seaice_prepare_ridging.F	99	SEAICE_PREPARE_RIDGING	IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_read_pickup.F	305	SEAICE_READ_PICKUP	DO j=1,sNy
./pkg/seaice/seaice_read_pickup.F	307	SEAICE_READ_PICKUP	TICES(i,j,k,bi,bj) = TICES(i,j,1,bi,bj)
./pkg/seaice/seaice_read_pickup.F	57	SEAICE_READ_PICKUP	INTEGER i,j,k,bi,bj
./pkg/seaice/seaice_reg_ridge.F	130	SEAICE_REG_RIDGE	d_AREAbyRLX(i,j,bi,bj) =
./pkg/seaice/seaice_reg_ridge.F	137	SEAICE_REG_RIDGE	d_HEFFbyRLX(i,j,bi,bj) = 1. _d 1 * siEps
./pkg/seaice/seaice_reg_ridge.F	141	SEAICE_REG_RIDGE	& + d_AREAbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F	143	SEAICE_REG_RIDGE	& + d_HEFFbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F	145	SEAICE_REG_RIDGE	AREA(I,J,bi,bj) = AREA(I,J,bi,bj) + d_AREAbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F	146	SEAICE_REG_RIDGE	HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + d_HEFFbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F	251	SEAICE_REG_RIDGE	IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND.
./pkg/seaice/seaice_reg_ridge.F	252	SEAICE_REG_RIDGE	& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0
./pkg/seaice/seaice_reg_ridge.F	282	SEAICE_REG_RIDGE	IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) THEN
./pkg/seaice/seaice_reg_ridge.F	319	SEAICE_REG_RIDGE	tmpscal1itd(i,j) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F	320	SEAICE_REG_RIDGE	tmpscal2itd(i,j) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F	321	SEAICE_REG_RIDGE	tmpscal3itd(i,j) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F	329	SEAICE_REG_RIDGE	tmpscal1itd(i,j)=tmpscal1itd(i,j)
./pkg/seaice/seaice_reg_ridge.F	331	SEAICE_REG_RIDGE	tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F	333	SEAICE_REG_RIDGE	tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F	344	SEAICE_REG_RIDGE	DIAGarrayA(I,J) = tmpscal3itd(i,j)
./pkg/seaice/seaice_reg_ridge.F	347	SEAICE_REG_RIDGE	SItrAREA(I,J,bi,bj,1)=tmpscal3itd(i,j)
./pkg/seaice/seaice_reg_ridge.F	58	SEAICE_REG_RIDGE	INTEGER i, j, bi, bj
./model/src/impldiff.F	111	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	114	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	117	IMPLDIFF	locTr(i,j,k) = 0. _d 0
./model/src/impldiff.F	124	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	127	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	130	IMPLDIFF	a(i,j,1) = 0. _d 0
./model/src/impldiff.F	135	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	138	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	141	IMPLDIFF	a(i,j,k) = -deltaTX(k)recip_hFac(i,j,k)recip_drF(k)
./model/src/impldiff.F	143	IMPLDIFF	& KappaRX(i,j, k )recip_drC( k )
./model/src/impldiff.F	145	IMPLDIFF	IF (recip_hFac(i,j,k-1).EQ.0.) a(i,j,k)=0.
./model/src/impldiff.F	153	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	156	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	159	IMPLDIFF	c(i,j,k) = -deltaTX(k)recip_hFac(i,j,k)recip_drF(k)
./model/src/impldiff.F	161	IMPLDIFF	& KappaRX(i,j,k+1)recip_drC(k+1)
./model/src/impldiff.F	163	IMPLDIFF	IF (recip_hFac(i,j,k+1).EQ.0.) c(i,j,k)=0.
./model/src/impldiff.F	168	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	171	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	174	IMPLDIFF	c(i,j,Nr) = 0. _d 0
./model/src/impldiff.F	181	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	184	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	187	IMPLDIFF	b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./model/src/impldiff.F	195	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	198	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	201	IMPLDIFF	bet(i,j,k) = 1. _d 0
./model/src/impldiff.F	202	IMPLDIFF	gam(i,j,k) = 0. _d 0
./model/src/impldiff.F	213	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	216	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	219	IMPLDIFF	IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./model/src/impldiff.F	232	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	235	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	238	IMPLDIFF	gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1)
./model/src/impldiff.F	239	IMPLDIFF	IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./model/src/impldiff.F	240	IMPLDIFF	& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./model/src/impldiff.F	249	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	252	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	255	IMPLDIFF	locTr(i,j,1) = gTracer(i,j,1)*bet(i,j,1)
./model/src/impldiff.F	260	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	263	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	266	IMPLDIFF	locTr(i,j,k) = bet(i,j,k)*
./model/src/impldiff.F	267	IMPLDIFF	& (gTracer(i,j,k) - a(i,j,k)*locTr(i,j,k-1))
./model/src/impldiff.F	276	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	279	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	282	IMPLDIFF	locTr(i,j,k) = locTr(i,j,k) - gam(i,j,k+1)*locTr(i,j,k+1)
./model/src/impldiff.F	289	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	292	IMPLDIFF	DO j=jMin,jMax
./model/src/impldiff.F	295	IMPLDIFF	gTracer(i,j,k) = locTr(i,j,k)
./model/src/impldiff.F	322	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	324	IMPLDIFF	df(i,j) = 0. _d 0
./model/src/impldiff.F	329	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	332	IMPLDIFF	DO j=1,sNy
./model/src/impldiff.F	335	IMPLDIFF	df(i,j) =
./model/src/impldiff.F	336	IMPLDIFF	& -rA(i,j,bi,bj)deepFac2F(k)rhoFacF(k)
./model/src/impldiff.F	337	IMPLDIFF	& * KappaRX(i,j,k)recip_drC(k)rkSign
./model/src/impldiff.F	338	IMPLDIFF	& * (gTracer(i,j,k) - gTracer(i,j,k-1))
./model/src/impldiff.F	339	IMPLDIFF	& * maskC(i,j,k,bi,bj)
./model/src/impldiff.F	340	IMPLDIFF	& * maskC(i,j,k-1,bi,bj)
./model/src/impldiff.F	345	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	348	IMPLDIFF	DO j=1,sNy
./model/src/impldiff.F	351	IMPLDIFF	df(i,j) =
./model/src/impldiff.F	352	IMPLDIFF	& -rAw(i,j,bi,bj)deepFac2F(k)rhoFacF(k)
./model/src/impldiff.F	353	IMPLDIFF	& * KappaRX(i,j,k)recip_drC(k)rkSign
./model/src/impldiff.F	354	IMPLDIFF	& * (gTracer(i,j,k) - gTracer(i,j,k-1))
./model/src/impldiff.F	355	IMPLDIFF	& * _maskW(i,j,k,bi,bj)
./model/src/impldiff.F	356	IMPLDIFF	& * _maskW(i,j,k-1,bi,bj)
./model/src/impldiff.F	361	IMPLDIFF	DO j=1-OLy,sNy+OLy
./model/src/impldiff.F	364	IMPLDIFF	DO j=1,sNy+1
./model/src/impldiff.F	367	IMPLDIFF	df(i,j) =
./model/src/impldiff.F	368	IMPLDIFF	& -rAs(i,j,bi,bj)deepFac2F(k)rhoFacF(k)
./model/src/impldiff.F	369	IMPLDIFF	& * KappaRX(i,j,k)recip_drC(k)rkSign
./model/src/impldiff.F	370	IMPLDIFF	& * (gTracer(i,j,k) - gTracer(i,j,k-1))
./model/src/impldiff.F	371	IMPLDIFF	& * _maskS(i,j,k,bi,bj)
./model/src/impldiff.F	372	IMPLDIFF	& * _maskS(i,j,k-1,bi,bj)
./model/src/impldiff.F	64	IMPLDIFF	INTEGER i,j,k
./pkg/seaice/seaice_solve4temp.F	92	SEAICE_SOLVE4TEMP	INTEGER i, j
./pkg/seaice/seaice_tracer_phys.F	100	SEAICE_TRACER_PHYS	HEFFprev=SItrHEFF(i,j,bi,bj,jTh)
./pkg/seaice/seaice_tracer_phys.F	101	SEAICE_TRACER_PHYS	HEFFpost=SItrHEFF(i,j,bi,bj,jTh+1)
./pkg/seaice/seaice_tracer_phys.F	108	SEAICE_TRACER_PHYS	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact
./pkg/seaice/seaice_tracer_phys.F	109	SEAICE_TRACER_PHYS	& +SItrFromOcean(i,j)*(1. _d 0 - growFact)
./pkg/seaice/seaice_tracer_phys.F	110	SEAICE_TRACER_PHYS	SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	111	SEAICE_TRACER_PHYS	& -HEFFpostSItrFromOcean(i,j)(1. _d 0 - growFact)
./pkg/seaice/seaice_tracer_phys.F	112	SEAICE_TRACER_PHYS	SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	113	SEAICE_TRACER_PHYS	& +meltPart*SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	117	SEAICE_TRACER_PHYS	HEFFprev=SItrHEFF(i,j,bi,bj,4)
./pkg/seaice/seaice_tracer_phys.F	118	SEAICE_TRACER_PHYS	HEFFpost=SItrHEFF(i,j,bi,bj,5)
./pkg/seaice/seaice_tracer_phys.F	120	SEAICE_TRACER_PHYS	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact
./pkg/seaice/seaice_tracer_phys.F	121	SEAICE_TRACER_PHYS	& +SItrFromFlood(i,j) *(1. _d 0 - growFact)
./pkg/seaice/seaice_tracer_phys.F	124	SEAICE_TRACER_PHYS	SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	125	SEAICE_TRACER_PHYS	& -HEFFpostSItrFromFlood(i,j)(1. _d 0 - growFact)
./pkg/seaice/seaice_tracer_phys.F	127	SEAICE_TRACER_PHYS	DIAGarray(I,J,5+(iTr-1)5) = HEFFpostSItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	128	SEAICE_TRACER_PHYS	& +SItrBucket(i,j,bi,bj,iTr)-DIAGarray(I,J,5+(iTr-1)*5)
./pkg/seaice/seaice_tracer_phys.F	144	SEAICE_TRACER_PHYS	AREAprev=SItrAREA(i,j,bi,bj,2)
./pkg/seaice/seaice_tracer_phys.F	145	SEAICE_TRACER_PHYS	AREApost=SItrAREA(i,j,bi,bj,3)
./pkg/seaice/seaice_tracer_phys.F	150	SEAICE_TRACER_PHYS	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*expandFact
./pkg/seaice/seaice_tracer_phys.F	151	SEAICE_TRACER_PHYS	& +SItrExpand(i,j)*(1. _d 0 - expandFact)
./pkg/seaice/seaice_tracer_phys.F	161	SEAICE_TRACER_PHYS	if (( (SItrHEFF(i,j,bi,bj,5).GT.0. _d 0).AND.(SItrMate(iTr)
./pkg/seaice/seaice_tracer_phys.F	162	SEAICE_TRACER_PHYS	& .EQ.'HEFF') ).OR.( (SItrAREA(i,j,bi,bj,3).GT.0. _d 0).AND.
./pkg/seaice/seaice_tracer_phys.F	164	SEAICE_TRACER_PHYS	SItracer(i,j,bi,bj,iTr)=
./pkg/seaice/seaice_tracer_phys.F	165	SEAICE_TRACER_PHYS	& SItracer(i,j,bi,bj,iTr)+SEAICE_deltaTtherm
./pkg/seaice/seaice_tracer_phys.F	167	SEAICE_TRACER_PHYS	SItracer(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_tracer_phys.F	180	SEAICE_TRACER_PHYS	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)+
./pkg/seaice/seaice_tracer_phys.F	181	SEAICE_TRACER_PHYS	& MAX(0. _d 0, SItrAREA(i,j,bi,bj,1)-SItrAREA(i,j,bi,bj,2))
./pkg/seaice/seaice_tracer_phys.F	183	SEAICE_TRACER_PHYS	HEFFprev=SItrHEFF(i,j,bi,bj,1)
./pkg/seaice/seaice_tracer_phys.F	184	SEAICE_TRACER_PHYS	HEFFpost=SItrHEFF(i,j,bi,bj,4)
./pkg/seaice/seaice_tracer_phys.F	187	SEAICE_TRACER_PHYS	SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1
./pkg/seaice/seaice_tracer_phys.F	207	SEAICE_TRACER_PHYS	saltFlux(I,J,bi,bj) = - SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	213	SEAICE_TRACER_PHYS	& SPsalFRAC(salt(I,j,ks,bi,bj)-SItrFromOcean(i,j))
./pkg/seaice/seaice_tracer_phys.F	222	SEAICE_TRACER_PHYS	DIAGarray(I,J,4+(iTr-1)*5) = - SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	228	SEAICE_TRACER_PHYS	& SItrBucket(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_tracer_phys.F	240	SEAICE_TRACER_PHYS	HEFFpost=SItrHEFF(i,j,bi,bj,5)
./pkg/seaice/seaice_tracer_phys.F	241	SEAICE_TRACER_PHYS	DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	242	SEAICE_TRACER_PHYS	DIAGarray(I,J,2+(iTr-1)5) = SItracer(i,j,bi,bj,iTr)HEFFpost
./pkg/seaice/seaice_tracer_phys.F	245	SEAICE_TRACER_PHYS	DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F	256	SEAICE_TRACER_PHYS	AREApost=SItrAREA(i,j,bi,bj,3)
./pkg/seaice/seaice_tracer_phys.F	257	SEAICE_TRACER_PHYS	DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F	258	SEAICE_TRACER_PHYS	DIAGarray(I,J,2+(iTr-1)5) = SItracer(i,j,bi,bj,iTr)AREApost
./pkg/seaice/seaice_tracer_phys.F	68	SEAICE_TRACER_PHYS	SItrFromOcean(i,j)=SItrFromOcean0(iTr)
./pkg/seaice/seaice_tracer_phys.F	69	SEAICE_TRACER_PHYS	SItrFromFlood(i,j)=SItrFromFlood0(iTr)
./pkg/seaice/seaice_tracer_phys.F	70	SEAICE_TRACER_PHYS	SItrExpand(i,j)=SItrExpand0(iTr)
./pkg/seaice/seaice_tracer_phys.F	78	SEAICE_TRACER_PHYS	SItrFromOcean(i,j)=SItrFromOceanFrac(iTr)*salt(I,j,ks,bi,bj)
./pkg/seaice/seaice_tracer_phys.F	79	SEAICE_TRACER_PHYS	SItrFromFlood(i,j)=SItrFromFloodFrac(iTr)*salt(I,j,ks,bi,bj)
./pkg/seaice/seaice_tracer_phys.F	88	SEAICE_TRACER_PHYS	HEFFprev=SItrHEFF(i,j,bi,bj,1)
./pkg/seaice/seaice_tracer_phys.F	91	SEAICE_TRACER_PHYS	& HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_write_pickup.F	102	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	106	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siTICES '
./pkg/seaice/seaice_write_pickup.F	113	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siTICE '
./pkg/seaice/seaice_write_pickup.F	117	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	120	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siAREA '
./pkg/seaice/seaice_write_pickup.F	121	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	124	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siHEFF '
./pkg/seaice/seaice_write_pickup.F	125	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	128	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siHSNOW '
./pkg/seaice/seaice_write_pickup.F	133	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	136	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siHSALT '
./pkg/seaice/seaice_write_pickup.F	141	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	146	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = fldName
./pkg/seaice/seaice_write_pickup.F	152	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	155	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siUICE '
./pkg/seaice/seaice_write_pickup.F	157	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	160	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siVICE '
./pkg/seaice/seaice_write_pickup.F	163	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	166	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siUicNm1'
./pkg/seaice/seaice_write_pickup.F	168	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	171	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siVicNm1'
./pkg/seaice/seaice_write_pickup.F	175	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	179	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siSigm1 '
./pkg/seaice/seaice_write_pickup.F	181	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	185	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siSigm2 '
./pkg/seaice/seaice_write_pickup.F	187	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	191	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siSigm12'
./pkg/seaice/seaice_write_pickup.F	195	SEAICE_WRITE_PICKUP	nWrFlds = j
./pkg/seaice/seaice_write_pickup.F	62	SEAICE_WRITE_PICKUP	INTEGER j, nj
./pkg/seaice/seaice_write_pickup.F	76	SEAICE_WRITE_PICKUP	j = 0
./pkg/seaice/seaice_write_pickup.F	85	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	86	SEAICE_WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn,fp, nITD, TICES, -j, myIter,myThid )
./pkg/seaice/seaice_write_pickup.F	87	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siTICES '
./pkg/seaice/seaice_write_pickup.F	88	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	89	SEAICE_WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn,fp, nITD, AREAITD, -j, myIter,myThid )
./pkg/seaice/seaice_write_pickup.F	90	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siAREAn '
./pkg/seaice/seaice_write_pickup.F	91	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	92	SEAICE_WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn,fp, nITD, HEFFITD, -j, myIter,myThid )
./pkg/seaice/seaice_write_pickup.F	93	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siHEFFn '
./pkg/seaice/seaice_write_pickup.F	94	SEAICE_WRITE_PICKUP	j = j + 1
./pkg/seaice/seaice_write_pickup.F	95	SEAICE_WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn,fp, nITD, HSNOWITD,-j, myIter,myThid )
./pkg/seaice/seaice_write_pickup.F	96	SEAICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'siHSNOWn'
./pkg/seaice/seaice_write_pickup.F	98	SEAICE_WRITE_PICKUP	nj = -j*nITD
./pkg/shap_filt/shap_filt_apply_uv.F	145	SHAP_FILT_APPLY_UV	DO j=1,sNy
./pkg/shap_filt/shap_filt_apply_uv.F	147	SHAP_FILT_APPLY_UV	dKE_shap(i,j) = 0.5 _d 0 *(
./pkg/shap_filt/shap_filt_apply_uv.F	149	SHAP_FILT_APPLY_UV	& Shap_tmpFld1(i ,j,k,bi,bj)*uFld(i ,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	150	SHAP_FILT_APPLY_UV	& _hFacW(i ,j, k,bi,bj)rAw(i ,j, bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	151	SHAP_FILT_APPLY_UV	& +Shap_tmpFld1(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	152	SHAP_FILT_APPLY_UV	& _hFacW(i+1,j,k,bi,bj)rAw(i+1,j,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	155	SHAP_FILT_APPLY_UV	& Shap_tmpFld2(i,j ,k,bi,bj)*vFld(i,j ,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	156	SHAP_FILT_APPLY_UV	& _hFacS(i,j ,k,bi,bj)rAs(i,j ,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	157	SHAP_FILT_APPLY_UV	& +Shap_tmpFld2(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	158	SHAP_FILT_APPLY_UV	& _hFacS(i,j+1,k,bi,bj)rAs(i,j+1,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	164	SHAP_FILT_APPLY_UV	DO j=1,sNy
./pkg/shap_filt/shap_filt_apply_uv.F	166	SHAP_FILT_APPLY_UV	frictionHeating(i,j,k,bi,bj) =
./pkg/shap_filt/shap_filt_apply_uv.F	167	SHAP_FILT_APPLY_UV	& frictionHeating(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	168	SHAP_FILT_APPLY_UV	& - dKE_shap(i,j)drF(k)rUnit2mass
./pkg/shap_filt/shap_filt_apply_uv.F	175	SHAP_FILT_APPLY_UV	DO j=1,sNy
./pkg/shap_filt/shap_filt_apply_uv.F	177	SHAP_FILT_APPLY_UV	dKE_shap(i,j) = dKE_shap(i,j) * recip_rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F	67	SHAP_FILT_APPLY_UV	INTEGER bi, bj, k, i, j
./pkg/shap_filt/shap_filt_computvort.F	104	SHAP_FILT_COMPUTVORT	j=1
./pkg/shap_filt/shap_filt_computvort.F	105	SHAP_FILT_COMPUTVORT	maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	106	SHAP_FILT_COMPUTVORT	& +maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	108	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	109	SHAP_FILT_COMPUTVORT	& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F	110	SHAP_FILT_COMPUTVORT	vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F	112	SHAP_FILT_COMPUTVORT	vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F	118	SHAP_FILT_COMPUTVORT	j=1
./pkg/shap_filt/shap_filt_computvort.F	119	SHAP_FILT_COMPUTVORT	maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	120	SHAP_FILT_COMPUTVORT	& +maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	123	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	124	SHAP_FILT_COMPUTVORT	& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F	126	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	127	SHAP_FILT_COMPUTVORT	& (-vFld(i-1,j) +uFld(i,j-1) ) -uFld(i,j)
./pkg/shap_filt/shap_filt_computvort.F	129	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	130	SHAP_FILT_COMPUTVORT	& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j)
./pkg/shap_filt/shap_filt_computvort.F	132	SHAP_FILT_COMPUTVORT	vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F	134	SHAP_FILT_COMPUTVORT	vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F	140	SHAP_FILT_COMPUTVORT	j=sNy+1
./pkg/shap_filt/shap_filt_computvort.F	141	SHAP_FILT_COMPUTVORT	maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	142	SHAP_FILT_COMPUTVORT	& +maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	145	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	146	SHAP_FILT_COMPUTVORT	& (+uFld(i,j-1) +vFld(i,j) ) -uFld(i,j)
./pkg/shap_filt/shap_filt_computvort.F	148	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	149	SHAP_FILT_COMPUTVORT	& (-uFld(i,j) +uFld(i,j-1) ) +vFld(i,j)
./pkg/shap_filt/shap_filt_computvort.F	151	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	152	SHAP_FILT_COMPUTVORT	& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F	154	SHAP_FILT_COMPUTVORT	vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F	156	SHAP_FILT_COMPUTVORT	vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F	162	SHAP_FILT_COMPUTVORT	j=sNy+1
./pkg/shap_filt/shap_filt_computvort.F	163	SHAP_FILT_COMPUTVORT	maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	164	SHAP_FILT_COMPUTVORT	& +maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F	167	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	168	SHAP_FILT_COMPUTVORT	& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F	170	SHAP_FILT_COMPUTVORT	vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F	171	SHAP_FILT_COMPUTVORT	& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j)
./pkg/shap_filt/shap_filt_computvort.F	173	SHAP_FILT_COMPUTVORT	vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F	175	SHAP_FILT_COMPUTVORT	vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F	51	SHAP_FILT_COMPUTVORT	INTEGER i,j
./pkg/shap_filt/shap_filt_computvort.F	63	SHAP_FILT_COMPUTVORT	DO j=1-OLy,sNy+OLy
./pkg/shap_filt/shap_filt_computvort.F	65	SHAP_FILT_COMPUTVORT	vort(i,j)= 0.
./pkg/shap_filt/shap_filt_computvort.F	71	SHAP_FILT_COMPUTVORT	DO j=2-OLy,sNy+OLy
./pkg/shap_filt/shap_filt_computvort.F	73	SHAP_FILT_COMPUTVORT	vort(i,j) = ( vFld(i,j)-vFld(i-1,j) )
./pkg/shap_filt/shap_filt_computvort.F	74	SHAP_FILT_COMPUTVORT	& - ( uFld(i,j)-uFld(i,j-1) )
./pkg/shap_filt/shap_filt_computvort.F	75	SHAP_FILT_COMPUTVORT	maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj))
./pkg/shap_filt/shap_filt_computvort.F	76	SHAP_FILT_COMPUTVORT	& *(maskS(i,j,k,bi,bj)+maskS(i-1,j,k,bi,bj))
./pkg/shap_filt/shap_filt_computvort.F	77	SHAP_FILT_COMPUTVORT	IF (maskZ.LT.1.) vort(i,j)=0.
./model/src/ini_cartesian_grid.F	100	INI_CARTESIAN_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cartesian_grid.F	102	INI_CARTESIAN_GRID	dxG(i,j,bi,bj) = delXloc(i)
./model/src/ini_cartesian_grid.F	103	INI_CARTESIAN_GRID	dyG(i,j,bi,bj) = delYloc(j)
./model/src/ini_cartesian_grid.F	112	INI_CARTESIAN_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cartesian_grid.F	114	INI_CARTESIAN_GRID	dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_cartesian_grid.F	119	INI_CARTESIAN_GRID	DO j=1-OLy+1,sNy+OLy ! NOTE range
./model/src/ini_cartesian_grid.F	121	INI_CARTESIAN_GRID	dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_cartesian_grid.F	126	INI_CARTESIAN_GRID	DO j=1-OLy+1,sNy+OLy ! NOTE range
./model/src/ini_cartesian_grid.F	129	INI_CARTESIAN_GRID	dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_cartesian_grid.F	130	INI_CARTESIAN_GRID	dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_cartesian_grid.F	138	INI_CARTESIAN_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cartesian_grid.F	140	INI_CARTESIAN_GRID	rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj)
./model/src/ini_cartesian_grid.F	141	INI_CARTESIAN_GRID	rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj)
./model/src/ini_cartesian_grid.F	142	INI_CARTESIAN_GRID	rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj)
./model/src/ini_cartesian_grid.F	143	INI_CARTESIAN_GRID	rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj)
./model/src/ini_cartesian_grid.F	49	INI_CARTESIAN_GRID	INTEGER i, j
./model/src/ini_cartesian_grid.F	73	INI_CARTESIAN_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cartesian_grid.F	75	INI_CARTESIAN_GRID	xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_cartesian_grid.F	76	INI_CARTESIAN_GRID	yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_cartesian_grid.F	81	INI_CARTESIAN_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cartesian_grid.F	84	INI_CARTESIAN_GRID	xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F	85	INI_CARTESIAN_GRID	& xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) )
./model/src/ini_cartesian_grid.F	86	INI_CARTESIAN_GRID	yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F	87	INI_CARTESIAN_GRID	& yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) )
./model/src/ini_cartesian_grid.F	92	INI_CARTESIAN_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cartesian_grid.F	94	INI_CARTESIAN_GRID	dxF(i,j,bi,bj) = delXloc(i)
./model/src/ini_cartesian_grid.F	95	INI_CARTESIAN_GRID	dyF(i,j,bi,bj) = delYloc(j)
./pkg/shap_filt/shap_filt_relvort3.F	40	SHAP_FILT_RELVORT3	INTEGER i,j
./pkg/shap_filt/shap_filt_tracer_s1.F	111	SHAP_FILT_TRACER_S1	tmpScal=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F	112	SHAP_FILT_TRACER_S1	field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F	113	SHAP_FILT_TRACER_S1	& -0.5tmpFld(i,j,k,bi,bj)dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s1.F	114	SHAP_FILT_TRACER_S1	tmpFld(i,j,k,bi,bj)=tmpScal
./pkg/shap_filt/shap_filt_tracer_s1.F	138	SHAP_FILT_TRACER_S1	tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s1.F	139	SHAP_FILT_TRACER_S1	& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F	140	SHAP_FILT_TRACER_S1	& *_maskS(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F	141	SHAP_FILT_TRACER_S1	& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F	142	SHAP_FILT_TRACER_S1	& *_maskS(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F	148	SHAP_FILT_TRACER_S1	tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s1.F	164	SHAP_FILT_TRACER_S1	field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F	165	SHAP_FILT_TRACER_S1	& -0.5tmpFld(i,j,k,bi,bj)dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s1.F	61	SHAP_FILT_TRACER_S1	tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F	85	SHAP_FILT_TRACER_S1	tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s1.F	86	SHAP_FILT_TRACER_S1	& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F	87	SHAP_FILT_TRACER_S1	& *_maskW(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F	88	SHAP_FILT_TRACER_S1	& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F	89	SHAP_FILT_TRACER_S1	& *_maskW(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F	95	SHAP_FILT_TRACER_S1	tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F	123	SHAP_FILT_TRACER_S2	DO j=0,sNy+1
./pkg/shap_filt/shap_filt_tracer_s2.F	125	SHAP_FILT_TRACER_S2	tmpFdx(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F	126	SHAP_FILT_TRACER_S2	& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F	127	SHAP_FILT_TRACER_S2	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	132	SHAP_FILT_TRACER_S2	DO j=0,sNy+1
./pkg/shap_filt/shap_filt_tracer_s2.F	134	SHAP_FILT_TRACER_S2	tmpFdx(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F	135	SHAP_FILT_TRACER_S2	& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F	136	SHAP_FILT_TRACER_S2	& *_hFacW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	137	SHAP_FILT_TRACER_S2	& dyG(i,j,bi,bj)recip_dxC(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	154	SHAP_FILT_TRACER_S2	DO j=0,sNy+2
./pkg/shap_filt/shap_filt_tracer_s2.F	156	SHAP_FILT_TRACER_S2	tmpFdy(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F	157	SHAP_FILT_TRACER_S2	& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F	158	SHAP_FILT_TRACER_S2	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	163	SHAP_FILT_TRACER_S2	DO j=0,sNy+2
./pkg/shap_filt/shap_filt_tracer_s2.F	165	SHAP_FILT_TRACER_S2	tmpFdy(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F	166	SHAP_FILT_TRACER_S2	& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F	167	SHAP_FILT_TRACER_S2	& *_hFacS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	168	SHAP_FILT_TRACER_S2	& dxG(i,j,bi,bj)recip_dyC(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	174	SHAP_FILT_TRACER_S2	DO j=0,sNy+1
./pkg/shap_filt/shap_filt_tracer_s2.F	176	SHAP_FILT_TRACER_S2	tmpGrd(i,j) = ( tmpFdx(i+1,j) - tmpFdx(i,j) )
./pkg/shap_filt/shap_filt_tracer_s2.F	177	SHAP_FILT_TRACER_S2	& + ( tmpFdy(i,j+1) - tmpFdy(i,j) )
./pkg/shap_filt/shap_filt_tracer_s2.F	183	SHAP_FILT_TRACER_S2	DO j=0,sNy+1
./pkg/shap_filt/shap_filt_tracer_s2.F	185	SHAP_FILT_TRACER_S2	tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F	190	SHAP_FILT_TRACER_S2	DO j=0,sNy+1
./pkg/shap_filt/shap_filt_tracer_s2.F	192	SHAP_FILT_TRACER_S2	tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F	193	SHAP_FILT_TRACER_S2	& *recip_hFacC(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	197	SHAP_FILT_TRACER_S2	DO j=0,sNy+1
./pkg/shap_filt/shap_filt_tracer_s2.F	199	SHAP_FILT_TRACER_S2	tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F	200	SHAP_FILT_TRACER_S2	& recip_hFacC(i,j,k,bi,bj)recip_rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	218	SHAP_FILT_TRACER_S2	DO j=1,sNy
./pkg/shap_filt/shap_filt_tracer_s2.F	220	SHAP_FILT_TRACER_S2	field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F	221	SHAP_FILT_TRACER_S2	& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s2.F	222	SHAP_FILT_TRACER_S2	tmpFld(i,j,k,bi,bj)= -tmpFld(i,j,k,bi,bj)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s2.F	61	SHAP_FILT_TRACER_S2	INTEGER bi,bj,k,i,j,n
./pkg/shap_filt/shap_filt_tracer_s2.F	81	SHAP_FILT_TRACER_S2	DO j=1-OLy,sNy+OLy
./pkg/shap_filt/shap_filt_tracer_s2.F	83	SHAP_FILT_TRACER_S2	tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F	110	SHAP_FILT_TRACER_S4	field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F	111	SHAP_FILT_TRACER_S4	& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s4.F	112	SHAP_FILT_TRACER_S4	tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F	136	SHAP_FILT_TRACER_S4	tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s4.F	137	SHAP_FILT_TRACER_S4	& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F	138	SHAP_FILT_TRACER_S4	& *_maskS(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F	139	SHAP_FILT_TRACER_S4	& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F	140	SHAP_FILT_TRACER_S4	& *_maskS(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F	146	SHAP_FILT_TRACER_S4	tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s4.F	162	SHAP_FILT_TRACER_S4	field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F	163	SHAP_FILT_TRACER_S4	& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s4.F	60	SHAP_FILT_TRACER_S4	tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F	84	SHAP_FILT_TRACER_S4	tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s4.F	85	SHAP_FILT_TRACER_S4	& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F	86	SHAP_FILT_TRACER_S4	& *_maskW(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F	87	SHAP_FILT_TRACER_S4	& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F	88	SHAP_FILT_TRACER_S4	& *_maskW(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F	94	SHAP_FILT_TRACER_S4	tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracerold.F	38	SHAP_FILT_TRACEROLD	tmpFldX(i,j,1) = field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F	48	SHAP_FILT_TRACEROLD	tmpFldX(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_tracerold.F	49	SHAP_FILT_TRACEROLD	& ( tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1) )
./pkg/shap_filt/shap_filt_tracerold.F	50	SHAP_FILT_TRACEROLD	& *_maskW(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F	51	SHAP_FILT_TRACEROLD	& -( tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1) )
./pkg/shap_filt/shap_filt_tracerold.F	52	SHAP_FILT_TRACEROLD	& *_maskW(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracerold.F	60	SHAP_FILT_TRACEROLD	tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_tracerold.F	61	SHAP_FILT_TRACEROLD	tmpFldY(i,j,1) = tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_tracerold.F	67	SHAP_FILT_TRACEROLD	tmpFldY(i,j,1) = field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F	78	SHAP_FILT_TRACEROLD	tmpFldY(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_tracerold.F	79	SHAP_FILT_TRACEROLD	& ( tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1) )
./pkg/shap_filt/shap_filt_tracerold.F	80	SHAP_FILT_TRACEROLD	& *_maskS(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F	81	SHAP_FILT_TRACEROLD	& -( tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1) )
./pkg/shap_filt/shap_filt_tracerold.F	82	SHAP_FILT_TRACEROLD	& *_maskS(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracerold.F	91	SHAP_FILT_TRACEROLD	field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2)
./pkg/shap_filt/shap_filt_tracerold.F	97	SHAP_FILT_TRACEROLD	field(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F	98	SHAP_FILT_TRACEROLD	& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) )
./pkg/shap_filt/shap_filt_u.F	101	SHAP_FILT_U	uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2)
./pkg/shap_filt/shap_filt_u.F	107	SHAP_FILT_U	uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	108	SHAP_FILT_U	& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) )
./pkg/shap_filt/shap_filt_u.F	37	SHAP_FILT_U	tmpFldX(i,j,1) = uVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	38	SHAP_FILT_U	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	48	SHAP_FILT_U	tmpFldX(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_u.F	49	SHAP_FILT_U	& tmpFldX(i-1,j,N1) + tmpFldX(i+1,j,N1)
./pkg/shap_filt/shap_filt_u.F	50	SHAP_FILT_U	& - 2.*tmpFldX(i,j,N1)
./pkg/shap_filt/shap_filt_u.F	51	SHAP_FILT_U	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	59	SHAP_FILT_U	maskZ(i,j) = _maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	60	SHAP_FILT_U	& *_maskS( i ,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	67	SHAP_FILT_U	tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_u.F	68	SHAP_FILT_U	tmpFldY(i,j,1) = tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_u.F	74	SHAP_FILT_U	tmpFldY(i,j,1) = uVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	75	SHAP_FILT_U	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F	86	SHAP_FILT_U	tmpFldY(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_u.F	87	SHAP_FILT_U	& (tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1))*maskZ(i,j+1)
./pkg/shap_filt/shap_filt_u.F	88	SHAP_FILT_U	& -(tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1))*maskZ(i, j )
./pkg/shap_filt/shap_filt_u.F	90	SHAP_FILT_U	& -2.(2.-maskZ(i,j)-maskZ(i,j+1))tmpFldY(i,j,N1)
./pkg/shap_filt/shap_filt_u.F	92	SHAP_FILT_U	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	100	SHAP_FILT_UV_S1	& - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	101	SHAP_FILT_UV_S1	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	107	SHAP_FILT_UV_S1	tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F	114	SHAP_FILT_UV_S1	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	115	SHAP_FILT_UV_S1	& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	116	SHAP_FILT_UV_S1	& - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	117	SHAP_FILT_UV_S1	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	123	SHAP_FILT_UV_S1	tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F	139	SHAP_FILT_UV_S1	tmpScal = uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	140	SHAP_FILT_UV_S1	uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	141	SHAP_FILT_UV_S1	& -0.5tmpFldU(i,j,k,bi,bj)deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F	142	SHAP_FILT_UV_S1	tmpFldU(i,j,k,bi,bj) = tmpScal*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	147	SHAP_FILT_UV_S1	tmpScal = vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	148	SHAP_FILT_UV_S1	vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	149	SHAP_FILT_UV_S1	& -0.5tmpFldV(i,j,k,bi,bj)deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F	150	SHAP_FILT_UV_S1	tmpFldV(i,j,k,bi,bj) = tmpScal*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	175	SHAP_FILT_UV_S1	maskZj=_maskS(i-1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	176	SHAP_FILT_UV_S1	& *_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	177	SHAP_FILT_UV_S1	maskZp=_maskS(i-1,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	178	SHAP_FILT_UV_S1	& *_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	179	SHAP_FILT_UV_S1	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	180	SHAP_FILT_UV_S1	& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F	181	SHAP_FILT_UV_S1	& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F	182	SHAP_FILT_UV_S1	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	183	SHAP_FILT_UV_S1	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	190	SHAP_FILT_UV_S1	maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	191	SHAP_FILT_UV_S1	maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	192	SHAP_FILT_UV_S1	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	193	SHAP_FILT_UV_S1	& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F	194	SHAP_FILT_UV_S1	& -(tmpFldU(i, j ,k,bi,bj)-0tmpFldU(i,j-1,k,bi,bj))maskZj
./pkg/shap_filt/shap_filt_uv_s1.F	195	SHAP_FILT_UV_S1	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	196	SHAP_FILT_UV_S1	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	198	SHAP_FILT_UV_S1	maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	199	SHAP_FILT_UV_S1	maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	200	SHAP_FILT_UV_S1	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	201	SHAP_FILT_UV_S1	& (0tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))maskZp
./pkg/shap_filt/shap_filt_uv_s1.F	202	SHAP_FILT_UV_S1	& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F	203	SHAP_FILT_UV_S1	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	204	SHAP_FILT_UV_S1	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	210	SHAP_FILT_UV_S1	tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F	217	SHAP_FILT_UV_S1	maskZj=_maskW( i ,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	218	SHAP_FILT_UV_S1	& *_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	219	SHAP_FILT_UV_S1	maskZp=_maskW(i+1,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	220	SHAP_FILT_UV_S1	& *_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	221	SHAP_FILT_UV_S1	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	222	SHAP_FILT_UV_S1	& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F	223	SHAP_FILT_UV_S1	& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F	224	SHAP_FILT_UV_S1	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	225	SHAP_FILT_UV_S1	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	232	SHAP_FILT_UV_S1	maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	233	SHAP_FILT_UV_S1	maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	234	SHAP_FILT_UV_S1	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	235	SHAP_FILT_UV_S1	& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F	236	SHAP_FILT_UV_S1	& -(tmpFldV( i ,j,k,bi,bj)-0tmpFldV(i-1,j,k,bi,bj))maskZj
./pkg/shap_filt/shap_filt_uv_s1.F	237	SHAP_FILT_UV_S1	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	238	SHAP_FILT_UV_S1	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	240	SHAP_FILT_UV_S1	maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	241	SHAP_FILT_UV_S1	maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	242	SHAP_FILT_UV_S1	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	243	SHAP_FILT_UV_S1	& (0tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))maskZp
./pkg/shap_filt/shap_filt_uv_s1.F	244	SHAP_FILT_UV_S1	& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F	245	SHAP_FILT_UV_S1	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	246	SHAP_FILT_UV_S1	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	252	SHAP_FILT_UV_S1	tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F	268	SHAP_FILT_UV_S1	uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	269	SHAP_FILT_UV_S1	& -0.5tmpFldU(i,j,k,bi,bj)deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F	274	SHAP_FILT_UV_S1	vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	275	SHAP_FILT_UV_S1	& -0.5tmpFldV(i,j,k,bi,bj)deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F	53	SHAP_FILT_UV_S1	INTEGER bi,bj,k,i,j,N
./pkg/shap_filt/shap_filt_uv_s1.F	70	SHAP_FILT_UV_S1	tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	71	SHAP_FILT_UV_S1	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	72	SHAP_FILT_UV_S1	tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	73	SHAP_FILT_UV_S1	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F	98	SHAP_FILT_UV_S1	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F	99	SHAP_FILT_UV_S1	& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./model/src/ini_cg2d.F	100	INI_CG2D	DO j=1,sNy
./model/src/ini_cg2d.F	103	INI_CG2D	faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg2d.F	104	INI_CG2D	& *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg2d.F	105	INI_CG2D	aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)
./model/src/ini_cg2d.F	107	INI_CG2D	& faceArearecip_dxC(i,j,bi,bj)
./model/src/ini_cg2d.F	108	INI_CG2D	faceArea = _dxG(i,j,bi,bj)*drF(k)
./model/src/ini_cg2d.F	109	INI_CG2D	& *_hFacS(i,j,k,bi,bj)
./model/src/ini_cg2d.F	110	INI_CG2D	aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)
./model/src/ini_cg2d.F	112	INI_CG2D	& faceArearecip_dyC(i,j,bi,bj)
./model/src/ini_cg2d.F	116	INI_CG2D	DO j=1,sNy
./model/src/ini_cg2d.F	119	INI_CG2D	aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)
./model/src/ini_cg2d.F	120	INI_CG2D	& maskInC(i,j,bi,bj)maskInC(i-1,j,bi,bj)
./model/src/ini_cg2d.F	121	INI_CG2D	aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)
./model/src/ini_cg2d.F	122	INI_CG2D	& maskInC(i,j,bi,bj)maskInC(i,j-1,bi,bj)
./model/src/ini_cg2d.F	124	INI_CG2D	myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F	125	INI_CG2D	myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F	138	INI_CG2D	DO j=1,sNy
./model/src/ini_cg2d.F	140	INI_CG2D	aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F	141	INI_CG2D	aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F	205	INI_CG2D	DO j=0,sNy+1
./model/src/ini_cg2d.F	207	INI_CG2D	ks = ksurfC(i,j,bi,bj)
./model/src/ini_cg2d.F	208	INI_CG2D	aC2d(i,j,bi,bj) = -(
./model/src/ini_cg2d.F	209	INI_CG2D	& aW2d(i,j,bi,bj) + aW2d(i+1,j, bi,bj)
./model/src/ini_cg2d.F	210	INI_CG2D	& +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj)
./model/src/ini_cg2d.F	211	INI_CG2D	& +freeSurfFacmyNormrecip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/ini_cg2d.F	212	INI_CG2D	& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/ini_cg2d.F	216	INI_CG2D	DO j=1,sNy
./model/src/ini_cg2d.F	218	INI_CG2D	aC = aC2d( i, j, bi,bj)
./model/src/ini_cg2d.F	219	INI_CG2D	aCs = aC2d( i,j-1,bi,bj)
./model/src/ini_cg2d.F	220	INI_CG2D	aCw = aC2d(i-1,j, bi,bj)
./model/src/ini_cg2d.F	222	INI_CG2D	pC(i,j,bi,bj) = 1. _d 0
./model/src/ini_cg2d.F	224	INI_CG2D	pC(i,j,bi,bj) = 1. _d 0 / aC
./model/src/ini_cg2d.F	227	INI_CG2D	pW(i,j,bi,bj) = 0.
./model/src/ini_cg2d.F	229	INI_CG2D	pW(i,j,bi,bj) =
./model/src/ini_cg2d.F	230	INI_CG2D	& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac (aCw+aC))*2 )
./model/src/ini_cg2d.F	233	INI_CG2D	pS(i,j,bi,bj) = 0.
./model/src/ini_cg2d.F	235	INI_CG2D	pS(i,j,bi,bj) =
./model/src/ini_cg2d.F	236	INI_CG2D	& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac (aCs+aC))*2 )
./model/src/ini_cg2d.F	45	INI_CG2D	INTEGER i, j, k, ks
./model/src/ini_cg2d.F	55	INI_CG2D	DO j=1-OLy,sNy+OLy
./model/src/ini_cg2d.F	57	INI_CG2D	aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	58	INI_CG2D	aS2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	59	INI_CG2D	aC2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	60	INI_CG2D	pW(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	61	INI_CG2D	pS(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	62	INI_CG2D	pC(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	65	INI_CG2D	DO j=1-1,sNy+1
./model/src/ini_cg2d.F	67	INI_CG2D	cg2d_q(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	68	INI_CG2D	cg2d_r(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	69	INI_CG2D	cg2d_s(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	71	INI_CG2D	cg2d_z(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	74	INI_CG2D	cg2d_y(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	75	INI_CG2D	cg2d_v(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	93	INI_CG2D	DO j=1,sNy
./model/src/ini_cg2d.F	95	INI_CG2D	aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F	96	INI_CG2D	aS2d(i,j,bi,bj) = 0. _d 0
./pkg/shap_filt/shap_filt_uv_s2.F	137	SHAP_FILT_UV_S2	DO j=1-OLy,sNy+OLy-1
./pkg/shap_filt/shap_filt_uv_s2.F	139	SHAP_FILT_UV_S2	hDiv(i,j)=(tmpFldU(i+1,j,k,bi,bj)-tmpFldU(i,j,k,bi,bj))
./pkg/shap_filt/shap_filt_uv_s2.F	140	SHAP_FILT_UV_S2	& +(tmpFldV(i,j+1,k,bi,bj)-tmpFldV(i,j,k,bi,bj))
./pkg/shap_filt/shap_filt_uv_s2.F	154	SHAP_FILT_UV_S2	DO j=1-OLy,sNy+OLy-1
./pkg/shap_filt/shap_filt_uv_s2.F	156	SHAP_FILT_UV_S2	hDiv(i,j) = hDiv(i,j) * rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	159	SHAP_FILT_UV_S2	DO j=2-OLy,sNy+OLy
./pkg/shap_filt/shap_filt_uv_s2.F	161	SHAP_FILT_UV_S2	vort3(i,j)= vort3(i,j)*rAz(i,j,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	171	SHAP_FILT_UV_S2	DO j=2-OLy,sNy+OLy-1
./pkg/shap_filt/shap_filt_uv_s2.F	173	SHAP_FILT_UV_S2	tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	174	SHAP_FILT_UV_S2	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	175	SHAP_FILT_UV_S2	tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	176	SHAP_FILT_UV_S2	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	180	SHAP_FILT_UV_S2	DO j=2-OLy,sNy+OLy-1
./pkg/shap_filt/shap_filt_uv_s2.F	182	SHAP_FILT_UV_S2	tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	183	SHAP_FILT_UV_S2	& rAw(i,j,bi,bj)_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	184	SHAP_FILT_UV_S2	tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	185	SHAP_FILT_UV_S2	& rAs(i,j,bi,bj)_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	189	SHAP_FILT_UV_S2	DO j=2-OLy,sNy+OLy-1
./pkg/shap_filt/shap_filt_uv_s2.F	191	SHAP_FILT_UV_S2	tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	192	SHAP_FILT_UV_S2	& Shap_uvLengthShap_uvLength*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	193	SHAP_FILT_UV_S2	tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	194	SHAP_FILT_UV_S2	& Shap_uvLengthShap_uvLength*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	208	SHAP_FILT_UV_S2	DO j=2-OLy,sNy+OLy-1
./pkg/shap_filt/shap_filt_uv_s2.F	210	SHAP_FILT_UV_S2	tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*
./pkg/shap_filt/shap_filt_uv_s2.F	211	SHAP_FILT_UV_S2	& ( (hDiv(i,j) - hDiv(i-1,j))
./pkg/shap_filt/shap_filt_uv_s2.F	212	SHAP_FILT_UV_S2	& -(vort3(i,j+1)-vort3(i,j))
./pkg/shap_filt/shap_filt_uv_s2.F	213	SHAP_FILT_UV_S2	& )*maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	224	SHAP_FILT_UV_S2	DO j=2-OLy,sNy+OLy-1
./pkg/shap_filt/shap_filt_uv_s2.F	226	SHAP_FILT_UV_S2	tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*
./pkg/shap_filt/shap_filt_uv_s2.F	227	SHAP_FILT_UV_S2	& ( (hDiv(i,j) - hDiv(i,j-1))
./pkg/shap_filt/shap_filt_uv_s2.F	228	SHAP_FILT_UV_S2	& +(vort3(i+1,j)-vort3(i,j))
./pkg/shap_filt/shap_filt_uv_s2.F	229	SHAP_FILT_UV_S2	& )*maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	248	SHAP_FILT_UV_S2	DO j=1,sNy
./pkg/shap_filt/shap_filt_uv_s2.F	250	SHAP_FILT_UV_S2	uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	251	SHAP_FILT_UV_S2	& -tmpFldU(i,j,k,bi,bj)*deltaTMom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F	252	SHAP_FILT_UV_S2	tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F	255	SHAP_FILT_UV_S2	DO j=1,sNy+1
./pkg/shap_filt/shap_filt_uv_s2.F	257	SHAP_FILT_UV_S2	vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	258	SHAP_FILT_UV_S2	& -tmpFldV(i,j,k,bi,bj)*deltaTMom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F	259	SHAP_FILT_UV_S2	tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F	67	SHAP_FILT_UV_S2	INTEGER bi,bj,k,i,j,n
./pkg/shap_filt/shap_filt_uv_s2.F	78	SHAP_FILT_UV_S2	DO j=1-OLy,sNy+OLy
./pkg/shap_filt/shap_filt_uv_s2.F	80	SHAP_FILT_UV_S2	hDiv(i,j) = 0. _d 0
./pkg/shap_filt/shap_filt_uv_s2.F	88	SHAP_FILT_UV_S2	DO j=1-OLy,sNy+OLy
./pkg/shap_filt/shap_filt_uv_s2.F	90	SHAP_FILT_UV_S2	tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	91	SHAP_FILT_UV_S2	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	92	SHAP_FILT_UV_S2	tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F	93	SHAP_FILT_UV_S2	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	100	SHAP_FILT_UV_S2C	maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	101	SHAP_FILT_UV_S2C	maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	102	SHAP_FILT_UV_S2C	tmpGrdU(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F	103	SHAP_FILT_UV_S2C	& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	104	SHAP_FILT_UV_S2C	& - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	105	SHAP_FILT_UV_S2C	& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F	106	SHAP_FILT_UV_S2C	& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F	107	SHAP_FILT_UV_S2C	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	113	SHAP_FILT_UV_S2C	j=1
./pkg/shap_filt/shap_filt_uv_s2c.F	114	SHAP_FILT_UV_S2C	maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	115	SHAP_FILT_UV_S2C	maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	116	SHAP_FILT_UV_S2C	tmpGrdU(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F	117	SHAP_FILT_UV_S2C	& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	118	SHAP_FILT_UV_S2C	& - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	119	SHAP_FILT_UV_S2C	& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F	120	SHAP_FILT_UV_S2C	& -(tmpFldU(i,j,k,bi,bj)-0tmpFldU(i,j-1,k,bi,bj))maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F	121	SHAP_FILT_UV_S2C	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	122	SHAP_FILT_UV_S2C	j=sNy
./pkg/shap_filt/shap_filt_uv_s2c.F	123	SHAP_FILT_UV_S2C	maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	124	SHAP_FILT_UV_S2C	maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	125	SHAP_FILT_UV_S2C	tmpGrdU(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F	126	SHAP_FILT_UV_S2C	& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	127	SHAP_FILT_UV_S2C	& - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	128	SHAP_FILT_UV_S2C	& +(0tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i,j,k,bi,bj))maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F	129	SHAP_FILT_UV_S2C	& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F	130	SHAP_FILT_UV_S2C	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	134	SHAP_FILT_UV_S2C	DO j=1,sNy
./pkg/shap_filt/shap_filt_uv_s2c.F	136	SHAP_FILT_UV_S2C	tmpFldU(i,j,k,bi,bj) =
./pkg/shap_filt/shap_filt_uv_s2c.F	137	SHAP_FILT_UV_S2C	& -0.125 _d 0tmpGrdU(i,j)_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	142	SHAP_FILT_UV_S2C	DO j=1,sNy+1
./pkg/shap_filt/shap_filt_uv_s2c.F	144	SHAP_FILT_UV_S2C	maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	145	SHAP_FILT_UV_S2C	maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	146	SHAP_FILT_UV_S2C	tmpGrdV(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F	147	SHAP_FILT_UV_S2C	& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	148	SHAP_FILT_UV_S2C	& - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	149	SHAP_FILT_UV_S2C	& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F	150	SHAP_FILT_UV_S2C	& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F	151	SHAP_FILT_UV_S2C	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	156	SHAP_FILT_UV_S2C	DO j=1,sNy+1,sNy
./pkg/shap_filt/shap_filt_uv_s2c.F	158	SHAP_FILT_UV_S2C	maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	159	SHAP_FILT_UV_S2C	maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	160	SHAP_FILT_UV_S2C	tmpGrdV(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F	161	SHAP_FILT_UV_S2C	& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	162	SHAP_FILT_UV_S2C	& - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	163	SHAP_FILT_UV_S2C	& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F	164	SHAP_FILT_UV_S2C	& -(tmpFldV(i,j,k,bi,bj)-0tmpFldV(i-1,j,k,bi,bj))maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F	165	SHAP_FILT_UV_S2C	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	167	SHAP_FILT_UV_S2C	maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	168	SHAP_FILT_UV_S2C	maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	169	SHAP_FILT_UV_S2C	tmpGrdV(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F	170	SHAP_FILT_UV_S2C	& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	171	SHAP_FILT_UV_S2C	& - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	172	SHAP_FILT_UV_S2C	& +(0tmpFldV(i+1,j,k,bi,bj)-tmpFldV(i,j,k,bi,bj))maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F	173	SHAP_FILT_UV_S2C	& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F	174	SHAP_FILT_UV_S2C	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	178	SHAP_FILT_UV_S2C	DO j=1,sNy+1
./pkg/shap_filt/shap_filt_uv_s2c.F	180	SHAP_FILT_UV_S2C	tmpFldV(i,j,k,bi,bj) =
./pkg/shap_filt/shap_filt_uv_s2c.F	181	SHAP_FILT_UV_S2C	& -0.125 _d 0tmpGrdV(i,j)_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	198	SHAP_FILT_UV_S2C	DO j=1,sNy
./pkg/shap_filt/shap_filt_uv_s2c.F	200	SHAP_FILT_UV_S2C	uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	201	SHAP_FILT_UV_S2C	& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F	202	SHAP_FILT_UV_S2C	tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F	205	SHAP_FILT_UV_S2C	DO j=1,sNy+1
./pkg/shap_filt/shap_filt_uv_s2c.F	207	SHAP_FILT_UV_S2C	vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	208	SHAP_FILT_UV_S2C	& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F	209	SHAP_FILT_UV_S2C	tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F	53	SHAP_FILT_UV_S2C	INTEGER bi,bj,k,i,j,N
./pkg/shap_filt/shap_filt_uv_s2c.F	67	SHAP_FILT_UV_S2C	DO j=1-OLy,sNy+OLy
./pkg/shap_filt/shap_filt_uv_s2c.F	69	SHAP_FILT_UV_S2C	tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	70	SHAP_FILT_UV_S2C	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	71	SHAP_FILT_UV_S2C	tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	72	SHAP_FILT_UV_S2C	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F	98	SHAP_FILT_UV_S2C	DO j=1,sNy
./pkg/shap_filt/shap_filt_uv_s4.F	100	SHAP_FILT_UV_S4	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	106	SHAP_FILT_UV_S4	tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F	113	SHAP_FILT_UV_S4	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	114	SHAP_FILT_UV_S4	& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	115	SHAP_FILT_UV_S4	& - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	116	SHAP_FILT_UV_S4	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	122	SHAP_FILT_UV_S4	tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F	138	SHAP_FILT_UV_S4	uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	139	SHAP_FILT_UV_S4	& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F	140	SHAP_FILT_UV_S4	tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	145	SHAP_FILT_UV_S4	vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	146	SHAP_FILT_UV_S4	& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F	147	SHAP_FILT_UV_S4	tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	172	SHAP_FILT_UV_S4	maskZj=_maskS(i-1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	173	SHAP_FILT_UV_S4	& *_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	174	SHAP_FILT_UV_S4	maskZp=_maskS(i-1,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	175	SHAP_FILT_UV_S4	& *_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	176	SHAP_FILT_UV_S4	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	177	SHAP_FILT_UV_S4	& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F	178	SHAP_FILT_UV_S4	& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F	179	SHAP_FILT_UV_S4	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	180	SHAP_FILT_UV_S4	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	187	SHAP_FILT_UV_S4	maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	188	SHAP_FILT_UV_S4	maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	189	SHAP_FILT_UV_S4	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	190	SHAP_FILT_UV_S4	& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F	191	SHAP_FILT_UV_S4	& -(tmpFldU(i, j ,k,bi,bj)-0tmpFldU(i,j-1,k,bi,bj))maskZj
./pkg/shap_filt/shap_filt_uv_s4.F	192	SHAP_FILT_UV_S4	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	193	SHAP_FILT_UV_S4	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	197	SHAP_FILT_UV_S4	maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	198	SHAP_FILT_UV_S4	maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	199	SHAP_FILT_UV_S4	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	200	SHAP_FILT_UV_S4	& (0tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))maskZp
./pkg/shap_filt/shap_filt_uv_s4.F	201	SHAP_FILT_UV_S4	& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F	202	SHAP_FILT_UV_S4	& -noSlipFact(2.-maskZj-maskZp)tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	203	SHAP_FILT_UV_S4	& )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	209	SHAP_FILT_UV_S4	tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F	216	SHAP_FILT_UV_S4	maskZj=_maskW( i ,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	217	SHAP_FILT_UV_S4	& *_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	218	SHAP_FILT_UV_S4	maskZp=_maskW(i+1,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	219	SHAP_FILT_UV_S4	& *_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	220	SHAP_FILT_UV_S4	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	221	SHAP_FILT_UV_S4	& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F	222	SHAP_FILT_UV_S4	& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F	223	SHAP_FILT_UV_S4	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	224	SHAP_FILT_UV_S4	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	231	SHAP_FILT_UV_S4	maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	232	SHAP_FILT_UV_S4	maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	233	SHAP_FILT_UV_S4	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	234	SHAP_FILT_UV_S4	& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F	235	SHAP_FILT_UV_S4	& -(tmpFldV( i ,j,k,bi,bj)-0tmpFldV(i-1,j,k,bi,bj))maskZj
./pkg/shap_filt/shap_filt_uv_s4.F	236	SHAP_FILT_UV_S4	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	237	SHAP_FILT_UV_S4	& -2.(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	238	SHAP_FILT_UV_S4	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	242	SHAP_FILT_UV_S4	maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	243	SHAP_FILT_UV_S4	maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	244	SHAP_FILT_UV_S4	tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	245	SHAP_FILT_UV_S4	& (0tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))maskZp
./pkg/shap_filt/shap_filt_uv_s4.F	246	SHAP_FILT_UV_S4	& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F	247	SHAP_FILT_UV_S4	& -noSlipFact(2.-maskZj-maskZp)tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	248	SHAP_FILT_UV_S4	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	254	SHAP_FILT_UV_S4	tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F	270	SHAP_FILT_UV_S4	uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	271	SHAP_FILT_UV_S4	& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F	276	SHAP_FILT_UV_S4	vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	277	SHAP_FILT_UV_S4	& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F	53	SHAP_FILT_UV_S4	INTEGER bi,bj,k,i,j,N
./pkg/shap_filt/shap_filt_uv_s4.F	69	SHAP_FILT_UV_S4	tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	70	SHAP_FILT_UV_S4	& *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	71	SHAP_FILT_UV_S4	tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	72	SHAP_FILT_UV_S4	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	97	SHAP_FILT_UV_S4	tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F	98	SHAP_FILT_UV_S4	& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F	99	SHAP_FILT_UV_S4	& - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	101	SHAP_FILT_V	vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2)
./pkg/shap_filt/shap_filt_v.F	107	SHAP_FILT_V	vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	108	SHAP_FILT_V	& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) )
./pkg/shap_filt/shap_filt_v.F	38	SHAP_FILT_V	maskZ(i,j) = _maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	39	SHAP_FILT_V	& *_maskW(i, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	45	SHAP_FILT_V	tmpFldX(i,j,1) = vVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	46	SHAP_FILT_V	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	56	SHAP_FILT_V	tmpFldX(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_v.F	57	SHAP_FILT_V	& (tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1))*maskZ(i+1,j)
./pkg/shap_filt/shap_filt_v.F	58	SHAP_FILT_V	& -(tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1))*maskZ( i ,j)
./pkg/shap_filt/shap_filt_v.F	60	SHAP_FILT_V	& -2.(2.-maskZ(i,j)-maskZ(i+1,j))tmpFldX(i,j,N1)
./pkg/shap_filt/shap_filt_v.F	62	SHAP_FILT_V	& )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	70	SHAP_FILT_V	tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_v.F	71	SHAP_FILT_V	tmpFldY(i,j,1) = tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_v.F	77	SHAP_FILT_V	tmpFldY(i,j,1) = vVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	78	SHAP_FILT_V	& *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F	89	SHAP_FILT_V	tmpFldY(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_v.F	90	SHAP_FILT_V	& tmpFldY(i,j-1,N1) + tmpFldY(i,j+1,N1)
./pkg/shap_filt/shap_filt_v.F	91	SHAP_FILT_V	& - 2.*tmpFldY(i,j,N1)
./pkg/shap_filt/shap_filt_v.F	92	SHAP_FILT_V	& )*_maskS(i,j,k,bi,bj)
./model/src/ini_cg3d.F	109	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	111	INI_CG3D	faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg3d.F	112	INI_CG3D	& *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg3d.F	114	INI_CG3D	& maskInC(i,j,bi,bj)maskInC(i-1,j,bi,bj)
./model/src/ini_cg3d.F	116	INI_CG3D	aW3d(i,j,k,bi,bj) = faceArea*recip_dxC(i,j,bi,bj)
./model/src/ini_cg3d.F	118	INI_CG3D	myNorm = MAX(ABS(aW3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F	122	INI_CG3D	DO j=1,sNy+1
./model/src/ini_cg3d.F	124	INI_CG3D	faceArea = _dxG(i,j,bi,bj)*drF(K)
./model/src/ini_cg3d.F	125	INI_CG3D	& *_hFacS(i,j,k,bi,bj)
./model/src/ini_cg3d.F	127	INI_CG3D	& maskInC(i,j,bi,bj)maskInC(i,j-1,bi,bj)
./model/src/ini_cg3d.F	129	INI_CG3D	aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj)
./model/src/ini_cg3d.F	131	INI_CG3D	myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F	136	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	138	INI_CG3D	aV3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	146	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	148	INI_CG3D	faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj)
./model/src/ini_cg3d.F	149	INI_CG3D	& *maskC(i,j,k-1,bi,bj)
./model/src/ini_cg3d.F	152	INI_CG3D	& *maskInC(i,j,bi,bj)
./model/src/ini_cg3d.F	160	INI_CG3D	aV3d(i,j,k,bi,bj) = faceAreatheRecip_DrtmpFac
./model/src/ini_cg3d.F	162	INI_CG3D	myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F	191	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	193	INI_CG3D	aW = aW3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F	194	INI_CG3D	aE = aW3d(i+1,j, k, bi,bj)
./model/src/ini_cg3d.F	195	INI_CG3D	aN = aS3d( i,j+1,k, bi,bj)
./model/src/ini_cg3d.F	196	INI_CG3D	aS = aS3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F	197	INI_CG3D	aU = aV3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F	199	INI_CG3D	aL = aV3d(i, j,k+1,bi,bj)
./model/src/ini_cg3d.F	203	INI_CG3D	aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL
./model/src/ini_cg3d.F	209	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	214	INI_CG3D	& Bo_surf(i,j,bi,bj)recip_drC(1)
./model/src/ini_cg3d.F	218	INI_CG3D	ks = kSurfC(i,j,bi,bj)
./model/src/ini_cg3d.F	220	INI_CG3D	aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj)
./model/src/ini_cg3d.F	221	INI_CG3D	& - freeSurfFac*recip_Bo(i,j,bi,bj)
./model/src/ini_cg3d.F	222	INI_CG3D	& rA(i,j,bi,bj)deepFac2F(ks)/deltaTMom/deltaTfreesurf
./model/src/ini_cg3d.F	230	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	232	INI_CG3D	aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F	233	INI_CG3D	aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F	234	INI_CG3D	aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F	235	INI_CG3D	aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F	259	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	261	INI_CG3D	IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_cg3d.F	262	INI_CG3D	zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)
./model/src/ini_cg3d.F	263	INI_CG3D	zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)
./model/src/ini_cg3d.F	265	INI_CG3D	zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj)
./model/src/ini_cg3d.F	267	INI_CG3D	zMU(i,j,k,bi,bj)= 0.
./model/src/ini_cg3d.F	275	INI_CG3D	zMC(i,j,k,bi,bj) = 1. _d 0
./model/src/ini_cg3d.F	276	INI_CG3D	zMU(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	277	INI_CG3D	zML(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	283	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	285	INI_CG3D	zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F	286	INI_CG3D	zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F	290	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	292	INI_CG3D	zMC(i,j,k,bi,bj) = 1. _d 0 /
./model/src/ini_cg3d.F	293	INI_CG3D	& (zMC(i,j,k,bi,bj)-zML(i,j,k,bi,bj)*zMU(i,j,k-1,bi,bj))
./model/src/ini_cg3d.F	294	INI_CG3D	zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F	299	INI_CG3D	DO j=1,sNy
./model/src/ini_cg3d.F	301	INI_CG3D	IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN
./model/src/ini_cg3d.F	302	INI_CG3D	zMC(i,j,k,bi,bj) = 1.
./model/src/ini_cg3d.F	303	INI_CG3D	zML(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	304	INI_CG3D	zMU(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	47	INI_CG3D	INTEGER i, j, k, ks
./model/src/ini_cg3d.F	65	INI_CG3D	DO j=1-OLy,sNy+OLy
./model/src/ini_cg3d.F	67	INI_CG3D	aW3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	68	INI_CG3D	aS3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	69	INI_CG3D	aV3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	70	INI_CG3D	aC3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	71	INI_CG3D	zMC (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	72	INI_CG3D	zML (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	73	INI_CG3D	zMU (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	77	INI_CG3D	DO j=0,sNy+1
./model/src/ini_cg3d.F	79	INI_CG3D	cg3d_q(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	80	INI_CG3D	cg3d_r(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	81	INI_CG3D	cg3d_s(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F	85	INI_CG3D	DO j=1-OLy,sNy+OLy
./model/src/ini_cg3d.F	87	INI_CG3D	cg3d_b(i,j,k,bi,bj) = 0.
./pkg/shelfice/shelfice_cost_accumulate.F	34	SHELFICE_COST_ACCUMULATE	integer i, j
./pkg/shelfice/shelfice_cost_accumulate.F	49	SHELFICE_COST_ACCUMULATE	do j=1,sNy
./pkg/shelfice/shelfice_cost_accumulate.F	52	SHELFICE_COST_ACCUMULATE	cMeanSHIforT(i,j,bi,bj) = cMeanSHIforT(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_accumulate.F	53	SHELFICE_COST_ACCUMULATE	& + shelficeHeatFlux(i,j,bi,bj)*deltaTClock
./pkg/shelfice/shelfice_cost_accumulate.F	54	SHELFICE_COST_ACCUMULATE	cMeanSHIforS(i,j,bi,bj) = cMeanSHIforS(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_accumulate.F	55	SHELFICE_COST_ACCUMULATE	& + shelficeFreshWaterFlux(i,j,bi,bj)*deltaTClock
./pkg/shelfice/shelfice_cost_final.F	58	SHELFICE_COST_FINAL	INTEGER i, j
./pkg/shelfice/shelfice_cost_final.F	77	SHELFICE_COST_FINAL	DO j=1,sNy
./pkg/shelfice/shelfice_cost_final.F	81	SHELFICE_COST_FINAL	& + cMeanSHIforS(i,j,bi,bj)/lastinterval/rhoConstFresh
./pkg/shelfice/shelfice_cost_final.F	82	SHELFICE_COST_FINAL	& *_rA(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F	142	SHELFICE_COST_SHIFWFLX	do j = 1,sny
./pkg/shelfice/shelfice_cost_shifwflx.F	144	SHELFICE_COST_SHIFWFLX	tmpx = tmpfld2d(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F	146	SHELFICE_COST_SHIFWFLX	& *wshifwflx(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F	147	SHELFICE_COST_SHIFWFLX	if ( wshifwflx(i,j,bi,bj) .ne. 0. )
./pkg/shelfice/shelfice_cost_shifwflx.F	58	SHELFICE_COST_SHIFWFLX	integer i,j
./pkg/shelfice/shelfice_forcing.F	154	SHELFICE_FORCING_S	INTEGER i, j
./pkg/shelfice/shelfice_forcing.F	162	SHELFICE_FORCING_S	DO j=1,sNy
./pkg/shelfice/shelfice_forcing.F	168	SHELFICE_FORCING_S	gSloc = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F	170	SHELFICE_FORCING_S	gS_arr(i,j) = gS_arr(i,j) + gSloc
./pkg/shelfice/shelfice_forcing.F	175	SHELFICE_FORCING_S	gSloc = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F	181	SHELFICE_FORCING_S	gS_arr(i,j) = gS_arr(i,j) + gSloc
./pkg/shelfice/shelfice_forcing.F	182	SHELFICE_FORCING_S	& * drLocrecip_drF(kLev) _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing.F	64	SHELFICE_FORCING_T	INTEGER i, j
./pkg/shelfice/shelfice_forcing.F	72	SHELFICE_FORCING_T	DO j=1,sNy
./pkg/shelfice/shelfice_forcing.F	78	SHELFICE_FORCING_T	gTloc = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F	80	SHELFICE_FORCING_T	gT_arr(i,j) = gT_arr(i,j) + gTloc
./pkg/shelfice/shelfice_forcing.F	85	SHELFICE_FORCING_T	gTloc = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F	91	SHELFICE_FORCING_T	gT_arr(i,j) = gT_arr(i,j) + gTloc
./pkg/shelfice/shelfice_forcing.F	92	SHELFICE_FORCING_T	& * drLocrecip_drF(kLev) _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F	50	SHELFICE_FORCING_SURF	INTEGER i, j
./pkg/shelfice/shelfice_forcing_surf.F	62	SHELFICE_FORCING_SURF	DO j=1,sNy
./pkg/shelfice/shelfice_forcing_surf.F	64	SHELFICE_FORCING_SURF	IF ( R_shelfIce(i,j,bi,bj).LT.zeroRS ) THEN
./pkg/shelfice/shelfice_forcing_surf.F	65	SHELFICE_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F	66	SHELFICE_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F	83	SHELFICE_FORCING_SURF	DO j = jMin, jMax
./pkg/shelfice/shelfice_forcing_surf.F	85	SHELFICE_FORCING_SURF	phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F	86	SHELFICE_FORCING_SURF	& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst
./pkg/shelfice/shelfice_init_fixed.F	118	SHELFICE_INIT_FIXED	DO j = 1, sNy
./pkg/shelfice/shelfice_init_fixed.F	120	SHELFICE_INIT_FIXED	shelficeMass(i,j,bi,bj) =
./pkg/shelfice/shelfice_init_fixed.F	121	SHELFICE_INIT_FIXED	& shelficeLoadAnomaly(i,j,bi,bj)*recip_gravity
./pkg/shelfice/shelfice_init_fixed.F	122	SHELFICE_INIT_FIXED	& - rhoConst*Ro_surf(i,j,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F	135	SHELFICE_INIT_FIXED	DO j = 1-OLy, sNy+OLy
./pkg/shelfice/shelfice_init_fixed.F	137	SHELFICE_INIT_FIXED	shelficeLoadAnomaly(i,j,bi,bj) = gravity
./pkg/shelfice/shelfice_init_fixed.F	138	SHELFICE_INIT_FIXED	& ( shelficeMass(i,j,bi,bj) + rhoConstRo_surf(i,j,bi,bj) )
./pkg/shelfice/shelfice_init_fixed.F	33	SHELFICE_INIT_FIXED	INTEGER i, j, bi, bj
./pkg/shelfice/shelfice_init_fixed.F	63	SHELFICE_INIT_FIXED	DO j = 1-OLy, sNy+OLy
./pkg/shelfice/shelfice_init_fixed.F	65	SHELFICE_INIT_FIXED	IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN
./pkg/shelfice/shelfice_init_fixed.F	66	SHELFICE_INIT_FIXED	kTopC(i,j,bi,bj) = kSurfC(i,j,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F	68	SHELFICE_INIT_FIXED	kTopC(i,j,bi,bj) = 0
./pkg/shelfice/shelfice_init_fixed.F	70	SHELFICE_INIT_FIXED	shelficeMass (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_fixed.F	71	SHELFICE_INIT_FIXED	shelficeLoadAnomaly(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_fixed.F	85	SHELFICE_INIT_FIXED	DO j = 1-OLy, sNy+OLy
./pkg/shelfice/shelfice_init_fixed.F	88	SHELFICE_INIT_FIXED	IF (wshifwflx(i,j,bi,bj) .LT. -9900.) THEN
./pkg/shelfice/shelfice_init_fixed.F	89	SHELFICE_INIT_FIXED	wshifwflx(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_fixed.F	92	SHELFICE_INIT_FIXED	wshifwflx(i,j,bi,bj) =
./pkg/shelfice/shelfice_init_fixed.F	93	SHELFICE_INIT_FIXED	& max(wshifwflx(i,j,bi,bj),wshifwflx0)
./pkg/shelfice/shelfice_init_fixed.F	94	SHELFICE_INIT_FIXED	& *maskSHI(i,j,1,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F	95	SHELFICE_INIT_FIXED	IF (wshifwflx(i,j,bi,bj) .NE. 0.) THEN
./pkg/shelfice/shelfice_init_fixed.F	96	SHELFICE_INIT_FIXED	wshifwflx(i,j,bi,bj) =
./pkg/shelfice/shelfice_init_fixed.F	97	SHELFICE_INIT_FIXED	& 1./wshifwflx(i,j,bi,bj)/wshifwflx(i,j,bi,bj)
./pkg/shelfice/shelfice_init_varia.F	35	SHELFICE_INIT_VARIA	INTEGER i, j, bi, bj
./pkg/shelfice/shelfice_init_varia.F	40	SHELFICE_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/shelfice/shelfice_init_varia.F	43	SHELFICE_INIT_VARIA	shelficeForcingT (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F	44	SHELFICE_INIT_VARIA	shelficeForcingS (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F	45	SHELFICE_INIT_VARIA	shelficeHeatFlux (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F	46	SHELFICE_INIT_VARIA	shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F	47	SHELFICE_INIT_VARIA	shiTransCoeffT (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F	48	SHELFICE_INIT_VARIA	shiTransCoeffS (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F	57	SHELFICE_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/shelfice/shelfice_init_varia.F	59	SHELFICE_INIT_VARIA	shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff
./pkg/shelfice/shelfice_init_varia.F	60	SHELFICE_INIT_VARIA	shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff
./pkg/shelfice/shelfice_init_varia.F	70	SHELFICE_INIT_VARIA	DO j = 1-OLy, sNy+OLy
./pkg/shelfice/shelfice_init_varia.F	72	SHELFICE_INIT_VARIA	cMeanSHIforT (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F	73	SHELFICE_INIT_VARIA	cMeanSHIforS (i,j,bi,bj) = 0. _d 0
./model/src/ini_cori.F	111	INI_CORI	DO j=1-Oly,sNy+Oly
./model/src/ini_cori.F	113	INI_CORI	fCori(i,j,bi,bj) = 0. _d 0
./model/src/ini_cori.F	114	INI_CORI	fCoriG(i,j,bi,bj) = 0. _d 0
./model/src/ini_cori.F	115	INI_CORI	fCoriCos(i,j,bi,bj)=0. _d 0
./model/src/ini_cori.F	46	INI_CORI	INTEGER i, j
./model/src/ini_cori.F	62	INI_CORI	DO j=1-Oly,sNy+Oly
./model/src/ini_cori.F	64	INI_CORI	fCori(i,j,bi,bj) = f0
./model/src/ini_cori.F	65	INI_CORI	fCoriG(i,j,bi,bj) = f0
./model/src/ini_cori.F	66	INI_CORI	fCoriCos(i,j,bi,bj)=fPrime
./model/src/ini_cori.F	78	INI_CORI	DO j=1-Oly,sNy+Oly
./model/src/ini_cori.F	80	INI_CORI	fCori(i,j,bi,bj) = f0+beta_yC(i,j,bi,bj)facGrid
./model/src/ini_cori.F	81	INI_CORI	fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid
./model/src/ini_cori.F	82	INI_CORI	fCoriCos(i,j,bi,bj)=fPrime
./model/src/ini_cori.F	92	INI_CORI	DO j=1-Oly,sNy+Oly
./model/src/ini_cori.F	94	INI_CORI	fCori(i,j,bi,bj) =
./model/src/ini_cori.F	95	INI_CORI	& 2. _d 0omegasin(_yC(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F	96	INI_CORI	fCoriG(i,j,bi,bj) =
./model/src/ini_cori.F	97	INI_CORI	& 2. _d 0omegasin(yG(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F	98	INI_CORI	fCoriCos(i,j,bi,bj)=
./model/src/ini_cori.F	99	INI_CORI	& 2. _d 0omegacos(_yC(i,j,bi,bj)*deg2rad)
./pkg/shelfice/shelfice_output.F	112	SHELFICE_OUTPUT	DO j=1,sNy
./pkg/shelfice/shelfice_output.F	114	SHELFICE_OUTPUT	shelfice_FrshFluxtave(i,j,1,bi,bj)=
./pkg/shelfice/shelfice_output.F	115	SHELFICE_OUTPUT	& shelfice_frshFluxtave(i,j,1,bi,bj)
./pkg/shelfice/shelfice_output.F	116	SHELFICE_OUTPUT	& + shelficeFreshWaterFlux(i,j,bi,bj) *deltaTclock
./pkg/shelfice/shelfice_output.F	117	SHELFICE_OUTPUT	shelfice_heatFluxtave(i,j,1,bi,bj) =
./pkg/shelfice/shelfice_output.F	118	SHELFICE_OUTPUT	& shelfice_heatFluxtave(i,j,1,bi,bj)
./pkg/shelfice/shelfice_output.F	119	SHELFICE_OUTPUT	& + shelficeHeatFlux(i,j,bi,bj) *deltaTclock
./pkg/shelfice/shelfice_output.F	46	SHELFICE_OUTPUT	INTEGER i, j, bi, bj
./pkg/shelfice/shelfice_thermodynamics.F	117	SHELFICE_THERMODYNAMICS	shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff
./pkg/shelfice/shelfice_thermodynamics.F	118	SHELFICE_THERMODYNAMICS	shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff
./pkg/shelfice/shelfice_thermodynamics.F	144	SHELFICE_THERMODYNAMICS	shiTransCoeffT(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F	145	SHELFICE_THERMODYNAMICS	shiTransCoeffS(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F	320	SHELFICE_THERMODYNAMICS	shiTransCoeffT(i,j,bi,bj) = MAX( zeroRL,
./pkg/shelfice/shelfice_thermodynamics.F	322	SHELFICE_THERMODYNAMICS	shiTransCoeffS(i,j,bi,bj) = MAX( zeroRL,
./pkg/shelfice/shelfice_thermodynamics.F	350	SHELFICE_THERMODYNAMICS	& * shiTransCoeffT(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F	363	SHELFICE_THERMODYNAMICS	shelficeForcingT(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F	368	SHELFICE_THERMODYNAMICS	shelficeForcingS(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F	401	SHELFICE_THERMODYNAMICS	& *shiTransCoeffT(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F	403	SHELFICE_THERMODYNAMICS	& *shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F	405	SHELFICE_THERMODYNAMICS	& *shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F	422	SHELFICE_THERMODYNAMICS	& shiTransCoeffS(i,j,bi,bj) fwflxFac
./pkg/shelfice/shelfice_thermodynamics.F	476	SHELFICE_THERMODYNAMICS	& * shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F	492	SHELFICE_THERMODYNAMICS	shelficeForcingT(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F	493	SHELFICE_THERMODYNAMICS	& ( shiTransCoeffT(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F	496	SHELFICE_THERMODYNAMICS	shelficeForcingS(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F	497	SHELFICE_THERMODYNAMICS	& ( shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F	518	SHELFICE_THERMODYNAMICS	DO j = 1-OLy, sNy+OLy
./pkg/shelfice/shelfice_thermodynamics.F	520	SHELFICE_THERMODYNAMICS	shelficeLoadAnomaly(i,j,bi,bj) = gravity
./pkg/shelfice/shelfice_thermodynamics.F	521	SHELFICE_THERMODYNAMICS	& ( shelficeMass(i,j,bi,bj) + rhoConstRo_surf(i,j,bi,bj) )
./pkg/shelfice/shelfice_u_drag.F	72	SHELFICE_U_DRAG	DO j=1-Oly,sNy+Oly-1
./pkg/shelfice/shelfice_u_drag.F	74	SHELFICE_U_DRAG	maskUp=_maskW(i,j,kUp,bi,bj)
./pkg/shelfice/shelfice_u_drag.F	76	SHELFICE_U_DRAG	uDragTerms(i,j)=
./pkg/shelfice/shelfice_u_drag.F	77	SHELFICE_U_DRAG	& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_u_drag.F	79	SHELFICE_U_DRAG	& - 2.KappaRU(i,j,kUpC)rdrckp1*viscFac
./pkg/shelfice/shelfice_u_drag.F	81	SHELFICE_U_DRAG	& )(1.-maskUp)uFld(i,j)
./pkg/shelfice/shelfice_u_drag.F	82	SHELFICE_U_DRAG	IF ( (KE(i,j)+KE(i-1,j)) .GT. 0. ) THEN
./pkg/shelfice/shelfice_u_drag.F	83	SHELFICE_U_DRAG	uDragTerms(i,j)=uDragTerms(i,j)
./pkg/shelfice/shelfice_u_drag.F	84	SHELFICE_U_DRAG	& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_u_drag.F	85	SHELFICE_U_DRAG	& SHELFICEDragQuadraticsqrt(KE(i,j)+KE(i-1,j))
./pkg/shelfice/shelfice_u_drag.F	86	SHELFICE_U_DRAG	& (1.-maskUp)uFld(i,j)
./pkg/shelfice/shelfice_update_masks.F	56	SHELFICE_UPDATE_MASKS	DO j=1-Oly,sNy+Oly
./pkg/shelfice/shelfice_update_masks.F	58	SHELFICE_UPDATE_MASKS	R_shelfIce(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_v_drag.F	72	SHELFICE_V_DRAG	DO j=1-Oly+1,sNy+Oly-1
./pkg/shelfice/shelfice_v_drag.F	74	SHELFICE_V_DRAG	maskUp=_maskS(i,j,kUp,bi,bj)
./pkg/shelfice/shelfice_v_drag.F	76	SHELFICE_V_DRAG	vDragTerms(i,j)=
./pkg/shelfice/shelfice_v_drag.F	77	SHELFICE_V_DRAG	& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_v_drag.F	79	SHELFICE_V_DRAG	& - 2.KappaRV(i,j,kUpC)rdrckp1*viscFac
./pkg/shelfice/shelfice_v_drag.F	81	SHELFICE_V_DRAG	& )(1.-maskUp)vFld(i,j)
./pkg/shelfice/shelfice_v_drag.F	82	SHELFICE_V_DRAG	IF ( (KE(i,j)+KE(i,j-1)) .GT. 0. ) THEN
./pkg/shelfice/shelfice_v_drag.F	83	SHELFICE_V_DRAG	vDragTerms(i,j)=vDragTerms(i,j)
./pkg/shelfice/shelfice_v_drag.F	84	SHELFICE_V_DRAG	& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_v_drag.F	85	SHELFICE_V_DRAG	& bottomDragQuadraticsqrt(KE(i,j)+KE(i,j-1))
./pkg/shelfice/shelfice_v_drag.F	86	SHELFICE_V_DRAG	& (1.-maskUp)vFld(i,j)
./model/src/ini_curvilinear_grid.F	382	INI_CURVILINEAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_curvilinear_grid.F	384	INI_CURVILINEAR_GRID	dxC(i,j,bi,bj) = dxC(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	385	INI_CURVILINEAR_GRID	dyC(i,j,bi,bj) = dyC(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	386	INI_CURVILINEAR_GRID	dxG(i,j,bi,bj) = dxG(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	387	INI_CURVILINEAR_GRID	dyG(i,j,bi,bj) = dyG(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	388	INI_CURVILINEAR_GRID	dxF(i,j,bi,bj) = dxF(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	389	INI_CURVILINEAR_GRID	dyF(i,j,bi,bj) = dyF(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	390	INI_CURVILINEAR_GRID	dxV(i,j,bi,bj) = dxV(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	391	INI_CURVILINEAR_GRID	dyU(i,j,bi,bj) = dyU(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F	392	INI_CURVILINEAR_GRID	rA (i,j,bi,bj) = rA (i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F	393	INI_CURVILINEAR_GRID	rAz(i,j,bi,bj) = rAz(i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F	394	INI_CURVILINEAR_GRID	rAw(i,j,bi,bj) = rAw(i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F	395	INI_CURVILINEAR_GRID	rAs(i,j,bi,bj) = rAs(i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F	50	INI_CURVILINEAR_GRID	INTEGER i,j
./pkg/smooth/smooth2d.F	27	SMOOTH2D	integer i,j,bi,bj
./pkg/smooth/smooth3d.F	27	SMOOTH3D	integer i,j,k,bi,bj
./pkg/smooth/smooth_basic2d.F	28	SMOOTH_BASIC2D	integer i,j,bi,bj
./pkg/smooth/smooth_basic2d.F	43	SMOOTH_BASIC2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_basic2d.F	45	SMOOTH_BASIC2D	smooth2D_Lx(i,j,bi,bj)=dist_in
./pkg/smooth/smooth_basic2d.F	46	SMOOTH_BASIC2D	smooth2D_Ly(i,j,bi,bj)=dist_in
./pkg/smooth/smooth_basic2d.F	54	SMOOTH_BASIC2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_basic2d.F	56	SMOOTH_BASIC2D	smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)*
./pkg/smooth/smooth_basic2d.F	57	SMOOTH_BASIC2D	& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_basic2d.F	58	SMOOTH_BASIC2D	smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)*
./pkg/smooth/smooth_basic2d.F	59	SMOOTH_BASIC2D	& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_correl2d.F	28	SMOOTH_CORREL2D	integer i,j,bi,bj
./pkg/smooth/smooth_correl2d.F	60	SMOOTH_CORREL2D	DO j = 1,sNy
./pkg/smooth/smooth_correl2d.F	62	SMOOTH_CORREL2D	fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)
./pkg/smooth/smooth_correl2d.F	63	SMOOTH_CORREL2D	& *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_correl2d.F	77	SMOOTH_CORREL2D	DO j = 1,sNy
./pkg/smooth/smooth_correl2d.F	79	SMOOTH_CORREL2D	fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)
./pkg/smooth/smooth_correl2d.F	80	SMOOTH_CORREL2D	& *smooth2Dnorm(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	108	SMOOTH_CORREL2DW	tmpW=wgentim2d(i,j,bi,bj,iarr)
./pkg/smooth/smooth_correl2dw.F	115	SMOOTH_CORREL2DW	if ((mask_in(i,j,1,bi,bj).NE.0.).AND.(tmpW.NE.0.)) then
./pkg/smooth/smooth_correl2dw.F	116	SMOOTH_CORREL2DW	fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)/sqrt(tmpW)
./pkg/smooth/smooth_correl2dw.F	118	SMOOTH_CORREL2DW	fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)*0.
./pkg/smooth/smooth_correl2dw.F	41	SMOOTH_CORREL2DW	integer i,j,bi,bj
./pkg/smooth/smooth_correl2dw.F	58	SMOOTH_CORREL2DW	DO j = 1,sNy
./pkg/smooth/smooth_correl2dw.F	64	SMOOTH_CORREL2DW	tmpW=whflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	66	SMOOTH_CORREL2DW	tmpW=wsflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	68	SMOOTH_CORREL2DW	tmpW=wtauu(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	70	SMOOTH_CORREL2DW	tmpW=wtauv(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	73	SMOOTH_CORREL2DW	tmpW=watemp(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	75	SMOOTH_CORREL2DW	tmpW=waqh(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	77	SMOOTH_CORREL2DW	tmpW=wprecip(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	79	SMOOTH_CORREL2DW	tmpW=wsnowprecip(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	82	SMOOTH_CORREL2DW	tmpW=wswflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	84	SMOOTH_CORREL2DW	tmpW=wswdown(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	86	SMOOTH_CORREL2DW	tmpW=wlwflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	88	SMOOTH_CORREL2DW	tmpW=wlwdown(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	91	SMOOTH_CORREL2DW	tmpW=wevap(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	93	SMOOTH_CORREL2DW	tmpW=wapressure(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	95	SMOOTH_CORREL2DW	tmpW=wuwind(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F	97	SMOOTH_CORREL2DW	tmpW=wvwind(i,j,bi,bj)
./model/src/ini_cylinder_grid.F	101	INI_CYLINDER_GRID	dxF(i,j,bi,bj) = thisRaddthetadeg2rad
./model/src/ini_cylinder_grid.F	102	INI_CYLINDER_GRID	dyF(i,j,bi,bj) = delYloc(j)
./model/src/ini_cylinder_grid.F	107	INI_CYLINDER_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cylinder_grid.F	109	INI_CYLINDER_GRID	thisRad = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_cylinder_grid.F	111	INI_CYLINDER_GRID	dxG(i,j,bi,bj) = thisRaddthetadeg2rad
./model/src/ini_cylinder_grid.F	112	INI_CYLINDER_GRID	dyG(i,j,bi,bj) = delYloc(j)
./model/src/ini_cylinder_grid.F	121	INI_CYLINDER_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cylinder_grid.F	124	INI_CYLINDER_GRID	dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_cylinder_grid.F	129	INI_CYLINDER_GRID	DO j=1-OLy+1,sNy+OLy ! NOTE range
./model/src/ini_cylinder_grid.F	132	INI_CYLINDER_GRID	dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_cylinder_grid.F	137	INI_CYLINDER_GRID	DO j=1-OLy+1,sNy+OLy ! NOTE range
./model/src/ini_cylinder_grid.F	140	INI_CYLINDER_GRID	dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_cylinder_grid.F	141	INI_CYLINDER_GRID	dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_cylinder_grid.F	146	INI_CYLINDER_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cylinder_grid.F	149	INI_CYLINDER_GRID	rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj)
./model/src/ini_cylinder_grid.F	150	INI_CYLINDER_GRID	rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj)
./model/src/ini_cylinder_grid.F	151	INI_CYLINDER_GRID	rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj)
./model/src/ini_cylinder_grid.F	152	INI_CYLINDER_GRID	rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj)
./model/src/ini_cylinder_grid.F	52	INI_CYLINDER_GRID	INTEGER i, j
./model/src/ini_cylinder_grid.F	78	INI_CYLINDER_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cylinder_grid.F	80	INI_CYLINDER_GRID	xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_cylinder_grid.F	81	INI_CYLINDER_GRID	yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_cylinder_grid.F	86	INI_CYLINDER_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cylinder_grid.F	89	INI_CYLINDER_GRID	xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F	90	INI_CYLINDER_GRID	& xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) )
./model/src/ini_cylinder_grid.F	91	INI_CYLINDER_GRID	yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F	92	INI_CYLINDER_GRID	& yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) )
./model/src/ini_cylinder_grid.F	97	INI_CYLINDER_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_cylinder_grid.F	99	INI_CYLINDER_GRID	thisRad = yC(i,j,bi,bj)
./pkg/smooth/smooth_correl3d.F	103	SMOOTH_CORREL3D	DO j = 1,sNy
./pkg/smooth/smooth_correl3d.F	106	SMOOTH_CORREL3D	fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_correl3d.F	107	SMOOTH_CORREL3D	& *smooth3Dnorm(i,j,k,bi,bj)
./pkg/smooth/smooth_correl3d.F	28	SMOOTH_CORREL3D	integer i,j,k,bi,bj
./pkg/smooth/smooth_correl3d.F	85	SMOOTH_CORREL3D	DO j=1,sNy
./pkg/smooth/smooth_correl3d.F	87	SMOOTH_CORREL3D	fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_correl3d.F	88	SMOOTH_CORREL3D	& sqrt(recip_rA(i,j,bi,bj)recip_drF(k))
./pkg/smooth/smooth_diff2d.F	126	SMOOTH_DIFF2D	DO j = 1,sNy
./pkg/smooth/smooth_diff2d.F	129	SMOOTH_DIFF2D	gt_in(i,j,bi,bj)=0.
./pkg/smooth/smooth_diff2d.F	131	SMOOTH_DIFF2D	if (smooth2Dmask(i,j,bi,bj).NE.0.) then
./pkg/smooth/smooth_diff2d.F	133	SMOOTH_DIFF2D	gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F	134	SMOOTH_DIFF2D	& smooth2D_Kux(i,j,bi,bj)dyG(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	135	SMOOTH_DIFF2D	& smooth2Dmask(i,j,bi,bj)smooth2Dmask(i-1,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	136	SMOOTH_DIFF2D	& (fld_in(i,j,bi,bj)-fld_in(i-1,j,bi,bj))*recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	138	SMOOTH_DIFF2D	gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F	139	SMOOTH_DIFF2D	& smooth2D_Kux(i+1,j,bi,bj)dyG(i+1,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	140	SMOOTH_DIFF2D	& smooth2Dmask(i,j,bi,bj)smooth2Dmask(i+1,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	141	SMOOTH_DIFF2D	& (fld_in(i,j,bi,bj)-fld_in(i+1,j,bi,bj))*recip_dxC(i+1,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	143	SMOOTH_DIFF2D	gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F	144	SMOOTH_DIFF2D	& smooth2D_Kvy(i,j,bi,bj)dxG(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	145	SMOOTH_DIFF2D	& smooth2Dmask(i,j,bi,bj)smooth2Dmask(i,j-1,bi,bj)
./pkg/smooth/smooth_diff2d.F	146	SMOOTH_DIFF2D	& (fld_in(i,j,bi,bj)-fld_in(i,j-1,bi,bj))*recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	148	SMOOTH_DIFF2D	gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F	149	SMOOTH_DIFF2D	& smooth2D_Kvy(i,j+1,bi,bj)dxG(i,j+1,bi,bj)
./pkg/smooth/smooth_diff2d.F	150	SMOOTH_DIFF2D	& smooth2Dmask(i,j,bi,bj)smooth2Dmask(i,j+1,bi,bj)
./pkg/smooth/smooth_diff2d.F	151	SMOOTH_DIFF2D	& (fld_in(i,j,bi,bj)-fld_in(i,j+1,bi,bj))*recip_dyC(i,j+1,bi,bj)
./pkg/smooth/smooth_diff2d.F	171	SMOOTH_DIFF2D	DO j = 1,sNy
./pkg/smooth/smooth_diff2d.F	174	SMOOTH_DIFF2D	gt_tmp = ab15*gt_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	175	SMOOTH_DIFF2D	& + ab05*gtm1_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	176	SMOOTH_DIFF2D	gtm1_in(i,j,bi,bj) = gt_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	177	SMOOTH_DIFF2D	gt_in(i,j,bi,bj) = gt_tmp
./pkg/smooth/smooth_diff2d.F	179	SMOOTH_DIFF2D	fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F	180	SMOOTH_DIFF2D	& -gt_in(i,j,bi,bj)recip_rA(i,j,bi,bj)smooth2DdelTime
./pkg/smooth/smooth_diff2d.F	181	SMOOTH_DIFF2D	gt_in(i,j,bi,bj)=0
./pkg/smooth/smooth_diff2d.F	25	SMOOTH_DIFF2D	integer i,j,k, bi, bj
./pkg/smooth/smooth_diff2d.F	60	SMOOTH_DIFF2D	DO j = 1,sNy
./pkg/smooth/smooth_diff2d.F	62	SMOOTH_DIFF2D	gt_in(i,j,bi,bj) = 0. _d 0
./pkg/smooth/smooth_diff2d.F	63	SMOOTH_DIFF2D	gtm1_in(i,j,bi,bj) = 0. _d 0
./pkg/smooth/smooth_diff2d.F	64	SMOOTH_DIFF2D	smooth2Dmask(i,j,bi,bj) = mask_in(i,j,1,bi,bj)
./pkg/smooth/smooth_diff3d.F	117	SMOOTH_DIFF3D	DO j=1,sNy
./pkg/smooth/smooth_diff3d.F	119	SMOOTH_DIFF3D	gT_in(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_diff3d.F	144	SMOOTH_DIFF3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_diff3d.F	146	SMOOTH_DIFF3D	if (maskc(i,j,k,bi,bj).NE.0.) then
./pkg/smooth/smooth_diff3d.F	147	SMOOTH_DIFF3D	fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F	148	SMOOTH_DIFF3D	& +smooth3DdelTime*gT_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F	149	SMOOTH_DIFF3D	gT_in(i,j,k,bi,bj)=0
./pkg/smooth/smooth_diff3d.F	24	SMOOTH_DIFF3D	integer i,j,k, bi,bj, iMin,iMax,jMin,jMax
./pkg/smooth/smooth_diff3d.F	55	SMOOTH_DIFF3D	DO j=1,sNy
./pkg/smooth/smooth_diff3d.F	57	SMOOTH_DIFF3D	gT_in(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_diff3d.F	58	SMOOTH_DIFF3D	gTm1_in(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F	113	SMOOTH_FILTERVAR2D	DO j = 1,sNy
./pkg/smooth/smooth_filtervar2d.F	116	SMOOTH_FILTERVAR2D	smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F	117	SMOOTH_FILTERVAR2D	& *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F	133	SMOOTH_FILTERVAR2D	DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar2d.F	135	SMOOTH_FILTERVAR2D	if (maskc(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F	136	SMOOTH_FILTERVAR2D	smooth2Dnorm(i,j,bi,bj)=
./pkg/smooth/smooth_filtervar2d.F	137	SMOOTH_FILTERVAR2D	& 1/sqrt(smoothTmpFld(i,j,bi,bj))
./pkg/smooth/smooth_filtervar2d.F	154	SMOOTH_FILTERVAR2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F	156	SMOOTH_FILTERVAR2D	smoothTmpMean(i,j,bi,bj) = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F	157	SMOOTH_FILTERVAR2D	smoothTmpVar(i,j,bi,bj) = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F	174	SMOOTH_FILTERVAR2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F	176	SMOOTH_FILTERVAR2D	smoothTmpFld(i,j,bi,bj) = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F	177	SMOOTH_FILTERVAR2D	if (maskC(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F	178	SMOOTH_FILTERVAR2D	smoothTmpFld(i,j,bi,bj)=port_rand_norm()
./pkg/smooth/smooth_filtervar2d.F	181	SMOOTH_FILTERVAR2D	smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F	182	SMOOTH_FILTERVAR2D	& *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_filtervar2d.F	196	SMOOTH_FILTERVAR2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F	198	SMOOTH_FILTERVAR2D	smoothTmpVar(i,j,bi,bj)=smoothTmpVar(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F	199	SMOOTH_FILTERVAR2D	& +smoothTmpFld(i,j,bi,bj)*smoothTmpFld(i,j,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar2d.F	200	SMOOTH_FILTERVAR2D	smoothTmpMean(i,j,bi,bj)=smoothTmpMean(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F	201	SMOOTH_FILTERVAR2D	& +smoothTmpFld(i,j,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar2d.F	212	SMOOTH_FILTERVAR2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F	214	SMOOTH_FILTERVAR2D	if (maskC(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F	215	SMOOTH_FILTERVAR2D	smooth2Dnorm(i,j,bi,bj)=
./pkg/smooth/smooth_filtervar2d.F	216	SMOOTH_FILTERVAR2D	& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,bi,bj) -
./pkg/smooth/smooth_filtervar2d.F	217	SMOOTH_FILTERVAR2D	& smoothTmpMean(i,j,bi,bj)*smoothTmpMean(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F	23	SMOOTH_FILTERVAR2D	integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar2d.F	60	SMOOTH_FILTERVAR2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F	62	SMOOTH_FILTERVAR2D	smooth2Dnorm(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F	86	SMOOTH_FILTERVAR2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F	88	SMOOTH_FILTERVAR2D	smoothTmpFld(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F	92	SMOOTH_FILTERVAR2D	DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar2d.F	94	SMOOTH_FILTERVAR2D	smoothTmpFld(i,j,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F	117	SMOOTH_FILTERVAR3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F	119	SMOOTH_FILTERVAR3D	smoothTmpFld(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_filtervar3d.F	125	SMOOTH_FILTERVAR3D	DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar3d.F	127	SMOOTH_FILTERVAR3D	smoothTmpFld(i,j,k,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F	148	SMOOTH_FILTERVAR3D	DO j=1,sNy
./pkg/smooth/smooth_filtervar3d.F	151	SMOOTH_FILTERVAR3D	smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F	152	SMOOTH_FILTERVAR3D	& (recip_rA(i,j,bi,bj)recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F	170	SMOOTH_FILTERVAR3D	DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar3d.F	172	SMOOTH_FILTERVAR3D	if (smoothTmpFld(i,j,k,bi,bj).NE.0.) then
./pkg/smooth/smooth_filtervar3d.F	173	SMOOTH_FILTERVAR3D	smooth3Dnorm(i,j,k,bi,bj)=
./pkg/smooth/smooth_filtervar3d.F	174	SMOOTH_FILTERVAR3D	& 1/sqrt(smoothTmpFld(i,j,k,bi,bj))
./pkg/smooth/smooth_filtervar3d.F	193	SMOOTH_FILTERVAR3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F	195	SMOOTH_FILTERVAR3D	smoothTmpMean(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F	196	SMOOTH_FILTERVAR3D	smoothTmpVar(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F	215	SMOOTH_FILTERVAR3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F	217	SMOOTH_FILTERVAR3D	smoothTmpFld(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F	218	SMOOTH_FILTERVAR3D	if (maskC(i,j,k,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar3d.F	219	SMOOTH_FILTERVAR3D	smoothTmpFld(i,j,k,bi,bj)=port_rand_norm()
./pkg/smooth/smooth_filtervar3d.F	222	SMOOTH_FILTERVAR3D	smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F	223	SMOOTH_FILTERVAR3D	& sqrt(recip_rA(i,j,bi,bj)recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F	239	SMOOTH_FILTERVAR3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F	241	SMOOTH_FILTERVAR3D	smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F	242	SMOOTH_FILTERVAR3D	& +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar3d.F	243	SMOOTH_FILTERVAR3D	smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F	244	SMOOTH_FILTERVAR3D	& +smoothTmpFld(i,j,k,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar3d.F	257	SMOOTH_FILTERVAR3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F	259	SMOOTH_FILTERVAR3D	if (maskC(i,j,k,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar3d.F	260	SMOOTH_FILTERVAR3D	smooth3Dnorm(i,j,k,bi,bj)=
./pkg/smooth/smooth_filtervar3d.F	261	SMOOTH_FILTERVAR3D	& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) -
./pkg/smooth/smooth_filtervar3d.F	262	SMOOTH_FILTERVAR3D	& smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F	26	SMOOTH_FILTERVAR3D	integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar3d.F	87	SMOOTH_FILTERVAR3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F	89	SMOOTH_FILTERVAR3D	smooth3Dnorm(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_hetero2d.F	29	SMOOTH_HETERO2D	integer i,j,bi,bj
./pkg/smooth/smooth_hetero2d.F	46	SMOOTH_HETERO2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_hetero2d.F	48	SMOOTH_HETERO2D	smooth2D_Lx(i,j,bi,bj)=dist_in(i,j,bi,bj)
./pkg/smooth/smooth_hetero2d.F	49	SMOOTH_HETERO2D	smooth2D_Ly(i,j,bi,bj)=dist_in(i,j,bi,bj)
./pkg/smooth/smooth_hetero2d.F	57	SMOOTH_HETERO2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_hetero2d.F	59	SMOOTH_HETERO2D	smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)*
./pkg/smooth/smooth_hetero2d.F	60	SMOOTH_HETERO2D	& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_hetero2d.F	61	SMOOTH_HETERO2D	smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)*
./pkg/smooth/smooth_hetero2d.F	62	SMOOTH_HETERO2D	& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_impldiff.F	104	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	106	SMOOTH_IMPLDIFF	bet(i,j,k) = 1. _d 0
./pkg/smooth/smooth_impldiff.F	107	SMOOTH_IMPLDIFF	gam(i,j,k) = 0. _d 0
./pkg/smooth/smooth_impldiff.F	117	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	119	SMOOTH_IMPLDIFF	IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./pkg/smooth/smooth_impldiff.F	131	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	133	SMOOTH_IMPLDIFF	gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1)
./pkg/smooth/smooth_impldiff.F	134	SMOOTH_IMPLDIFF	IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./pkg/smooth/smooth_impldiff.F	135	SMOOTH_IMPLDIFF	& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./pkg/smooth/smooth_impldiff.F	144	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	146	SMOOTH_IMPLDIFF	gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1)
./pkg/smooth/smooth_impldiff.F	150	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	152	SMOOTH_IMPLDIFF	gYnm1(i,j,k,bi,bj) = bet(i,j,k)*
./pkg/smooth/smooth_impldiff.F	153	SMOOTH_IMPLDIFF	& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj))
./pkg/smooth/smooth_impldiff.F	162	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	164	SMOOTH_IMPLDIFF	gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./pkg/smooth/smooth_impldiff.F	165	SMOOTH_IMPLDIFF	& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj)
./pkg/smooth/smooth_impldiff.F	171	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	173	SMOOTH_IMPLDIFF	gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./pkg/smooth/smooth_impldiff.F	36	SMOOTH_IMPLDIFF	INTEGER i,j,k
./pkg/smooth/smooth_impldiff.F	50	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	52	SMOOTH_IMPLDIFF	gYNm1(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_impldiff.F	58	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	60	SMOOTH_IMPLDIFF	a(i,j,1) = 0. _d 0
./pkg/smooth/smooth_impldiff.F	64	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	66	SMOOTH_IMPLDIFF	a(i,j,k) = -deltaTXrecip_hFac(i,j,k,bi,bj)recip_drF(k)
./pkg/smooth/smooth_impldiff.F	68	SMOOTH_IMPLDIFF	& KappaRX(i,j, k )recip_drC( k )
./pkg/smooth/smooth_impldiff.F	70	SMOOTH_IMPLDIFF	IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0.
./pkg/smooth/smooth_impldiff.F	77	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	79	SMOOTH_IMPLDIFF	c(i,j,k) = -deltaTXrecip_hFac(i,j,k,bi,bj)recip_drF(k)
./pkg/smooth/smooth_impldiff.F	81	SMOOTH_IMPLDIFF	& KappaRX(i,j,k+1)recip_drC(k+1)
./pkg/smooth/smooth_impldiff.F	83	SMOOTH_IMPLDIFF	IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0.
./pkg/smooth/smooth_impldiff.F	87	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	89	SMOOTH_IMPLDIFF	c(i,j,Nr) = 0. _d 0
./pkg/smooth/smooth_impldiff.F	95	SMOOTH_IMPLDIFF	DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F	97	SMOOTH_IMPLDIFF	b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./pkg/smooth/smooth_init2d.F	23	SMOOTH_INIT2D	integer i,j,k, bi, bj
./pkg/smooth/smooth_init2d.F	51	SMOOTH_INIT2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init2d.F	53	SMOOTH_INIT2D	smooth2D_Lx(i,j,bi,bj)=smooth2D_Lx0(smoothOpNb)
./pkg/smooth/smooth_init2d.F	54	SMOOTH_INIT2D	smooth2D_Ly(i,j,bi,bj)=smooth2D_Ly0(smoothOpNb)
./pkg/smooth/smooth_init2d.F	63	SMOOTH_INIT2D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init2d.F	65	SMOOTH_INIT2D	smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)*
./pkg/smooth/smooth_init2d.F	66	SMOOTH_INIT2D	& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_init2d.F	67	SMOOTH_INIT2D	smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)*
./pkg/smooth/smooth_init2d.F	68	SMOOTH_INIT2D	& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_init3d.F	125	SMOOTH_INIT3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init3d.F	127	SMOOTH_INIT3D	smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb)
./pkg/smooth/smooth_init3d.F	128	SMOOTH_INIT3D	smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb)
./pkg/smooth/smooth_init3d.F	139	SMOOTH_INIT3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init3d.F	141	SMOOTH_INIT3D	smooth3D_Kuy(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F	142	SMOOTH_INIT3D	smooth3D_Kvx(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F	143	SMOOTH_INIT3D	smooth3D_Kwx(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F	144	SMOOTH_INIT3D	smooth3D_Kwy(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F	145	SMOOTH_INIT3D	smooth3D_Kwz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F	146	SMOOTH_INIT3D	smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F	147	SMOOTH_INIT3D	& smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F	148	SMOOTH_INIT3D	smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F	149	SMOOTH_INIT3D	& smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F	150	SMOOTH_INIT3D	smooth3D_Kuz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F	151	SMOOTH_INIT3D	smooth3D_Kvz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F	29	SMOOTH_INIT3D	integer i,j,k, bi, bj, imin, imax, jmin, jmax
./pkg/smooth/smooth_init3d.F	64	SMOOTH_INIT3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init3d.F	66	SMOOTH_INIT3D	smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb)
./pkg/smooth/smooth_init3d.F	77	SMOOTH_INIT3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init3d.F	79	SMOOTH_INIT3D	smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F	80	SMOOTH_INIT3D	& smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F	92	SMOOTH_INIT3D	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init3d.F	97	SMOOTH_INIT3D	if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then
./pkg/smooth/smooth_init3d.F	98	SMOOTH_INIT3D	smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax
./pkg/smooth/smooth_init_fixed.F	24	SMOOTH_INIT_FIXED	integer i,j,k, bi, bj, imin, imax, jmin, jmax
./pkg/smooth/smooth_init_fixed.F	36	SMOOTH_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init_fixed.F	38	SMOOTH_INIT_FIXED	smooth_recip_hFacC(i,j,k,bi,bj)=_recip_hFacC(i,j,k,bi,bj)
./pkg/smooth/smooth_init_fixed.F	39	SMOOTH_INIT_FIXED	smooth_hFacW(i,j,k,bi,bj)=_hFacW(i,j,k,bi,bj)
./pkg/smooth/smooth_init_fixed.F	40	SMOOTH_INIT_FIXED	smooth_hFacS(i,j,k,bi,bj)=_hFacS(i,j,k,bi,bj)
./model/src/ini_depths.F	101	INI_DEPTHS	R_low(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F	164	INI_DEPTHS	DO j=1,sNy
./model/src/ini_depths.F	166	INI_DEPTHS	Ro_surf(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F	207	INI_DEPTHS	DO j=1,sNy
./model/src/ini_depths.F	209	INI_DEPTHS	Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./model/src/ini_depths.F	231	INI_DEPTHS	DO j=1-Oly,sNy+Oly
./model/src/ini_depths.F	234	INI_DEPTHS	jG = myYGlobalLo-1+(bj-1)*sNy+j
./model/src/ini_depths.F	244	INI_DEPTHS	& ABS(yC(i,j,bi,bj)).GE.90. )
./model/src/ini_depths.F	245	INI_DEPTHS	& Ro_surf(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F	253	INI_DEPTHS	DO j=1-Oly,sNy+Oly
./model/src/ini_depths.F	256	INI_DEPTHS	jG = myYGlobalLo-1+(bj-1)*sNy+j
./model/src/ini_depths.F	266	INI_DEPTHS	& ABS(yC(i,j,bi,bj)).GE.90. )
./model/src/ini_depths.F	267	INI_DEPTHS	& R_low(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F	59	INI_DEPTHS	INTEGER i, j
./model/src/ini_depths.F	77	INI_DEPTHS	DO j=1-Oly,sNy+Oly
./model/src/ini_depths.F	79	INI_DEPTHS	R_low(i,j,bi,bj) = 0. _d 0
./model/src/ini_depths.F	80	INI_DEPTHS	Ro_surf(i,j,bi,bj) = 0. _d 0
./model/src/ini_depths.F	81	INI_DEPTHS	topoZ(i,j,bi,bj) = 0. _d 0
./model/src/ini_depths.F	99	INI_DEPTHS	DO j=1,sNy
./pkg/smooth/smooth_rhs.F	101	SMOOTH_RHS	maskUp(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F	103	SMOOTH_RHS	maskUp(i,j,bi,bj) =
./pkg/smooth/smooth_rhs.F	104	SMOOTH_RHS	& maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	111	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	113	SMOOTH_RHS	df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	114	SMOOTH_RHS	& -xA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	115	SMOOTH_RHS	& *smooth3D_Kux(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	116	SMOOTH_RHS	& *recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	117	SMOOTH_RHS	& *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	121	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	125	SMOOTH_RHS	& ( maskC(i-1,j,k,bi,bj)*
./pkg/smooth/smooth_rhs.F	126	SMOOTH_RHS	& (fld_in(i-1,j, MAX(k-1,1) ,bi,bj)-fld_in(i-1,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	127	SMOOTH_RHS	& +maskC( i ,j,k,bi,bj)*
./pkg/smooth/smooth_rhs.F	128	SMOOTH_RHS	& (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	131	SMOOTH_RHS	& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F	132	SMOOTH_RHS	& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F	133	SMOOTH_RHS	& +maskC( i ,j,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F	134	SMOOTH_RHS	& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F	136	SMOOTH_RHS	df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	137	SMOOTH_RHS	& - xA(i,j,bi,bj)smooth3D_Kuz(i,j,k,bi,bj)dTdz(bi,bj)
./pkg/smooth/smooth_rhs.F	141	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	144	SMOOTH_RHS	& +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	145	SMOOTH_RHS	& recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	146	SMOOTH_RHS	& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F	147	SMOOTH_RHS	& +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F	148	SMOOTH_RHS	& recip_dyC(i,j+1,bi,bj)
./pkg/smooth/smooth_rhs.F	149	SMOOTH_RHS	& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F	150	SMOOTH_RHS	& +0.5*(maskS(i-1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	151	SMOOTH_RHS	& recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	152	SMOOTH_RHS	& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F	153	SMOOTH_RHS	& +maskS(i-1,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F	154	SMOOTH_RHS	& recip_dyC(i,j+1,bi,bj)
./pkg/smooth/smooth_rhs.F	155	SMOOTH_RHS	& (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F	157	SMOOTH_RHS	df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	158	SMOOTH_RHS	& - xA(i,j,bi,bj)smooth3D_Kuy(i,j,k,bi,bj)dTdy(bi,bj)
./pkg/smooth/smooth_rhs.F	165	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	167	SMOOTH_RHS	fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	171	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	173	SMOOTH_RHS	df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F	179	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	181	SMOOTH_RHS	df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	182	SMOOTH_RHS	& -yA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	183	SMOOTH_RHS	& *smooth3D_Kvy(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	184	SMOOTH_RHS	& *recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	185	SMOOTH_RHS	& *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F	189	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	193	SMOOTH_RHS	& ( maskC(i,j-1,k,bi,bj)*
./pkg/smooth/smooth_rhs.F	194	SMOOTH_RHS	& (fld_in(i,j-1,MAX(k-1,1),bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F	195	SMOOTH_RHS	& +maskC(i, j ,k,bi,bj)*
./pkg/smooth/smooth_rhs.F	196	SMOOTH_RHS	& (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj))
./pkg/smooth/smooth_rhs.F	199	SMOOTH_RHS	& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F	200	SMOOTH_RHS	& (fld_in(i,j-1,k,bi,bj)-fld_in(i,j-1,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F	201	SMOOTH_RHS	& +maskC(i, j ,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F	202	SMOOTH_RHS	& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F	204	SMOOTH_RHS	df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	205	SMOOTH_RHS	& - yA(i,j,bi,bj)smooth3D_Kvz(i,j,k,bi,bj)dTdz(bi,bj)
./pkg/smooth/smooth_rhs.F	209	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	212	SMOOTH_RHS	& +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	213	SMOOTH_RHS	& recip_dxC(i+1,j,bi,bj)
./pkg/smooth/smooth_rhs.F	214	SMOOTH_RHS	& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	215	SMOOTH_RHS	& +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	216	SMOOTH_RHS	& recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	217	SMOOTH_RHS	& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F	218	SMOOTH_RHS	& +0.5*(maskW(i+1,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F	219	SMOOTH_RHS	& recip_dxC(i+1,j,bi,bj)
./pkg/smooth/smooth_rhs.F	220	SMOOTH_RHS	& (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F	221	SMOOTH_RHS	& +maskW(i,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F	222	SMOOTH_RHS	& recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	223	SMOOTH_RHS	& (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)))
./pkg/smooth/smooth_rhs.F	225	SMOOTH_RHS	df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	226	SMOOTH_RHS	& - yA(i,j,bi,bj)smooth3D_Kvx(i,j,k,bi,bj)dTdx(bi,bj)
./pkg/smooth/smooth_rhs.F	232	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	234	SMOOTH_RHS	fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	238	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	240	SMOOTH_RHS	df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F	249	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	251	SMOOTH_RHS	df(i,j,bi,bj) =
./pkg/smooth/smooth_rhs.F	252	SMOOTH_RHS	& -_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	253	SMOOTH_RHS	& smooth3D_kappaR(i,j,k,bi,bj)recip_drC(k)
./pkg/smooth/smooth_rhs.F	254	SMOOTH_RHS	& *(fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	255	SMOOTH_RHS	& -fld_in(i,j,k-1,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F	265	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	268	SMOOTH_RHS	& +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	269	SMOOTH_RHS	& recip_dxC(i+1,j,bi,bj)
./pkg/smooth/smooth_rhs.F	270	SMOOTH_RHS	& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	271	SMOOTH_RHS	& +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	272	SMOOTH_RHS	& recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	273	SMOOTH_RHS	& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F	274	SMOOTH_RHS	& +0.5*(maskW(i+1,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F	275	SMOOTH_RHS	& recip_dxC(i+1,j,bi,bj)
./pkg/smooth/smooth_rhs.F	276	SMOOTH_RHS	& (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))
./pkg/smooth/smooth_rhs.F	277	SMOOTH_RHS	& +maskW(i,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F	278	SMOOTH_RHS	& recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	279	SMOOTH_RHS	& (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj)))
./pkg/smooth/smooth_rhs.F	283	SMOOTH_RHS	& +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	284	SMOOTH_RHS	& recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	285	SMOOTH_RHS	& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F	286	SMOOTH_RHS	& +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F	287	SMOOTH_RHS	& recip_dyC(i,j+1,bi,bj)
./pkg/smooth/smooth_rhs.F	288	SMOOTH_RHS	& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F	289	SMOOTH_RHS	& +0.5*(maskS(i,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F	290	SMOOTH_RHS	& recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	291	SMOOTH_RHS	& (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj))
./pkg/smooth/smooth_rhs.F	292	SMOOTH_RHS	& +maskS(i,j+1,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F	293	SMOOTH_RHS	& recip_dyC(i,j+1,bi,bj)
./pkg/smooth/smooth_rhs.F	294	SMOOTH_RHS	& (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)))
./pkg/smooth/smooth_rhs.F	297	SMOOTH_RHS	df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	298	SMOOTH_RHS	& - rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	299	SMOOTH_RHS	& ( smooth3D_Kwx(i,j,k,bi,bj)dTdx(bi,bj)
./pkg/smooth/smooth_rhs.F	300	SMOOTH_RHS	& +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) )
./pkg/smooth/smooth_rhs.F	310	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	312	SMOOTH_RHS	fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) +
./pkg/smooth/smooth_rhs.F	313	SMOOTH_RHS	& df(i,j,bi,bj)*maskUp(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	318	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	320	SMOOTH_RHS	df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F	337	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	339	SMOOTH_RHS	gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	340	SMOOTH_RHS	& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_rhs.F	341	SMOOTH_RHS	& *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	342	SMOOTH_RHS	& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	343	SMOOTH_RHS	& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	344	SMOOTH_RHS	& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F	349	SMOOTH_RHS	DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F	351	SMOOTH_RHS	gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	352	SMOOTH_RHS	& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_rhs.F	353	SMOOTH_RHS	& *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	354	SMOOTH_RHS	& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	355	SMOOTH_RHS	& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F	356	SMOOTH_RHS	& +(fVerT(i,j,k,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F	61	SMOOTH_RHS	INTEGER i,j,k
./pkg/smooth/smooth_rhs.F	75	SMOOTH_RHS	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_rhs.F	77	SMOOTH_RHS	fZon(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F	78	SMOOTH_RHS	fMer(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F	79	SMOOTH_RHS	fVerT(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F	80	SMOOTH_RHS	gt_in(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F	93	SMOOTH_RHS	DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_rhs.F	95	SMOOTH_RHS	df(i,j,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F	96	SMOOTH_RHS	xA(i,j,bi,bj) = _dyG(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	97	SMOOTH_RHS	& drF(k)smooth_hFacW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F	98	SMOOTH_RHS	yA(i,j,bi,bj) = _dxG(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F	99	SMOOTH_RHS	& drF(k)smooth_hFacS(i,j,k,bi,bj)
./pkg/sphere/exch_all_2d_rl.F	54	EXCH_ALLGATHER_2D_RL	integer i, j
./pkg/sphere/exch_all_2d_rl.F	85	EXCH_ALLGATHER_2D_RL	do j = 1, sNy
./pkg/sphere/exch_all_2d_rl.F	87	EXCH_ALLGATHER_2D_RL	full(i,j,bi,bj,ipx,ipy) = recvbuf(i,j,bi,bj,iproc)
./model/src/ini_dynvars.F	39	INI_DYNVARS	INTEGER i, j, k
./model/src/ini_dynvars.F	48	INI_DYNVARS	DO j=1-OLy,sNy+OLy
./model/src/ini_dynvars.F	51	INI_DYNVARS	uVel (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	52	INI_DYNVARS	vVel (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	53	INI_DYNVARS	wVel (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	55	INI_DYNVARS	uMean(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	56	INI_DYNVARS	vMean(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	58	INI_DYNVARS	theta(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	59	INI_DYNVARS	salt (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	61	INI_DYNVARS	gU(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	62	INI_DYNVARS	gV(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	64	INI_DYNVARS	gT(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	65	INI_DYNVARS	gS(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	68	INI_DYNVARS	guNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F	69	INI_DYNVARS	gvNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F	70	INI_DYNVARS	gtNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F	71	INI_DYNVARS	gsNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F	72	INI_DYNVARS	guNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F	73	INI_DYNVARS	gvNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F	74	INI_DYNVARS	gtNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F	75	INI_DYNVARS	gsNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F	77	INI_DYNVARS	guNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	78	INI_DYNVARS	gvNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	79	INI_DYNVARS	gtNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	80	INI_DYNVARS	gsNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	82	INI_DYNVARS	totPhiHyd (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	83	INI_DYNVARS	rhoInSitu (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	84	INI_DYNVARS	IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	92	INI_DYNVARS	etaN(i,j,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	93	INI_DYNVARS	etaH(i,j,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	94	INI_DYNVARS	phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F	95	INI_DYNVARS	hMixLayer(i,j,bi,bj) = 0. _d 0
./pkg/streamice/adstreamice_cg_solve.F	100	ADSTREAMICE_CG_SOLVE	& cg_Vin (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	101	ADSTREAMICE_CG_SOLVE	UtempSt (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F	102	ADSTREAMICE_CG_SOLVE	& U_state (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	103	ADSTREAMICE_CG_SOLVE	VtempSt (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F	104	ADSTREAMICE_CG_SOLVE	& V_state (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	148	ADSTREAMICE_CG_SOLVE	DO j=1,sNy
./pkg/streamice/adstreamice_cg_solve.F	153	ADSTREAMICE_CG_SOLVE	if (STREAMICE_umask(i,j,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F	154	ADSTREAMICE_CG_SOLVE	if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F	155	ADSTREAMICE_CG_SOLVE	adA_uu(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F	156	ADSTREAMICE_CG_SOLVE	& adA_uu(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F	157	ADSTREAMICE_CG_SOLVE	& cg_Uin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F	158	ADSTREAMICE_CG_SOLVE	& U_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	161	ADSTREAMICE_CG_SOLVE	if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F	162	ADSTREAMICE_CG_SOLVE	adA_uv(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F	163	ADSTREAMICE_CG_SOLVE	& adA_uv(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F	164	ADSTREAMICE_CG_SOLVE	& cg_Uin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F	165	ADSTREAMICE_CG_SOLVE	& V_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	169	ADSTREAMICE_CG_SOLVE	if (STREAMICE_vmask(i,j,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F	170	ADSTREAMICE_CG_SOLVE	if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F	171	ADSTREAMICE_CG_SOLVE	adA_vu(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F	172	ADSTREAMICE_CG_SOLVE	& adA_vu(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F	173	ADSTREAMICE_CG_SOLVE	& cg_Vin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F	174	ADSTREAMICE_CG_SOLVE	& U_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	176	ADSTREAMICE_CG_SOLVE	if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F	177	ADSTREAMICE_CG_SOLVE	adA_vv(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F	178	ADSTREAMICE_CG_SOLVE	& adA_vv(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F	179	ADSTREAMICE_CG_SOLVE	& cg_Vin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F	180	ADSTREAMICE_CG_SOLVE	& V_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	193	ADSTREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/adstreamice_cg_solve.F	196	ADSTREAMICE_CG_SOLVE	& j.lt.1.or.j.gt.sNy) then
./pkg/streamice/adstreamice_cg_solve.F	197	ADSTREAMICE_CG_SOLVE	cg_Uin (i,j,bi,bj) = 0.0
./pkg/streamice/adstreamice_cg_solve.F	198	ADSTREAMICE_CG_SOLVE	cg_Vin (i,j,bi,bj) = 0.0
./pkg/streamice/adstreamice_cg_solve.F	202	ADSTREAMICE_CG_SOLVE	ada_uu(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F	203	ADSTREAMICE_CG_SOLVE	ada_uv(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F	204	ADSTREAMICE_CG_SOLVE	ada_vu(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F	205	ADSTREAMICE_CG_SOLVE	ada_vv(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F	210	ADSTREAMICE_CG_SOLVE	cg_Uin (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F	211	ADSTREAMICE_CG_SOLVE	& cg_Uin (i,j,bi,bj) +
./pkg/streamice/adstreamice_cg_solve.F	212	ADSTREAMICE_CG_SOLVE	& Utemp (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	213	ADSTREAMICE_CG_SOLVE	cg_Vin (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F	214	ADSTREAMICE_CG_SOLVE	& cg_Vin (i,j,bi,bj) +
./pkg/streamice/adstreamice_cg_solve.F	215	ADSTREAMICE_CG_SOLVE	& Vtemp (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	216	ADSTREAMICE_CG_SOLVE	cg_bu (i,j,bi,bj) = 0.
./pkg/streamice/adstreamice_cg_solve.F	217	ADSTREAMICE_CG_SOLVE	cg_bv (i,j,bi,bj) = 0.
./pkg/streamice/adstreamice_cg_solve.F	218	ADSTREAMICE_CG_SOLVE	U_state (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F	219	ADSTREAMICE_CG_SOLVE	& UtempSt (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	220	ADSTREAMICE_CG_SOLVE	V_state (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F	221	ADSTREAMICE_CG_SOLVE	& VtempSt (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	69	ADSTREAMICE_CG_SOLVE	INTEGER i, j, bi, bj, cg_halo, conv_flag, tmpiter
./pkg/streamice/adstreamice_cg_solve.F	95	ADSTREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/adstreamice_cg_solve.F	97	ADSTREAMICE_CG_SOLVE	Utemp (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F	98	ADSTREAMICE_CG_SOLVE	& cg_Uin (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F	99	ADSTREAMICE_CG_SOLVE	Vtemp (i,j,bi,bj) =
./pkg/streamice/adstreamice_invert_surf_forthick.F	25	ADSTRMICE_H_INV	INTEGER ITER, i, j, bi, bj
./pkg/streamice/adstreamice_invert_surf_forthick.F	69	ADSTRMICE_H_INV	do j = 1,sNy
./pkg/streamice/adstreamice_invert_surf_forthick.F	72	ADSTRMICE_H_INV	hf = -1.0 * i_r * R_low_si (i,j,bi,bj)
./pkg/streamice/adstreamice_invert_surf_forthick.F	75	ADSTRMICE_H_INV	& H (i,j,bi,bj)-hf,
./pkg/streamice/adstreamice_invert_surf_forthick.F	81	ADSTRMICE_H_INV	r_low_si_ad (i,j,bi,bj) =
./pkg/streamice/adstreamice_invert_surf_forthick.F	82	ADSTRMICE_H_INV	& r_low_si_ad (i,j,bi,bj) -
./pkg/streamice/adstreamice_invert_surf_forthick.F	84	ADSTRMICE_H_INV	& h_streamice_ad(i,j,bi,bj)
./model/src/ini_eos.F	360	EOS_CHECK	INTEGER i, j, k
./model/src/ini_eos.F	456	EOS_CHECK	j = 1
./model/src/ini_eos.F	467	EOS_CHECK	mskSave = maskC(i,j,k,bi,bj)
./model/src/ini_eos.F	469	EOS_CHECK	maskC(i,j,k,bi,bj) = 1.
./model/src/ini_eos.F	470	EOS_CHECK	totPhiHyd(i,j,k,bi,bj) = 0.
./model/src/ini_eos.F	479	EOS_CHECK	tFld(i,j) = ptLoc(kcheck)
./model/src/ini_eos.F	481	EOS_CHECK	tFld(i,j) = tLoc(kcheck)
./model/src/ini_eos.F	483	EOS_CHECK	sFld(i,j) = sLoc(kcheck)
./model/src/ini_eos.F	484	EOS_CHECK	pFld(i,j) = pLoc(kcheck)
./model/src/ini_eos.F	485	EOS_CHECK	rhoLoc(i,j) = 0. _d 0
./model/src/ini_eos.F	495	EOS_CHECK	bulkMod(i,j) = -1. _d 0
./model/src/ini_eos.F	526	EOS_CHECK	& 'rho(', sFld(i,j), ' PSU,',
./model/src/ini_eos.F	527	EOS_CHECK	& tFld(i,j), ' degC,',
./model/src/ini_eos.F	534	EOS_CHECK	& rhoLoc(i,j)+rhoConst, bulkMod(i,j)
./model/src/ini_eos.F	538	EOS_CHECK	CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck),
./model/src/ini_eos.F	539	EOS_CHECK	& pLoc(kcheck), rhoLoc(i,j), myThid )
./model/src/ini_eos.F	542	EOS_CHECK	& rhoLoc(i,j)
./model/src/ini_eos.F	548	EOS_CHECK	maskC(i,j,k,bi,bj) = mskSave
./pkg/streamice/streamice_adv_flux_fl_x.F	102	STREAMICE_ADV_FLUX_FL_X	stencil (k) = TRAC(i+k-1,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F	104	STREAMICE_ADV_FLUX_FL_X	IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F	105	STREAMICE_ADV_FLUX_FL_X	& (STREAMICE_hmask(i-2,j,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_x.F	106	STREAMICE_ADV_FLUX_FL_X	& H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_x.F	108	STREAMICE_ADV_FLUX_FL_X	IF (((Gi.eq.1).and.(STREAMICE_hmask(i-1,j,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_x.F	112	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = TRAC(i-1,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_x.F	114	STREAMICE_ADV_FLUX_FL_X	ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F	138	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F	142	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F	149	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = uface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_x.F	156	STREAMICE_ADV_FLUX_FL_X	stencil (k) = TRAC(i-k,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F	158	STREAMICE_ADV_FLUX_FL_X	IF ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F	159	STREAMICE_ADV_FLUX_FL_X	& (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_x.F	160	STREAMICE_ADV_FLUX_FL_X	& H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_x.F	162	STREAMICE_ADV_FLUX_FL_X	IF (((Gi.eq.Nx).and.(STREAMICE_hmask(i+1,j,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_x.F	166	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = TRAC(i+1,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_x.F	168	STREAMICE_ADV_FLUX_FL_X	ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F	191	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F	195	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F	202	STREAMICE_ADV_FLUX_FL_X	Xflux (i,j,bi,bj) = uface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_x.F	208	STREAMICE_ADV_FLUX_FL_X	Xflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_flux_fl_x.F	46	STREAMICE_ADV_FLUX_FL_X	INTEGER i, j, bi, bj, Gi, Gj, k
./pkg/streamice/streamice_adv_flux_fl_x.F	60	STREAMICE_ADV_FLUX_FL_X	DO j=1-oly,sNy+oly
./pkg/streamice/streamice_adv_flux_fl_x.F	62	STREAMICE_ADV_FLUX_FL_X	H0_valid(i,j,bi,bj)=.false.
./pkg/streamice/streamice_adv_flux_fl_x.F	70	STREAMICE_ADV_FLUX_FL_X	DO j=1-3,sNy+3
./pkg/streamice/streamice_adv_flux_fl_x.F	71	STREAMICE_ADV_FLUX_FL_X	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_adv_flux_fl_x.F	78	STREAMICE_ADV_FLUX_FL_X	IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or.
./pkg/streamice/streamice_adv_flux_fl_x.F	79	STREAMICE_ADV_FLUX_FL_X	& ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F	80	STREAMICE_ADV_FLUX_FL_X	& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F	85	STREAMICE_ADV_FLUX_FL_X	uface = UADV(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F	86	STREAMICE_ADV_FLUX_FL_X	cfl = ABS(uface) * time_step * recip_dxC(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F	89	STREAMICE_ADV_FLUX_FL_X	IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_x.F	91	STREAMICE_ADV_FLUX_FL_X	& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F	92	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_x.F	94	STREAMICE_ADV_FLUX_FL_X	& (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_x.F	96	STREAMICE_ADV_FLUX_FL_X	& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F	97	STREAMICE_ADV_FLUX_FL_X	XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_y.F	100	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F	107	STREAMICE_ADV_FLUX_FL_Y	stencil (k) = TRAC(i,j+k-1,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F	109	STREAMICE_ADV_FLUX_FL_Y	IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F	110	STREAMICE_ADV_FLUX_FL_Y	& (STREAMICE_hmask(i,j-2,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_y.F	111	STREAMICE_ADV_FLUX_FL_Y	& H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_y.F	113	STREAMICE_ADV_FLUX_FL_Y	IF (((Gj.eq.1).and.(STREAMICE_hmask(i,j-1,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_y.F	117	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = TRAC(i,j-1,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F	119	STREAMICE_ADV_FLUX_FL_Y	ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F	142	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F	146	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F	153	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = vface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_y.F	160	STREAMICE_ADV_FLUX_FL_Y	stencil (k) = TRAC(i,j-k,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F	162	STREAMICE_ADV_FLUX_FL_Y	IF ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F	163	STREAMICE_ADV_FLUX_FL_Y	& (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_y.F	164	STREAMICE_ADV_FLUX_FL_Y	& H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_y.F	166	STREAMICE_ADV_FLUX_FL_Y	IF (((Gj.eq.Ny).and.(STREAMICE_hmask(i,j+1,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_y.F	170	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = TRAC(i,j+1,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F	172	STREAMICE_ADV_FLUX_FL_Y	ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F	194	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F	198	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F	205	STREAMICE_ADV_FLUX_FL_Y	yflux (i,j,bi,bj) = vface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_y.F	211	STREAMICE_ADV_FLUX_FL_Y	yflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_flux_fl_y.F	47	STREAMICE_ADV_FLUX_FL_Y	INTEGER i, j, bi, bj, Gi, Gj, k
./pkg/streamice/streamice_adv_flux_fl_y.F	62	STREAMICE_ADV_FLUX_FL_Y	DO j=1-oly,sNy+oly
./pkg/streamice/streamice_adv_flux_fl_y.F	64	STREAMICE_ADV_FLUX_FL_Y	H0_valid(i,j,bi,bj)=.false.
./pkg/streamice/streamice_adv_flux_fl_y.F	72	STREAMICE_ADV_FLUX_FL_Y	DO j=1,sNy+1
./pkg/streamice/streamice_adv_flux_fl_y.F	73	STREAMICE_ADV_FLUX_FL_Y	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_adv_flux_fl_y.F	81	STREAMICE_ADV_FLUX_FL_Y	IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or.
./pkg/streamice/streamice_adv_flux_fl_y.F	82	STREAMICE_ADV_FLUX_FL_Y	& ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F	83	STREAMICE_ADV_FLUX_FL_Y	& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F	86	STREAMICE_ADV_FLUX_FL_Y	vface = VADV(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F	87	STREAMICE_ADV_FLUX_FL_Y	cfl = ABS(vface) * time_step * recip_dyC(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F	92	STREAMICE_ADV_FLUX_FL_Y	IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_y.F	94	STREAMICE_ADV_FLUX_FL_Y	& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F	95	STREAMICE_ADV_FLUX_FL_Y	YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F	97	STREAMICE_ADV_FLUX_FL_Y	& (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_y.F	99	STREAMICE_ADV_FLUX_FL_Y	& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_front.F	101	STREAMICE_ADV_FRONT	hflux_x_SI(i,j,bi,bj)=hflux_x_SI2(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	102	STREAMICE_ADV_FRONT	hflux_y_SI(i,j,bi,bj)=hflux_y_SI2(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	103	STREAMICE_ADV_FRONT	hflux_x_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	104	STREAMICE_ADV_FRONT	hflux_y_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	117	STREAMICE_ADV_FRONT	DO j=1-1,sNy+1
./pkg/streamice/streamice_adv_front.F	118	STREAMICE_ADV_FRONT	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_adv_front.F	132	STREAMICE_ADV_FRONT	& + (sNx+2)*(j)
./pkg/streamice/streamice_adv_front.F	150	STREAMICE_ADV_FRONT	& STREAMICE_calve_mask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_adv_front.F	153	STREAMICE_ADV_FRONT	& (STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or.
./pkg/streamice/streamice_adv_front.F	154	STREAMICE_ADV_FRONT	& STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN
./pkg/streamice/streamice_adv_front.F	163	STREAMICE_ADV_FRONT	IF (hflux_x_SI(i,j,bi,bj).gt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F	165	STREAMICE_ADV_FRONT	href = href + H_streamice(i-1,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	166	STREAMICE_ADV_FRONT	tot_flux = tot_flux + hflux_x_SI(i,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F	167	STREAMICE_ADV_FRONT	& dxG(i,j,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F	168	STREAMICE_ADV_FRONT	hflux_x_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	175	STREAMICE_ADV_FRONT	IF (hflux_x_SI(i+1,j,bi,bj).lt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F	177	STREAMICE_ADV_FRONT	href = href + H_streamice(i+1,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	178	STREAMICE_ADV_FRONT	tot_flux = tot_flux - hflux_x_SI(i+1,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F	179	STREAMICE_ADV_FRONT	& dxG(i+1,j,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F	180	STREAMICE_ADV_FRONT	hflux_x_SI(i+1,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	187	STREAMICE_ADV_FRONT	IF (hflux_y_SI(i,j,bi,bj).gt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F	189	STREAMICE_ADV_FRONT	href = href + H_streamice(i,j-1,bi,bj)
./pkg/streamice/streamice_adv_front.F	190	STREAMICE_ADV_FRONT	tot_flux = tot_flux + hflux_y_SI(i,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F	191	STREAMICE_ADV_FRONT	& dyG(i,j,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F	192	STREAMICE_ADV_FRONT	hflux_y_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	199	STREAMICE_ADV_FRONT	IF (hflux_y_SI(i,j+1,bi,bj).lt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F	201	STREAMICE_ADV_FRONT	href = href + H_streamice(i,j+1,bi,bj)
./pkg/streamice/streamice_adv_front.F	202	STREAMICE_ADV_FRONT	tot_flux = tot_flux - hflux_y_SI(i,j+1,bi,bj) *
./pkg/streamice/streamice_adv_front.F	203	STREAMICE_ADV_FRONT	& dyG(i,j+1,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F	204	STREAMICE_ADV_FRONT	hflux_y_SI(i,j+1,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	210	STREAMICE_ADV_FRONT	partial_vol = H_streamice (i,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F	211	STREAMICE_ADV_FRONT	& area_shelf_streamice (i,j,bi,bj) + tot_flux
./pkg/streamice/streamice_adv_front.F	212	STREAMICE_ADV_FRONT	hpot = partial_vol * recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	215	STREAMICE_ADV_FRONT	STREAMICE_hmask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_adv_front.F	216	STREAMICE_ADV_FRONT	H_streamice (i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F	217	STREAMICE_ADV_FRONT	area_shelf_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_adv_front.F	218	STREAMICE_ADV_FRONT	& rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	223	STREAMICE_ADV_FRONT	STREAMICE_hmask (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_adv_front.F	224	STREAMICE_ADV_FRONT	area_shelf_streamice (i,j,bi,bj) = partial_vol / href
./pkg/streamice/streamice_adv_front.F	225	STREAMICE_ADV_FRONT	H_streamice (i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F	230	STREAMICE_ADV_FRONT	STREAMICE_hmask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_adv_front.F	231	STREAMICE_ADV_FRONT	area_shelf_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_adv_front.F	232	STREAMICE_ADV_FRONT	& rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	234	STREAMICE_ADV_FRONT	PRINT *, "GOT HERE OVERFLOW ", i,j,
./pkg/streamice/streamice_adv_front.F	235	STREAMICE_ADV_FRONT	& area_shelf_streamice(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	236	STREAMICE_ADV_FRONT	partial_vol = partial_vol - href * rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	246	STREAMICE_ADV_FRONT	IF ( (STREAMICE_ufacemask(i-1+k,j,bi,bj).eq.2.0) .or.
./pkg/streamice/streamice_adv_front.F	248	STREAMICE_ADV_FRONT	& STREAMICE_calve_mask(i+2*k-3,j,bi,bj).ne.1.0)
./pkg/streamice/streamice_adv_front.F	251	STREAMICE_ADV_FRONT	ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free
./pkg/streamice/streamice_adv_front.F	257	STREAMICE_ADV_FRONT	IF ( (STREAMICE_vfacemask (i,j-1+k,bi,bj).eq.2.0) .or.
./pkg/streamice/streamice_adv_front.F	259	STREAMICE_ADV_FRONT	& STREAMICE_calve_mask(i,j+2*k-3,bi,bj).ne.1.0)
./pkg/streamice/streamice_adv_front.F	262	STREAMICE_ADV_FRONT	ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN
./pkg/streamice/streamice_adv_front.F	269	STREAMICE_ADV_FRONT	H_streamice(i,j,bi,bj) = href + partial_vol *
./pkg/streamice/streamice_adv_front.F	270	STREAMICE_ADV_FRONT	& recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	272	STREAMICE_ADV_FRONT	H_streamice(i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F	276	STREAMICE_ADV_FRONT	hflux_x_SI2(i-1+k,j,bi,bj) =
./pkg/streamice/streamice_adv_front.F	278	STREAMICE_ADV_FRONT	& dxG(i-1+k,j,bi,bj)
./pkg/streamice/streamice_adv_front.F	284	STREAMICE_ADV_FRONT	hflux_y_SI2(i,j-1+k,bi,bj) =
./pkg/streamice/streamice_adv_front.F	286	STREAMICE_ADV_FRONT	& dxG(i,j-1+k,bi,bj)
./pkg/streamice/streamice_adv_front.F	41	STREAMICE_ADV_FRONT	INTEGER i, j, bi, bj, k, iter_count, iter_rpt
./pkg/streamice/streamice_adv_front.F	60	STREAMICE_ADV_FRONT	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_adv_front.F	62	STREAMICE_ADV_FRONT	hflux_x_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	63	STREAMICE_ADV_FRONT	hflux_y_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F	99	STREAMICE_ADV_FRONT	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_advect_2dtracer.F	121	STREAMICE_ADVECT_2DTRACER	DO j=1-3,sNy+3
./pkg/streamice/streamice_advect_2dtracer.F	124	STREAMICE_ADVECT_2DTRACER	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_2dtracer.F	129	STREAMICE_ADVECT_2DTRACER	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_2dtracer.F	130	STREAMICE_ADVECT_2DTRACER	& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F	135	STREAMICE_ADVECT_2DTRACER	GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	137	STREAMICE_ADVECT_2DTRACER	trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	139	STREAMICE_ADVECT_2DTRACER	& ((xtracflux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	140	STREAMICE_ADVECT_2DTRACER	& xtracflux(i,j,bi,bj)dyG(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F	141	STREAMICE_ADVECT_2DTRACER	& recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	142	STREAMICE_ADVECT_2DTRACER	& trac2d(i,j,bi,bj) *
./pkg/streamice/streamice_advect_2dtracer.F	143	STREAMICE_ADVECT_2DTRACER	& (utrans(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)-
./pkg/streamice/streamice_advect_2dtracer.F	144	STREAMICE_ADVECT_2DTRACER	& utrans(i,j,bi,bj)dyG(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F	145	STREAMICE_ADVECT_2DTRACER	& recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F	175	STREAMICE_ADVECT_2DTRACER	DO j=1,sNy
./pkg/streamice/streamice_advect_2dtracer.F	178	STREAMICE_ADVECT_2DTRACER	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_2dtracer.F	180	STREAMICE_ADVECT_2DTRACER	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_2dtracer.F	181	STREAMICE_ADVECT_2DTRACER	& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F	190	STREAMICE_ADVECT_2DTRACER	GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	192	STREAMICE_ADVECT_2DTRACER	trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	194	STREAMICE_ADVECT_2DTRACER	& ((ytracflux(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	195	STREAMICE_ADVECT_2DTRACER	& ytracflux(i,j,bi,bj)dxG(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F	196	STREAMICE_ADVECT_2DTRACER	& recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	197	STREAMICE_ADVECT_2DTRACER	& (vtrans(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F	198	STREAMICE_ADVECT_2DTRACER	& vtrans(i,j,bi,bj)dxG(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F	199	STREAMICE_ADVECT_2DTRACER	& trac2d(i,j,bi,bj) *
./pkg/streamice/streamice_advect_2dtracer.F	200	STREAMICE_ADVECT_2DTRACER	& recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F	214	STREAMICE_ADVECT_2DTRACER	DO j=1,sNy
./pkg/streamice/streamice_advect_2dtracer.F	217	STREAMICE_ADVECT_2DTRACER	trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc *
./pkg/streamice/streamice_advect_2dtracer.F	218	STREAMICE_ADVECT_2DTRACER	& GAD_trac_2d(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F	221	STREAMICE_ADVECT_2DTRACER	trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc *
./pkg/streamice/streamice_advect_2dtracer.F	223	STREAMICE_ADVECT_2DTRACER	& (GAD_trac_2d(i,j,bi,bj) - GAD_trac_2dNm1(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F	48	STREAMICE_ADVECT_2DTRACER	INTEGER i, j, bi, bj
./pkg/streamice/streamice_advect_2dtracer.F	69	STREAMICE_ADVECT_2DTRACER	DO j=1-3,sNy+3
./pkg/streamice/streamice_advect_2dtracer.F	75	STREAMICE_ADVECT_2DTRACER	ytracflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_2dtracer.F	76	STREAMICE_ADVECT_2DTRACER	xtracflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_2dtracer.F	78	STREAMICE_ADVECT_2DTRACER	GAD_trac_2dNm1(i,j,bi,bj)=GAD_trac_2d(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F	79	STREAMICE_ADVECT_2DTRACER	GAD_trac_2d (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_2dtracer.F	83	STREAMICE_ADVECT_2DTRACER	IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F	84	STREAMICE_ADVECT_2DTRACER	BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F	85	STREAMICE_ADVECT_2DTRACER	ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F	86	STREAMICE_ADVECT_2DTRACER	BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F	89	STREAMICE_ADVECT_2DTRACER	IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F	90	STREAMICE_ADVECT_2DTRACER	BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F	91	STREAMICE_ADVECT_2DTRACER	ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F	92	STREAMICE_ADVECT_2DTRACER	BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	101	STREAMICE_ADVECT_THICKNESS	BCMASKX(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F	102	STREAMICE_ADVECT_THICKNESS	BCVALX(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	103	STREAMICE_ADVECT_THICKNESS	utrans(i,j,bi,bj) = .5 * (
./pkg/streamice/streamice_advect_thickness.F	104	STREAMICE_ADVECT_THICKNESS	& u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	107	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_thickness.F	108	STREAMICE_ADVECT_THICKNESS	BCMASKy(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F	109	STREAMICE_ADVECT_THICKNESS	BCVALy(i,j,bi,bj) = h_vbdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	110	STREAMICE_ADVECT_THICKNESS	vtrans(i,j,bi,bj) = .5 * (
./pkg/streamice/streamice_advect_thickness.F	111	STREAMICE_ADVECT_THICKNESS	& v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	112	STREAMICE_ADVECT_THICKNESS	ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_thickness.F	113	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	114	STREAMICE_ADVECT_THICKNESS	vflux = v_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	115	STREAMICE_ADVECT_THICKNESS	BCMASKY(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F	116	STREAMICE_ADVECT_THICKNESS	BCVALY(i,j,bi,bj) = vflux
./pkg/streamice/streamice_advect_thickness.F	117	STREAMICE_ADVECT_THICKNESS	vtrans(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_advect_thickness.F	118	STREAMICE_ADVECT_THICKNESS	ELSEIF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	119	STREAMICE_ADVECT_THICKNESS	vflux = v_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	120	STREAMICE_ADVECT_THICKNESS	BCMASKY(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F	121	STREAMICE_ADVECT_THICKNESS	BCVALY(i,j,bi,bj) = vflux
./pkg/streamice/streamice_advect_thickness.F	122	STREAMICE_ADVECT_THICKNESS	vtrans(i,j,bi,bj) = -1.0
./pkg/streamice/streamice_advect_thickness.F	127	STREAMICE_ADVECT_THICKNESS	vtrans(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_advect_thickness.F	129	STREAMICE_ADVECT_THICKNESS	& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR.
./pkg/streamice/streamice_advect_thickness.F	130	STREAMICE_ADVECT_THICKNESS	& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_advect_thickness.F	131	STREAMICE_ADVECT_THICKNESS	BCMASKY(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F	132	STREAMICE_ADVECT_THICKNESS	BCVALY(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	133	STREAMICE_ADVECT_THICKNESS	vtrans(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	135	STREAMICE_ADVECT_THICKNESS	BCMASKy(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F	136	STREAMICE_ADVECT_THICKNESS	BCVALy(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	137	STREAMICE_ADVECT_THICKNESS	vtrans(i,j,bi,bj) = .5 * (
./pkg/streamice/streamice_advect_thickness.F	138	STREAMICE_ADVECT_THICKNESS	& v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	162	STREAMICE_ADVECT_THICKNESS	DO j=1,sNy
./pkg/streamice/streamice_advect_thickness.F	164	STREAMICE_ADVECT_THICKNESS	IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	165	STREAMICE_ADVECT_THICKNESS	loc_icfl=max(abs(utrans(i,j,bi,bj)),
./pkg/streamice/streamice_advect_thickness.F	166	STREAMICE_ADVECT_THICKNESS	& abs(utrans(i+1,j,bi,bj))) / dxF(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	167	STREAMICE_ADVECT_THICKNESS	loc_icfl=max(loc_icfl,max(abs(vtrans(i,j,bi,bj)),
./pkg/streamice/streamice_advect_thickness.F	168	STREAMICE_ADVECT_THICKNESS	& abs(vtrans(i,j+1,bi,bj))) / dyF(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	210	STREAMICE_ADVECT_THICKNESS	DO j=1-3,sNy+3
./pkg/streamice/streamice_advect_thickness.F	213	STREAMICE_ADVECT_THICKNESS	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_thickness.F	217	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	218	STREAMICE_ADVECT_THICKNESS	h_after_uflux_SI (i,j,bi,bj) = H_streamice(i,j,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F	219	STREAMICE_ADVECT_THICKNESS	& (hflux_x_SI(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F	220	STREAMICE_ADVECT_THICKNESS	& hflux_x_SI(i,j,bi,bj)*dyG(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	221	STREAMICE_ADVECT_THICKNESS	& * recip_rA (i,j,bi,bj) * time_step_loc
./pkg/streamice/streamice_advect_thickness.F	222	STREAMICE_ADVECT_THICKNESS	IF ( h_after_uflux_SI (i,j,bi,bj).le.0.0) THEN
./pkg/streamice/streamice_advect_thickness.F	223	STREAMICE_ADVECT_THICKNESS	PRINT *, "h neg after x", i,j,hflux_x_SI(i+1,j,bi,bj),
./pkg/streamice/streamice_advect_thickness.F	224	STREAMICE_ADVECT_THICKNESS	& hflux_x_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	255	STREAMICE_ADVECT_THICKNESS	DO j=1,sNy
./pkg/streamice/streamice_advect_thickness.F	258	STREAMICE_ADVECT_THICKNESS	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_thickness.F	262	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	263	STREAMICE_ADVECT_THICKNESS	h_after_vflux_SI (i,j,bi,bj) = h_after_uflux_SI(i,j,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F	264	STREAMICE_ADVECT_THICKNESS	& (hflux_y_SI(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F	265	STREAMICE_ADVECT_THICKNESS	& hflux_y_SI(i,j,bi,bj)dxG(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	266	STREAMICE_ADVECT_THICKNESS	& recip_rA (i,j,bi,bj) * time_step_loc
./pkg/streamice/streamice_advect_thickness.F	267	STREAMICE_ADVECT_THICKNESS	IF ( h_after_vflux_SI (i,j,bi,bj).le.0.0) THEN
./pkg/streamice/streamice_advect_thickness.F	268	STREAMICE_ADVECT_THICKNESS	PRINT *, "h neg after y", i,j,hflux_y_SI(i,j+1,bi,bj),
./pkg/streamice/streamice_advect_thickness.F	269	STREAMICE_ADVECT_THICKNESS	& hflux_y_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	282	STREAMICE_ADVECT_THICKNESS	DO j=1,sNy
./pkg/streamice/streamice_advect_thickness.F	284	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	285	STREAMICE_ADVECT_THICKNESS	H_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F	286	STREAMICE_ADVECT_THICKNESS	& h_after_vflux_SI (i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	325	STREAMICE_ADVECT_THICKNESS	DO j=1,sNy
./pkg/streamice/streamice_advect_thickness.F	328	STREAMICE_ADVECT_THICKNESS	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_thickness.F	329	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_thickness.F	330	STREAMICE_ADVECT_THICKNESS	& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_thickness.F	331	STREAMICE_ADVECT_THICKNESS	MR = (1.-float_frac_streamice(i,j,bi,bj)) *
./pkg/streamice/streamice_advect_thickness.F	332	STREAMICE_ADVECT_THICKNESS	& (BDOT_STREAMICE(i,j,bi,bj) +
./pkg/streamice/streamice_advect_thickness.F	333	STREAMICE_ADVECT_THICKNESS	& BDOT_pert(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	334	STREAMICE_ADVECT_THICKNESS	SMB = ADOT_STREAMICE(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	339	STREAMICE_ADVECT_THICKNESS	& H_streamice (i,j,bi,bj))) THEN
./pkg/streamice/streamice_advect_thickness.F	340	STREAMICE_ADVECT_THICKNESS	H_streamice (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	341	STREAMICE_ADVECT_THICKNESS	STREAMICE_hmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F	342	STREAMICE_ADVECT_THICKNESS	PRINT *, "GOT HERE melted away! ", i,j
./pkg/streamice/streamice_advect_thickness.F	344	STREAMICE_ADVECT_THICKNESS	H_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F	345	STREAMICE_ADVECT_THICKNESS	& H_streamice (i,j,bi,bj) + TMB * time_step_loc
./pkg/streamice/streamice_advect_thickness.F	35	STREAMICE_ADVECT_THICKNESS	INTEGER i, j, bi, bj, Gi, Gj
./pkg/streamice/streamice_advect_thickness.F	65	STREAMICE_ADVECT_THICKNESS	DO j=1,sNy+1
./pkg/streamice/streamice_advect_thickness.F	68	STREAMICE_ADVECT_THICKNESS	H_streamice_prev(i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F	69	STREAMICE_ADVECT_THICKNESS	& H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	71	STREAMICE_ADVECT_THICKNESS	hflux_x_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	72	STREAMICE_ADVECT_THICKNESS	hflux_y_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	73	STREAMICE_ADVECT_THICKNESS	h_after_uflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	74	STREAMICE_ADVECT_THICKNESS	h_after_vflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	77	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_thickness.F	78	STREAMICE_ADVECT_THICKNESS	BCMASKX(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F	79	STREAMICE_ADVECT_THICKNESS	BCVALX(i,j,bi,bj) = h_ubdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	80	STREAMICE_ADVECT_THICKNESS	utrans(i,j,bi,bj) = .5 * (
./pkg/streamice/streamice_advect_thickness.F	81	STREAMICE_ADVECT_THICKNESS	& u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj))
./pkg/streamice/streamice_advect_thickness.F	82	STREAMICE_ADVECT_THICKNESS	ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_thickness.F	83	STREAMICE_ADVECT_THICKNESS	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	84	STREAMICE_ADVECT_THICKNESS	uflux = u_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	85	STREAMICE_ADVECT_THICKNESS	BCMASKX(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F	86	STREAMICE_ADVECT_THICKNESS	BCVALX(i,j,bi,bj) = uflux
./pkg/streamice/streamice_advect_thickness.F	87	STREAMICE_ADVECT_THICKNESS	utrans(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_advect_thickness.F	88	STREAMICE_ADVECT_THICKNESS	ELSEIF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F	89	STREAMICE_ADVECT_THICKNESS	uflux = u_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F	90	STREAMICE_ADVECT_THICKNESS	BCMASKX(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F	91	STREAMICE_ADVECT_THICKNESS	BCVALX(i,j,bi,bj) = uflux
./pkg/streamice/streamice_advect_thickness.F	92	STREAMICE_ADVECT_THICKNESS	utrans(i,j,bi,bj) = -1.0
./pkg/streamice/streamice_advect_thickness.F	95	STREAMICE_ADVECT_THICKNESS	& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR.
./pkg/streamice/streamice_advect_thickness.F	96	STREAMICE_ADVECT_THICKNESS	& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_advect_thickness.F	97	STREAMICE_ADVECT_THICKNESS	BCMASKX(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F	98	STREAMICE_ADVECT_THICKNESS	BCVALX(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F	99	STREAMICE_ADVECT_THICKNESS	utrans(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_apply_flux_ctrl.F	34	STREAMICE_APPLY_FLUX_CTRL	INTEGER bi, bj, i, j, k
./pkg/streamice/streamice_apply_flux_ctrl.F	55	STREAMICE_APPLY_FLUX_CTRL	DO j=1,sNy
./pkg/streamice/streamice_apply_flux_ctrl.F	57	STREAMICE_APPLY_FLUX_CTRL	IF (streamice_umask(i,j,bi,bj).eq.3.0 .OR.
./pkg/streamice/streamice_apply_flux_ctrl.F	58	STREAMICE_APPLY_FLUX_CTRL	& streamice_vmask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_apply_flux_ctrl.F	60	STREAMICE_APPLY_FLUX_CTRL	maskval = INT(streamice_ctrl_flux_mask(i,j,bi,bj))
./pkg/streamice/streamice_apply_flux_ctrl.F	64	STREAMICE_APPLY_FLUX_CTRL	IF (streamice_umask(i,j,bi,bj).eq.3.0
./pkg/streamice/streamice_apply_flux_ctrl.F	65	STREAMICE_APPLY_FLUX_CTRL	u_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_apply_flux_ctrl.F	66	STREAMICE_APPLY_FLUX_CTRL	& u_bdry_values_SI_base(i,j,bi,bj) *
./pkg/streamice/streamice_apply_flux_ctrl.F	69	STREAMICE_APPLY_FLUX_CTRL	IF (streamice_vmask(i,j,bi,bj).eq.3.0
./pkg/streamice/streamice_apply_flux_ctrl.F	70	STREAMICE_APPLY_FLUX_CTRL	v_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_apply_flux_ctrl.F	71	STREAMICE_APPLY_FLUX_CTRL	& v_bdry_values_SI_base(i,j,bi,bj) *
./pkg/streamice/streamice_cg_functions.F	100	STREAMICE_CG_ACTION	& u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F	101	STREAMICE_CG_ACTION	& u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F	102	STREAMICE_CG_ACTION	uy = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F	103	STREAMICE_CG_ACTION	& u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F	104	STREAMICE_CG_ACTION	& u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F	105	STREAMICE_CG_ACTION	& u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F	106	STREAMICE_CG_ACTION	vx = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F	107	STREAMICE_CG_ACTION	& v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_functions.F	108	STREAMICE_CG_ACTION	& v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F	109	STREAMICE_CG_ACTION	& v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F	110	STREAMICE_CG_ACTION	vy = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F	111	STREAMICE_CG_ACTION	& v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F	112	STREAMICE_CG_ACTION	& v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F	113	STREAMICE_CG_ACTION	& v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F	114	STREAMICE_CG_ACTION	exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F	115	STREAMICE_CG_ACTION	eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F	117	STREAMICE_CG_ACTION	& k1AtC_str(i,j,bi,bj)uq + k2AtC_str(i,j,bi,bj)vq
./pkg/streamice/streamice_cg_functions.F	129	STREAMICE_CG_ACTION	if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F	131	STREAMICE_CG_ACTION	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	132	STREAMICE_CG_ACTION	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	133	STREAMICE_CG_ACTION	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	134	STREAMICE_CG_ACTION	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	135	STREAMICE_CG_ACTION	& DPhi(i,j,bi,bj,m,n,1)(4exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F	136	STREAMICE_CG_ACTION	& DPhi(i,j,bi,bj,m,n,2)(2exy))
./pkg/streamice/streamice_cg_functions.F	139	STREAMICE_CG_ACTION	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	140	STREAMICE_CG_ACTION	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	141	STREAMICE_CG_ACTION	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	142	STREAMICE_CG_ACTION	& visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F	143	STREAMICE_CG_ACTION	& (4k2AtC_str(i,j,bi,bj)eyy+2k2AtC_str(i,j,bi,bj)exx+
./pkg/streamice/streamice_cg_functions.F	144	STREAMICE_CG_ACTION	& 40.5k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	147	STREAMICE_CG_ACTION	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	148	STREAMICE_CG_ACTION	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	150	STREAMICE_CG_ACTION	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	151	STREAMICE_CG_ACTION	& tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F	156	STREAMICE_CG_ACTION	if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F	157	STREAMICE_CG_ACTION	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	158	STREAMICE_CG_ACTION	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	159	STREAMICE_CG_ACTION	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	160	STREAMICE_CG_ACTION	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	161	STREAMICE_CG_ACTION	& DPhi(i,j,bi,bj,m,n,2)(4eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F	162	STREAMICE_CG_ACTION	& DPhi(i,j,bi,bj,m,n,1)(2exy))
./pkg/streamice/streamice_cg_functions.F	163	STREAMICE_CG_ACTION	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	164	STREAMICE_CG_ACTION	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	165	STREAMICE_CG_ACTION	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	166	STREAMICE_CG_ACTION	& visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F	167	STREAMICE_CG_ACTION	& (4k1AtC_str(i,j,bi,bj)exx+2k1AtC_str(i,j,bi,bj)eyy+
./pkg/streamice/streamice_cg_functions.F	168	STREAMICE_CG_ACTION	& 40.5k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	169	STREAMICE_CG_ACTION	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	170	STREAMICE_CG_ACTION	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	172	STREAMICE_CG_ACTION	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	173	STREAMICE_CG_ACTION	& tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F	241	STREAMICE_CG_MAKE_A	INTEGER iq, jq, inodx, inody, i, j, bi, bj, ilqx, ilqy, m_i, n
./pkg/streamice/streamice_cg_functions.F	255	STREAMICE_CG_MAKE_A	DO j = 1-cg_halo, sNy+cg_halo
./pkg/streamice/streamice_cg_functions.F	262	STREAMICE_CG_MAKE_A	streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F	263	STREAMICE_CG_MAKE_A	streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F	264	STREAMICE_CG_MAKE_A	streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F	265	STREAMICE_CG_MAKE_A	streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F	274	STREAMICE_CG_MAKE_A	DO j = 1-cg_halo, sNy+cg_halo
./pkg/streamice/streamice_cg_functions.F	278	STREAMICE_CG_MAKE_A	IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F	287	STREAMICE_CG_MAKE_A	if (STREAMICE_umask(i-1+inodx,j-1+inody,bi,bj)
./pkg/streamice/streamice_cg_functions.F	289	STREAMICE_CG_MAKE_A	& streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_functions.F	302	STREAMICE_CG_MAKE_A	if (STREAMICE_umask(i-1+jnodx,j-1+jnody,bi,bj)
./pkg/streamice/streamice_cg_functions.F	304	STREAMICE_CG_MAKE_A	& STREAMICE_vmask(i-1+jnodx,j-1+jnody,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_functions.F	331	STREAMICE_CG_MAKE_A	ux = DPhi (i,j,bi,bj,m_j,n,1)
./pkg/streamice/streamice_cg_functions.F	332	STREAMICE_CG_MAKE_A	uy = DPhi (i,j,bi,bj,m_j,n,2)
./pkg/streamice/streamice_cg_functions.F	338	STREAMICE_CG_MAKE_A	exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F	339	STREAMICE_CG_MAKE_A	eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F	341	STREAMICE_CG_MAKE_A	& k1AtC_str(i,j,bi,bj)uq + k2AtC_str(i,j,bi,bj)vq
./pkg/streamice/streamice_cg_functions.F	344	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	345	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	346	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,1)(4exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F	347	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,2)(2exy))
./pkg/streamice/streamice_cg_functions.F	350	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	352	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	356	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	358	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	365	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	366	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	367	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,2)(4eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F	368	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,1)(2exy))
./pkg/streamice/streamice_cg_functions.F	371	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	373	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	377	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	379	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	386	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	387	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F	388	STREAMICE_CG_MAKE_A	& (4k2AtC_str(i,j,bi,bj)eyy+2k2AtC_str(i,j,bi,bj)
./pkg/streamice/streamice_cg_functions.F	389	STREAMICE_CG_MAKE_A	& exx+40.5k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	392	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	394	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	398	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	400	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	407	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	408	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F	409	STREAMICE_CG_MAKE_A	& (4k1AtC_str(i,j,bi,bj)exx+2k1AtC_str(i,j,bi,bj)
./pkg/streamice/streamice_cg_functions.F	410	STREAMICE_CG_MAKE_A	& eyy+40.5k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	413	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	415	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	419	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	421	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	429	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	430	STREAMICE_CG_MAKE_A	& tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F	433	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	435	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	439	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	441	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	448	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	449	STREAMICE_CG_MAKE_A	& tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F	452	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	454	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	458	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	460	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	468	STREAMICE_CG_MAKE_A	vx = DPhi (i,j,bi,bj,m_j,n,1)
./pkg/streamice/streamice_cg_functions.F	469	STREAMICE_CG_MAKE_A	vy = DPhi (i,j,bi,bj,m_j,n,2)
./pkg/streamice/streamice_cg_functions.F	475	STREAMICE_CG_MAKE_A	exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F	476	STREAMICE_CG_MAKE_A	eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F	478	STREAMICE_CG_MAKE_A	& k1AtC_str(i,j,bi,bj)uq + k2AtC_str(i,j,bi,bj)vq
./pkg/streamice/streamice_cg_functions.F	481	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	482	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	483	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,1)(4exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F	484	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,2)(2exy))
./pkg/streamice/streamice_cg_functions.F	487	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	489	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	493	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	495	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	501	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	502	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	503	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,2)(4eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F	504	STREAMICE_CG_MAKE_A	& DPhi(i,j,bi,bj,m_i,n,1)(2exy))
./pkg/streamice/streamice_cg_functions.F	507	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	509	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	513	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	515	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	521	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	522	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F	523	STREAMICE_CG_MAKE_A	& (4k2AtC_str(i,j,bi,bj)eyy+2k2AtC_str(i,j,bi,bj)
./pkg/streamice/streamice_cg_functions.F	524	STREAMICE_CG_MAKE_A	& exx+40.5k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	527	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	529	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	533	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	535	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	541	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	542	STREAMICE_CG_MAKE_A	& visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F	543	STREAMICE_CG_MAKE_A	& (4k1AtC_str(i,j,bi,bj)exx+2k1AtC_str(i,j,bi,bj)
./pkg/streamice/streamice_cg_functions.F	544	STREAMICE_CG_MAKE_A	& eyy+40.5k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	547	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	549	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	553	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	555	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	561	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	562	STREAMICE_CG_MAKE_A	& tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F	565	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	567	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	571	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	573	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	579	STREAMICE_CG_MAKE_A	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	580	STREAMICE_CG_MAKE_A	& tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F	583	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F	585	STREAMICE_CG_MAKE_A	& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F	589	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F	591	STREAMICE_CG_MAKE_A	& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F	65	STREAMICE_CG_ACTION	INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n,Gi,Gj
./pkg/streamice/streamice_cg_functions.F	670	STREAMICE_CG_ADIAG	INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n
./pkg/streamice/streamice_cg_functions.F	680	STREAMICE_CG_ADIAG	DO j = 0, sNy+1
./pkg/streamice/streamice_cg_functions.F	684	STREAMICE_CG_ADIAG	IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F	695	STREAMICE_CG_ADIAG	if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_cg_functions.F	696	STREAMICE_CG_ADIAG	& STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_functions.F	706	STREAMICE_CG_ADIAG	ux = DPhi (i,j,bi,bj,m,n,1)
./pkg/streamice/streamice_cg_functions.F	707	STREAMICE_CG_ADIAG	uy = DPhi (i,j,bi,bj,m,n,2)
./pkg/streamice/streamice_cg_functions.F	713	STREAMICE_CG_ADIAG	exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F	714	STREAMICE_CG_ADIAG	eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F	716	STREAMICE_CG_ADIAG	& k1AtC_str(i,j,bi,bj)uq + k2AtC_str(i,j,bi,bj)vq
./pkg/streamice/streamice_cg_functions.F	718	STREAMICE_CG_ADIAG	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	719	STREAMICE_CG_ADIAG	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	720	STREAMICE_CG_ADIAG	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	721	STREAMICE_CG_ADIAG	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	722	STREAMICE_CG_ADIAG	& DPhi(i,j,bi,bj,m,n,1)(4exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F	723	STREAMICE_CG_ADIAG	& DPhi(i,j,bi,bj,m,n,2)(2exy))
./pkg/streamice/streamice_cg_functions.F	725	STREAMICE_CG_ADIAG	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	726	STREAMICE_CG_ADIAG	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	727	STREAMICE_CG_ADIAG	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	728	STREAMICE_CG_ADIAG	& visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F	729	STREAMICE_CG_ADIAG	& (4k2AtC_str(i,j,bi,bj)eyy+2k2AtC_str(i,j,bi,bj)exx+
./pkg/streamice/streamice_cg_functions.F	730	STREAMICE_CG_ADIAG	& 40.5k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	733	STREAMICE_CG_ADIAG	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	734	STREAMICE_CG_ADIAG	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	735	STREAMICE_CG_ADIAG	& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	736	STREAMICE_CG_ADIAG	& tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F	739	STREAMICE_CG_ADIAG	vx = DPhi (i,j,bi,bj,m,n,1)
./pkg/streamice/streamice_cg_functions.F	740	STREAMICE_CG_ADIAG	vy = DPhi (i,j,bi,bj,m,n,2)
./pkg/streamice/streamice_cg_functions.F	746	STREAMICE_CG_ADIAG	exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F	747	STREAMICE_CG_ADIAG	eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F	749	STREAMICE_CG_ADIAG	& k1AtC_str(i,j,bi,bj)uq + k2AtC_str(i,j,bi,bj)vq
./pkg/streamice/streamice_cg_functions.F	751	STREAMICE_CG_ADIAG	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	752	STREAMICE_CG_ADIAG	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	753	STREAMICE_CG_ADIAG	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	754	STREAMICE_CG_ADIAG	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	755	STREAMICE_CG_ADIAG	& DPhi(i,j,bi,bj,m,n,2)(4eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F	756	STREAMICE_CG_ADIAG	& DPhi(i,j,bi,bj,m,n,1)(2exy))
./pkg/streamice/streamice_cg_functions.F	757	STREAMICE_CG_ADIAG	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	758	STREAMICE_CG_ADIAG	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	759	STREAMICE_CG_ADIAG	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	75	STREAMICE_CG_ACTION	DO j = js, je
./pkg/streamice/streamice_cg_functions.F	760	STREAMICE_CG_ADIAG	& visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F	761	STREAMICE_CG_ADIAG	& (4k1AtC_str(i,j,bi,bj)exx+2k1AtC_str(i,j,bi,bj)eyy+
./pkg/streamice/streamice_cg_functions.F	762	STREAMICE_CG_ADIAG	& 40.5k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	765	STREAMICE_CG_ADIAG	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	766	STREAMICE_CG_ADIAG	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	767	STREAMICE_CG_ADIAG	& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	768	STREAMICE_CG_ADIAG	& tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F	81	STREAMICE_CG_ACTION	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_cg_functions.F	838	STREAMICE_CG_BOUND_VALS	INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n
./pkg/streamice/streamice_cg_functions.F	83	STREAMICE_CG_ACTION	IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F	848	STREAMICE_CG_BOUND_VALS	DO j = 0, sNy+1
./pkg/streamice/streamice_cg_functions.F	852	STREAMICE_CG_BOUND_VALS	IF ((STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) .AND.
./pkg/streamice/streamice_cg_functions.F	853	STREAMICE_CG_BOUND_VALS	& ((STREAMICE_umask(i,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F	854	STREAMICE_CG_BOUND_VALS	& (STREAMICE_umask(i,j+1,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F	855	STREAMICE_CG_BOUND_VALS	& (STREAMICE_umask(i+1,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F	856	STREAMICE_CG_BOUND_VALS	& (STREAMICE_umask(i+1,j+1,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F	857	STREAMICE_CG_BOUND_VALS	& (STREAMICE_vmask(i,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F	858	STREAMICE_CG_BOUND_VALS	& (STREAMICE_vmask(i,j+1,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F	859	STREAMICE_CG_BOUND_VALS	& (STREAMICE_vmask(i+1,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F	860	STREAMICE_CG_BOUND_VALS	& (STREAMICE_vmask(i+1,j+1,bi,bj).eq.3.0))) THEN
./pkg/streamice/streamice_cg_functions.F	867	STREAMICE_CG_BOUND_VALS	uq = u_bdry_values_SI(i,j,bi,bj)Xquad(3-iq)Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F	868	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i+1,j,bi,bj)Xquad(iq)Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F	869	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i,j+1,bi,bj)Xquad(3-iq)Xquad(jq)+
./pkg/streamice/streamice_cg_functions.F	870	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i+1,j+1,bi,bj)Xquad(iq)Xquad(jq)
./pkg/streamice/streamice_cg_functions.F	871	STREAMICE_CG_BOUND_VALS	vq = v_bdry_values_SI(i,j,bi,bj)Xquad(3-iq)Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F	872	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i+1,j,bi,bj)Xquad(iq)Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F	873	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i,j+1,bi,bj)Xquad(3-iq)Xquad(jq)+
./pkg/streamice/streamice_cg_functions.F	874	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i+1,j+1,bi,bj)Xquad(iq)Xquad(jq)
./pkg/streamice/streamice_cg_functions.F	875	STREAMICE_CG_BOUND_VALS	ux = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F	876	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_functions.F	877	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F	878	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F	879	STREAMICE_CG_BOUND_VALS	uy = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F	880	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F	881	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F	882	STREAMICE_CG_BOUND_VALS	& u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F	883	STREAMICE_CG_BOUND_VALS	vx = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F	884	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_functions.F	885	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F	886	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F	887	STREAMICE_CG_BOUND_VALS	vy = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F	888	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F	889	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F	890	STREAMICE_CG_BOUND_VALS	& v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F	891	STREAMICE_CG_BOUND_VALS	exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F	892	STREAMICE_CG_BOUND_VALS	eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F	894	STREAMICE_CG_BOUND_VALS	& k1AtC_str(i,j,bi,bj)uq + k2AtC_str(i,j,bi,bj)vq
./pkg/streamice/streamice_cg_functions.F	907	STREAMICE_CG_BOUND_VALS	if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F	90	STREAMICE_CG_ACTION	uq = u(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F	910	STREAMICE_CG_BOUND_VALS	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	911	STREAMICE_CG_BOUND_VALS	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	912	STREAMICE_CG_BOUND_VALS	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	913	STREAMICE_CG_BOUND_VALS	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	914	STREAMICE_CG_BOUND_VALS	& DPhi(i,j,bi,bj,m,n,1)(4exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F	915	STREAMICE_CG_BOUND_VALS	& DPhi(i,j,bi,bj,m,n,2)(2exy))
./pkg/streamice/streamice_cg_functions.F	918	STREAMICE_CG_BOUND_VALS	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	919	STREAMICE_CG_BOUND_VALS	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	91	STREAMICE_CG_ACTION	& u(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F	920	STREAMICE_CG_BOUND_VALS	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	921	STREAMICE_CG_BOUND_VALS	& visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F	922	STREAMICE_CG_BOUND_VALS	& (4k2AtC_str(i,j,bi,bj)eyy+2k2AtC_str(i,j,bi,bj)exx+
./pkg/streamice/streamice_cg_functions.F	923	STREAMICE_CG_BOUND_VALS	& 40.5k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	927	STREAMICE_CG_BOUND_VALS	uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	928	STREAMICE_CG_BOUND_VALS	& uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	929	STREAMICE_CG_BOUND_VALS	& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	92	STREAMICE_CG_ACTION	& u(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) +
./pkg/streamice/streamice_cg_functions.F	930	STREAMICE_CG_BOUND_VALS	& tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F	935	STREAMICE_CG_BOUND_VALS	if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F	936	STREAMICE_CG_BOUND_VALS	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	937	STREAMICE_CG_BOUND_VALS	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	938	STREAMICE_CG_BOUND_VALS	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	939	STREAMICE_CG_BOUND_VALS	& visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F	93	STREAMICE_CG_ACTION	& u(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq)
./pkg/streamice/streamice_cg_functions.F	940	STREAMICE_CG_BOUND_VALS	& DPhi(i,j,bi,bj,m,n,2)(4eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F	941	STREAMICE_CG_BOUND_VALS	& DPhi(i,j,bi,bj,m,n,1)(2exy))
./pkg/streamice/streamice_cg_functions.F	942	STREAMICE_CG_BOUND_VALS	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	943	STREAMICE_CG_BOUND_VALS	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	944	STREAMICE_CG_BOUND_VALS	& grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	945	STREAMICE_CG_BOUND_VALS	& visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F	946	STREAMICE_CG_BOUND_VALS	& (4k1AtC_str(i,j,bi,bj)exx+2k1AtC_str(i,j,bi,bj)eyy+
./pkg/streamice/streamice_cg_functions.F	947	STREAMICE_CG_BOUND_VALS	& 40.5k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F	948	STREAMICE_CG_BOUND_VALS	vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F	949	STREAMICE_CG_BOUND_VALS	& vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F	94	STREAMICE_CG_ACTION	vq = v(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F	950	STREAMICE_CG_BOUND_VALS	& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F	951	STREAMICE_CG_BOUND_VALS	& tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F	95	STREAMICE_CG_ACTION	& v(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F	96	STREAMICE_CG_ACTION	& v(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) +
./pkg/streamice/streamice_cg_functions.F	97	STREAMICE_CG_ACTION	& v(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq)
./pkg/streamice/streamice_cg_functions.F	98	STREAMICE_CG_ACTION	ux = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F	99	STREAMICE_CG_ACTION	& u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_solve.F	127	STREAMICE_CG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve.F	129	STREAMICE_CG_SOLVE	Zu_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	130	STREAMICE_CG_SOLVE	Zv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	131	STREAMICE_CG_SOLVE	Ru_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	132	STREAMICE_CG_SOLVE	Rv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	133	STREAMICE_CG_SOLVE	Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	134	STREAMICE_CG_SOLVE	Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	135	STREAMICE_CG_SOLVE	Du_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	136	STREAMICE_CG_SOLVE	Dv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	150	STREAMICE_CG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve.F	154	STREAMICE_CG_SOLVE	Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F	155	STREAMICE_CG_SOLVE	& A_uu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	156	STREAMICE_CG_SOLVE	& cg_Uin(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	157	STREAMICE_CG_SOLVE	& A_uv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	158	STREAMICE_CG_SOLVE	& cg_Vin(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F	161	STREAMICE_CG_SOLVE	Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F	162	STREAMICE_CG_SOLVE	& A_vu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	163	STREAMICE_CG_SOLVE	& cg_Uin(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	164	STREAMICE_CG_SOLVE	& A_vv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	165	STREAMICE_CG_SOLVE	& cg_Vin(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F	180	STREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve.F	182	STREAMICE_CG_SOLVE	Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F	183	STREAMICE_CG_SOLVE	& Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	184	STREAMICE_CG_SOLVE	Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F	185	STREAMICE_CG_SOLVE	& Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	195	STREAMICE_CG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve.F	197	STREAMICE_CG_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	198	STREAMICE_CG_SOLVE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F	199	STREAMICE_CG_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	200	STREAMICE_CG_SOLVE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F	230	STREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve.F	232	STREAMICE_CG_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	233	STREAMICE_CG_SOLVE	& Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	234	STREAMICE_CG_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	235	STREAMICE_CG_SOLVE	& Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	246	STREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve.F	248	STREAMICE_CG_SOLVE	Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	249	STREAMICE_CG_SOLVE	Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	289	STREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve.F	291	STREAMICE_CG_SOLVE	Au_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	292	STREAMICE_CG_SOLVE	Av_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F	304	STREAMICE_CG_SOLVE	DO j=js,je
./pkg/streamice/streamice_cg_solve.F	308	STREAMICE_CG_SOLVE	Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F	309	STREAMICE_CG_SOLVE	& A_uu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	310	STREAMICE_CG_SOLVE	& Du_SI(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	311	STREAMICE_CG_SOLVE	& A_uv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	312	STREAMICE_CG_SOLVE	& Dv_SI(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F	313	STREAMICE_CG_SOLVE	Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F	314	STREAMICE_CG_SOLVE	& A_vu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	315	STREAMICE_CG_SOLVE	& Du_SI(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	316	STREAMICE_CG_SOLVE	& A_vv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F	317	STREAMICE_CG_SOLVE	& Dv_SI(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F	349	STREAMICE_CG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve.F	351	STREAMICE_CG_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F	352	STREAMICE_CG_SOLVE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	353	STREAMICE_CG_SOLVE	& Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	354	STREAMICE_CG_SOLVE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	355	STREAMICE_CG_SOLVE	& Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	357	STREAMICE_CG_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F	358	STREAMICE_CG_SOLVE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	359	STREAMICE_CG_SOLVE	& Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	360	STREAMICE_CG_SOLVE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	361	STREAMICE_CG_SOLVE	& Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	374	STREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve.F	377	STREAMICE_CG_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F	378	STREAMICE_CG_SOLVE	cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	379	STREAMICE_CG_SOLVE	& alpha_k*Du_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	380	STREAMICE_CG_SOLVE	Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	381	STREAMICE_CG_SOLVE	Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	382	STREAMICE_CG_SOLVE	Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F	383	STREAMICE_CG_SOLVE	& alpha_k*Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	384	STREAMICE_CG_SOLVE	Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve.F	385	STREAMICE_CG_SOLVE	& DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	388	STREAMICE_CG_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F	389	STREAMICE_CG_SOLVE	cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	390	STREAMICE_CG_SOLVE	& alpha_k*Dv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	391	STREAMICE_CG_SOLVE	Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	392	STREAMICE_CG_SOLVE	Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	393	STREAMICE_CG_SOLVE	Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F	394	STREAMICE_CG_SOLVE	& alpha_k*Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	395	STREAMICE_CG_SOLVE	Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve.F	396	STREAMICE_CG_SOLVE	& DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	413	STREAMICE_CG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve.F	416	STREAMICE_CG_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F	417	STREAMICE_CG_SOLVE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	418	STREAMICE_CG_SOLVE	& Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	419	STREAMICE_CG_SOLVE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	420	STREAMICE_CG_SOLVE	& Ru_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	423	STREAMICE_CG_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F	424	STREAMICE_CG_SOLVE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	425	STREAMICE_CG_SOLVE	& Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	426	STREAMICE_CG_SOLVE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F	427	STREAMICE_CG_SOLVE	& Rv_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	442	STREAMICE_CG_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve.F	444	STREAMICE_CG_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	445	STREAMICE_CG_SOLVE	& Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	446	STREAMICE_CG_SOLVE	& Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	447	STREAMICE_CG_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	448	STREAMICE_CG_SOLVE	& Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F	449	STREAMICE_CG_SOLVE	& Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F	463	STREAMICE_CG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve.F	465	STREAMICE_CG_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	466	STREAMICE_CG_SOLVE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F	467	STREAMICE_CG_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F	468	STREAMICE_CG_SOLVE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F	65	STREAMICE_CG_SOLVE	INTEGER i, j, bi, bj, cg_halo, conv_flag
./pkg/streamice/streamice_cg_solve_matfree.F	120	STREAMICE_CG_SOLVE_MATFREE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve_matfree.F	122	STREAMICE_CG_SOLVE_MATFREE	Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F	123	STREAMICE_CG_SOLVE_MATFREE	& Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	124	STREAMICE_CG_SOLVE_MATFREE	Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F	125	STREAMICE_CG_SOLVE_MATFREE	& Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	135	STREAMICE_CG_SOLVE_MATFREE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_matfree.F	137	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	138	STREAMICE_CG_SOLVE_MATFREE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F	139	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	140	STREAMICE_CG_SOLVE_MATFREE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F	153	STREAMICE_CG_SOLVE_MATFREE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve_matfree.F	155	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	156	STREAMICE_CG_SOLVE_MATFREE	& Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	157	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	158	STREAMICE_CG_SOLVE_MATFREE	& Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	169	STREAMICE_CG_SOLVE_MATFREE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve_matfree.F	171	STREAMICE_CG_SOLVE_MATFREE	Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	172	STREAMICE_CG_SOLVE_MATFREE	Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	212	STREAMICE_CG_SOLVE_MATFREE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve_matfree.F	214	STREAMICE_CG_SOLVE_MATFREE	Au_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	215	STREAMICE_CG_SOLVE_MATFREE	Av_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	272	STREAMICE_CG_SOLVE_MATFREE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_matfree.F	274	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F	275	STREAMICE_CG_SOLVE_MATFREE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	276	STREAMICE_CG_SOLVE_MATFREE	& Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	277	STREAMICE_CG_SOLVE_MATFREE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	278	STREAMICE_CG_SOLVE_MATFREE	& Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	280	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F	281	STREAMICE_CG_SOLVE_MATFREE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	282	STREAMICE_CG_SOLVE_MATFREE	& Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	283	STREAMICE_CG_SOLVE_MATFREE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	284	STREAMICE_CG_SOLVE_MATFREE	& Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	297	STREAMICE_CG_SOLVE_MATFREE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve_matfree.F	300	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F	301	STREAMICE_CG_SOLVE_MATFREE	cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F	302	STREAMICE_CG_SOLVE_MATFREE	& alpha_k*Du_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	303	STREAMICE_CG_SOLVE_MATFREE	Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	304	STREAMICE_CG_SOLVE_MATFREE	Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	305	STREAMICE_CG_SOLVE_MATFREE	Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F	306	STREAMICE_CG_SOLVE_MATFREE	& alpha_k*Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	307	STREAMICE_CG_SOLVE_MATFREE	Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve_matfree.F	308	STREAMICE_CG_SOLVE_MATFREE	& DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	311	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F	312	STREAMICE_CG_SOLVE_MATFREE	cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F	313	STREAMICE_CG_SOLVE_MATFREE	& alpha_k*Dv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	314	STREAMICE_CG_SOLVE_MATFREE	Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	315	STREAMICE_CG_SOLVE_MATFREE	Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	316	STREAMICE_CG_SOLVE_MATFREE	Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F	317	STREAMICE_CG_SOLVE_MATFREE	& alpha_k*Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	318	STREAMICE_CG_SOLVE_MATFREE	Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve_matfree.F	319	STREAMICE_CG_SOLVE_MATFREE	& DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	336	STREAMICE_CG_SOLVE_MATFREE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_matfree.F	339	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F	340	STREAMICE_CG_SOLVE_MATFREE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	341	STREAMICE_CG_SOLVE_MATFREE	& Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	342	STREAMICE_CG_SOLVE_MATFREE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	343	STREAMICE_CG_SOLVE_MATFREE	& Ru_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	346	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F	347	STREAMICE_CG_SOLVE_MATFREE	dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	348	STREAMICE_CG_SOLVE_MATFREE	& Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	349	STREAMICE_CG_SOLVE_MATFREE	dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F	350	STREAMICE_CG_SOLVE_MATFREE	& Rv_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	365	STREAMICE_CG_SOLVE_MATFREE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_solve_matfree.F	367	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	368	STREAMICE_CG_SOLVE_MATFREE	& Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F	369	STREAMICE_CG_SOLVE_MATFREE	& Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	370	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	371	STREAMICE_CG_SOLVE_MATFREE	& Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F	372	STREAMICE_CG_SOLVE_MATFREE	& Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F	386	STREAMICE_CG_SOLVE_MATFREE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_matfree.F	388	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	389	STREAMICE_CG_SOLVE_MATFREE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F	390	STREAMICE_CG_SOLVE_MATFREE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F	391	STREAMICE_CG_SOLVE_MATFREE	& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F	46	STREAMICE_CG_SOLVE_MATFREE	INTEGER i, j, bi, bj, cg_halo, conv_flag
./pkg/streamice/streamice_cg_solve_matfree.F	62	STREAMICE_CG_SOLVE_MATFREE	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_matfree.F	64	STREAMICE_CG_SOLVE_MATFREE	Zu_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	65	STREAMICE_CG_SOLVE_MATFREE	Zv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	66	STREAMICE_CG_SOLVE_MATFREE	Ru_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	67	STREAMICE_CG_SOLVE_MATFREE	Rv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	68	STREAMICE_CG_SOLVE_MATFREE	Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	69	STREAMICE_CG_SOLVE_MATFREE	Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	70	STREAMICE_CG_SOLVE_MATFREE	Du_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F	71	STREAMICE_CG_SOLVE_MATFREE	Dv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_petsc.F	151	STREAMICE_CG_SOLVE_PETSC	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_petsc.F	154	STREAMICE_CG_SOLVE_PETSC	dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F	159	STREAMICE_CG_SOLVE_PETSC	rhs_values(dof_index+1) = cg_Bu(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	160	STREAMICE_CG_SOLVE_PETSC	solution_values(dof_index+1) = cg_Uin(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	166	STREAMICE_CG_SOLVE_PETSC	dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F	171	STREAMICE_CG_SOLVE_PETSC	rhs_values(dof_index+1) = cg_Bv(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	172	STREAMICE_CG_SOLVE_PETSC	solution_values(dof_index+1) = cg_Vin(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	207	STREAMICE_CG_SOLVE_PETSC	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_petsc.F	210	STREAMICE_CG_SOLVE_PETSC	dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F	224	STREAMICE_CG_SOLVE_PETSC	dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	231	STREAMICE_CG_SOLVE_PETSC	mat_values (k,1) = A_uu(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F	235	STREAMICE_CG_SOLVE_PETSC	dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	241	STREAMICE_CG_SOLVE_PETSC	mat_values (k,1) = A_uv(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F	256	STREAMICE_CG_SOLVE_PETSC	dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F	270	STREAMICE_CG_SOLVE_PETSC	dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	276	STREAMICE_CG_SOLVE_PETSC	mat_values (k,1) = A_vu(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F	280	STREAMICE_CG_SOLVE_PETSC	dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F	286	STREAMICE_CG_SOLVE_PETSC	mat_values (k,1) = A_vv(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F	355	STREAMICE_CG_SOLVE_PETSC	DO j=1,sNy
./pkg/streamice/streamice_cg_solve_petsc.F	358	STREAMICE_CG_SOLVE_PETSC	dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F	361	STREAMICE_CG_SOLVE_PETSC	cg_Uin(i,j,bi,bj) = solution_values(dof_index+1)
./pkg/streamice/streamice_cg_solve_petsc.F	364	STREAMICE_CG_SOLVE_PETSC	dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F	367	STREAMICE_CG_SOLVE_PETSC	cg_Vin(i,j,bi,bj) = solution_values(dof_index+1)
./pkg/streamice/streamice_cg_solve_petsc.F	65	STREAMICE_CG_SOLVE_PETSC	INTEGER i, j, bi, bj, cg_halo, conv_flag
./pkg/streamice/streamice_cg_wrapper.F	114	STREAMICE_CG_WRAPPER	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_wrapper.F	116	STREAMICE_CG_WRAPPER	IF (STREAMICE_umask(i,j,bi,bj).ne.1.0)
./pkg/streamice/streamice_cg_wrapper.F	117	STREAMICE_CG_WRAPPER	& cg_Uin(i,j,bi,bj)=0.0
./pkg/streamice/streamice_cg_wrapper.F	118	STREAMICE_CG_WRAPPER	IF (STREAMICE_vmask(i,j,bi,bj).ne.1.0)
./pkg/streamice/streamice_cg_wrapper.F	119	STREAMICE_CG_WRAPPER	& cg_Vin(i,j,bi,bj)=0.0
./pkg/streamice/streamice_cg_wrapper.F	279	STREAMICE_CG_WRAPPER	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_wrapper.F	281	STREAMICE_CG_WRAPPER	IF (STREAMICE_umask(i,j,bi,bj).eq.3.0)
./pkg/streamice/streamice_cg_wrapper.F	282	STREAMICE_CG_WRAPPER	& cg_Uin(i,j,bi,bj)=u_bdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F	283	STREAMICE_CG_WRAPPER	IF (STREAMICE_vmask(i,j,bi,bj).eq.3.0)
./pkg/streamice/streamice_cg_wrapper.F	284	STREAMICE_CG_WRAPPER	& cg_Vin(i,j,bi,bj)=v_bdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F	52	STREAMICE_CG_WRAPPER	INTEGER i, j, bi, bj
./pkg/streamice/streamice_cg_wrapper.F	58	STREAMICE_CG_WRAPPER	DO j=1,sNy
./pkg/streamice/streamice_cg_wrapper.F	61	STREAMICE_CG_WRAPPER	DIAGu_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F	62	STREAMICE_CG_WRAPPER	DIAGv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F	63	STREAMICE_CG_WRAPPER	ubd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F	64	STREAMICE_CG_WRAPPER	vbd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F	87	STREAMICE_CG_WRAPPER	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_cg_wrapper.F	89	STREAMICE_CG_WRAPPER	RHSu_SI (i,j,bi,bj) = cg_tauU (i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F	90	STREAMICE_CG_WRAPPER	& - ubd_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F	91	STREAMICE_CG_WRAPPER	RHSv_SI (i,j,bi,bj) = cg_tauV (i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F	92	STREAMICE_CG_WRAPPER	& - vbd_SI(i,j,bi,bj)
./pkg/streamice/streamice_cost_surf_accum.F	46	STREAMICE_COST_SURF_ACCUM	integer i, j, k, bi, bj
./pkg/streamice/streamice_cost_surf_accum.F	82	STREAMICE_COST_SURF_ACCUM	do j=1,sNy
./pkg/streamice/streamice_cost_surf_accum.F	86	STREAMICE_COST_SURF_ACCUM	if (streamice_cost_mask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cost_surf_accum.F	89	STREAMICE_COST_SURF_ACCUM	& streamice_wgt_surf * (S_obs(i,j,bi,bj)-
./pkg/streamice/streamice_cost_surf_accum.F	90	STREAMICE_COST_SURF_ACCUM	& surf_el_streamice(i,j,bi,bj))**2 / Nx / Ny +
./pkg/streamice/streamice_cost_surf_accum.F	91	STREAMICE_COST_SURF_ACCUM	& streamice_wgt_drift * (H_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_cost_surf_accum.F	92	STREAMICE_COST_SURF_ACCUM	& H_streamice_prev(i,j,bi,bj))**2 / Nx / Ny
./pkg/streamice/streamice_driving_stress.F	101	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	102	STREAMICE_DRIVING_STRESS	& 0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	104	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i-1,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	106	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low_si(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	108	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	113	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	114	STREAMICE_DRIVING_STRESS	& 0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	117	STREAMICE_DRIVING_STRESS	& H_streamice(i-1,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	121	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	123	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F	125	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	126	STREAMICE_DRIVING_STRESS	& 0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	128	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	130	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	132	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	137	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	138	STREAMICE_DRIVING_STRESS	& 0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	141	STREAMICE_DRIVING_STRESS	& H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	148	STREAMICE_DRIVING_STRESS	IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F	149	STREAMICE_DRIVING_STRESS	& streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	154	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	155	STREAMICE_DRIVING_STRESS	& 0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	157	STREAMICE_DRIVING_STRESS	& (H_streamice(i,j-1,bi,bj)+
./pkg/streamice/streamice_driving_stress.F	158	STREAMICE_DRIVING_STRESS	& H_streamice(i-1,j-1,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F	159	STREAMICE_DRIVING_STRESS	& (surf_el_streamice(i,j-1,bi,bj)-
./pkg/streamice/streamice_driving_stress.F	160	STREAMICE_DRIVING_STRESS	& surf_el_streamice(i-1,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F	162	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	164	STREAMICE_DRIVING_STRESS	& streamice_bg_surf_slope_x * .25 * rA(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	165	STREAMICE_DRIVING_STRESS	& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F	167	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	169	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F	171	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	172	STREAMICE_DRIVING_STRESS	& 0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	174	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i-1,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	176	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avgR_low_si(i-1,j-1,bi,bj)*2)
./pkg/streamice/streamice_driving_stress.F	178	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i-1,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	183	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	184	STREAMICE_DRIVING_STRESS	& 0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	187	STREAMICE_DRIVING_STRESS	& H_streamice(i-1,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	191	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	193	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F	195	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	196	STREAMICE_DRIVING_STRESS	& 0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	198	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	200	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low_si(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	202	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	207	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	208	STREAMICE_DRIVING_STRESS	& 0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	211	STREAMICE_DRIVING_STRESS	& H_streamice(i,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	219	STREAMICE_DRIVING_STRESS	IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	221	STREAMICE_DRIVING_STRESS	IF (streamice_hmask(i,j-1,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F	222	STREAMICE_DRIVING_STRESS	& streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	227	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	228	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	230	STREAMICE_DRIVING_STRESS	& (H_streamice(i,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F	231	STREAMICE_DRIVING_STRESS	& H_streamice(i,j-1,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F	232	STREAMICE_DRIVING_STRESS	& (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress.F	233	STREAMICE_DRIVING_STRESS	& surf_el_streamice(i,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F	235	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	237	STREAMICE_DRIVING_STRESS	& streamice_bg_surf_slope_y * .25 * rA(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	238	STREAMICE_DRIVING_STRESS	& (H_streamice(i,j-1,bi,bj) + H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F	240	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	242	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F	244	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	245	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	247	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	249	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low_si(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	251	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	256	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	257	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	260	STREAMICE_DRIVING_STRESS	& H_streamice(i,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	264	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	266	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F	268	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	269	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	271	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	273	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	275	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	280	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	281	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	284	STREAMICE_DRIVING_STRESS	& H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	291	STREAMICE_DRIVING_STRESS	IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F	292	STREAMICE_DRIVING_STRESS	& streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	297	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	298	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	300	STREAMICE_DRIVING_STRESS	& (H_streamice(i-1,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F	301	STREAMICE_DRIVING_STRESS	& H_streamice(i-1,j-1,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F	302	STREAMICE_DRIVING_STRESS	& (surf_el_streamice(i-1,j,bi,bj)-
./pkg/streamice/streamice_driving_stress.F	303	STREAMICE_DRIVING_STRESS	& surf_el_streamice(i-1,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F	305	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	307	STREAMICE_DRIVING_STRESS	& streamice_bg_surf_slope_y * .25 * rA(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	308	STREAMICE_DRIVING_STRESS	& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i-1,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F	311	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	313	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F	315	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	316	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	318	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i-1,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	320	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avgR_low_si(i-1,j-1,bi,bj)*2)
./pkg/streamice/streamice_driving_stress.F	322	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i-1,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	327	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F	328	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	331	STREAMICE_DRIVING_STRESS	& H_streamice(i-1,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	335	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	337	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F	339	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	340	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	342	STREAMICE_DRIVING_STRESS	& (streamice_density * H_streamice(i-1,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F	344	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low_si(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	346	STREAMICE_DRIVING_STRESS	& streamice_density_ocean_avg * R_low(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F	351	STREAMICE_DRIVING_STRESS	taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	352	STREAMICE_DRIVING_STRESS	& 0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	355	STREAMICE_DRIVING_STRESS	& H_streamice(i-1,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F	38	STREAMICE_DRIVING_STRESS	INTEGER i, j, bi, bj, k, l,
./pkg/streamice/streamice_driving_stress.F	53	STREAMICE_DRIVING_STRESS	DO j=1-OLy+1,sNy+OLy-1
./pkg/streamice/streamice_driving_stress.F	55	STREAMICE_DRIVING_STRESS	taudx_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress.F	56	STREAMICE_DRIVING_STRESS	taudy_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress.F	66	STREAMICE_DRIVING_STRESS	DO j=1,sNy
./pkg/streamice/streamice_driving_stress.F	74	STREAMICE_DRIVING_STRESS	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_driving_stress.F	76	STREAMICE_DRIVING_STRESS	IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	78	STREAMICE_DRIVING_STRESS	IF (streamice_hmask(i-1,j,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F	79	STREAMICE_DRIVING_STRESS	& streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	84	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	85	STREAMICE_DRIVING_STRESS	& 0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	87	STREAMICE_DRIVING_STRESS	& (H_streamice(i,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F	88	STREAMICE_DRIVING_STRESS	& H_streamice(i-1,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F	89	STREAMICE_DRIVING_STRESS	& (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress.F	90	STREAMICE_DRIVING_STRESS	& surf_el_streamice(i-1,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F	92	STREAMICE_DRIVING_STRESS	taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F	94	STREAMICE_DRIVING_STRESS	& streamice_bg_surf_slope_x * .25 * rA(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F	95	STREAMICE_DRIVING_STRESS	& (H_streamice(i-1,j,bi,bj) + H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F	97	STREAMICE_DRIVING_STRESS	ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F	99	STREAMICE_DRIVING_STRESS	IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	100	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	103	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	112	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	116	STREAMICE_DRIVING_STRESS_PPM	sx = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	117	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	127	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	128	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	131	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	140	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0 .and.
./pkg/streamice/streamice_driving_stress_ppm.F	141	STREAMICE_DRIVING_STRESS_PPM	& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	145	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	146	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	148	STREAMICE_DRIVING_STRESS_PPM	& (-2.*surf_el_streamice(i-1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	149	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	150	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	151	STREAMICE_DRIVING_STRESS_PPM	& 3.streamice_bg_surf_slope_x dxF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F	152	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	158	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	159	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	161	STREAMICE_DRIVING_STRESS_PPM	& (-surf_el_streamice(i-1,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	162	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	163	STREAMICE_DRIVING_STRESS_PPM	& 2*surf_el_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	164	STREAMICE_DRIVING_STRESS_PPM	& 3.streamice_bg_surf_slope_x dxF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F	165	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	172	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	174	STREAMICE_DRIVING_STRESS_PPM	sx = (surf_el_streamice(i+1,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	175	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	177	STREAMICE_DRIVING_STRESS_PPM	ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	179	STREAMICE_DRIVING_STRESS_PPM	sx = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	180	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	190	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	191	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	194	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	209	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	213	STREAMICE_DRIVING_STRESS_PPM	sy = (surf_el_streamice(i,j+1,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	214	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj))/dyC(i,j+1,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	224	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	225	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	228	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	237	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	241	STREAMICE_DRIVING_STRESS_PPM	sy = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	242	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j-1,bi,bj))/dyC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	253	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	254	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	257	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	266	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0 .and.
./pkg/streamice/streamice_driving_stress_ppm.F	267	STREAMICE_DRIVING_STRESS_PPM	& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	271	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	272	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	274	STREAMICE_DRIVING_STRESS_PPM	& (-2.*surf_el_streamice(i,j-1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	275	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	276	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	277	STREAMICE_DRIVING_STRESS_PPM	& 3.streamice_bg_surf_slope_y dyF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F	278	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	284	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	285	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	287	STREAMICE_DRIVING_STRESS_PPM	& (-surf_el_streamice(i,j-1,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	288	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	289	STREAMICE_DRIVING_STRESS_PPM	& 2*surf_el_streamice(i,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	290	STREAMICE_DRIVING_STRESS_PPM	& 3.streamice_bg_surf_slope_y dyF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F	291	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	298	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	300	STREAMICE_DRIVING_STRESS_PPM	sy = (surf_el_streamice(i,j+1,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	301	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj))/dxC(i,j+1,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	303	STREAMICE_DRIVING_STRESS_PPM	ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	305	STREAMICE_DRIVING_STRESS_PPM	sy = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	306	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j-1,bi,bj))/dxC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	316	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	317	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	320	STREAMICE_DRIVING_STRESS_PPM	& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	345	STREAMICE_DRIVING_STRESS_PPM	IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) then
./pkg/streamice/streamice_driving_stress_ppm.F	348	STREAMICE_DRIVING_STRESS_PPM	& (streamice_density * H_streamice (i,j,bi,bj) ** 2 -
./pkg/streamice/streamice_driving_stress_ppm.F	349	STREAMICE_DRIVING_STRESS_PPM	& streamice_density_ocean_avg * R_low_si(i,j,bi,bj) ** 2)
./pkg/streamice/streamice_driving_stress_ppm.F	352	STREAMICE_DRIVING_STRESS_PPM	& (streamice_density * H_streamice (i,j,bi,bj) ** 2 -
./pkg/streamice/streamice_driving_stress_ppm.F	353	STREAMICE_DRIVING_STRESS_PPM	& streamice_density_ocean_avg * R_low(i,j,bi,bj) ** 2)
./pkg/streamice/streamice_driving_stress_ppm.F	358	STREAMICE_DRIVING_STRESS_PPM	& streamice_density * H_streamice(i,j,bi,bj) ** 2
./pkg/streamice/streamice_driving_stress_ppm.F	361	STREAMICE_DRIVING_STRESS_PPM	IF ((STREAMICE_ufacemask(i,j,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F	362	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F	363	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2) ) THEN ! left face of the cell is at a stress boundary
./pkg/streamice/streamice_driving_stress_ppm.F	370	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i,j,bi,bj) = taudx_SI(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	371	STREAMICE_DRIVING_STRESS_PPM	& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F	372	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i,j+1,bi,bj) = taudx_SI(i,j+1,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	373	STREAMICE_DRIVING_STRESS_PPM	& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F	376	STREAMICE_DRIVING_STRESS_PPM	IF ((STREAMICE_ufacemask(i+1,j,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F	377	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F	378	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	380	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i+1,j,bi,bj) = taudx_SI(i+1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	381	STREAMICE_DRIVING_STRESS_PPM	& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress) ! note negative sign is due to direction of normal vector
./pkg/streamice/streamice_driving_stress_ppm.F	382	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i+1,j+1,bi,bj) = taudx_SI(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	383	STREAMICE_DRIVING_STRESS_PPM	& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F	386	STREAMICE_DRIVING_STRESS_PPM	IF ((STREAMICE_vfacemask(i,j,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F	387	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F	388	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	38	STREAMICE_DRIVING_STRESS_PPM	INTEGER i, j, bi, bj, k, l,
./pkg/streamice/streamice_driving_stress_ppm.F	390	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i,j,bi,bj) = taudy_SI(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	391	STREAMICE_DRIVING_STRESS_PPM	& .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F	392	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i+1,j,bi,bj) = taudy_SI(i+1,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F	393	STREAMICE_DRIVING_STRESS_PPM	& .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F	396	STREAMICE_DRIVING_STRESS_PPM	IF ((STREAMICE_vfacemask(i,j+1,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F	397	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F	398	STREAMICE_DRIVING_STRESS_PPM	& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	400	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i,j+1,bi,bj) = taudy_SI(i,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	401	STREAMICE_DRIVING_STRESS_PPM	& .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F	402	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i+1,j+1,bi,bj) = taudy_SI(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F	403	STREAMICE_DRIVING_STRESS_PPM	& .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F	53	STREAMICE_DRIVING_STRESS_PPM	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_driving_stress_ppm.F	55	STREAMICE_DRIVING_STRESS_PPM	taudx_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress_ppm.F	56	STREAMICE_DRIVING_STRESS_PPM	taudy_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress_ppm.F	66	STREAMICE_DRIVING_STRESS_PPM	DO j=0,sNy+1
./pkg/streamice/streamice_driving_stress_ppm.F	74	STREAMICE_DRIVING_STRESS_PPM	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_driving_stress_ppm.F	76	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	84	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F	88	STREAMICE_DRIVING_STRESS_PPM	sx = (surf_el_streamice(i+1,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F	89	STREAMICE_DRIVING_STRESS_PPM	& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F	99	STREAMICE_DRIVING_STRESS_PPM	IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./model/src/ini_forcing.F	101	INI_FORCING	addMass(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	108	INI_FORCING	DO j=1-OLy,sNy+OLy
./model/src/ini_forcing.F	110	INI_FORCING	frictionHeating(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	120	INI_FORCING	DO j=1-OLy,sNy+OLy
./model/src/ini_forcing.F	123	INI_FORCING	& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./model/src/ini_forcing.F	124	INI_FORCING	lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./model/src/ini_forcing.F	126	INI_FORCING	lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	129	INI_FORCING	& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./model/src/ini_forcing.F	130	INI_FORCING	lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./model/src/ini_forcing.F	132	INI_FORCING	lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	160	INI_FORCING	DO j=1-OLy,sNy+OLy
./model/src/ini_forcing.F	162	INI_FORCING	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./model/src/ini_forcing.F	193	INI_FORCING	DO j=1-OLy,sNy+OLy
./model/src/ini_forcing.F	195	INI_FORCING	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj)
./model/src/ini_forcing.F	254	INI_FORCING	DO j=1-OLy,sNy+OLy
./model/src/ini_forcing.F	256	INI_FORCING	phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)
./model/src/ini_forcing.F	39	INI_FORCING	INTEGER i, j
./model/src/ini_forcing.F	48	INI_FORCING	DO j=1-OLy,sNy+OLy
./model/src/ini_forcing.F	50	INI_FORCING	fu (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	51	INI_FORCING	fv (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	52	INI_FORCING	Qnet (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	53	INI_FORCING	EmPmR (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	54	INI_FORCING	saltFlux (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	55	INI_FORCING	SST (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	56	INI_FORCING	SSS (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	57	INI_FORCING	Qsw (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	58	INI_FORCING	pLoad (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	59	INI_FORCING	sIceLoad (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	60	INI_FORCING	surfaceForcingU (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	61	INI_FORCING	surfaceForcingV (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	62	INI_FORCING	surfaceForcingT (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	63	INI_FORCING	surfaceForcingS (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	64	INI_FORCING	surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	66	INI_FORCING	geothermalFlux (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	69	INI_FORCING	taux0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	70	INI_FORCING	taux1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	71	INI_FORCING	tauy0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	72	INI_FORCING	tauy1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	73	INI_FORCING	Qnet0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	74	INI_FORCING	Qnet1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	75	INI_FORCING	EmPmR0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	76	INI_FORCING	EmPmR1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	77	INI_FORCING	saltFlux0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	78	INI_FORCING	saltFlux1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	79	INI_FORCING	SST0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	80	INI_FORCING	SST1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	81	INI_FORCING	SSS0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	82	INI_FORCING	SSS1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	84	INI_FORCING	Qsw0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	85	INI_FORCING	Qsw1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	88	INI_FORCING	pLoad0 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	89	INI_FORCING	pLoad1 (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F	99	INI_FORCING	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_fields_load.F	171	STREAMICE_FIELDS_LOAD	DO j=1,sNy
./pkg/streamice/streamice_fields_load.F	174	STREAMICE_FIELDS_LOAD	streamice_u_normal_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	175	STREAMICE_FIELDS_LOAD	& streamice_u_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	176	STREAMICE_FIELDS_LOAD	streamice_v_normal_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	177	STREAMICE_FIELDS_LOAD	& streamice_v_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	178	STREAMICE_FIELDS_LOAD	streamice_u_shear_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	179	STREAMICE_FIELDS_LOAD	& streamice_u_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	180	STREAMICE_FIELDS_LOAD	streamice_v_shear_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	181	STREAMICE_FIELDS_LOAD	& streamice_v_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	216	STREAMICE_FIELDS_LOAD	DO j=1,sNy
./pkg/streamice/streamice_fields_load.F	218	STREAMICE_FIELDS_LOAD	bdot_streamice0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	219	STREAMICE_FIELDS_LOAD	& bdot_streamice1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	236	STREAMICE_FIELDS_LOAD	DO j=1,sNy
./pkg/streamice/streamice_fields_load.F	239	STREAMICE_FIELDS_LOAD	streamice_u_normal_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	240	STREAMICE_FIELDS_LOAD	& fac * streamice_u_normal_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	241	STREAMICE_FIELDS_LOAD	& + (1-fac) * streamice_u_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	242	STREAMICE_FIELDS_LOAD	streamice_v_normal_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	243	STREAMICE_FIELDS_LOAD	& fac * streamice_v_normal_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	244	STREAMICE_FIELDS_LOAD	& + (1-fac) * streamice_v_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	245	STREAMICE_FIELDS_LOAD	streamice_u_shear_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	246	STREAMICE_FIELDS_LOAD	& fac * streamice_u_shear_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	247	STREAMICE_FIELDS_LOAD	& + (1-fac) * streamice_u_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	248	STREAMICE_FIELDS_LOAD	streamice_v_shear_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	249	STREAMICE_FIELDS_LOAD	& fac * streamice_v_shear_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	250	STREAMICE_FIELDS_LOAD	& + (1-fac) * streamice_v_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	252	STREAMICE_FIELDS_LOAD	bdot_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F	253	STREAMICE_FIELDS_LOAD	& fac * bdot_streamice0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	254	STREAMICE_FIELDS_LOAD	& + (1-fac) * bdot_streamice1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F	58	STREAMICE_FIELDS_LOAD	INTEGER bi,bj,i,j
./pkg/streamice/streamice_forced_buttress.F	101	STREAMICE_FORCED_BUTTRESS	taudx_SI(i,j+k,bi,bj) = taudx_SI(i,j+k,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F	102	STREAMICE_FORCED_BUTTRESS	& (streamice_u_normal_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	103	STREAMICE_FORCED_BUTTRESS	& streamice_u_normal_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	104	STREAMICE_FORCED_BUTTRESS	& .5 * unconf_stress * dyG(i,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F	106	STREAMICE_FORCED_BUTTRESS	taudy_SI(i,j+k,bi,bj) = taudy_SI(i,j+k,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F	107	STREAMICE_FORCED_BUTTRESS	& (streamice_v_shear_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	108	STREAMICE_FORCED_BUTTRESS	& streamice_v_shear_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	109	STREAMICE_FORCED_BUTTRESS	& .5 * unconf_stress * dyG(i,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F	115	STREAMICE_FORCED_BUTTRESS	if (streamice_vfacemask(i,j+1,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F	119	STREAMICE_FORCED_BUTTRESS	if (streamice_umask(i+k,j+1,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F	121	STREAMICE_FORCED_BUTTRESS	taudy_SI(i+k,j+1,bi,bj) = taudy_SI(i+k,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	122	STREAMICE_FORCED_BUTTRESS	& (streamice_v_normal_pert(i,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	123	STREAMICE_FORCED_BUTTRESS	& streamice_v_normal_stress(i,j+1,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	124	STREAMICE_FORCED_BUTTRESS	& .5 * dxG(i,j+1,bi,bj) * unconf_stress
./pkg/streamice/streamice_forced_buttress.F	126	STREAMICE_FORCED_BUTTRESS	taudx_SI(i+k,j+1,bi,bj) = taudx_SI(i+k,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	127	STREAMICE_FORCED_BUTTRESS	& (streamice_u_shear_pert(i,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	128	STREAMICE_FORCED_BUTTRESS	& streamice_u_shear_stress(i,j+1,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	129	STREAMICE_FORCED_BUTTRESS	& .5 * unconf_stress * dxG(i,j+1,bi,bj)
./pkg/streamice/streamice_forced_buttress.F	135	STREAMICE_FORCED_BUTTRESS	if (streamice_vfacemask(i,j,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F	138	STREAMICE_FORCED_BUTTRESS	if (streamice_umask(i+k,j,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F	140	STREAMICE_FORCED_BUTTRESS	taudy_SI(i+k,j,bi,bj) = taudy_SI(i+k,j,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F	141	STREAMICE_FORCED_BUTTRESS	& (streamice_v_normal_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	142	STREAMICE_FORCED_BUTTRESS	& streamice_v_normal_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	143	STREAMICE_FORCED_BUTTRESS	& .5 * dxG(i,j,bi,bj) * unconf_stress
./pkg/streamice/streamice_forced_buttress.F	145	STREAMICE_FORCED_BUTTRESS	taudx_SI(i+k,j,bi,bj) = taudx_SI(i+k,j,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F	146	STREAMICE_FORCED_BUTTRESS	& (streamice_u_shear_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	147	STREAMICE_FORCED_BUTTRESS	& streamice_u_shear_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	148	STREAMICE_FORCED_BUTTRESS	& .5 * unconf_stress * dxG(i,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F	38	STREAMICE_FORCED_BUTTRESS	INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_forced_buttress.F	46	STREAMICE_FORCED_BUTTRESS	DO j=1-OLy+1,sNy+OLy-1
./pkg/streamice/streamice_forced_buttress.F	50	STREAMICE_FORCED_BUTTRESS	if (streamice_hmask(i,j,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F	54	STREAMICE_FORCED_BUTTRESS	IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_forced_buttress.F	57	STREAMICE_FORCED_BUTTRESS	& (streamice_density * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_forced_buttress.F	59	STREAMICE_FORCED_BUTTRESS	& streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2)
./pkg/streamice/streamice_forced_buttress.F	61	STREAMICE_FORCED_BUTTRESS	& streamice_density_ocean_avg * R_low(i,j,bi,bj)**2)
./pkg/streamice/streamice_forced_buttress.F	68	STREAMICE_FORCED_BUTTRESS	& H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_forced_buttress.F	74	STREAMICE_FORCED_BUTTRESS	if (streamice_ufacemask(i+1,j,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F	77	STREAMICE_FORCED_BUTTRESS	if (streamice_umask(i+1,j+k,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F	80	STREAMICE_FORCED_BUTTRESS	taudx_SI(i+1,j+k,bi,bj) = taudx_SI(i+1,j+k,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	81	STREAMICE_FORCED_BUTTRESS	& (streamice_u_normal_pert(i+1,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	82	STREAMICE_FORCED_BUTTRESS	& streamice_u_normal_stress(i+1,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	83	STREAMICE_FORCED_BUTTRESS	& .5 * unconf_stress * dyG(i+1,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F	85	STREAMICE_FORCED_BUTTRESS	taudy_SI(i+1,j+k,bi,bj) = taudy_SI(i+1,j+k,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	86	STREAMICE_FORCED_BUTTRESS	& (streamice_v_shear_pert(i+1,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F	87	STREAMICE_FORCED_BUTTRESS	& streamice_v_shear_stress(i+1,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F	88	STREAMICE_FORCED_BUTTRESS	& .5 * unconf_stress * dyG(i+1,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F	96	STREAMICE_FORCED_BUTTRESS	if (streamice_ufacemask(i,j,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F	99	STREAMICE_FORCED_BUTTRESS	if (streamice_umask(i,j+k,bi,bj).eq.1.0) then
./pkg/streamice/streamice_init_fixed.F	107	STREAMICE_INIT_FIXED	DO j=1,sNy
./pkg/streamice/streamice_init_fixed.F	109	STREAMICE_INIT_FIXED	STREAMICE_cost_mask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	246	STREAMICE_INIT_FIXED	DO j=1,sNy
./pkg/streamice/streamice_init_fixed.F	248	STREAMICE_INIT_FIXED	IF (temp_hmask(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_init_fixed.F	250	STREAMICE_INIT_FIXED	STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0
./pkg/streamice/streamice_init_fixed.F	262	STREAMICE_INIT_FIXED	DO j=1,sNy
./pkg/streamice/streamice_init_fixed.F	264	STREAMICE_INIT_FIXED	u_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_init_fixed.F	265	STREAMICE_INIT_FIXED	& u_bdry_values_SI_base (i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F	266	STREAMICE_INIT_FIXED	v_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_init_fixed.F	267	STREAMICE_INIT_FIXED	& v_bdry_values_SI_base (i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F	283	STREAMICE_INIT_FIXED	DO j=1,sNy
./pkg/streamice/streamice_init_fixed.F	288	STREAMICE_INIT_FIXED	k1AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_fixed.F	289	STREAMICE_INIT_FIXED	& (dxG(i+1,j,bi,bj)-dxG(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F	290	STREAMICE_INIT_FIXED	k2AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_fixed.F	291	STREAMICE_INIT_FIXED	& (dyG(i,j+1,bi,bj)-dyG(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F	294	STREAMICE_INIT_FIXED	streamice_basal_geom (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	302	STREAMICE_INIT_FIXED	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_init_fixed.F	303	STREAMICE_INIT_FIXED	x = xC(i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F	304	STREAMICE_INIT_FIXED	y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F	306	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F	307	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F	313	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	317	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	321	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	322	STREAMICE_INIT_FIXED	u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_WEST
./pkg/streamice/streamice_init_fixed.F	326	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	327	STREAMICE_INIT_FIXED	u_bdry_values_SI (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	331	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	339	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	343	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	347	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	348	STREAMICE_INIT_FIXED	u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_EAST
./pkg/streamice/streamice_init_fixed.F	352	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	353	STREAMICE_INIT_FIXED	u_bdry_values_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F	357	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	35	STREAMICE_INIT_FIXED	INTEGER bi, bj, i, j, Gi, Gj, m, k
./pkg/streamice/streamice_init_fixed.F	365	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	369	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	373	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	374	STREAMICE_INIT_FIXED	u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_SOUTH
./pkg/streamice/streamice_init_fixed.F	378	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	379	STREAMICE_INIT_FIXED	u_bdry_values_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F	383	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	391	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F	395	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	399	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	400	STREAMICE_INIT_FIXED	v_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_NORTH
./pkg/streamice/streamice_init_fixed.F	404	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	405	STREAMICE_INIT_FIXED	v_bdry_values_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F	409	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	416	STREAMICE_INIT_FIXED	IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F	417	STREAMICE_INIT_FIXED	& temp_hmask(i,j,bi,bj).eq.0.0 .or.
./pkg/streamice/streamice_init_fixed.F	418	STREAMICE_INIT_FIXED	& temp_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_init_fixed.F	421	STREAMICE_INIT_FIXED	maskFlag=INT(temp_ufacemask(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F	423	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	425	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	427	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	429	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	432	STREAMICE_INIT_FIXED	& (temp_hmask(i-1,j,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F	433	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	434	STREAMICE_INIT_FIXED	ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_init_fixed.F	435	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	437	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F	442	STREAMICE_INIT_FIXED	IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F	443	STREAMICE_INIT_FIXED	& temp_hmask(i,j,bi,bj).eq.0.0) THEN
./pkg/streamice/streamice_init_fixed.F	446	STREAMICE_INIT_FIXED	maskFlag=INT(temp_ufacemask(i+1,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F	448	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	450	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	452	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	454	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	457	STREAMICE_INIT_FIXED	& (temp_hmask(i+1,j,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F	458	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	460	STREAMICE_INIT_FIXED	STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F	465	STREAMICE_INIT_FIXED	IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F	466	STREAMICE_INIT_FIXED	& temp_hmask(i,j,bi,bj).eq.0.0 .or.
./pkg/streamice/streamice_init_fixed.F	467	STREAMICE_INIT_FIXED	& temp_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_init_fixed.F	470	STREAMICE_INIT_FIXED	maskFlag=INT(temp_vfacemask(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F	472	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	474	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	476	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	478	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	481	STREAMICE_INIT_FIXED	& (temp_hmask(i,j-1,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F	482	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	483	STREAMICE_INIT_FIXED	ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_init_fixed.F	484	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	486	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F	491	STREAMICE_INIT_FIXED	IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F	492	STREAMICE_INIT_FIXED	& temp_hmask(i,j,bi,bj).eq.0.0) THEN
./pkg/streamice/streamice_init_fixed.F	495	STREAMICE_INIT_FIXED	maskFlag=INT(temp_vfacemask(i,j+1,bi,bj))
./pkg/streamice/streamice_init_fixed.F	497	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F	499	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F	501	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F	503	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F	506	STREAMICE_INIT_FIXED	& (temp_hmask(i,j+1,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F	507	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F	509	STREAMICE_INIT_FIXED	STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = -1.0
./pkg/streamice/streamice_init_phi.F	31	STREAMICE_INIT_PHI	INTEGER bi, bj, i, j, xnode, ynode, xq, yq, m, n, p, kx, ky
./pkg/streamice/streamice_init_phi.F	56	STREAMICE_INIT_PHI	DO j=1-Oly,sNy+Oly-1
./pkg/streamice/streamice_init_phi.F	60	STREAMICE_INIT_PHI	gradx(xq) = Xquad(3-xq) * recip_dxG (i,j,bi,bj) +
./pkg/streamice/streamice_init_phi.F	61	STREAMICE_INIT_PHI	& Xquad(xq) * recip_dxG (i+1,j,bi,bj)
./pkg/streamice/streamice_init_phi.F	62	STREAMICE_INIT_PHI	grady(xq) = Xquad(3-xq) * recip_dyG (i,j,bi,bj) +
./pkg/streamice/streamice_init_phi.F	63	STREAMICE_INIT_PHI	& Xquad(xq) * recip_dyG (i,j+1,bi,bj)
./pkg/streamice/streamice_init_phi.F	81	STREAMICE_INIT_PHI	Dphi (i,j,bi,bj,m,n,1) =
./pkg/streamice/streamice_init_phi.F	83	STREAMICE_INIT_PHI	Dphi (i,j,bi,bj,m,n,2) =
./pkg/streamice/streamice_init_phi.F	88	STREAMICE_INIT_PHI	grid_jacq_streamice (i,j,bi,bj,n) =
./pkg/streamice/streamice_init_phi.F	89	STREAMICE_INIT_PHI	& (Xquad(3-xq)dyG(i,j,bi,bj) + Xquad(xq)dyG(i+1,j,bi,bj)) *
./pkg/streamice/streamice_init_phi.F	90	STREAMICE_INIT_PHI	& (Xquad(3-yq)dxG(i,j,bi,bj) + Xquad(yq)dxG(i,j+1,bi,bj))
./pkg/streamice/streamice_init_varia.F	101	STREAMICE_INIT_VARIA	ru_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	102	STREAMICE_INIT_VARIA	rv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	103	STREAMICE_INIT_VARIA	zu_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	104	STREAMICE_INIT_VARIA	zv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	108	STREAMICE_INIT_VARIA	R_low_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	113	STREAMICE_INIT_VARIA	visc_streamice_full(i,j,k,bi,bj) =
./pkg/streamice/streamice_init_varia.F	116	STREAMICE_INIT_VARIA	streamice_taubx (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	117	STREAMICE_INIT_VARIA	streamice_tauby (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	131	STREAMICE_INIT_VARIA	DO j = 1-oly, sNy+oly
./pkg/streamice/streamice_init_varia.F	138	STREAMICE_INIT_VARIA	streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F	139	STREAMICE_INIT_VARIA	streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F	140	STREAMICE_INIT_VARIA	streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F	141	STREAMICE_INIT_VARIA	streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F	154	STREAMICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_init_varia.F	156	STREAMICE_INIT_VARIA	STREAMICE_hmask(i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_varia.F	157	STREAMICE_INIT_VARIA	STREAMICE_umask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	158	STREAMICE_INIT_VARIA	STREAMICE_vmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	159	STREAMICE_INIT_VARIA	STREAMICE_ufacemask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	160	STREAMICE_INIT_VARIA	STREAMICE_vfacemask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	161	STREAMICE_INIT_VARIA	STREAMICE_float_cond(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	201	STREAMICE_INIT_VARIA	DO j=1,sNy
./pkg/streamice/streamice_init_varia.F	204	STREAMICE_INIT_VARIA	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_init_varia.F	210	STREAMICE_INIT_VARIA	IF (xC(i-1,j,bi,bj).GE.shelf_edge_pos) THEN
./pkg/streamice/streamice_init_varia.F	211	STREAMICE_INIT_VARIA	area_shelf_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	212	STREAMICE_INIT_VARIA	STREAMICE_hmask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	215	STREAMICE_INIT_VARIA	IF (xC(i,j,bi,bj).GT.slope_pos) THEN
./pkg/streamice/streamice_init_varia.F	216	STREAMICE_INIT_VARIA	H_streamice (i,j,bi,bj) = shelf_min_draft
./pkg/streamice/streamice_init_varia.F	218	STREAMICE_INIT_VARIA	H_streamice (i,j,bi,bj) = (shelf_min_draft +
./pkg/streamice/streamice_init_varia.F	220	STREAMICE_INIT_VARIA	& min (oneRL, (c1(slope_pos-xC(i,j,bi,bj)))*2))
./pkg/streamice/streamice_init_varia.F	223	STREAMICE_INIT_VARIA	IF (xC(i,j,bi,bj).GT.shelf_edge_pos) THEN
./pkg/streamice/streamice_init_varia.F	224	STREAMICE_INIT_VARIA	area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_varia.F	225	STREAMICE_INIT_VARIA	& (shelf_edge_pos-xG(i,j,bi,bj)) /
./pkg/streamice/streamice_init_varia.F	226	STREAMICE_INIT_VARIA	& (xG(i+1,j,bi,bj)-xG(i,j,bi,bj))
./pkg/streamice/streamice_init_varia.F	227	STREAMICE_INIT_VARIA	IF (area_shelf_streamice(i,j,bi,bj).gt. 0. _d 0) THEN
./pkg/streamice/streamice_init_varia.F	228	STREAMICE_INIT_VARIA	STREAMICE_hmask(i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_varia.F	230	STREAMICE_INIT_VARIA	STREAMICE_hmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	231	STREAMICE_INIT_VARIA	H_streamice(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	234	STREAMICE_INIT_VARIA	area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F	235	STREAMICE_INIT_VARIA	STREAMICE_hmask(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_varia.F	256	STREAMICE_INIT_VARIA	DO j=1,sNy
./pkg/streamice/streamice_init_varia.F	259	STREAMICE_INIT_VARIA	Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_init_varia.F	262	STREAMICE_INIT_VARIA	IF (H_streamice(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/streamice/streamice_init_varia.F	263	STREAMICE_INIT_VARIA	area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F	264	STREAMICE_INIT_VARIA	STREAMICE_hmask(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_varia.F	266	STREAMICE_INIT_VARIA	area_shelf_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	267	STREAMICE_INIT_VARIA	STREAMICE_hmask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	270	STREAMICE_INIT_VARIA	STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0
./pkg/streamice/streamice_init_varia.F	355	STREAMICE_INIT_VARIA	DO j=1,sNy
./pkg/streamice/streamice_init_varia.F	359	STREAMICE_INIT_VARIA	B_glen(i,j,r,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F	362	STREAMICE_INIT_VARIA	B_glen(i,j,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F	39	STREAMICE_INIT_VARIA	INTEGER i, j, k, bi, bj, Gi, Gj, r
./pkg/streamice/streamice_init_varia.F	418	STREAMICE_INIT_VARIA	DO j=1,sNy
./pkg/streamice/streamice_init_varia.F	420	STREAMICE_INIT_VARIA	C_basal_friction(i,j,bi,bj) = C_basal_fric_const
./pkg/streamice/streamice_init_varia.F	432	STREAMICE_INIT_VARIA	DO j=1,sNy
./pkg/streamice/streamice_init_varia.F	434	STREAMICE_INIT_VARIA	x = xC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F	435	STREAMICE_INIT_VARIA	y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F	436	STREAMICE_INIT_VARIA	C_basal_friction(i,j,bi,bj) =
./pkg/streamice/streamice_init_varia.F	450	STREAMICE_INIT_VARIA	DO j=1,sNy
./pkg/streamice/streamice_init_varia.F	452	STREAMICE_INIT_VARIA	x = xC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F	453	STREAMICE_INIT_VARIA	y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F	454	STREAMICE_INIT_VARIA	C_basal_friction(i,j,bi,bj) =
./pkg/streamice/streamice_init_varia.F	485	STREAMICE_INIT_VARIA	DO j=1,sNy
./pkg/streamice/streamice_init_varia.F	487	STREAMICE_INIT_VARIA	trac2d(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F	52	STREAMICE_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_init_varia.F	54	STREAMICE_INIT_VARIA	H_streamIce(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	55	STREAMICE_INIT_VARIA	U_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	56	STREAMICE_INIT_VARIA	V_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	57	STREAMICE_INIT_VARIA	visc_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	58	STREAMICE_INIT_VARIA	tau_beta_eff_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	59	STREAMICE_INIT_VARIA	float_frac_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	60	STREAMICE_INIT_VARIA	base_el_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	61	STREAMICE_INIT_VARIA	surf_el_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	62	STREAMICE_INIT_VARIA	area_shelf_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	63	STREAMICE_INIT_VARIA	mass_ice_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	64	STREAMICE_INIT_VARIA	BDOT_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	66	STREAMICE_INIT_VARIA	BDOT_streamice1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	68	STREAMICE_INIT_VARIA	ADOT_streamice(i,j,bi,bj) = streamice_adot_uniform
./pkg/streamice/streamice_init_varia.F	69	STREAMICE_INIT_VARIA	C_basal_friction(i,j,bi,bj) = C_basal_fric_const
./pkg/streamice/streamice_init_varia.F	71	STREAMICE_INIT_VARIA	B_glen(i,j,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F	74	STREAMICE_INIT_VARIA	B_glen(i,j,k,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F	77	STREAMICE_INIT_VARIA	H_streamice_prev(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	79	STREAMICE_INIT_VARIA	STREAMICE_u_normal_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	80	STREAMICE_INIT_VARIA	STREAMICE_v_normal_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	81	STREAMICE_INIT_VARIA	STREAMICE_u_shear_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	82	STREAMICE_INIT_VARIA	STREAMICE_v_shear_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	83	STREAMICE_INIT_VARIA	STREAMICE_u_normal_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	84	STREAMICE_INIT_VARIA	STREAMICE_v_normal_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	85	STREAMICE_INIT_VARIA	STREAMICE_u_shear_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	86	STREAMICE_INIT_VARIA	STREAMICE_v_shear_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	88	STREAMICE_INIT_VARIA	STREAMICE_u_normal_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	89	STREAMICE_INIT_VARIA	STREAMICE_v_normal_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	90	STREAMICE_INIT_VARIA	STREAMICE_u_shear_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	91	STREAMICE_INIT_VARIA	STREAMICE_v_shear_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F	96	STREAMICE_INIT_VARIA	GAD_trac_2d (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_invert_surf_forthick.F	32	STREAMICE_INVERT_SURF_FORTHICK	INTEGER i, j, bi, bj, ITER
./pkg/streamice/streamice_invert_surf_forthick.F	40	STREAMICE_INVERT_SURF_FORTHICK	DO j = 1,sNy
./pkg/streamice/streamice_invert_surf_forthick.F	42	STREAMICE_INVERT_SURF_FORTHICK	IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_invert_surf_forthick.F	43	STREAMICE_INVERT_SURF_FORTHICK	hf = (-1. _d 0) * R(i,j,bi,bj) /
./pkg/streamice/streamice_invert_surf_forthick.F	46	STREAMICE_INVERT_SURF_FORTHICK	IF (S(i,j,bi,bj) .gt. delta*HF) THEN
./pkg/streamice/streamice_invert_surf_forthick.F	47	STREAMICE_INVERT_SURF_FORTHICK	htmp = S(i,j,bi,bj)-R(i,j,bi,bj)
./pkg/streamice/streamice_invert_surf_forthick.F	49	STREAMICE_INVERT_SURF_FORTHICK	htmp = S(i,j,bi,bj)/delta
./pkg/streamice/streamice_invert_surf_forthick.F	58	STREAMICE_INVERT_SURF_FORTHICK	& ( STREAMICE_hmask(i,j,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_invert_surf_forthick.F	60	STREAMICE_INVERT_SURF_FORTHICK	hf = (-1. _d 0) * R(i,j,bi,bj) /
./pkg/streamice/streamice_invert_surf_forthick.F	63	STREAMICE_INVERT_SURF_FORTHICK	IF (S(i,j,bi,bj) .gt. delta*HF) THEN
./pkg/streamice/streamice_invert_surf_forthick.F	64	STREAMICE_INVERT_SURF_FORTHICK	htmp = S(i,j,bi,bj)-R(i,j,bi,bj)
./pkg/streamice/streamice_invert_surf_forthick.F	66	STREAMICE_INVERT_SURF_FORTHICK	htmp = S(i,j,bi,bj)/delta
./pkg/streamice/streamice_invert_surf_forthick.F	75	STREAMICE_INVERT_SURF_FORTHICK	RESID = RESID - S(i,j,bi,bj)
./pkg/streamice/streamice_invert_surf_forthick.F	86	STREAMICE_INVERT_SURF_FORTHICK	H(i,j,bi,bj) = Htmp
./model/src/ini_global_domain.F	51	INI_GLOBAL_DOMAIN	INTEGER i, j, nCorners
./model/src/ini_global_domain.F	81	INI_GLOBAL_DOMAIN	DO j=1,sNy
./model/src/ini_global_domain.F	84	INI_GLOBAL_DOMAIN	& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/streamice/streamice_petsc_numerate.F	124	STREAMICE_PETSC_NUMERATE	DO j=1,sNy
./pkg/streamice/streamice_petsc_numerate.F	126	STREAMICE_PETSC_NUMERATE	IF (streamice_petsc_dofs_u(i,j,bi,bj).ge.0 ) THEN
./pkg/streamice/streamice_petsc_numerate.F	127	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_u(i,j,bi,bj) =
./pkg/streamice/streamice_petsc_numerate.F	128	STREAMICE_PETSC_NUMERATE	& streamice_petsc_dofs_u(i,j,bi,bj) +
./pkg/streamice/streamice_petsc_numerate.F	131	STREAMICE_PETSC_NUMERATE	IF (streamice_petsc_dofs_v(i,j,bi,bj).ge.0 ) THEN
./pkg/streamice/streamice_petsc_numerate.F	132	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_v(i,j,bi,bj) =
./pkg/streamice/streamice_petsc_numerate.F	133	STREAMICE_PETSC_NUMERATE	& streamice_petsc_dofs_v(i,j,bi,bj) +
./pkg/streamice/streamice_petsc_numerate.F	35	STREAMICE_PETSC_NUMERATE	INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_petsc_numerate.F	48	STREAMICE_PETSC_NUMERATE	DO j=1,sNy
./pkg/streamice/streamice_petsc_numerate.F	50	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_u (i,j,bi,bj) = -2.0
./pkg/streamice/streamice_petsc_numerate.F	51	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_v (i,j,bi,bj) = -2.0
./pkg/streamice/streamice_petsc_numerate.F	60	STREAMICE_PETSC_NUMERATE	DO j=1,sNy
./pkg/streamice/streamice_petsc_numerate.F	74	STREAMICE_PETSC_NUMERATE	if (STREAMICE_umask (i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_petsc_numerate.F	76	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_u (i,j,bi,bj) = DoFCount
./pkg/streamice/streamice_petsc_numerate.F	78	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_u (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_petsc_numerate.F	81	STREAMICE_PETSC_NUMERATE	if (STREAMICE_vmask (i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_petsc_numerate.F	83	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_v (i,j,bi,bj) = DoFCount
./pkg/streamice/streamice_petsc_numerate.F	85	STREAMICE_PETSC_NUMERATE	streamice_petsc_dofs_v (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_read_pickup.F	175	STREAMICE_READ_PICKUP	DO j=1,nMissing
./pkg/streamice/streamice_read_pickup.F	45	STREAMICE_READ_PICKUP	INTEGER j, nj, ioUnit
./pkg/streamice/streamice_solo_timestep.F	40	STREAMICE_SOLO_TIMESTEP	INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_solo_timestep.F	61	STREAMICE_SOLO_TIMESTEP	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_solo_timestep.F	63	STREAMICE_SOLO_TIMESTEP	STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F	64	STREAMICE_SOLO_TIMESTEP	STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F	65	STREAMICE_SOLO_TIMESTEP	ru_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F	66	STREAMICE_SOLO_TIMESTEP	rv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F	67	STREAMICE_SOLO_TIMESTEP	zu_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F	68	STREAMICE_SOLO_TIMESTEP	zv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F	71	STREAMICE_SOLO_TIMESTEP	streamice_taubx (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F	72	STREAMICE_SOLO_TIMESTEP	streamice_tauby (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_taub.F	37	STREAMICE_TAUB	INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_taub.F	43	STREAMICE_TAUB	DO j=1,sNy
./pkg/streamice/streamice_taub.F	46	STREAMICE_TAUB	streamice_taubx (i,j,bi,bj) = 0.
./pkg/streamice/streamice_taub.F	47	STREAMICE_TAUB	streamice_tauby (i,j,bi,bj) = 0.
./pkg/streamice/streamice_taub.F	49	STREAMICE_TAUB	IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_taub.F	62	STREAMICE_TAUB	& dxG(i,j+l,bi,bj)dyG(i+k,j,bi,bj)
./pkg/streamice/streamice_taub.F	63	STREAMICE_TAUB	& recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F	64	STREAMICE_TAUB	& U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_taub.F	66	STREAMICE_TAUB	& dxG(i,j+l,bi,bj)dyG(i+k,j,bi,bj)
./pkg/streamice/streamice_taub.F	67	STREAMICE_TAUB	& recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F	68	STREAMICE_TAUB	& V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_taub.F	72	STREAMICE_TAUB	streamice_taubx (i,j,bi,bj) =
./pkg/streamice/streamice_taub.F	73	STREAMICE_TAUB	& tau_beta_eff_streamice(i,j,bi,bj) * umid
./pkg/streamice/streamice_taub.F	74	STREAMICE_TAUB	streamice_tauby (i,j,bi,bj) =
./pkg/streamice/streamice_taub.F	75	STREAMICE_TAUB	& tau_beta_eff_streamice(i,j,bi,bj) * vmid
./pkg/streamice/streamice_tridiag_solve.F	127	STREAMICE_TRIDIAG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_tridiag_solve.F	129	STREAMICE_TRIDIAG_SOLVE	cg_Uin (i,j,1,1) = ymat(i)
./pkg/streamice/streamice_tridiag_solve.F	133	STREAMICE_TRIDIAG_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_tridiag_solve.F	135	STREAMICE_TRIDIAG_SOLVE	cg_Vin (i,j,1,1) = 0. _d 0
./pkg/streamice/streamice_tridiag_solve.F	38	STREAMICE_TRIDIAG_SOLVE	INTEGER iMin,iMax,i,j,k
./pkg/streamice/streamice_tridiag_solve.F	76	STREAMICE_TRIDIAG_SOLVE	do j=-1,1
./pkg/streamice/streamice_tridiag_solve.F	78	STREAMICE_TRIDIAG_SOLVE	aMat(i) = amat(i)+A_uu(i,k,1,1,-1,j)
./pkg/streamice/streamice_tridiag_solve.F	79	STREAMICE_TRIDIAG_SOLVE	bMat(i) = bmat(i)+A_uu(i,k,1,1,0,j)
./pkg/streamice/streamice_tridiag_solve.F	80	STREAMICE_TRIDIAG_SOLVE	cMat(i) = cmat(i)+A_uu(i,k,1,1,1,j)
./pkg/streamice/streamice_tridiag_solve.F	82	STREAMICE_TRIDIAG_SOLVE	yMat(i) = ymat(i)+cg_Bu(i,j+2,1,1)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	105	STREAMICE_UPD_FFRAC_UNCOUPLED	float_frac_streamice(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	107	STREAMICE_UPD_FFRAC_UNCOUPLED	base_el_streamice(i,j,bi,bj) = R_low_si(i,j,bi,bj)+OD
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	109	STREAMICE_UPD_FFRAC_UNCOUPLED	base_el_streamice(i,j,bi,bj) = R_low(i,j,bi,bj)+OD
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	111	STREAMICE_UPD_FFRAC_UNCOUPLED	surf_el_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	112	STREAMICE_UPD_FFRAC_UNCOUPLED	& (1-rhoi/rhow)*H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	116	STREAMICE_UPD_FFRAC_UNCOUPLED	float_frac_streamice(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	118	STREAMICE_UPD_FFRAC_UNCOUPLED	base_el_streamice(i,j,bi,bj) = R_low_si(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	119	STREAMICE_UPD_FFRAC_UNCOUPLED	surf_el_streamice(i,j,bi,bj) = R_low_si(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	121	STREAMICE_UPD_FFRAC_UNCOUPLED	base_el_streamice(i,j,bi,bj) = R_low(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	122	STREAMICE_UPD_FFRAC_UNCOUPLED	surf_el_streamice(i,j,bi,bj) = R_low(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	124	STREAMICE_UPD_FFRAC_UNCOUPLED	& + H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	30	STREAMICE_UPD_FFRAC_UNCOUPLED	INTEGER bi, bj, i, j
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	50	STREAMICE_UPD_FFRAC_UNCOUPLED	DO j=1-Oly,sNy+Oly
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	53	STREAMICE_UPD_FFRAC_UNCOUPLED	if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	54	STREAMICE_UPD_FFRAC_UNCOUPLED	& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	56	STREAMICE_UPD_FFRAC_UNCOUPLED	h = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	59	STREAMICE_UPD_FFRAC_UNCOUPLED	hf = -1.0 * i_r * R_low_si (i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	61	STREAMICE_UPD_FFRAC_UNCOUPLED	hf = -1.0 * i_r * R_low (i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	64	STREAMICE_UPD_FFRAC_UNCOUPLED	surf_el_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	72	STREAMICE_UPD_FFRAC_UNCOUPLED	base_el_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	73	STREAMICE_UPD_FFRAC_UNCOUPLED	& surf_el_streamice(i,j,bi,bj) - h
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	75	STREAMICE_UPD_FFRAC_UNCOUPLED	float_frac_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	91	STREAMICE_UPD_FFRAC_UNCOUPLED	DO j=1-Oly,sNy+Oly
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	94	STREAMICE_UPD_FFRAC_UNCOUPLED	OD = -1.0 * R_low_si (i,j,bi,bj) -
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	95	STREAMICE_UPD_FFRAC_UNCOUPLED	& H_streamice(i,j,bi,bj) * rhoi/rhow
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	97	STREAMICE_UPD_FFRAC_UNCOUPLED	OD = -1.0 * R_low (i,j,bi,bj) -
./pkg/streamice/streamice_upd_ffrac_uncoupled.F	98	STREAMICE_UPD_FFRAC_UNCOUPLED	& H_streamice(i,j,bi,bj) * rhoi/rhow
./pkg/streamice/streamice_vel_solve.F	126	STREAMICE_VEL_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_vel_solve.F	128	STREAMICE_VEL_SOLVE	Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	129	STREAMICE_VEL_SOLVE	Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	130	STREAMICE_VEL_SOLVE	ubd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	131	STREAMICE_VEL_SOLVE	vbd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	169	STREAMICE_VEL_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_vel_solve.F	173	STREAMICE_VEL_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F	175	STREAMICE_VEL_SOLVE	& ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F	176	STREAMICE_VEL_SOLVE	& taudx_SI(i,j,bi,bj))
./pkg/streamice/streamice_vel_solve.F	179	STREAMICE_VEL_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F	181	STREAMICE_VEL_SOLVE	& ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F	182	STREAMICE_VEL_SOLVE	& taudy_SI(i,j,bi,bj)))
./pkg/streamice/streamice_vel_solve.F	334	STREAMICE_VEL_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_vel_solve.F	336	STREAMICE_VEL_SOLVE	Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	337	STREAMICE_VEL_SOLVE	Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	338	STREAMICE_VEL_SOLVE	ubd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	339	STREAMICE_VEL_SOLVE	vbd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F	384	STREAMICE_VEL_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_vel_solve.F	388	STREAMICE_VEL_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F	390	STREAMICE_VEL_SOLVE	& ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F	391	STREAMICE_VEL_SOLVE	& taudx_SI(i,j,bi,bj))
./pkg/streamice/streamice_vel_solve.F	393	STREAMICE_VEL_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F	395	STREAMICE_VEL_SOLVE	& ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F	396	STREAMICE_VEL_SOLVE	& taudy_SI(i,j,bi,bj)))
./pkg/streamice/streamice_vel_solve.F	414	STREAMICE_VEL_SOLVE	DO j=1,sNy
./pkg/streamice/streamice_vel_solve.F	418	STREAMICE_VEL_SOLVE	IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F	420	STREAMICE_VEL_SOLVE	& ABS (U_streamice(i,j,bi,bj)-u_old_SI(i,j,bi,bj))
./pkg/streamice/streamice_vel_solve.F	422	STREAMICE_VEL_SOLVE	IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F	424	STREAMICE_VEL_SOLVE	& ABS (V_streamice(i,j,bi,bj)-v_old_SI(i,j,bi,bj)))
./pkg/streamice/streamice_vel_solve.F	440	STREAMICE_VEL_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_vel_solve.F	442	STREAMICE_VEL_SOLVE	u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj)
./pkg/streamice/streamice_vel_solve.F	443	STREAMICE_VEL_SOLVE	v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj)
./pkg/streamice/streamice_vel_solve.F	47	STREAMICE_VEL_SOLVE	INTEGER conv_flag, i, j, k, l, iter, cg_iters, bi, bj
./pkg/streamice/streamice_vel_solve.F	92	STREAMICE_VEL_SOLVE	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_vel_solve.F	94	STREAMICE_VEL_SOLVE	u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj)
./pkg/streamice/streamice_vel_solve.F	95	STREAMICE_VEL_SOLVE	v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj)
./pkg/streamice/streamice_velmask_upd.F	100	STREAMICE_VELMASK_UPD	STREAMICE_ufacemask(i+ki,j,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F	104	STREAMICE_VELMASK_UPD	STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	105	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	107	STREAMICE_VELMASK_UPD	STREAMICE_ufacemask(i+ki,j,bi,bj) = 4.0
./pkg/streamice/streamice_velmask_upd.F	110	STREAMICE_VELMASK_UPD	STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	111	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	113	STREAMICE_VELMASK_UPD	STREAMICE_ufacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	116	STREAMICE_VELMASK_UPD	STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	122	STREAMICE_VELMASK_UPD	maskFlag=INT(STREAMICE_vfacemask_bdry(i,j+kj,bi,bj))
./pkg/streamice/streamice_velmask_upd.F	125	STREAMICE_VELMASK_UPD	if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F	126	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F	128	STREAMICE_VELMASK_UPD	if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F	129	STREAMICE_VELMASK_UPD	STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F	132	STREAMICE_VELMASK_UPD	STREAMICE_vfacemask(i,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F	135	STREAMICE_VELMASK_UPD	STREAMICE_vfacemask(i,j+kj,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F	139	STREAMICE_VELMASK_UPD	STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	140	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	142	STREAMICE_VELMASK_UPD	STREAMICE_vfacemask(i,j+kj,bi,bj) = 4.0
./pkg/streamice/streamice_velmask_upd.F	145	STREAMICE_VELMASK_UPD	STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	146	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	148	STREAMICE_VELMASK_UPD	STREAMICE_vfacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	151	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F	157	STREAMICE_VELMASK_UPD	IF ((STREAMICE_hmask(i+1,j,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F	158	STREAMICE_VELMASK_UPD	& (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2.0)) THEN
./pkg/streamice/streamice_velmask_upd.F	160	STREAMICE_VELMASK_UPD	STREAMICE_ufacemask(i+1,j,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F	165	STREAMICE_VELMASK_UPD	IF ((STREAMICE_hmask(i-1,j,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F	166	STREAMICE_VELMASK_UPD	& (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2.0)) THEN
./pkg/streamice/streamice_velmask_upd.F	168	STREAMICE_VELMASK_UPD	STREAMICE_ufacemask(i,j,bi,bj) = 2
./pkg/streamice/streamice_velmask_upd.F	172	STREAMICE_VELMASK_UPD	IF (j .lt. sNy+OLy) THEN
./pkg/streamice/streamice_velmask_upd.F	173	STREAMICE_VELMASK_UPD	IF ((STREAMICE_hmask(i,j+1,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F	174	STREAMICE_VELMASK_UPD	& (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2.0)) THEN
./pkg/streamice/streamice_velmask_upd.F	176	STREAMICE_VELMASK_UPD	STREAMICE_vfacemask(i,j+1,bi,bj) = 2
./pkg/streamice/streamice_velmask_upd.F	180	STREAMICE_VELMASK_UPD	IF (j .gt. 1-OLy) THEN
./pkg/streamice/streamice_velmask_upd.F	181	STREAMICE_VELMASK_UPD	IF ((STREAMICE_hmask(i,j-1,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F	182	STREAMICE_VELMASK_UPD	& (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2.0)) THEN
./pkg/streamice/streamice_velmask_upd.F	184	STREAMICE_VELMASK_UPD	STREAMICE_vfacemask(i,j,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F	199	STREAMICE_VELMASK_UPD	DO j=1,sNy
./pkg/streamice/streamice_velmask_upd.F	201	STREAMICE_VELMASK_UPD	IF(streamice_umask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_velmask_upd.F	202	STREAMICE_VELMASK_UPD	streamice_umask(i,j,bi,bj)=0.0
./pkg/streamice/streamice_velmask_upd.F	204	STREAMICE_VELMASK_UPD	IF(streamice_vmask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_velmask_upd.F	205	STREAMICE_VELMASK_UPD	streamice_vmask(i,j,bi,bj)=0.0
./pkg/streamice/streamice_velmask_upd.F	40	STREAMICE_VELMASK_UPD	INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_velmask_upd.F	58	STREAMICE_VELMASK_UPD	DO j=1-OLy,sNy+OLy
./pkg/streamice/streamice_velmask_upd.F	60	STREAMICE_VELMASK_UPD	STREAMICE_umask(i,j,bi,bj) = -1. _d 0
./pkg/streamice/streamice_velmask_upd.F	61	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i,j,bi,bj) = -1. _d 0
./pkg/streamice/streamice_velmask_upd.F	62	STREAMICE_VELMASK_UPD	STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_velmask_upd.F	63	STREAMICE_VELMASK_UPD	STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_velmask_upd.F	71	STREAMICE_VELMASK_UPD	DO j=0,sNy+1
./pkg/streamice/streamice_velmask_upd.F	73	STREAMICE_VELMASK_UPD	IF (STREAMICE_hmask(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_velmask_upd.F	77	STREAMICE_VELMASK_UPD	if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F	78	STREAMICE_VELMASK_UPD	STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F	80	STREAMICE_VELMASK_UPD	if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F	81	STREAMICE_VELMASK_UPD	STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F	87	STREAMICE_VELMASK_UPD	maskFlag=INT(STREAMICE_ufacemask_bdry(i+ki,j,bi,bj))
./pkg/streamice/streamice_velmask_upd.F	90	STREAMICE_VELMASK_UPD	if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F	91	STREAMICE_VELMASK_UPD	STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F	93	STREAMICE_VELMASK_UPD	if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F	94	STREAMICE_VELMASK_UPD	STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F	97	STREAMICE_VELMASK_UPD	STREAMICE_ufacemask(i+ki,j,bi,bj) = 3.0
./pkg/streamice/streamice_visc_beta.F	101	STREAMICE_VISC_BETA	& second_inv*((1-n_glen)/n_glen) H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta.F	104	STREAMICE_VISC_BETA	tau_beta_eff_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta.F	105	STREAMICE_VISC_BETA	& C_basal_friction(i,j,bi,bj)*2
./pkg/streamice/streamice_visc_beta.F	107	STREAMICE_VISC_BETA	& float_frac_streamice (i,j,bi,bj)
./pkg/streamice/streamice_visc_beta.F	36	STREAMICE_VISC_BETA	INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_visc_beta.F	42	STREAMICE_VISC_BETA	DO j=1,sNy
./pkg/streamice/streamice_visc_beta.F	44	STREAMICE_VISC_BETA	IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_visc_beta.F	52	STREAMICE_VISC_BETA	& dxG(i,j+l,bi,bj)dyG(i+k,j,bi,bj)
./pkg/streamice/streamice_visc_beta.F	53	STREAMICE_VISC_BETA	& recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F	54	STREAMICE_VISC_BETA	& U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta.F	56	STREAMICE_VISC_BETA	& dxG(i,j+l,bi,bj)dyG(i+k,j,bi,bj)
./pkg/streamice/streamice_visc_beta.F	57	STREAMICE_VISC_BETA	& recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F	58	STREAMICE_VISC_BETA	& V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta.F	62	STREAMICE_VISC_BETA	ux = (U_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta.F	63	STREAMICE_VISC_BETA	& U_streamice(i+1,j,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	64	STREAMICE_VISC_BETA	& U_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	65	STREAMICE_VISC_BETA	& U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F	66	STREAMICE_VISC_BETA	& (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F	67	STREAMICE_VISC_BETA	vx = (V_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta.F	68	STREAMICE_VISC_BETA	& V_streamice(i+1,j,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	69	STREAMICE_VISC_BETA	& V_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	70	STREAMICE_VISC_BETA	& V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F	71	STREAMICE_VISC_BETA	& (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F	72	STREAMICE_VISC_BETA	uy = (U_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	73	STREAMICE_VISC_BETA	& U_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_visc_beta.F	74	STREAMICE_VISC_BETA	& U_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	75	STREAMICE_VISC_BETA	& U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F	76	STREAMICE_VISC_BETA	& (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F	77	STREAMICE_VISC_BETA	vy = (V_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	78	STREAMICE_VISC_BETA	& V_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_visc_beta.F	79	STREAMICE_VISC_BETA	& V_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F	80	STREAMICE_VISC_BETA	& V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F	81	STREAMICE_VISC_BETA	& (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F	83	STREAMICE_VISC_BETA	exx = ux + k1AtC_str(i,j,bi,bj)*vmid
./pkg/streamice/streamice_visc_beta.F	84	STREAMICE_VISC_BETA	eyy = vy + k2AtC_str(i,j,bi,bj)*umid
./pkg/streamice/streamice_visc_beta.F	86	STREAMICE_VISC_BETA	& k1AtC_str(i,j,bi,bj)umid + k2AtC_str(i,j,bi,bj)vmid
./pkg/streamice/streamice_visc_beta.F	95	STREAMICE_VISC_BETA	visc_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta.F	97	STREAMICE_VISC_BETA	& .5 * (B_glen(i,j,1,bi,bj))*2
./pkg/streamice/streamice_visc_beta.F	99	STREAMICE_VISC_BETA	& .5 * (B_glen(i,j,bi,bj))*2
./model/src/ini_grid.F	100	INI_GRID	recip_rAz(i,j,bi,bj) = 0.
./model/src/ini_grid.F	101	INI_GRID	tanPhiAtU(i,j,bi,bj) = 0.
./model/src/ini_grid.F	102	INI_GRID	tanPhiAtV(i,j,bi,bj) = 0.
./model/src/ini_grid.F	103	INI_GRID	angleCosC(i,j,bi,bj) = 1.
./model/src/ini_grid.F	104	INI_GRID	angleSinC(i,j,bi,bj) = 0.
./model/src/ini_grid.F	105	INI_GRID	u2zonDir(i,j,bi,bj) = 1.
./model/src/ini_grid.F	106	INI_GRID	v2zonDir(i,j,bi,bj) = 0.
./model/src/ini_grid.F	108	INI_GRID	cosFacU(j,bi,bj) = 1.
./model/src/ini_grid.F	109	INI_GRID	cosFacV(j,bi,bj) = 1.
./model/src/ini_grid.F	110	INI_GRID	sqCosFacU(j,bi,bj) = 1.
./model/src/ini_grid.F	111	INI_GRID	sqCosFacV(j,bi,bj) = 1.
./model/src/ini_grid.F	154	INI_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_grid.F	156	INI_GRID	IF ( dxG(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	157	INI_GRID	& recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj)
./model/src/ini_grid.F	158	INI_GRID	IF ( dyG(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	159	INI_GRID	& recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj)
./model/src/ini_grid.F	160	INI_GRID	IF ( dxC(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	161	INI_GRID	& recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj)
./model/src/ini_grid.F	162	INI_GRID	IF ( dyC(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	163	INI_GRID	& recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj)
./model/src/ini_grid.F	164	INI_GRID	IF ( dxF(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	165	INI_GRID	& recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj)
./model/src/ini_grid.F	166	INI_GRID	IF ( dyF(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	167	INI_GRID	& recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj)
./model/src/ini_grid.F	168	INI_GRID	IF ( dxV(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	169	INI_GRID	& recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj)
./model/src/ini_grid.F	170	INI_GRID	IF ( dyU(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	171	INI_GRID	& recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj)
./model/src/ini_grid.F	172	INI_GRID	IF ( rA (i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	173	INI_GRID	& recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj)
./model/src/ini_grid.F	174	INI_GRID	IF ( rAs(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	175	INI_GRID	& recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj)
./model/src/ini_grid.F	176	INI_GRID	IF ( rAw(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	177	INI_GRID	& recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj)
./model/src/ini_grid.F	178	INI_GRID	IF ( rAz(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F	179	INI_GRID	& recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj)
./model/src/ini_grid.F	53	INI_GRID	INTEGER i, j
./model/src/ini_grid.F	71	INI_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_grid.F	73	INI_GRID	xC(i,j,bi,bj) = 0.
./model/src/ini_grid.F	74	INI_GRID	yC(i,j,bi,bj) = 0.
./model/src/ini_grid.F	75	INI_GRID	xG(i,j,bi,bj) = 0.
./model/src/ini_grid.F	76	INI_GRID	yG(i,j,bi,bj) = 0.
./model/src/ini_grid.F	77	INI_GRID	dxC(i,j,bi,bj) = 0.
./model/src/ini_grid.F	78	INI_GRID	dyC(i,j,bi,bj) = 0.
./model/src/ini_grid.F	79	INI_GRID	dxG(i,j,bi,bj) = 0.
./model/src/ini_grid.F	80	INI_GRID	dyG(i,j,bi,bj) = 0.
./model/src/ini_grid.F	81	INI_GRID	dxF(i,j,bi,bj) = 0.
./model/src/ini_grid.F	82	INI_GRID	dyF(i,j,bi,bj) = 0.
./model/src/ini_grid.F	83	INI_GRID	dxV(i,j,bi,bj) = 0.
./model/src/ini_grid.F	84	INI_GRID	dyU(i,j,bi,bj) = 0.
./model/src/ini_grid.F	85	INI_GRID	rA(i,j,bi,bj) = 0.
./model/src/ini_grid.F	86	INI_GRID	rAz(i,j,bi,bj) = 0.
./model/src/ini_grid.F	87	INI_GRID	rAw(i,j,bi,bj) = 0.
./model/src/ini_grid.F	88	INI_GRID	rAs(i,j,bi,bj) = 0.
./model/src/ini_grid.F	89	INI_GRID	recip_dxG(i,j,bi,bj) = 0.
./model/src/ini_grid.F	90	INI_GRID	recip_dyG(i,j,bi,bj) = 0.
./model/src/ini_grid.F	91	INI_GRID	recip_dxC(i,j,bi,bj) = 0.
./model/src/ini_grid.F	92	INI_GRID	recip_dyC(i,j,bi,bj) = 0.
./model/src/ini_grid.F	93	INI_GRID	recip_dxF(i,j,bi,bj) = 0.
./model/src/ini_grid.F	94	INI_GRID	recip_dyF(i,j,bi,bj) = 0.
./model/src/ini_grid.F	95	INI_GRID	recip_dxV(i,j,bi,bj) = 0.
./model/src/ini_grid.F	96	INI_GRID	recip_dyU(i,j,bi,bj) = 0.
./model/src/ini_grid.F	97	INI_GRID	recip_rA (i,j,bi,bj) = 0.
./model/src/ini_grid.F	98	INI_GRID	recip_rAs(i,j,bi,bj) = 0.
./model/src/ini_grid.F	99	INI_GRID	recip_rAw(i,j,bi,bj) = 0.
./pkg/streamice/streamice_visc_beta_hybrid.F	116	STREAMICE_VISC_BETA_HYBRID	& + NrsNx(j-1)
./pkg/streamice/streamice_visc_beta_hybrid.F	126	STREAMICE_VISC_BETA_HYBRID	streamice_vert_shear_uz (m) = streamice_taubx(i,j,bi,bj) /
./pkg/streamice/streamice_visc_beta_hybrid.F	127	STREAMICE_VISC_BETA_HYBRID	& visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	130	STREAMICE_VISC_BETA_HYBRID	streamice_vert_shear_vz (m) = streamice_tauby(i,j,bi,bj) /
./pkg/streamice/streamice_visc_beta_hybrid.F	131	STREAMICE_VISC_BETA_HYBRID	& visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	140	STREAMICE_VISC_BETA_HYBRID	visc_streamice_full(i,j,m,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F	141	STREAMICE_VISC_BETA_HYBRID	& .5 * B_glen(i,j,m,bi,bj)*2
./pkg/streamice/streamice_visc_beta_hybrid.F	144	STREAMICE_VISC_BETA_HYBRID	visc_streamice_full(i,j,m,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F	145	STREAMICE_VISC_BETA_HYBRID	& .5 * B_glen(i,j,bi,bj)*2
./pkg/streamice/streamice_visc_beta_hybrid.F	149	STREAMICE_VISC_BETA_HYBRID	visc_streamice (i,j,bi,bj) = visc_streamice (i,j,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F	150	STREAMICE_VISC_BETA_HYBRID	& H_streamice(i,j,bi,bj) * streamice_delsigma (m) *
./pkg/streamice/streamice_visc_beta_hybrid.F	151	STREAMICE_VISC_BETA_HYBRID	& visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	155	STREAMICE_VISC_BETA_HYBRID	& visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	159	STREAMICE_VISC_BETA_HYBRID	& H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	163	STREAMICE_VISC_BETA_HYBRID	& H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	172	STREAMICE_VISC_BETA_HYBRID	streamice_omega(i,j,bi,bj) = streamice_omega(i,j,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F	174	STREAMICE_VISC_BETA_HYBRID	& * H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_visc_beta_hybrid.F	184	STREAMICE_VISC_BETA_HYBRID	streamice_u_surf(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F	187	STREAMICE_VISC_BETA_HYBRID	streamice_v_surf(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F	190	STREAMICE_VISC_BETA_HYBRID	ub = umid - streamice_taubx(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F	191	STREAMICE_VISC_BETA_HYBRID	& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	193	STREAMICE_VISC_BETA_HYBRID	streamice_u_bed (i,j,bi,bj) = ub
./pkg/streamice/streamice_visc_beta_hybrid.F	195	STREAMICE_VISC_BETA_HYBRID	vb = vmid - streamice_tauby(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F	196	STREAMICE_VISC_BETA_HYBRID	& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	198	STREAMICE_VISC_BETA_HYBRID	streamice_v_bed (i,j,bi,bj) = vb
./pkg/streamice/streamice_visc_beta_hybrid.F	202	STREAMICE_VISC_BETA_HYBRID	fb = C_basal_friction(i,j,bi,bj)*2
./pkg/streamice/streamice_visc_beta_hybrid.F	204	STREAMICE_VISC_BETA_HYBRID	& streamice_basal_geom(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F	205	STREAMICE_VISC_BETA_HYBRID	& float_frac_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	207	STREAMICE_VISC_BETA_HYBRID	tau_beta_eff_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F	209	STREAMICE_VISC_BETA_HYBRID	& (1+fb*streamice_omega(i,j,bi,bj)/H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F	39	STREAMICE_VISC_BETA_HYBRID	INTEGER i, j, bi, bj, k, l, m
./pkg/streamice/streamice_visc_beta_hybrid.F	51	STREAMICE_VISC_BETA_HYBRID	DO j=1,sNy
./pkg/streamice/streamice_visc_beta_hybrid.F	53	STREAMICE_VISC_BETA_HYBRID	IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_visc_beta_hybrid.F	61	STREAMICE_VISC_BETA_HYBRID	& dxG(i,j+l,bi,bj)dyG(i+k,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	62	STREAMICE_VISC_BETA_HYBRID	& recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F	63	STREAMICE_VISC_BETA_HYBRID	& U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	65	STREAMICE_VISC_BETA_HYBRID	& dxG(i,j+l,bi,bj)dyG(i+k,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	66	STREAMICE_VISC_BETA_HYBRID	& recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F	67	STREAMICE_VISC_BETA_HYBRID	& V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F	71	STREAMICE_VISC_BETA_HYBRID	ux = (U_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F	72	STREAMICE_VISC_BETA_HYBRID	& U_streamice(i+1,j,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	73	STREAMICE_VISC_BETA_HYBRID	& U_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	74	STREAMICE_VISC_BETA_HYBRID	& U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F	75	STREAMICE_VISC_BETA_HYBRID	& (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F	76	STREAMICE_VISC_BETA_HYBRID	vx = (V_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F	77	STREAMICE_VISC_BETA_HYBRID	& V_streamice(i+1,j,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	78	STREAMICE_VISC_BETA_HYBRID	& V_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	79	STREAMICE_VISC_BETA_HYBRID	& V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F	80	STREAMICE_VISC_BETA_HYBRID	& (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F	81	STREAMICE_VISC_BETA_HYBRID	uy = (U_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	82	STREAMICE_VISC_BETA_HYBRID	& U_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F	83	STREAMICE_VISC_BETA_HYBRID	& U_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	84	STREAMICE_VISC_BETA_HYBRID	& U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F	85	STREAMICE_VISC_BETA_HYBRID	& (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F	86	STREAMICE_VISC_BETA_HYBRID	vy = (V_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	87	STREAMICE_VISC_BETA_HYBRID	& V_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F	88	STREAMICE_VISC_BETA_HYBRID	& V_streamice(i,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F	89	STREAMICE_VISC_BETA_HYBRID	& V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F	90	STREAMICE_VISC_BETA_HYBRID	& (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F	92	STREAMICE_VISC_BETA_HYBRID	exx = ux + k1AtC_str(i,j,bi,bj)*vmid
./pkg/streamice/streamice_visc_beta_hybrid.F	93	STREAMICE_VISC_BETA_HYBRID	eyy = vy + k2AtC_str(i,j,bi,bj)*umid
./pkg/streamice/streamice_visc_beta_hybrid.F	95	STREAMICE_VISC_BETA_HYBRID	& k1AtC_str(i,j,bi,bj)umid + k2AtC_str(i,j,bi,bj)vmid
./pkg/streamice/streamice_visc_beta_hybrid.F	97	STREAMICE_VISC_BETA_HYBRID	visc_streamice (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_visc_beta_hybrid.F	98	STREAMICE_VISC_BETA_HYBRID	streamice_omega(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_write_pickup.F	101	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_uvel '
./pkg/streamice/streamice_write_pickup.F	103	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	107	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_vvel '
./pkg/streamice/streamice_write_pickup.F	109	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	113	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_thick'
./pkg/streamice/streamice_write_pickup.F	115	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	119	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_betaF'
./pkg/streamice/streamice_write_pickup.F	121	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	125	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_visc '
./pkg/streamice/streamice_write_pickup.F	128	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	132	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_taubx'
./pkg/streamice/streamice_write_pickup.F	134	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	138	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_tauby'
./pkg/streamice/streamice_write_pickup.F	148	STREAMICE_WRITE_PICKUP	nWrFlds = j
./pkg/streamice/streamice_write_pickup.F	161	STREAMICE_WRITE_PICKUP	j = 1
./pkg/streamice/streamice_write_pickup.F	164	STREAMICE_WRITE_PICKUP	j = Nr
./pkg/streamice/streamice_write_pickup.F	170	STREAMICE_WRITE_PICKUP	& 0, 0, j, ' ',
./pkg/streamice/streamice_write_pickup.F	53	STREAMICE_WRITE_PICKUP	INTEGER j, nj, fp, lChar
./pkg/streamice/streamice_write_pickup.F	70	STREAMICE_WRITE_PICKUP	j = 0
./pkg/streamice/streamice_write_pickup.F	76	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	78	STREAMICE_WRITE_PICKUP	& -j, myIter, myThid )
./pkg/streamice/streamice_write_pickup.F	79	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'visc3d '
./pkg/streamice/streamice_write_pickup.F	83	STREAMICE_WRITE_PICKUP	nj = -j*Nr
./pkg/streamice/streamice_write_pickup.F	85	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	89	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_area '
./pkg/streamice/streamice_write_pickup.F	91	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/streamice/streamice_write_pickup.F	95	STREAMICE_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'SI_hmask'
./pkg/streamice/streamice_write_pickup.F	97	STREAMICE_WRITE_PICKUP	j = j + 1
./pkg/thsice/THSICE_DEBUG.h	21	NO PROCEDURE	dBug(i,j,bi,bj) = dBugFlag .AND.
./pkg/thsice/THSICE_DEBUG.h	22	NO PROCEDURE	& ( i.EQ.15 .AND. j.EQ.11 .AND. bi.EQ.3 .AND. bj.EQ.1 )
./model/src/ini_linear_phisurf.F	101	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = recip_rhoConst
./model/src/ini_linear_phisurf.F	102	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = rhoConst
./model/src/ini_linear_phisurf.F	112	INI_LINEAR_PHISURF	DO j=1-OLy,sNy+OLy
./model/src/ini_linear_phisurf.F	114	INI_LINEAR_PHISURF	IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F	115	INI_LINEAR_PHISURF	& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/ini_linear_phisurf.F	116	INI_LINEAR_PHISURF	pLoc = Ro_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F	119	INI_LINEAR_PHISURF	I tRef(kSurfC(i,j,bi,bj)),
./model/src/ini_linear_phisurf.F	120	INI_LINEAR_PHISURF	I sRef(kSurfC(i,j,bi,bj)),
./model/src/ini_linear_phisurf.F	124	INI_LINEAR_PHISURF	k = kSurfC(i,j,bi,bj)
./model/src/ini_linear_phisurf.F	130	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F	132	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = 1. _d 0/rhoLoc
./model/src/ini_linear_phisurf.F	134	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = rhoLoc
./model/src/ini_linear_phisurf.F	136	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F	137	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F	151	INI_LINEAR_PHISURF	DO j=1-OLy,sNy+OLy
./model/src/ini_linear_phisurf.F	153	INI_LINEAR_PHISURF	IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F	154	INI_LINEAR_PHISURF	& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/ini_linear_phisurf.F	156	INI_LINEAR_PHISURF	& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F	157	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = dPIdp*thetaConst
./model/src/ini_linear_phisurf.F	158	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F	160	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F	161	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F	167	INI_LINEAR_PHISURF	DO j=1-OLy,sNy+OLy
./model/src/ini_linear_phisurf.F	169	INI_LINEAR_PHISURF	IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F	170	INI_LINEAR_PHISURF	& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/ini_linear_phisurf.F	172	INI_LINEAR_PHISURF	& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F	173	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = dPIdp*tRef(kSurfC(i,j,bi,bj))
./model/src/ini_linear_phisurf.F	174	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F	176	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F	177	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F	205	INI_LINEAR_PHISURF	DO j=1-OLy,sNy+OLy
./model/src/ini_linear_phisurf.F	207	INI_LINEAR_PHISURF	phi0surf(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F	49	INI_LINEAR_PHISURF	INTEGER i, j, k
./model/src/ini_linear_phisurf.F	58	INI_LINEAR_PHISURF	DO j=1-OLy,sNy+OLy
./model/src/ini_linear_phisurf.F	60	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F	61	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F	85	INI_LINEAR_PHISURF	DO j=1-OLy,sNy+OLy
./model/src/ini_linear_phisurf.F	87	INI_LINEAR_PHISURF	Bo_surf(i,j,bi,bj) = gBaro
./model/src/ini_linear_phisurf.F	88	INI_LINEAR_PHISURF	recip_Bo(i,j,bi,bj) = 1. _d 0 / gBaro
./model/src/ini_linear_phisurf.F	97	INI_LINEAR_PHISURF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	169	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	171	THSICE_ADVDIFF	iceTmp(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	188	THSICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	190	THSICE_ADVDIFF	maskOce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	191	THSICE_ADVDIFF	IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1.
./pkg/thsice/thsice_advdiff.F	192	THSICE_ADVDIFF	iceVol(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	193	THSICE_ADVDIFF	uTrans(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	194	THSICE_ADVDIFF	vTrans(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	195	THSICE_ADVDIFF	uTrIce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	196	THSICE_ADVDIFF	vTrIce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	197	THSICE_ADVDIFF	oceFWfx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	198	THSICE_ADVDIFF	oceSflx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	199	THSICE_ADVDIFF	oceQnet(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	219	THSICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	221	THSICE_ADVDIFF	uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	222	THSICE_ADVDIFF	& maskOce(i-1,j)maskOce(i,j)
./pkg/thsice/thsice_advdiff.F	225	THSICE_ADVDIFF	DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_advdiff.F	227	THSICE_ADVDIFF	vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	228	THSICE_ADVDIFF	& maskOce(i,j-1)maskOce(i,j)
./pkg/thsice/thsice_advdiff.F	233	THSICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	235	THSICE_ADVDIFF	iceFrc(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	251	THSICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	253	THSICE_ADVDIFF	iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	268	THSICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	270	THSICE_ADVDIFF	iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	271	THSICE_ADVDIFF	oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	291	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	294	THSICE_ADVDIFF	tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F	301	THSICE_ADVDIFF	& i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F	303	THSICE_ADVDIFF	& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F	306	THSICE_ADVDIFF	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F	308	THSICE_ADVDIFF	& i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F	310	THSICE_ADVDIFF	& 'ICE_ADV: uIce=', uIce(i,j), uIce(i+1,j),
./pkg/thsice/thsice_advdiff.F	311	THSICE_ADVDIFF	& ' , vIce=', vIce(i,j), vIce(i,j+1)
./pkg/thsice/thsice_advdiff.F	313	THSICE_ADVDIFF	& 'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j),
./pkg/thsice/thsice_advdiff.F	314	THSICE_ADVDIFF	& ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F	315	THSICE_ADVDIFF	& iceHeight(i,j,bi,bj)*iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F	349	THSICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	351	THSICE_ADVDIFF	iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F	362	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	364	THSICE_ADVDIFF	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F	386	THSICE_ADVDIFF	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advdiff.F	388	THSICE_ADVDIFF	iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F	401	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	404	THSICE_ADVDIFF	tmpVar = ABS(iceVol(i,j)
./pkg/thsice/thsice_advdiff.F	405	THSICE_ADVDIFF	& -iceHeight(i,j,bi,bj)iceFrc(i,j)rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F	412	THSICE_ADVDIFF	& i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F	414	THSICE_ADVDIFF	& iceVol(i,j),iceHeight(i,j,bi,bj)iceFrc(i,j)rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F	417	THSICE_ADVDIFF	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F	453	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	455	THSICE_ADVDIFF	IF ( iceFrc(i,j) .GT. 1. _d 0 ) THEN
./pkg/thsice/thsice_advdiff.F	457	THSICE_ADVDIFF	iceMask(i,j,bi,bj) = 1. _d 0
./pkg/thsice/thsice_advdiff.F	458	THSICE_ADVDIFF	iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) *iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F	459	THSICE_ADVDIFF	snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F	460	THSICE_ADVDIFF	ELSEIF ( iceFrc(i,j) .LT. iceMaskMin ) THEN
./pkg/thsice/thsice_advdiff.F	462	THSICE_ADVDIFF	iceMask(i,j,bi,bj) = iceMaskMin
./pkg/thsice/thsice_advdiff.F	463	THSICE_ADVDIFF	iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	464	THSICE_ADVDIFF	& iceFrc(i,j)r_minArea
./pkg/thsice/thsice_advdiff.F	465	THSICE_ADVDIFF	snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	466	THSICE_ADVDIFF	& iceFrc(i,j)r_minArea
./pkg/thsice/thsice_advdiff.F	468	THSICE_ADVDIFF	iceMask(i,j,bi,bj) = iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F	473	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	475	THSICE_ADVDIFF	IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN
./pkg/thsice/thsice_advdiff.F	476	THSICE_ADVDIFF	iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	478	THSICE_ADVDIFF	IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN
./pkg/thsice/thsice_advdiff.F	479	THSICE_ADVDIFF	iceMask(i,j,bi,bj) = iceVol(i,j)/hIceMin
./pkg/thsice/thsice_advdiff.F	480	THSICE_ADVDIFF	snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	481	THSICE_ADVDIFF	& *hIceMin/iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	482	THSICE_ADVDIFF	iceHeight(i,j,bi,bj) = hIceMin
./pkg/thsice/thsice_advdiff.F	490	THSICE_ADVDIFF	oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	491	THSICE_ADVDIFF	& +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	492	THSICE_ADVDIFF	& )*iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F	493	THSICE_ADVDIFF	oceSflx(i,j,bi,bj) = rhoiiceHeight(i,j,bi,bj)saltIce
./pkg/thsice/thsice_advdiff.F	494	THSICE_ADVDIFF	& *iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F	495	THSICE_ADVDIFF	oceQnet(i,j,bi,bj) = -( rhossnowHeight(i,j,bi,bj)qsnow
./pkg/thsice/thsice_advdiff.F	496	THSICE_ADVDIFF	& +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	497	THSICE_ADVDIFF	& *( Qice1(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	498	THSICE_ADVDIFF	& +Qice2(i,j,bi,bj) )*0.5 _d 0
./pkg/thsice/thsice_advdiff.F	499	THSICE_ADVDIFF	& )*iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F	504	THSICE_ADVDIFF	iceMask (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	505	THSICE_ADVDIFF	iceHeight (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	506	THSICE_ADVDIFF	snowHeight(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	507	THSICE_ADVDIFF	Qice1 (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	508	THSICE_ADVDIFF	Qice2 (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	509	THSICE_ADVDIFF	snowAge (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F	517	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	519	THSICE_ADVDIFF	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F	558	THSICE_ADVDIFF	DO j=1,sNy
./pkg/thsice/thsice_advdiff.F	560	THSICE_ADVDIFF	iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F	78	THSICE_ADVDIFF	INTEGER i, j
./pkg/thsice/thsice_advection.F	130	THSICE_ADVECTION	INTEGER i,j,k
./pkg/thsice/thsice_advection.F	217	THSICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F	218	THSICE_ADVECTION	maskLocW(1-Olx,j) = 0.
./pkg/thsice/thsice_advection.F	220	THSICE_ADVECTION	maskLocW(i,j) = MIN( maskOc(i-1,j), maskOc(i,j) )
./pkg/thsice/thsice_advection.F	222	THSICE_ADVECTION	& * maskInW(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	229	THSICE_ADVECTION	DO j=2-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F	231	THSICE_ADVECTION	maskLocS(i,j) = MIN( maskOc(i,j-1), maskOc(i,j) )
./pkg/thsice/thsice_advection.F	233	THSICE_ADVECTION	& * maskInS(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	239	THSICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F	241	THSICE_ADVECTION	maskLocC(i,j) = maskOc(i,j)
./pkg/thsice/thsice_advection.F	243	THSICE_ADVECTION	& * maskInC(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	319	THSICE_ADVECTION	DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F	321	THSICE_ADVECTION	af(i,j) = 0.
./pkg/thsice/thsice_advection.F	338	THSICE_ADVECTION	DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F	340	THSICE_ADVECTION	uCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F	341	THSICE_ADVECTION	& MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj)
./pkg/thsice/thsice_advection.F	342	THSICE_ADVECTION	& +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj)
./pkg/thsice/thsice_advection.F	347	THSICE_ADVECTION	DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F	349	THSICE_ADVECTION	uCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F	350	THSICE_ADVECTION	& MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps )
./pkg/thsice/thsice_advection.F	351	THSICE_ADVECTION	& +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps )
./pkg/thsice/thsice_advection.F	415	THSICE_ADVECTION	DO j=1-OLy,0
./pkg/thsice/thsice_advection.F	417	THSICE_ADVECTION	iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F	418	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	419	THSICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	420	THSICE_ADVECTION	& *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F	424	THSICE_ADVECTION	DO j=1-OLy,0
./pkg/thsice/thsice_advection.F	426	THSICE_ADVECTION	tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F	427	THSICE_ADVECTION	iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F	428	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	429	THSICE_ADVECTION	& *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F	430	THSICE_ADVECTION	IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F	431	THSICE_ADVECTION	& iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F	432	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	433	THSICE_ADVECTION	& *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F	434	THSICE_ADVECTION	& )/iceVol(i,j)
./pkg/thsice/thsice_advection.F	439	THSICE_ADVECTION	DO j=1-OLy,0
./pkg/thsice/thsice_advection.F	441	THSICE_ADVECTION	afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F	448	THSICE_ADVECTION	DO j=sNy+1,sNy+OLy
./pkg/thsice/thsice_advection.F	450	THSICE_ADVECTION	iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F	451	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	452	THSICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	453	THSICE_ADVECTION	& *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F	457	THSICE_ADVECTION	DO j=sNy+1,sNy+OLy
./pkg/thsice/thsice_advection.F	459	THSICE_ADVECTION	tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F	460	THSICE_ADVECTION	iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F	461	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	462	THSICE_ADVECTION	& *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F	463	THSICE_ADVECTION	IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F	464	THSICE_ADVECTION	& iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F	465	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	466	THSICE_ADVECTION	& *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F	467	THSICE_ADVECTION	& )/iceVol(i,j)
./pkg/thsice/thsice_advection.F	472	THSICE_ADVECTION	DO j=sNy+1,sNy+OLy
./pkg/thsice/thsice_advection.F	474	THSICE_ADVECTION	afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F	487	THSICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F	489	THSICE_ADVECTION	iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F	490	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	491	THSICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	492	THSICE_ADVECTION	& *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F	496	THSICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F	498	THSICE_ADVECTION	tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F	499	THSICE_ADVECTION	iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F	500	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	501	THSICE_ADVECTION	& *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F	502	THSICE_ADVECTION	IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F	503	THSICE_ADVECTION	& iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F	504	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	505	THSICE_ADVECTION	& *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F	506	THSICE_ADVECTION	& )/iceVol(i,j)
./pkg/thsice/thsice_advection.F	511	THSICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F	513	THSICE_ADVECTION	afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F	539	THSICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F	541	THSICE_ADVECTION	af(i,j) = 0.
./pkg/thsice/thsice_advection.F	558	THSICE_ADVECTION	DO j=2-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F	560	THSICE_ADVECTION	vCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F	561	THSICE_ADVECTION	& MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj)
./pkg/thsice/thsice_advection.F	562	THSICE_ADVECTION	& +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj)
./pkg/thsice/thsice_advection.F	567	THSICE_ADVECTION	DO j=2-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F	569	THSICE_ADVECTION	vCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F	570	THSICE_ADVECTION	& MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps )
./pkg/thsice/thsice_advection.F	571	THSICE_ADVECTION	& +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps )
./pkg/thsice/thsice_advection.F	634	THSICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F	636	THSICE_ADVECTION	iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F	637	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	638	THSICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	639	THSICE_ADVECTION	& *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F	643	THSICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F	645	THSICE_ADVECTION	tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F	646	THSICE_ADVECTION	iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F	647	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	648	THSICE_ADVECTION	& *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F	649	THSICE_ADVECTION	IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F	650	THSICE_ADVECTION	& iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F	651	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	652	THSICE_ADVECTION	& *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F	653	THSICE_ADVECTION	& )/iceVol(i,j)
./pkg/thsice/thsice_advection.F	658	THSICE_ADVECTION	DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_advection.F	660	THSICE_ADVECTION	afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F	667	THSICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F	669	THSICE_ADVECTION	iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F	670	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	671	THSICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	672	THSICE_ADVECTION	& *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F	676	THSICE_ADVECTION	DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F	678	THSICE_ADVECTION	tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F	679	THSICE_ADVECTION	iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F	680	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	681	THSICE_ADVECTION	& *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F	682	THSICE_ADVECTION	IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F	683	THSICE_ADVECTION	& iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F	684	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	685	THSICE_ADVECTION	& *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F	686	THSICE_ADVECTION	& )/iceVol(i,j)
./pkg/thsice/thsice_advection.F	691	THSICE_ADVECTION	DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_advection.F	693	THSICE_ADVECTION	afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F	706	THSICE_ADVECTION	DO j=1-OLy+1,sNy+OLy-1
./pkg/thsice/thsice_advection.F	708	THSICE_ADVECTION	iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F	709	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	710	THSICE_ADVECTION	& *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	711	THSICE_ADVECTION	& *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F	715	THSICE_ADVECTION	DO j=1-OLy+1,sNy+OLy-1
./pkg/thsice/thsice_advection.F	717	THSICE_ADVECTION	tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F	718	THSICE_ADVECTION	iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F	719	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	720	THSICE_ADVECTION	& *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F	721	THSICE_ADVECTION	IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F	722	THSICE_ADVECTION	& iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F	723	THSICE_ADVECTION	& -deltaTadvect*maskLocC(i,j)
./pkg/thsice/thsice_advection.F	724	THSICE_ADVECTION	& *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F	725	THSICE_ADVECTION	& )/iceVol(i,j)
./pkg/thsice/thsice_advection.F	730	THSICE_ADVECTION	DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_advection.F	732	THSICE_ADVECTION	afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F	748	THSICE_ADVECTION	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F	750	THSICE_ADVECTION	IF ( i.EQ.idb .AND. j.EQ.jdb .AND. bi.EQ.biDb ) THEN
./pkg/thsice/thsice_advection.F	751	THSICE_ADVECTION	tmpFac= deltaTadvect*recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F	753	THSICE_ADVECTION	& afx(i,j)tmpFac,afx(i+1,j)tmpFac,
./pkg/thsice/thsice_advection.F	754	THSICE_ADVECTION	& afy(i,j)tmpFac,afy(i,j+1)tmpFac
./pkg/thsice/thsice_albedo.F	103	THSICE_ALBEDO	DO j = jMin, jMax
./pkg/thsice/thsice_albedo.F	105	THSICE_ALBEDO	IF ( iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_albedo.F	106	THSICE_ALBEDO	hi = hIce(i,j)
./pkg/thsice/thsice_albedo.F	107	THSICE_ALBEDO	hs = hSnow(i,j)
./pkg/thsice/thsice_albedo.F	108	THSICE_ALBEDO	Tsf = tSrf(i,j)
./pkg/thsice/thsice_albedo.F	109	THSICE_ALBEDO	age = ageSnw(i,j)
./pkg/thsice/thsice_albedo.F	149	THSICE_ALBEDO	sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) )
./pkg/thsice/thsice_albedo.F	154	THSICE_ALBEDO	sAlbNIR(i,j) = albedo
./pkg/thsice/thsice_albedo.F	161	THSICE_ALBEDO	jj=j
./pkg/thsice/thsice_albedo.F	164	THSICE_ALBEDO	sAlb(i,j) = albedo
./pkg/thsice/thsice_albedo.F	166	THSICE_ALBEDO	sAlb(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F	167	THSICE_ALBEDO	sAlbNIR(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F	87	THSICE_ALBEDO	INTEGER i,j
./pkg/thsice/thsice_balance_frw.F	101	THSICE_BALANCE_FRW	icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	102	THSICE_BALANCE_FRW	& - sumFrW*maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	103	THSICE_BALANCE_FRW	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	104	THSICE_BALANCE_FRW	& - sumFrW*maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	123	THSICE_BALANCE_FRW	DO j = jMin,jMax
./pkg/thsice/thsice_balance_frw.F	125	THSICE_BALANCE_FRW	tmpVar = tmpFac*MAX( prcAtm(i,j,bi,bj), zeroRL )
./pkg/thsice/thsice_balance_frw.F	126	THSICE_BALANCE_FRW	& *maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	127	THSICE_BALANCE_FRW	icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) - tmpVar
./pkg/thsice/thsice_balance_frw.F	128	THSICE_BALANCE_FRW	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - tmpVar
./pkg/thsice/thsice_balance_frw.F	53	THSICE_BALANCE_FRW	INTEGER i, j
./pkg/thsice/thsice_balance_frw.F	66	THSICE_BALANCE_FRW	DO j = 1,sNy
./pkg/thsice/thsice_balance_frw.F	69	THSICE_BALANCE_FRW	& + MAX( prcAtm(i,j,bi,bj), zeroRL )
./pkg/thsice/thsice_balance_frw.F	70	THSICE_BALANCE_FRW	& rA(i,j,bi,bj)maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	72	THSICE_BALANCE_FRW	& + icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	73	THSICE_BALANCE_FRW	& rA(i,j,bi,bj)maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F	99	THSICE_BALANCE_FRW	DO j = jMin,jMax
./pkg/thsice/thsice_calc_thickn.F	1002	THSICE_CALC_THICKN	flx2oc(i,j) = flx2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F	1003	THSICE_CALC_THICKN	& + (Fbot(i,j)+(esurp(i,j)+etop(i,j)+ebot(i,j))/dt)
./pkg/thsice/thsice_calc_thickn.F	1005	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	1007	THSICE_CALC_THICKN	& esurp(i,j)/dt,etop(i,j)/dt,ebot(i,j)/dt
./pkg/thsice/thsice_calc_thickn.F	1011	THSICE_CALC_THICKN	frw2oc(i,j) = frw2oc(i,j) - evapLoc(i,j)
./pkg/thsice/thsice_calc_thickn.F	1015	THSICE_CALC_THICKN	flx2oc(i,j) = flx2oc(i,j) + evapLoc(i,j)*Lfresh
./pkg/thsice/thsice_calc_thickn.F	1027	THSICE_CALC_THICKN	fsalt(i,j) = (msalt0(i,j) - rhoihIce(i,j)saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F	1030	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_calc_thickn.F	1032	THSICE_CALC_THICKN	& (mwater0(i,j)-(rhoshSnow1(i,j)+rhoihIce(i,j)))/dt,
./pkg/thsice/thsice_calc_thickn.F	1033	THSICE_CALC_THICKN	& evapLoc(i,j),frw2oc(i,j),fsalt(i,j)
./pkg/thsice/thsice_calc_thickn.F	1035	THSICE_CALC_THICKN	& flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F	1040	THSICE_CALC_THICKN	frw2oc(i,j) = frw2oc(i,j) + (prcAtm(i,j)-snowP(i,j))
./pkg/thsice/thsice_calc_thickn.F	1056	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	1058	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	1063	THSICE_CALC_THICKN	extend=etope(i,j)+ebote(i,j)
./pkg/thsice/thsice_calc_thickn.F	1064	THSICE_CALC_THICKN	IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	1065	THSICE_CALC_THICKN	rq = rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2))
./pkg/thsice/thsice_calc_thickn.F	1067	THSICE_CALC_THICKN	rqh = rq * hIce(i,j) + rs * hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F	1068	THSICE_CALC_THICKN	freshe=(rhoshSnow1(i,j)+rhoihIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F	1069	THSICE_CALC_THICKN	salte=(rhoihIce(i,j)saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F	1071	THSICE_CALC_THICKN	icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j)
./pkg/thsice/thsice_calc_thickn.F	1073	THSICE_CALC_THICKN	IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN
./pkg/thsice/thsice_calc_thickn.F	1074	THSICE_CALC_THICKN	frw2oc(i,j)=frw2oc(i,j)+extend/rqh*freshe
./pkg/thsice/thsice_calc_thickn.F	1075	THSICE_CALC_THICKN	fsalt(i,j)=fsalt(i,j)+extend/rqh*salte
./pkg/thsice/thsice_calc_thickn.F	1077	THSICE_CALC_THICKN	icFrac(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F	1078	THSICE_CALC_THICKN	hIce(i,j) =0. _d 0
./pkg/thsice/thsice_calc_thickn.F	1079	THSICE_CALC_THICKN	hSnow1(i,j) =0. _d 0
./pkg/thsice/thsice_calc_thickn.F	1080	THSICE_CALC_THICKN	flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt
./pkg/thsice/thsice_calc_thickn.F	1081	THSICE_CALC_THICKN	frw2oc(i,j)=frw2oc(i,j)+freshe
./pkg/thsice/thsice_calc_thickn.F	1082	THSICE_CALC_THICKN	fsalt(i,j)=fsalt(i,j)+salte
./pkg/thsice/thsice_calc_thickn.F	1085	THSICE_CALC_THICKN	flx2oc(i,j)=flx2oc(i,j)+extend/dt
./pkg/thsice/thsice_calc_thickn.F	1092	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	1094	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	1100	THSICE_CALC_THICKN	frwAtm(i,j) = frwAtm(i,j) - prcAtm(i,j)
./pkg/thsice/thsice_calc_thickn.F	1104	THSICE_CALC_THICKN	fzMlOc(i,j) = fzMlOc(i,j) - Fbot(i,j)*iceMask(i,j)
./pkg/thsice/thsice_calc_thickn.F	1107	THSICE_CALC_THICKN	qIc1(i,j) = qicen(i,j,1)
./pkg/thsice/thsice_calc_thickn.F	1108	THSICE_CALC_THICKN	qIc2(i,j) = qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	1110	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	1112	THSICE_CALC_THICKN	& icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F	1121	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	1123	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	1124	THSICE_CALC_THICKN	qaux(1)=qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F	1125	THSICE_CALC_THICKN	qaux(2)=qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F	1126	THSICE_CALC_THICKN	CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 0,
./pkg/thsice/thsice_calc_thickn.F	1127	THSICE_CALC_THICKN	I iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow1(i,j),
./pkg/thsice/thsice_calc_thickn.F	1129	THSICE_CALC_THICKN	I flx2oc(i,j), frw2oc(i,j), fsalt,
./pkg/thsice/thsice_calc_thickn.F	173	THSICE_CALC_THICKN	INTEGER i,j,k
./pkg/thsice/thsice_calc_thickn.F	273	THSICE_CALC_THICKN	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_calc_thickn.F	275	THSICE_CALC_THICKN	evapLoc(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	276	THSICE_CALC_THICKN	Fbot (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	277	THSICE_CALC_THICKN	etop (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	278	THSICE_CALC_THICKN	ebot (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	279	THSICE_CALC_THICKN	etope (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	280	THSICE_CALC_THICKN	ebote (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	281	THSICE_CALC_THICKN	esurp (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	282	THSICE_CALC_THICKN	mwater0(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	283	THSICE_CALC_THICKN	msalt0 (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	285	THSICE_CALC_THICKN	enFrcMlt(i,j)= 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	286	THSICE_CALC_THICKN	enFrcFrz(i,j)= 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	291	THSICE_CALC_THICKN	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_calc_thickn.F	293	THSICE_CALC_THICKN	qicen(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	294	THSICE_CALC_THICKN	hnew (i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	299	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	319	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	320	THSICE_CALC_THICKN	qicen(i,j,1)= qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F	321	THSICE_CALC_THICKN	qicen(i,j,2)= qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F	324	THSICE_CALC_THICKN	esurp(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	327	THSICE_CALC_THICKN	evapLoc(i,j) = frwAtm(i,j)
./pkg/thsice/thsice_calc_thickn.F	334	THSICE_CALC_THICKN	xxMlt = aMlt*(hIce(i,j)-hMlt)
./pkg/thsice/thsice_calc_thickn.F	335	THSICE_CALC_THICKN	xxFrz = aFrz*(hIce(i,j)-hFrz)
./pkg/thsice/thsice_calc_thickn.F	355	THSICE_CALC_THICKN	enFrcMlt(i,j) = MAX( 0. _d 0, MIN( xxMlt, 1. _d 0 ) )
./pkg/thsice/thsice_calc_thickn.F	356	THSICE_CALC_THICKN	enFrcFrz(i,j) = MAX( 0. _d 0, MIN( xxFrz, 1. _d 0 ) )
./pkg/thsice/thsice_calc_thickn.F	359	THSICE_CALC_THICKN	IF (fzMlOc(i,j).GE. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	363	THSICE_CALC_THICKN	Fbot(i,j) = fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F	364	THSICE_CALC_THICKN	IF ( icFrac(i,j).LT.iceMaskMax ) THEN
./pkg/thsice/thsice_calc_thickn.F	366	THSICE_CALC_THICKN	Fbot(i,j) = enFrcFrz(i,j)*fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F	368	THSICE_CALC_THICKN	IF (hIce(i,j).GT.hThickIce) THEN
./pkg/thsice/thsice_calc_thickn.F	370	THSICE_CALC_THICKN	Fbot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	371	THSICE_CALC_THICKN	ELSEIF (hIce(i,j).GE.hThinIce) THEN
./pkg/thsice/thsice_calc_thickn.F	373	THSICE_CALC_THICKN	Fbot(i,j) = (1. _d 0 - fracEnFreez)*fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F	384	THSICE_CALC_THICKN	IF (v2oc(i,j) .NE. 0.)
./pkg/thsice/thsice_calc_thickn.F	385	THSICE_CALC_THICKN	& ustar = SQRT(0.00536 _d 0*v2oc(i,j))
./pkg/thsice/thsice_calc_thickn.F	388	THSICE_CALC_THICKN	Fbot(i,j) = cpchr(tFrz(i,j)-tOce(i,j))ustar
./pkg/thsice/thsice_calc_thickn.F	390	THSICE_CALC_THICKN	Fbot(i,j) = max(Fbot(i,j),fzMlOc(i,j))
./pkg/thsice/thsice_calc_thickn.F	391	THSICE_CALC_THICKN	Fbot(i,j) = min(Fbot(i,j),0. _d 0)
./pkg/thsice/thsice_calc_thickn.F	395	THSICE_CALC_THICKN	mwater0(i,j) = rhoshSnow1(i,j) + rhoihIce(i,j)
./pkg/thsice/thsice_calc_thickn.F	396	THSICE_CALC_THICKN	msalt0 (i,j) = rhoihIce(i,j)saltIce
./pkg/thsice/thsice_calc_thickn.F	399	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	401	THSICE_CALC_THICKN	& frwAtm(i,j),fzMlOc(i,j),Fbot(i,j)
./pkg/thsice/thsice_calc_thickn.F	409	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	411	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	419	THSICE_CALC_THICKN	frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin)
./pkg/thsice/thsice_calc_thickn.F	420	THSICE_CALC_THICKN	frace = MIN( enFrcMlt(i,j), MAX( 0. _d 0, frace ) )
./pkg/thsice/thsice_calc_thickn.F	423	THSICE_CALC_THICKN	IF ( hIce(i,j).GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F	426	THSICE_CALC_THICKN	ELSEIF (hIce(i,j).LT.hThinIce) THEN
./pkg/thsice/thsice_calc_thickn.F	435	THSICE_CALC_THICKN	IF ( icFrac(i,j).LE.lowIcFrac1 ) THEN
./pkg/thsice/thsice_calc_thickn.F	437	THSICE_CALC_THICKN	ELSEIF (icFrac(i,j).LE.lowIcFrac2 ) THEN
./pkg/thsice/thsice_calc_thickn.F	443	THSICE_CALC_THICKN	IF ( sHeat(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F	444	THSICE_CALC_THICKN	etop(i,j) = (1. _d 0-frace)sHeat(i,j) dt
./pkg/thsice/thsice_calc_thickn.F	445	THSICE_CALC_THICKN	etope(i,j) = fracesHeat(i,j) dt
./pkg/thsice/thsice_calc_thickn.F	447	THSICE_CALC_THICKN	etop(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	448	THSICE_CALC_THICKN	etope(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	450	THSICE_CALC_THICKN	esurp(i,j) = sHeat(i,j) * dt
./pkg/thsice/thsice_calc_thickn.F	463	THSICE_CALC_THICKN	ebot(i,j) = (flxCnB(i,j)-Fbot(i,j)) * dt
./pkg/thsice/thsice_calc_thickn.F	464	THSICE_CALC_THICKN	IF (ebot(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	465	THSICE_CALC_THICKN	ebote(i,j) = frace*ebot(i,j)
./pkg/thsice/thsice_calc_thickn.F	466	THSICE_CALC_THICKN	ebot(i,j) = ebot(i,j)-ebote(i,j)
./pkg/thsice/thsice_calc_thickn.F	468	THSICE_CALC_THICKN	ebote(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	471	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	473	THSICE_CALC_THICKN	& etop(i,j),etope(i,j),ebot(i,j),ebote(i,j)
./pkg/thsice/thsice_calc_thickn.F	484	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	486	THSICE_CALC_THICKN	hnew(i,j,k) = hIce(i,j) * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F	491	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	496	THSICE_CALC_THICKN	IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F	497	THSICE_CALC_THICKN	& etop(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F	498	THSICE_CALC_THICKN	& hSnow1(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	505	THSICE_CALC_THICKN	rqh = rq * hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F	506	THSICE_CALC_THICKN	IF (etop(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F	507	THSICE_CALC_THICKN	hSnow1(i,j) = hSnow1(i,j) - etop(i,j)/rq
./pkg/thsice/thsice_calc_thickn.F	508	THSICE_CALC_THICKN	etop(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	510	THSICE_CALC_THICKN	etop(i,j) = etop(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F	511	THSICE_CALC_THICKN	hSnow1(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	520	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	522	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	536	THSICE_CALC_THICKN	IF (etop(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	537	THSICE_CALC_THICKN	rq = rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F	538	THSICE_CALC_THICKN	rqh = rq * hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F	539	THSICE_CALC_THICKN	IF (etop(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F	540	THSICE_CALC_THICKN	hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F	541	THSICE_CALC_THICKN	etop(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	543	THSICE_CALC_THICKN	etop(i,j) = etop(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F	544	THSICE_CALC_THICKN	hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	547	THSICE_CALC_THICKN	etop(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F	565	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	567	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0 .AND. ebot(i,j) .LT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	569	THSICE_CALC_THICKN	qbot = -cpIce *tFrz(i,j) + Lfresh
./pkg/thsice/thsice_calc_thickn.F	570	THSICE_CALC_THICKN	dhi = -ebot(i,j) / (qbot * rhoi)
./pkg/thsice/thsice_calc_thickn.F	571	THSICE_CALC_THICKN	ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	577	THSICE_CALC_THICKN	qicen(i,j,nlyr) =
./pkg/thsice/thsice_calc_thickn.F	578	THSICE_CALC_THICKN	& (hnew(i,j,nlyr)qicen(i,j,nlyr)+dhiqbot) /
./pkg/thsice/thsice_calc_thickn.F	579	THSICE_CALC_THICKN	& (hnew(i,j,nlyr)+dhi)
./pkg/thsice/thsice_calc_thickn.F	580	THSICE_CALC_THICKN	hnew(i,j,nlyr) = hnew(i,j,nlyr) + dhi
./pkg/thsice/thsice_calc_thickn.F	581	THSICE_CALC_THICKN	frzSeaWat(i,j) = rhoi*dhi/dt
./pkg/thsice/thsice_calc_thickn.F	612	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	614	THSICE_CALC_THICKN	IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F	615	THSICE_CALC_THICKN	& ebot(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F	616	THSICE_CALC_THICKN	& hnew(i,j,k) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	617	THSICE_CALC_THICKN	rq = rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F	618	THSICE_CALC_THICKN	rqh = rq * hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F	619	THSICE_CALC_THICKN	IF (ebot(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F	620	THSICE_CALC_THICKN	hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F	621	THSICE_CALC_THICKN	ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	623	THSICE_CALC_THICKN	ebot(i,j) = ebot(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F	624	THSICE_CALC_THICKN	hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	635	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	637	THSICE_CALC_THICKN	IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F	638	THSICE_CALC_THICKN	& ebot(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F	639	THSICE_CALC_THICKN	& hSnow1(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	641	THSICE_CALC_THICKN	rqh = rq * hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F	642	THSICE_CALC_THICKN	IF (ebot(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F	643	THSICE_CALC_THICKN	hSnow1(i,j) = hSnow1(i,j) - ebot(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F	644	THSICE_CALC_THICKN	ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	646	THSICE_CALC_THICKN	ebot(i,j) = ebot(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F	647	THSICE_CALC_THICKN	hSnow1(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	660	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	662	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	664	THSICE_CALC_THICKN	hIce(i,j) = hnew(i,j,1) + hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	666	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	668	THSICE_CALC_THICKN	& etop(i,j), ebot(i,j), hIce(i,j), hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F	672	THSICE_CALC_THICKN	IF ( hIce(i,j).LT.hIceMin
./pkg/thsice/thsice_calc_thickn.F	673	THSICE_CALC_THICKN	& .AND. (hIce(i,j)+hSnow1(i,j)).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F	674	THSICE_CALC_THICKN	esurp(i,j) = esurp(i,j) - rhosqsnowhSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F	675	THSICE_CALC_THICKN	& - rhoiqicen(i,j,1)hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F	676	THSICE_CALC_THICKN	& - rhoiqicen(i,j,2)hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	677	THSICE_CALC_THICKN	hIce(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	678	THSICE_CALC_THICKN	hSnow1(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	679	THSICE_CALC_THICKN	tSrf(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	680	THSICE_CALC_THICKN	icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	681	THSICE_CALC_THICKN	qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	682	THSICE_CALC_THICKN	qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	684	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	685	THSICE_CALC_THICKN	& 'ThSI_CALC_TH: -1 : esurp=',esurp(i,j)
./pkg/thsice/thsice_calc_thickn.F	695	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	697	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	701	THSICE_CALC_THICKN	frw2oc(i,j) = (mwater0(i,j)
./pkg/thsice/thsice_calc_thickn.F	702	THSICE_CALC_THICKN	& - (rhoshSnow1(i,j)+rhoihIce(i,j)))/dt
./pkg/thsice/thsice_calc_thickn.F	704	THSICE_CALC_THICKN	IF ( hIce(i,j) .LE. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F	706	THSICE_CALC_THICKN	frw2oc(i,j) = frw2oc(i,j) + snowP(i,j)
./pkg/thsice/thsice_calc_thickn.F	707	THSICE_CALC_THICKN	flx2oc(i,j) = flx2oc(i,j) - snowP(i,j)*Lfresh
./pkg/thsice/thsice_calc_thickn.F	716	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	718	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	720	THSICE_CALC_THICKN	IF ( hIce(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F	722	THSICE_CALC_THICKN	hSnow1(i,j) = hSnow1(i,j) + dt*snowP(i,j)/rhos
./pkg/thsice/thsice_calc_thickn.F	729	THSICE_CALC_THICKN	IF (hSnow1(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	730	THSICE_CALC_THICKN	IF (evapLoc(i,j)/rhos *dt.GT.hSnow1(i,j)) THEN
./pkg/thsice/thsice_calc_thickn.F	731	THSICE_CALC_THICKN	evapLoc(i,j)=evapLoc(i,j)-hSnow1(i,j)*rhos/dt
./pkg/thsice/thsice_calc_thickn.F	732	THSICE_CALC_THICKN	hSnow1(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F	734	THSICE_CALC_THICKN	hSnow1(i,j) = hSnow1(i,j) - evapLoc(i,j)/rhos *dt
./pkg/thsice/thsice_calc_thickn.F	735	THSICE_CALC_THICKN	evapLoc(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F	756	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	758	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F	766	THSICE_CALC_THICKN	IF (hIce(i,j).GT.0. _d 0.AND.evapLoc(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	793	THSICE_CALC_THICKN	dhi = evapLoc(i,j)/rhoi*dt
./pkg/thsice/thsice_calc_thickn.F	794	THSICE_CALC_THICKN	IF (dhi.GE.hnew(i,j,k)) THEN
./pkg/thsice/thsice_calc_thickn.F	795	THSICE_CALC_THICKN	evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F	796	THSICE_CALC_THICKN	esurp(i,j) = esurp(i,j)
./pkg/thsice/thsice_calc_thickn.F	797	THSICE_CALC_THICKN	& - hnew(i,j,k)rhoi(qicen(i,j,k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F	798	THSICE_CALC_THICKN	hnew(i,j,k)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F	803	THSICE_CALC_THICKN	hq = hnew(i,j,k)qicen(i,j,k)-dhiLfresh
./pkg/thsice/thsice_calc_thickn.F	804	THSICE_CALC_THICKN	hnew(i,j,k) = hnew(i,j,k) - dhi
./pkg/thsice/thsice_calc_thickn.F	805	THSICE_CALC_THICKN	qicen(i,j,k)=hq/hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F	806	THSICE_CALC_THICKN	evapLoc(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F	833	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	835	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	836	THSICE_CALC_THICKN	IF (hIce(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	838	THSICE_CALC_THICKN	hIce(i,j) = hnew(i,j,1) + hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	840	THSICE_CALC_THICKN	IF ( hIce(i,j).GT.0. _d 0 .AND. hIce(i,j).LT.hIceMin ) THEN
./pkg/thsice/thsice_calc_thickn.F	841	THSICE_CALC_THICKN	frw2oc(i,j) = frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F	842	THSICE_CALC_THICKN	& + (rhoshSnow1(i,j) + rhoihIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F	843	THSICE_CALC_THICKN	esurp(i,j) = esurp(i,j) - rhosqsnowhSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F	844	THSICE_CALC_THICKN	& - rhoiqicen(i,j,1)hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F	845	THSICE_CALC_THICKN	& - rhoiqicen(i,j,2)hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	846	THSICE_CALC_THICKN	hIce(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	847	THSICE_CALC_THICKN	hSnow1(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	848	THSICE_CALC_THICKN	tSrf(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	849	THSICE_CALC_THICKN	icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	850	THSICE_CALC_THICKN	qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	851	THSICE_CALC_THICKN	qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F	853	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	855	THSICE_CALC_THICKN	& esurp(i,j), frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F	876	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	878	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	880	THSICE_CALC_THICKN	IF ( hIce(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F	890	THSICE_CALC_THICKN	& + sNx*(j-1)
./pkg/thsice/thsice_calc_thickn.F	903	THSICE_CALC_THICKN	IF ( hSnow1(i,j) .GT. hIce(i,j)*floodFac
./pkg/thsice/thsice_calc_thickn.F	904	THSICE_CALC_THICKN	& .OR. hSnow1(i,j) .GT. hsMax ) THEN
./pkg/thsice/thsice_calc_thickn.F	911	THSICE_CALC_THICKN	dhs = (hSnow1(i,j) - hIce(i,j)floodFac) rhoi / rhosw
./pkg/thsice/thsice_calc_thickn.F	912	THSICE_CALC_THICKN	dhs = MAX( hSnow1(i,j) - hsMax, dhs )
./pkg/thsice/thsice_calc_thickn.F	914	THSICE_CALC_THICKN	rqh = rhoiqicen(i,j,1)hnew(i,j,1) + rhosqsnowdhs
./pkg/thsice/thsice_calc_thickn.F	915	THSICE_CALC_THICKN	hnew(i,j,1) = hnew(i,j,1) + dhi
./pkg/thsice/thsice_calc_thickn.F	916	THSICE_CALC_THICKN	qicen(i,j,1) = rqh / (rhoi*hnew(i,j,1))
./pkg/thsice/thsice_calc_thickn.F	917	THSICE_CALC_THICKN	hIce(i,j) = hIce(i,j) + dhi
./pkg/thsice/thsice_calc_thickn.F	918	THSICE_CALC_THICKN	hSnow1(i,j) = hSnow1(i,j) - dhs
./pkg/thsice/thsice_calc_thickn.F	924	THSICE_CALC_THICKN	IF (hIce(i,j).GT.hiMax) THEN
./pkg/thsice/thsice_calc_thickn.F	926	THSICE_CALC_THICKN	chi=hIce(i,j)-hiMax
./pkg/thsice/thsice_calc_thickn.F	927	THSICE_CALC_THICKN	hnew(i,j,1)=hnew(i,j,1)-chi/2. _d 0
./pkg/thsice/thsice_calc_thickn.F	928	THSICE_CALC_THICKN	hnew(i,j,2)=hnew(i,j,2)-chi/2. _d 0
./pkg/thsice/thsice_calc_thickn.F	929	THSICE_CALC_THICKN	frw2oc(i,j) = frw2oc(i,j) + chi*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F	939	THSICE_CALC_THICKN	hIce(i,j) = hnew(i,j,1) + hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	942	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	944	THSICE_CALC_THICKN	& hnew(i,j,1), hnew(i,j,2),
./pkg/thsice/thsice_calc_thickn.F	945	THSICE_CALC_THICKN	& qicen(i,j,1), qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	948	THSICE_CALC_THICKN	hlyr = hIce(i,j) * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F	957	THSICE_CALC_THICKN	if (hnew(i,j,1).gt.hnew(i,j,2)) then
./pkg/thsice/thsice_calc_thickn.F	959	THSICE_CALC_THICKN	f1 = (hnew(i,j,1)-hlyr)/hlyr
./pkg/thsice/thsice_calc_thickn.F	960	THSICE_CALC_THICKN	q2tmp = f1qicen(i,j,1) + (1. _d 0-f1)qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	962	THSICE_CALC_THICKN	qicen(i,j,2) = q2tmp
./pkg/thsice/thsice_calc_thickn.F	965	THSICE_CALC_THICKN	qh2 = hlyr*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	966	THSICE_CALC_THICKN	qhtot = hnew(i,j,1)qicen(i,j,1) + hnew(i,j,2)qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	968	THSICE_CALC_THICKN	qicen(i,j,1) = qh1/hlyr
./pkg/thsice/thsice_calc_thickn.F	972	THSICE_CALC_THICKN	f1 = hnew(i,j,1)/hlyr
./pkg/thsice/thsice_calc_thickn.F	973	THSICE_CALC_THICKN	qicen(i,j,1) = f1qicen(i,j,1) + (1. _d 0-f1)qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F	978	THSICE_CALC_THICKN	IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F	980	THSICE_CALC_THICKN	& icFrac(i,j),hIce(i,j), (qicen(i,j,1)+qicen(i,j,2))*0.5,
./pkg/thsice/thsice_calc_thickn.F	981	THSICE_CALC_THICKN	& hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F	994	THSICE_CALC_THICKN	DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F	996	THSICE_CALC_THICKN	IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F	999	THSICE_CALC_THICKN	IF (hIce(i,j).LE.0. _d 0) icFrac(i,j)=0. _d 0
./model/src/ini_local_grid.F	139	INI_LOCAL_GRID	DO j=1, jG0
./model/src/ini_local_grid.F	140	INI_LOCAL_GRID	yG0 = yG0 + delY(j)
./model/src/ini_local_grid.F	143	INI_LOCAL_GRID	DO j=1, OLy
./model/src/ini_local_grid.F	144	INI_LOCAL_GRID	yG0 = yG0 - delY( 1+MOD(jG0-j+OLy*gridNy,gridNy) )
./model/src/ini_local_grid.F	151	INI_LOCAL_GRID	DO j=0-OLy,sNy+OLy
./model/src/ini_local_grid.F	152	INI_LOCAL_GRID	delYloc(j) = delY( 1+MOD(jG0+j-1+OLy*gridNy,gridNy) )
./model/src/ini_local_grid.F	156	INI_LOCAL_GRID	DO j=1-OLy,sNy+OLy +1
./model/src/ini_local_grid.F	157	INI_LOCAL_GRID	xGloc(1-OLx,j) = xG0
./model/src/ini_local_grid.F	159	INI_LOCAL_GRID	xGloc(i+1,j) = xGloc(i,j) + delXloc(i)
./model/src/ini_local_grid.F	164	INI_LOCAL_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_local_grid.F	165	INI_LOCAL_GRID	yGloc(i,j+1) = yGloc(i,j) + delYloc(j)
./model/src/ini_local_grid.F	73	INI_LOCAL_GRID	INTEGER i, j
./pkg/thsice/thsice_check_conserv.F	35	THSICE_CHECK_CONSERV	INTEGER i,j, bi,bj
./pkg/thsice/thsice_check_conserv.F	59	THSICE_CHECK_CONSERV	dBugLoc = dBug(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	62	THSICE_CHECK_CONSERV	flxAtm = icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	63	THSICE_CHECK_CONSERV	frwAtm = icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	67	THSICE_CHECK_CONSERV	dEnerg= -rhossnowHeight(i,j,bi,bj)qsnow
./pkg/thsice/thsice_check_conserv.F	68	THSICE_CHECK_CONSERV	& -rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	69	THSICE_CHECK_CONSERV	& (Qice1(i,j,bi,bj)+Qice2(i,j,bi,bj))0.5
./pkg/thsice/thsice_check_conserv.F	70	THSICE_CHECK_CONSERV	dWater = rhossnowheight(i,j,bi,bj)+rhoiiceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	71	THSICE_CHECK_CONSERV	dSalt = rhoiiceHeight(i,j,bi,bj)saltice
./pkg/thsice/thsice_check_conserv.F	93	THSICE_CHECK_CONSERV	ice_flx2oc_Ave(i,j,bi,bj) = ice_flx2oc_Ave(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	95	THSICE_CHECK_CONSERV	ice_frw2oc_Ave(i,j,bi,bj) = ice_frw2oc_Ave(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	97	THSICE_CHECK_CONSERV	ice_salFx_Ave(i,j,bi,bj) = ice_salFx_Ave(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F	9	THSICE_CHECK_CONSERV	I dBugFlag, i, j, bi, bj, iceStart,
./pkg/thsice/thsice_cost_test.F	105	THSICE_COST_TEST	do j = 1,sny
./pkg/thsice/thsice_cost_test.F	108	THSICE_COST_TEST	& tempVarrA(i,j,bi,bj)iceMask(i,j,bi,bj)
./pkg/thsice/thsice_cost_test.F	71	THSICE_COST_TEST	integer bi,bj,i,j,kSrf
./pkg/thsice/thsice_cost_test.F	92	THSICE_COST_TEST	do j = 1,sny
./pkg/thsice/thsice_cost_test.F	95	THSICE_COST_TEST	& tempVarrA(i,j,bi,bj)iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_diagnostics_state.F	48	THSICE_DIAGNOSTICS_STATE	INTEGER i,j
./pkg/thsice/thsice_diagnostics_state.F	82	THSICE_DIAGNOSTICS_STATE	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_diagnostics_state.F	86	THSICE_DIAGNOSTICS_STATE	tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_diffusion.F	100	THSICE_DIFFUSION	& + thSIce_diffK*( iceFld(i,j-1)-iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F	101	THSICE_DIFFUSION	& *recip_dyC(i,j,bi,bj)/tmpFld
./pkg/thsice/thsice_diffusion.F	61	THSICE_DIFFUSION	INTEGER i, j
./pkg/thsice/thsice_diffusion.F	75	THSICE_DIFFUSION	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_diffusion.F	77	THSICE_DIFFUSION	iceFld(i,j) = ( rhos*snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_diffusion.F	78	THSICE_DIFFUSION	& +rhoi*iceHeight(i,j,bi,bj) )
./pkg/thsice/thsice_diffusion.F	83	THSICE_DIFFUSION	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_diffusion.F	85	THSICE_DIFFUSION	tmpFld = MAX( iceFld(i-1,j),iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F	86	THSICE_DIFFUSION	& * maskOc(i-1,j)*maskOc(i,j)
./pkg/thsice/thsice_diffusion.F	88	THSICE_DIFFUSION	& uIce(i,j) = uIce(i,j)
./pkg/thsice/thsice_diffusion.F	89	THSICE_DIFFUSION	& + thSIce_diffK*( iceFld(i-1,j)-iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F	90	THSICE_DIFFUSION	& *recip_dxC(i,j,bi,bj)/tmpFld
./pkg/thsice/thsice_diffusion.F	94	THSICE_DIFFUSION	DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_diffusion.F	96	THSICE_DIFFUSION	tmpFld = MAX( iceFld(i,j-1),iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F	97	THSICE_DIFFUSION	& maskOc(i,j-1)maskOc(i,j)
./pkg/thsice/thsice_diffusion.F	99	THSICE_DIFFUSION	& vIce(i,j) = vIce(i,j)
./pkg/thsice/thsice_do_advect.F	107	THSICE_DO_ADVECT	DO j = jMin, jMax
./pkg/thsice/thsice_do_advect.F	109	THSICE_DO_ADVECT	IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_do_advect.F	110	THSICE_DO_ADVECT	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F	111	THSICE_DO_ADVECT	EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F	112	THSICE_DO_ADVECT	saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F	115	THSICE_DO_ADVECT	sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_do_advect.F	116	THSICE_DO_ADVECT	& + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_do_advect.F	117	THSICE_DO_ADVECT	& )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F	52	THSICE_DO_ADVECT	INTEGER i, j
./model/src/ini_masks_etc.F	107	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	110	INI_MASKS_ETC	hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F	112	INI_MASKS_ETC	hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F	118	INI_MASKS_ETC	hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F	120	INI_MASKS_ETC	hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F	123	INI_MASKS_ETC	hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F	147	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	149	INI_MASKS_ETC	tmpfld(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F	150	INI_MASKS_ETC	kSurfC(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F	152	INI_MASKS_ETC	Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F	154	INI_MASKS_ETC	Ro_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_masks_etc.F	155	INI_MASKS_ETC	& + drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F	156	INI_MASKS_ETC	IF (hFacC(i,j,k,bi,bj).NE.0.) THEN
./model/src/ini_masks_etc.F	157	INI_MASKS_ETC	kSurfC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F	159	INI_MASKS_ETC	tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1.
./model/src/ini_masks_etc.F	162	INI_MASKS_ETC	kLowC(i,j,bi,bj) = 0
./model/src/ini_masks_etc.F	164	INI_MASKS_ETC	IF (hFacC(i,j,k,bi,bj).NE.0) THEN
./model/src/ini_masks_etc.F	165	INI_MASKS_ETC	kLowC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F	168	INI_MASKS_ETC	maskInC(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F	169	INI_MASKS_ETC	IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F	188	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	192	INI_MASKS_ETC	tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F	194	INI_MASKS_ETC	IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN
./model/src/ini_masks_etc.F	195	INI_MASKS_ETC	recip_Rcol(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F	197	INI_MASKS_ETC	recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/ini_masks_etc.F	208	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	209	INI_MASKS_ETC	hFacW(1-OLx,j,k,bi,bj)= 0.
./model/src/ini_masks_etc.F	211	INI_MASKS_ETC	hFacW(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F	212	INI_MASKS_ETC	& MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj))
./model/src/ini_masks_etc.F	218	INI_MASKS_ETC	DO j=2-OLy,sNy+oly
./model/src/ini_masks_etc.F	220	INI_MASKS_ETC	hFacS(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F	221	INI_MASKS_ETC	& MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj))
./model/src/ini_masks_etc.F	227	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	228	INI_MASKS_ETC	rLowW (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F	229	INI_MASKS_ETC	rSurfW(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F	231	INI_MASKS_ETC	j = 1-OLy
./model/src/ini_masks_etc.F	233	INI_MASKS_ETC	rLowS (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F	234	INI_MASKS_ETC	rSurfS(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F	236	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	238	INI_MASKS_ETC	rLowW(i,j,bi,bj) =
./model/src/ini_masks_etc.F	239	INI_MASKS_ETC	& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F	240	INI_MASKS_ETC	rSurfW(i,j,bi,bj) =
./model/src/ini_masks_etc.F	241	INI_MASKS_ETC	& MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F	242	INI_MASKS_ETC	rSurfW(i,j,bi,bj) =
./model/src/ini_masks_etc.F	243	INI_MASKS_ETC	& MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) )
./model/src/ini_masks_etc.F	246	INI_MASKS_ETC	DO j=2-OLy,sNy+OLy
./model/src/ini_masks_etc.F	248	INI_MASKS_ETC	rLowS(i,j,bi,bj) =
./model/src/ini_masks_etc.F	249	INI_MASKS_ETC	& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F	250	INI_MASKS_ETC	rSurfS(i,j,bi,bj) =
./model/src/ini_masks_etc.F	251	INI_MASKS_ETC	& MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F	252	INI_MASKS_ETC	rSurfS(i,j,bi,bj) =
./model/src/ini_masks_etc.F	253	INI_MASKS_ETC	& MAX( rSurfS(i,j,bi,bj), rLowS(i,j,bi,bj) )
./model/src/ini_masks_etc.F	271	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	273	INI_MASKS_ETC	kSurfW(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F	274	INI_MASKS_ETC	kSurfS(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F	276	INI_MASKS_ETC	IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k
./model/src/ini_masks_etc.F	277	INI_MASKS_ETC	IF (hFacS(i,j,k,bi,bj).NE.0.) kSurfS(i,j,bi,bj) = k
./model/src/ini_masks_etc.F	279	INI_MASKS_ETC	maskInW(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F	280	INI_MASKS_ETC	IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F	281	INI_MASKS_ETC	maskInS(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F	282	INI_MASKS_ETC	IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F	314	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	316	INI_MASKS_ETC	IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F	317	INI_MASKS_ETC	recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F	318	INI_MASKS_ETC	maskC(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F	320	INI_MASKS_ETC	recip_hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F	321	INI_MASKS_ETC	maskC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F	323	INI_MASKS_ETC	IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F	324	INI_MASKS_ETC	recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj)
./model/src/ini_masks_etc.F	325	INI_MASKS_ETC	maskW(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F	327	INI_MASKS_ETC	recip_hFacW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F	328	INI_MASKS_ETC	maskW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F	330	INI_MASKS_ETC	IF (hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F	331	INI_MASKS_ETC	recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F	332	INI_MASKS_ETC	maskS(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F	334	INI_MASKS_ETC	recip_hFacS(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F	335	INI_MASKS_ETC	maskS(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F	345	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	347	INI_MASKS_ETC	h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F	348	INI_MASKS_ETC	h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/ini_masks_etc.F	349	INI_MASKS_ETC	h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F	47	INI_MASKS_ETC	INTEGER i, j, k
./model/src/ini_masks_etc.F	63	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	66	INI_MASKS_ETC	hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F	72	INI_MASKS_ETC	hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F	74	INI_MASKS_ETC	hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F	77	INI_MASKS_ETC	hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F	84	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	86	INI_MASKS_ETC	R_low(i,j,bi,bj) = rF(1)
./model/src/ini_masks_etc.F	90	INI_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/ini_masks_etc.F	92	INI_MASKS_ETC	R_low(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F	93	INI_MASKS_ETC	& - drF(k)*hFacC(i,j,k,bi,bj)
./pkg/thsice/thsice_extend.F	113	THSICE_EXTEND	INTEGER i,j ! loop indices
./pkg/thsice/thsice_extend.F	125	THSICE_EXTEND	DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_extend.F	127	THSICE_EXTEND	flx2oc(i,j) = 0. _d 0
./pkg/thsice/thsice_extend.F	128	THSICE_EXTEND	frw2oc(i,j) = 0. _d 0
./pkg/thsice/thsice_extend.F	129	THSICE_EXTEND	fsalt (i,j) = 0. _d 0
./pkg/thsice/thsice_extend.F	154	THSICE_EXTEND	DO j = jMin, jMax
./pkg/thsice/thsice_extend.F	172	THSICE_EXTEND	IF (fzMlOc(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_extend.F	173	THSICE_EXTEND	esurp = fzMlOc(i,j)
./pkg/thsice/thsice_extend.F	174	THSICE_EXTEND	Tf = tFrz(i,j)
./pkg/thsice/thsice_extend.F	175	THSICE_EXTEND	iceFrac = icFrac(i,j)
./pkg/thsice/thsice_extend.F	176	THSICE_EXTEND	iceThick= hIce(i,j)
./pkg/thsice/thsice_extend.F	177	THSICE_EXTEND	qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_extend.F	178	THSICE_EXTEND	qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_extend.F	193	THSICE_EXTEND	IF ( icFrac(i,j).EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F	211	THSICE_EXTEND	iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax)
./pkg/thsice/thsice_extend.F	219	THSICE_EXTEND	hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac
./pkg/thsice/thsice_extend.F	222	THSICE_EXTEND	flx2oc(i,j)= qicAv*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F	223	THSICE_EXTEND	frw2oc(i,j)= -rhoi*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F	224	THSICE_EXTEND	fsalt(i,j)= -(rhoisaltIce)iceFormed/deltaTice
./pkg/thsice/thsice_extend.F	228	THSICE_EXTEND	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_extend.F	230	THSICE_EXTEND	& iceThick, newIce, iceFrac-icFrac(i,j)
./pkg/thsice/thsice_extend.F	232	THSICE_EXTEND	& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j)
./pkg/thsice/thsice_extend.F	236	THSICE_EXTEND	CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 1,
./pkg/thsice/thsice_extend.F	237	THSICE_EXTEND	I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F	238	THSICE_EXTEND	I flx2oc(i,j), frw2oc(i,j), fsalt(i,j),
./pkg/thsice/thsice_extend.F	243	THSICE_EXTEND	IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN
./pkg/thsice/thsice_extend.F	245	THSICE_EXTEND	tSrf(i,j) = tFrz(i,j)
./pkg/thsice/thsice_extend.F	246	THSICE_EXTEND	tIc1(i,j) = tFrz(i,j)
./pkg/thsice/thsice_extend.F	247	THSICE_EXTEND	tIc2(i,j) = tFrz(i,j)
./pkg/thsice/thsice_extend.F	248	THSICE_EXTEND	qIc1(i,j) = qicen(1)
./pkg/thsice/thsice_extend.F	249	THSICE_EXTEND	qIc2(i,j) = qicen(2)
./pkg/thsice/thsice_extend.F	251	THSICE_EXTEND	icFrac(i,j) = iceFrac
./pkg/thsice/thsice_extend.F	252	THSICE_EXTEND	hIce(i,j) = iceThick
./pkg/thsice/thsice_get_bulkf.F	100	THSICE_GET_BULKF	I Tsurf, flwdwn(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F	101	THSICE_GET_BULKF	I ThAir(i,j,bi,bj), Tair(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F	102	THSICE_GET_BULKF	I Qair(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F	107	THSICE_GET_BULKF	flxExcSw(i,j) = sFlx(1)
./pkg/thsice/thsice_get_bulkf.F	108	THSICE_GET_BULKF	dFlxdT(i,j) = sFlx(2)
./pkg/thsice/thsice_get_bulkf.F	110	THSICE_GET_BULKF	evap(i,j) = EVPloc(1) * 1. _d -3
./pkg/thsice/thsice_get_bulkf.F	111	THSICE_GET_BULKF	dEvdT(i,j) = dEvp(1) * 1. _d -3
./pkg/thsice/thsice_get_bulkf.F	124	THSICE_GET_BULKF	I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F	125	THSICE_GET_BULKF	I Tair(i,j,bi,bj), Qair(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F	126	THSICE_GET_BULKF	I cloud(i,j,bi,bj), Tsf(i,j),
./pkg/thsice/thsice_get_bulkf.F	127	THSICE_GET_BULKF	O flwup, flh, fsh, dFlxdT(i,j), ust, vst,
./pkg/thsice/thsice_get_bulkf.F	128	THSICE_GET_BULKF	O evap(i,j), ssq, dEvdT(i,j),
./pkg/thsice/thsice_get_bulkf.F	132	THSICE_GET_BULKF	I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F	133	THSICE_GET_BULKF	I Tair(i,j,bi,bj), Qair(i,j,bi,bj), Tsf(i,j),
./pkg/thsice/thsice_get_bulkf.F	134	THSICE_GET_BULKF	O flwup, flh, fsh, dFlxdT(i,j), ust, vst,
./pkg/thsice/thsice_get_bulkf.F	135	THSICE_GET_BULKF	O evap(i,j), ssq, dEvdT(i,j),
./pkg/thsice/thsice_get_bulkf.F	136	THSICE_GET_BULKF	I iceornot, i,j,bi,bj,myThid )
./pkg/thsice/thsice_get_bulkf.F	139	THSICE_GET_BULKF	flwNet_dwn = flwdwn(i,j,bi,bj) - flwup
./pkg/thsice/thsice_get_bulkf.F	140	THSICE_GET_BULKF	flxExcSw(i,j) = flwNet_dwn + fsh + flh
./pkg/thsice/thsice_get_bulkf.F	73	THSICE_GET_BULKF	INTEGER i, j
./pkg/thsice/thsice_get_bulkf.F	84	THSICE_GET_BULKF	DO j=jMin,jMax
./pkg/thsice/thsice_get_bulkf.F	86	THSICE_GET_BULKF	IF ( icFlag(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_get_bulkf.F	89	THSICE_GET_BULKF	IF ( hSnow(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_bulkf.F	98	THSICE_GET_BULKF	Tsurf(1) = Tsf(i,j)
./pkg/thsice/thsice_get_exf.F	187	THSICE_GET_EXF	DO j = 1-OLy,sNy+OLy
./pkg/thsice/thsice_get_exf.F	189	THSICE_GET_EXF	tstar(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	190	THSICE_GET_EXF	qstar(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	191	THSICE_GET_EXF	ustar(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	192	THSICE_GET_EXF	rdn(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	193	THSICE_GET_EXF	rd(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	194	THSICE_GET_EXF	rh(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	195	THSICE_GET_EXF	re(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	196	THSICE_GET_EXF	delq(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	197	THSICE_GET_EXF	deltap(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	198	THSICE_GET_EXF	ssq(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	202	THSICE_GET_EXF	DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F	206	THSICE_GET_EXF	IF ( dBug(i,j,bi,bj) .AND. (icFlag(i,j).GT.0. _d 0) )
./pkg/thsice/thsice_get_exf.F	209	THSICE_GET_EXF	& i,j,bi,bj, atemp(i,j,bi,bj),lwdown(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	221	THSICE_GET_EXF	& + sNx*(j-1)
./pkg/thsice/thsice_get_exf.F	230	THSICE_GET_EXF	IF ( (icFlag(i,j).GT.0. _d 0) .AND.
./pkg/thsice/thsice_get_exf.F	231	THSICE_GET_EXF	& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F	232	THSICE_GET_EXF	IF ( hSnow1(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_exf.F	238	THSICE_GET_EXF	Tsf = tsfCel(i,j)+cen2kel
./pkg/thsice/thsice_get_exf.F	244	THSICE_GET_EXF	wsm = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	250	THSICE_GET_EXF	atmrho_loc(i,j) = apressure(i,j,bi,bj) /
./pkg/thsice/thsice_get_exf.F	251	THSICE_GET_EXF	& (287.04 _d 0*atemp(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	252	THSICE_GET_EXF	& (1. _d 0 + humid_facaqh(i,j,bi,bj)))
./pkg/thsice/thsice_get_exf.F	253	THSICE_GET_EXF	ssq(i,j) = tmpbulk/atmrho_loc(i,j)
./pkg/thsice/thsice_get_exf.F	255	THSICE_GET_EXF	ssq(i,j) = tmpbulk/atmrho
./pkg/thsice/thsice_get_exf.F	257	THSICE_GET_EXF	deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/thsice/thsice_get_exf.F	258	THSICE_GET_EXF	delq(i,j) = aqh(i,j,bi,bj) - ssq(i,j)
./pkg/thsice/thsice_get_exf.F	263	THSICE_GET_EXF	dEvdT(i,j) = ssq(i,j)*qsat_exp/Ts2
./pkg/thsice/thsice_get_exf.F	268	THSICE_GET_EXF	flwNet_dwn = emiss*lwdown(i,j,bi,bj) - flwup
./pkg/thsice/thsice_get_exf.F	270	THSICE_GET_EXF	dFlxdT(i,j) = -dflwupdT
./pkg/thsice/thsice_get_exf.F	272	THSICE_GET_EXF	flxExcSw(i,j) = flwNet_dwn
./pkg/thsice/thsice_get_exf.F	280	THSICE_GET_EXF	DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F	291	THSICE_GET_EXF	& + sNx*(j-1)
./pkg/thsice/thsice_get_exf.F	300	THSICE_GET_EXF	IF ( (icFlag(i,j).GT.0. _d 0) .AND.
./pkg/thsice/thsice_get_exf.F	301	THSICE_GET_EXF	& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F	307	THSICE_GET_EXF	t0 = atemp(i,j,bi,bj)*
./pkg/thsice/thsice_get_exf.F	308	THSICE_GET_EXF	& (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F	309	THSICE_GET_EXF	stable = exf_half + SIGN(exf_half, deltap(i,j))
./pkg/thsice/thsice_get_exf.F	311	THSICE_GET_EXF	wsm = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	314	THSICE_GET_EXF	rdn(i,j) = SQRT(tmpbulk)
./pkg/thsice/thsice_get_exf.F	316	THSICE_GET_EXF	rdn(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	322	THSICE_GET_EXF	ustar(i,j) = rdn(i,j)*wsm
./pkg/thsice/thsice_get_exf.F	323	THSICE_GET_EXF	tstar(i,j) = rhn*deltap(i,j)
./pkg/thsice/thsice_get_exf.F	324	THSICE_GET_EXF	qstar(i,j) = ren*delq(i,j)
./pkg/thsice/thsice_get_exf.F	331	THSICE_GET_EXF	DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F	333	THSICE_GET_EXF	IF ( (icFlag(i,j).GT.0. _d 0) .AND.
./pkg/thsice/thsice_get_exf.F	334	THSICE_GET_EXF	& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F	339	THSICE_GET_EXF	& + niter_bulksNx(j-1)
./pkg/thsice/thsice_get_exf.F	352	THSICE_GET_EXF	t0 = atemp(i,j,bi,bj)*
./pkg/thsice/thsice_get_exf.F	353	THSICE_GET_EXF	& (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F	354	THSICE_GET_EXF	huol = (tstar(i,j)/t0 +
./pkg/thsice/thsice_get_exf.F	355	THSICE_GET_EXF	& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F	356	THSICE_GET_EXF	& )czol/(ustar(i,j)ustar(i,j))
./pkg/thsice/thsice_get_exf.F	396	THSICE_GET_EXF	usn = wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	397	THSICE_GET_EXF	& /( exf_one + rdn(i,j)*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F	400	THSICE_GET_EXF	usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/thsice/thsice_get_exf.F	407	THSICE_GET_EXF	rdn(i,j) = SQRT(tmpbulk)
./pkg/thsice/thsice_get_exf.F	413	THSICE_GET_EXF	rd(i,j)= rdn(i,j)/( exf_one + rdn(i,j)*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F	415	THSICE_GET_EXF	rd(i,j)= rdn(i,j)/( exf_one - rdn(i,j)/karman*psimh )
./pkg/thsice/thsice_get_exf.F	417	THSICE_GET_EXF	rh(i,j)= rhn/( exf_one + rhn*(ztln-psixh)/karman )
./pkg/thsice/thsice_get_exf.F	418	THSICE_GET_EXF	re(i,j)= ren/( exf_one + ren*(ztln-psixh)/karman )
./pkg/thsice/thsice_get_exf.F	421	THSICE_GET_EXF	ustar(i,j) = rd(i,j)*sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	422	THSICE_GET_EXF	qstar(i,j) = re(i,j)*delq(i,j)
./pkg/thsice/thsice_get_exf.F	423	THSICE_GET_EXF	tstar(i,j) = rh(i,j)*deltap(i,j)
./pkg/thsice/thsice_get_exf.F	430	THSICE_GET_EXF	DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F	432	THSICE_GET_EXF	IF ( (icFlag(i,j).GT.0. _d 0) .AND.
./pkg/thsice/thsice_get_exf.F	433	THSICE_GET_EXF	& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F	435	THSICE_GET_EXF	tau = atmrho_loc(i,j)rd(i,j)wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	437	THSICE_GET_EXF	tau = atmrhord(i,j)wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	439	THSICE_GET_EXF	evapLoc(i,j) = -tau*qstar(i,j)
./pkg/thsice/thsice_get_exf.F	440	THSICE_GET_EXF	hlLocal = -lath*evapLoc(i,j)
./pkg/thsice/thsice_get_exf.F	441	THSICE_GET_EXF	hsLocal = atmcptautstar(i,j)
./pkg/thsice/thsice_get_exf.F	447	THSICE_GET_EXF	dEvdT(i,j) = (taure(i,j))dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F	448	THSICE_GET_EXF	dflhdT = -lath*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F	449	THSICE_GET_EXF	dfshdT = -atmcptaurh(i,j)
./pkg/thsice/thsice_get_exf.F	451	THSICE_GET_EXF	dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT
./pkg/thsice/thsice_get_exf.F	453	THSICE_GET_EXF	flxExcSw(i,j) = flxExcSw(i,j) + hsLocal + hlLocal
./pkg/thsice/thsice_get_exf.F	462	THSICE_GET_EXF	DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F	464	THSICE_GET_EXF	IF ( (icFlag(i,j).GT.0. _d 0) .AND.
./pkg/thsice/thsice_get_exf.F	465	THSICE_GET_EXF	& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F	466	THSICE_GET_EXF	wsm = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F	468	THSICE_GET_EXF	tau = atmrho_loc(i,j)exf_iceCewsm
./pkg/thsice/thsice_get_exf.F	472	THSICE_GET_EXF	evapLoc(i,j) = -tau*delq(i,j)
./pkg/thsice/thsice_get_exf.F	473	THSICE_GET_EXF	hlLocal = -lath*evapLoc(i,j)
./pkg/thsice/thsice_get_exf.F	475	THSICE_GET_EXF	hsLocal = atmcp*atmrho_loc(i,j)
./pkg/thsice/thsice_get_exf.F	476	THSICE_GET_EXF	& exf_iceChwsm*deltap(i,j)
./pkg/thsice/thsice_get_exf.F	478	THSICE_GET_EXF	hsLocal = atmcpatmrhoexf_iceChwsmdeltap(i,j)
./pkg/thsice/thsice_get_exf.F	481	THSICE_GET_EXF	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)')
./pkg/thsice/thsice_get_exf.F	483	THSICE_GET_EXF	& wsm,hlLocal,hsLocal,flxExcSw(i,j)
./pkg/thsice/thsice_get_exf.F	487	THSICE_GET_EXF	dEvdT(i,j) = tau*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F	488	THSICE_GET_EXF	dflhdT = -lath*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F	490	THSICE_GET_EXF	dfshdT = -atmcpatmrho_loc(i,j)exf_iceCh*wsm
./pkg/thsice/thsice_get_exf.F	495	THSICE_GET_EXF	dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT
./pkg/thsice/thsice_get_exf.F	497	THSICE_GET_EXF	flxExcSw(i,j) = flxExcSw(i,j) + hsLocal + hlLocal
./pkg/thsice/thsice_get_exf.F	499	THSICE_GET_EXF	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)')
./pkg/thsice/thsice_get_exf.F	501	THSICE_GET_EXF	& flxExcSw(i,j), dFlxdT(i,j), evapLoc(i,j),dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F	509	THSICE_GET_EXF	DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F	511	THSICE_GET_EXF	IF ( (icFlag(i,j).GT.0. _d 0) .AND.
./pkg/thsice/thsice_get_exf.F	512	THSICE_GET_EXF	& (atemp(i,j,bi,bj).LE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F	514	THSICE_GET_EXF	flxExcSw(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	515	THSICE_GET_EXF	dFlxdT (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	516	THSICE_GET_EXF	evapLoc (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	517	THSICE_GET_EXF	dEvdT (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F	90	THSICE_GET_EXF	INTEGER i, j
./pkg/thsice/thsice_get_ocean.F	100	THSICE_GET_OCEAN	icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F	101	THSICE_GET_OCEAN	icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F	102	THSICE_GET_OCEAN	siceAlb (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F	106	THSICE_GET_OCEAN	DO j=1-OLy,sNy+OLy-1
./pkg/thsice/thsice_get_ocean.F	108	THSICE_GET_OCEAN	v2ocMxL(i,j,bi,bj) =
./pkg/thsice/thsice_get_ocean.F	109	THSICE_GET_OCEAN	& ( uVel(i,j,ks,bi,bj) * uVel(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	110	THSICE_GET_OCEAN	& + uVel(i+1,j,ks,bi,bj)*uVel(i+1,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	111	THSICE_GET_OCEAN	& + vVel(i,j+1,ks,bi,bj)*vVel(i,j+1,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	112	THSICE_GET_OCEAN	& + vVel(i,j,ks,bi,bj) * vVel(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	118	THSICE_GET_OCEAN	DO j=1-OLy,sNy+OLy-1
./pkg/thsice/thsice_get_ocean.F	120	THSICE_GET_OCEAN	uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj)
./pkg/thsice/thsice_get_ocean.F	121	THSICE_GET_OCEAN	uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,j,bi,bj)
./pkg/thsice/thsice_get_ocean.F	122	THSICE_GET_OCEAN	vRel1 = vVel(i, j, ks,bi,bj)-vIce(i, j, bi,bj)
./pkg/thsice/thsice_get_ocean.F	123	THSICE_GET_OCEAN	vRel2 = vVel(i,j+1,ks,bi,bj)-vIce(i,j+1,bi,bj)
./pkg/thsice/thsice_get_ocean.F	124	THSICE_GET_OCEAN	v2ocMxL(i,j,bi,bj) =
./pkg/thsice/thsice_get_ocean.F	55	THSICE_GET_OCEAN	INTEGER i,j
./pkg/thsice/thsice_get_ocean.F	66	THSICE_GET_OCEAN	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_get_ocean.F	68	THSICE_GET_OCEAN	hOceMxL(i,j,bi,bj) = drF(ks)*h0FacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	69	THSICE_GET_OCEAN	& *rStarFacC(i,j,bi,bj)
./pkg/thsice/thsice_get_ocean.F	73	THSICE_GET_OCEAN	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_get_ocean.F	75	THSICE_GET_OCEAN	IF ( kSurfC(i,j,bi,bj).EQ.1 ) THEN
./pkg/thsice/thsice_get_ocean.F	76	THSICE_GET_OCEAN	hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj)
./pkg/thsice/thsice_get_ocean.F	78	THSICE_GET_OCEAN	hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	87	THSICE_GET_OCEAN	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_get_ocean.F	89	THSICE_GET_OCEAN	hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	94	THSICE_GET_OCEAN	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_get_ocean.F	96	THSICE_GET_OCEAN	tOceMxL(i,j,bi,bj) = theta(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	97	THSICE_GET_OCEAN	sOceMxL(i,j,bi,bj) = salt (i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F	98	THSICE_GET_OCEAN	v2ocMxL(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F	99	THSICE_GET_OCEAN	icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_precip.F	104	THSICE_GET_PRECIP	DO j = jMin, jMax
./pkg/thsice/thsice_get_precip.F	106	THSICE_GET_PRECIP	qPrcRnO(i,j) = HeatCapacity_Cp*(
./pkg/thsice/thsice_get_precip.F	107	THSICE_GET_PRECIP	& ( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F	108	THSICE_GET_PRECIP	& ( rain(i,j,bi,bj)rhofw - snowPrc(i,j) )
./pkg/thsice/thsice_get_precip.F	109	THSICE_GET_PRECIP	& + ( locSST(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F	110	THSICE_GET_PRECIP	& runoff(i,j,bi,bj)rhofw )
./pkg/thsice/thsice_get_precip.F	124	THSICE_GET_PRECIP	DO j = jMin, jMax
./pkg/thsice/thsice_get_precip.F	126	THSICE_GET_PRECIP	precip(i,j) = cheapPrecip(i,j,bi,bj)
./pkg/thsice/thsice_get_precip.F	135	THSICE_GET_PRECIP	DO j = jMin, jMax
./pkg/thsice/thsice_get_precip.F	137	THSICE_GET_PRECIP	IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_get_precip.F	138	THSICE_GET_PRECIP	& .AND. Tair(i,j,bi,bj).LT.zeroRL ) THEN
./pkg/thsice/thsice_get_precip.F	139	THSICE_GET_PRECIP	snowPrc(i,j) = cheapPrecip(i,j,bi,bj)
./pkg/thsice/thsice_get_precip.F	150	THSICE_GET_PRECIP	DO j = jMin, jMax
./pkg/thsice/thsice_get_precip.F	152	THSICE_GET_PRECIP	qPrcRnO(i,j) = HeatCapacity_Cp*
./pkg/thsice/thsice_get_precip.F	153	THSICE_GET_PRECIP	& ( Tair(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F	154	THSICE_GET_PRECIP	& *( cheapPrecip(i,j,bi,bj) - snowPrc(i,j) )
./pkg/thsice/thsice_get_precip.F	72	THSICE_GET_PRECIP	INTEGER i,j
./pkg/thsice/thsice_get_precip.F	77	THSICE_GET_PRECIP	DO j = jMin, jMax
./pkg/thsice/thsice_get_precip.F	79	THSICE_GET_PRECIP	precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw
./pkg/thsice/thsice_get_precip.F	80	THSICE_GET_PRECIP	flxSW (i,j) = solar(i,j,bi,bj)
./pkg/thsice/thsice_get_precip.F	88	THSICE_GET_PRECIP	DO j = jMin, jMax
./pkg/thsice/thsice_get_precip.F	90	THSICE_GET_PRECIP	IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_get_precip.F	91	THSICE_GET_PRECIP	& .AND. Tair(i,j,bi,bj).LE.Tf0kel ) THEN
./pkg/thsice/thsice_get_precip.F	92	THSICE_GET_PRECIP	snowPrc(i,j) = rain(i,j,bi,bj)*rhofw
./pkg/thsice/thsice_get_velocity.F	58	THSICE_GET_VELOCITY	INTEGER i, j
./pkg/thsice/thsice_get_velocity.F	66	THSICE_GET_VELOCITY	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_get_velocity.F	68	THSICE_GET_VELOCITY	uLoc(i,j) = UICE(i,j,bi,bj)
./pkg/thsice/thsice_get_velocity.F	69	THSICE_GET_VELOCITY	vLoc(i,j) = VICE(i,j,bi,bj)
./pkg/thsice/thsice_get_velocity.F	77	THSICE_GET_VELOCITY	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_get_velocity.F	79	THSICE_GET_VELOCITY	uLoc(i,j) = 0.
./pkg/thsice/thsice_get_velocity.F	80	THSICE_GET_VELOCITY	vLoc(i,j) = 0.
./pkg/thsice/thsice_impl_temp.F	57	THSICE_IMPL_TEMP	INTEGER i,j
./pkg/thsice/thsice_impl_temp.F	81	THSICE_IMPL_TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_impl_temp.F	83	THSICE_IMPL_TEMP	icFlxSW(i,j,bi,bj) = netSW(i,j)
./pkg/thsice/thsice_impl_temp.F	84	THSICE_IMPL_TEMP	IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_impl_temp.F	85	THSICE_IMPL_TEMP	tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_impl_temp.F	87	THSICE_IMPL_TEMP	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_impl_temp.F	88	THSICE_IMPL_TEMP	WRITE(6,'(A,2I4,2I2)') 'ThSI_IMPL_T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_impl_temp.F	90	THSICE_IMPL_TEMP	& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_impl_temp.F	91	THSICE_IMPL_TEMP	& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_impl_temp.F	93	THSICE_IMPL_TEMP	& Tice1(i,j,bi,bj), Tice2(i,j,bi,bj),
./pkg/thsice/thsice_impl_temp.F	94	THSICE_IMPL_TEMP	& Qice1(i,j,bi,bj), Qice2(i,j,bi,bj)
./pkg/thsice/thsice_ini_vars.F	100	THSICE_INI_VARS	IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 )
./pkg/thsice/thsice_ini_vars.F	101	THSICE_INI_VARS	& hOceMxL(i,j,bi,bj) = 0.
./pkg/thsice/thsice_ini_vars.F	147	THSICE_INI_VARS	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_ini_vars.F	149	THSICE_INI_VARS	IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN
./pkg/thsice/thsice_ini_vars.F	150	THSICE_INI_VARS	Qice1(i,j,bi,bj) = -cpWater*Tmlt1
./pkg/thsice/thsice_ini_vars.F	152	THSICE_INI_VARS	Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh
./pkg/thsice/thsice_ini_vars.F	175	THSICE_INI_VARS	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_ini_vars.F	177	THSICE_INI_VARS	sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_ini_vars.F	178	THSICE_INI_VARS	& + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_ini_vars.F	179	THSICE_INI_VARS	& )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_ini_vars.F	46	THSICE_INI_VARS	INTEGER i, j
./pkg/thsice/thsice_ini_vars.F	56	THSICE_INI_VARS	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_ini_vars.F	58	THSICE_INI_VARS	iceMask(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	59	THSICE_INI_VARS	iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_ini_vars.F	60	THSICE_INI_VARS	snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_ini_vars.F	61	THSICE_INI_VARS	Tsrf(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	62	THSICE_INI_VARS	Tice1(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	63	THSICE_INI_VARS	Tice2(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	64	THSICE_INI_VARS	Qice1(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	65	THSICE_INI_VARS	Qice2(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	66	THSICE_INI_VARS	snowAge(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	70	THSICE_INI_VARS	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_ini_vars.F	72	THSICE_INI_VARS	sHeating(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	73	THSICE_INI_VARS	flxCndBt(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	74	THSICE_INI_VARS	siceAlb(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	75	THSICE_INI_VARS	icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	76	THSICE_INI_VARS	icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	77	THSICE_INI_VARS	icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	79	THSICE_INI_VARS	oceFWfx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	80	THSICE_INI_VARS	oceSflx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	81	THSICE_INI_VARS	oceQnet(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	86	THSICE_INI_VARS	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_ini_vars.F	88	THSICE_INI_VARS	hOceMxL(i,j,bi,bj) = hMxL_default
./pkg/thsice/thsice_ini_vars.F	89	THSICE_INI_VARS	tOceMxL(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F	90	THSICE_INI_VARS	sOceMxL(i,j,bi,bj) = sMxL_default
./pkg/thsice/thsice_ini_vars.F	91	THSICE_INI_VARS	v2ocMxL(i,j,bi,bj) = v2Loc
./pkg/thsice/thsice_ini_vars.F	98	THSICE_INI_VARS	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_main.F	110	THSICE_MAIN	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_main.F	112	THSICE_MAIN	prcAtm (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F	113	THSICE_MAIN	snowPr (i,j) = 0. _d 0
./pkg/thsice/thsice_main.F	114	THSICE_MAIN	qPrcRn (i,j) = 0. _d 0
./pkg/thsice/thsice_main.F	305	THSICE_MAIN	DO j = 1-OLy,sNy+OLy-1
./pkg/thsice/thsice_main.F	308	THSICE_MAIN	& (iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))0.5 _d 0
./pkg/thsice/thsice_main.F	309	THSICE_MAIN	fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj)
./pkg/thsice/thsice_main.F	312	THSICE_MAIN	DO j = 2-OLy,sNy+OLy-1
./pkg/thsice/thsice_main.F	315	THSICE_MAIN	& (iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))0.5 _d 0
./pkg/thsice/thsice_main.F	316	THSICE_MAIN	fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj)
./pkg/thsice/thsice_main.F	64	THSICE_MAIN	INTEGER i,j
./model/src/ini_mixing.F	49	INI_MIXING	INTEGER i, j, k
./model/src/ini_mixing.F	55	INI_MIXING	DO j = 1-OLy, sNy+OLy
./model/src/ini_mixing.F	58	INI_MIXING	diffKr(i,j,k,bi,bj) = diffKrNrS(k)
./model/src/ini_mixing.F	62	INI_MIXING	KapGM(i,j,k,bi,bj) = GM_background_K
./model/src/ini_mixing.F	65	INI_MIXING	kapRedi(i,j,k,bi,bj) = GM_isopycK
./model/src/ini_mixing.F	77	INI_MIXING	DO j = 1-OLy, sNy+OLy
./model/src/ini_mixing.F	79	INI_MIXING	BL79LatArray(i,j,bi,bj) = 0.0 _d 0
./model/src/ini_mixing.F	80	INI_MIXING	IF ( abs(YC(i,j,bi,bj)) .LT. BL79LatVary )
./model/src/ini_mixing.F	81	INI_MIXING	& BL79LatArray(i,j,bi,bj) =
./model/src/ini_mixing.F	82	INI_MIXING	& ( 1 + cos(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2
./pkg/thsice/thsice_map_exf.F	100	THSICE_MAP_EXF	& .AND. atemp(i,j,bi,bj).LE.cen2kel ) THEN
./pkg/thsice/thsice_map_exf.F	102	THSICE_MAP_EXF	snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F	113	THSICE_MAP_EXF	DO j = jMin, jMax
./pkg/thsice/thsice_map_exf.F	115	THSICE_MAP_EXF	qPrcRnO(i,j) = HeatCapacity_Cp
./pkg/thsice/thsice_map_exf.F	116	THSICE_MAP_EXF	& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/thsice/thsice_map_exf.F	117	THSICE_MAP_EXF	& ( precip(i,j,bi,bj)rhoConstFresh - snowPrc(i,j) )
./pkg/thsice/thsice_map_exf.F	120	THSICE_MAP_EXF	qPrcRnO(i,j) = qPrcRnO(i,j)
./pkg/thsice/thsice_map_exf.F	122	THSICE_MAP_EXF	& *( locSST(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_map_exf.F	123	THSICE_MAP_EXF	& runoff(i,j,bi,bj)rhoConstFresh
./pkg/thsice/thsice_map_exf.F	67	THSICE_MAP_EXF	INTEGER i,j
./pkg/thsice/thsice_map_exf.F	69	THSICE_MAP_EXF	DO j = jMin, jMax
./pkg/thsice/thsice_map_exf.F	72	THSICE_MAP_EXF	totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F	75	THSICE_MAP_EXF	totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F	80	THSICE_MAP_EXF	flxSW (i,j) = swdown(i,j,bi,bj)
./pkg/thsice/thsice_map_exf.F	89	THSICE_MAP_EXF	DO j = jMin, jMax
./pkg/thsice/thsice_map_exf.F	91	THSICE_MAP_EXF	snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F	97	THSICE_MAP_EXF	DO j = jMin, jMax
./pkg/thsice/thsice_map_exf.F	99	THSICE_MAP_EXF	IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_monitor.F	118	THSICE_MONITOR	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_monitor.F	120	THSICE_MONITOR	locMask(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_monitor.F	194	THSICE_MONITOR	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_monitor.F	196	THSICE_MONITOR	locMask(i,j,bi,bj)=iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_monitor.F	59	THSICE_MONITOR	INTEGER i,j,bi,bj
./pkg/thsice/thsice_salt_plume.F	59	THSICE_SALT_PLUME	INTEGER i,j
./pkg/thsice/thsice_salt_plume.F	62	THSICE_SALT_PLUME	DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_salt_plume.F	64	THSICE_SALT_PLUME	saltPlumeFlux(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_salt_plume.F	68	THSICE_SALT_PLUME	DO j = jMin, jMax
./pkg/thsice/thsice_salt_plume.F	70	THSICE_SALT_PLUME	saltPlumeFlux(i,j,bi,bj) =
./pkg/thsice/thsice_salt_plume.F	71	THSICE_SALT_PLUME	& frzSeaWat(i,j)( sOce(i,j) - saltIce )SPsalFRAC
./pkg/thsice/thsice_slab_ocean.F	109	THSICE_SLAB_OCEAN	DO j=1,sNy
./pkg/thsice/thsice_slab_ocean.F	111	THSICE_SLAB_OCEAN	IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F	112	THSICE_SLAB_OCEAN	oceTfreez = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	113	THSICE_SLAB_OCEAN	locTemp = ( aim_sWght0*aim_sst0(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	114	THSICE_SLAB_OCEAN	& + aim_sWght1*aim_sst1(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	117	THSICE_SLAB_OCEAN	tOceMxL(i,j,bi,bj) =
./pkg/thsice/thsice_slab_ocean.F	118	THSICE_SLAB_OCEAN	& (tOceMxL(i,j,bi,bj) + dtFaclocTemp)dtFacR
./pkg/thsice/thsice_slab_ocean.F	123	THSICE_SLAB_OCEAN	DO j=1,sNy
./pkg/thsice/thsice_slab_ocean.F	125	THSICE_SLAB_OCEAN	IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F	126	THSICE_SLAB_OCEAN	locQflux = ( aim_sWght0*aim_qfx0(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	127	THSICE_SLAB_OCEAN	& + aim_sWght1*aim_qfx1(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	129	THSICE_SLAB_OCEAN	tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	130	THSICE_SLAB_OCEAN	& + heatFac*locQflux / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	137	THSICE_SLAB_OCEAN	DO j=1,sNy
./pkg/thsice/thsice_slab_ocean.F	139	THSICE_SLAB_OCEAN	IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F	140	THSICE_SLAB_OCEAN	dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j)
./pkg/thsice/thsice_slab_ocean.F	67	THSICE_SLAB_OCEAN	INTEGER i,j
./pkg/thsice/thsice_slab_ocean.F	77	THSICE_SLAB_OCEAN	DO j=1,sNy
./pkg/thsice/thsice_slab_ocean.F	79	THSICE_SLAB_OCEAN	IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F	80	THSICE_SLAB_OCEAN	dTsurf(i,j) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	81	THSICE_SLAB_OCEAN	tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	82	THSICE_SLAB_OCEAN	& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	83	THSICE_SLAB_OCEAN	sOceMxL(i,j,bi,bj) = sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	84	THSICE_SLAB_OCEAN	& + (fwFacEmPmR(i,j,bi,bj) - dtFacsaltFlux(i,j,bi,bj))
./pkg/thsice/thsice_slab_ocean.F	85	THSICE_SLAB_OCEAN	& / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F	95	THSICE_SLAB_OCEAN	DO j=1,sNy
./pkg/thsice/thsice_slab_ocean.F	97	THSICE_SLAB_OCEAN	IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F	98	THSICE_SLAB_OCEAN	sOceMxL(i,j,bi,bj) =
./pkg/thsice/thsice_slab_ocean.F	99	THSICE_SLAB_OCEAN	& (sOceMxL(i,j,bi,bj) + dtFacsMxL_default)dtFacR
./pkg/thsice/thsice_solve4temp.F	156	THSICE_SOLVE4TEMP	INTEGER i, j, k, iterMax
./pkg/thsice/thsice_solve4temp.F	209	THSICE_SOLVE4TEMP	DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_solve4temp.F	211	THSICE_SOLVE4TEMP	tIc1(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	212	THSICE_SOLVE4TEMP	tIc2(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	215	THSICE_SOLVE4TEMP	flx0exSW(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	216	THSICE_SOLVE4TEMP	flxTexSW(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	217	THSICE_SOLVE4TEMP	dFlxdT (i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	218	THSICE_SOLVE4TEMP	evap00 (i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	219	THSICE_SOLVE4TEMP	evapT (i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	220	THSICE_SOLVE4TEMP	dEvdT (i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	221	THSICE_SOLVE4TEMP	iceFlag (i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	222	THSICE_SOLVE4TEMP	Tsf (i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	239	THSICE_SOLVE4TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F	243	THSICE_SOLVE4TEMP	& + sNx*(j-1)
./pkg/thsice/thsice_solve4temp.F	254	THSICE_SOLVE4TEMP	IF ( icMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F	256	THSICE_SOLVE4TEMP	iceFlag(i,j) = 1. _d 0
./pkg/thsice/thsice_solve4temp.F	258	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)')
./pkg/thsice/thsice_solve4temp.F	259	THSICE_SOLVE4TEMP	& 'ThSI_SOLVE4T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_solve4temp.F	261	THSICE_SOLVE4TEMP	IF ( hIce(i,j).LT.hIceMin ) THEN
./pkg/thsice/thsice_solve4temp.F	265	THSICE_SOLVE4TEMP	jj = j
./pkg/thsice/thsice_solve4temp.F	273	THSICE_SOLVE4TEMP	IF ( hSnow1(i,j) .GT. icMask(i,j)*dhSnowLin ) THEN
./pkg/thsice/thsice_solve4temp.F	276	THSICE_SOLVE4TEMP	frsnow = hSnow1(i,j)*recip_dhSnowLin/icMask(i,j)
./pkg/thsice/thsice_solve4temp.F	281	THSICE_SOLVE4TEMP	fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac
./pkg/thsice/thsice_solve4temp.F	282	THSICE_SOLVE4TEMP	fswocn = fswpen * exp(-ksolar*hIce(i,j))
./pkg/thsice/thsice_solve4temp.F	284	THSICE_SOLVE4TEMP	fswdn = flxSW(i,j) - fswpen
./pkg/thsice/thsice_solve4temp.F	287	THSICE_SOLVE4TEMP	flxAtm(i,j) = flxSW(i,j)
./pkg/thsice/thsice_solve4temp.F	289	THSICE_SOLVE4TEMP	flxSW(i,j) = fswocn
./pkg/thsice/thsice_solve4temp.F	291	THSICE_SOLVE4TEMP	sHeat(i,j) = fswdn
./pkg/thsice/thsice_solve4temp.F	294	THSICE_SOLVE4TEMP	k12(i,j) = 4. _d 0kIcekSnow
./pkg/thsice/thsice_solve4temp.F	295	THSICE_SOLVE4TEMP	& / (kSnowhIce(i,j) + 4. _d 0kIce*hSnow1(i,j))
./pkg/thsice/thsice_solve4temp.F	296	THSICE_SOLVE4TEMP	k32 = 2. _d 0*kIce / hIce(i,j)
./pkg/thsice/thsice_solve4temp.F	300	THSICE_SOLVE4TEMP	b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F	302	THSICE_SOLVE4TEMP	tIc1(i,j) = 0.5 _d 0 (-b1 - SQRT(b1b1-4. _d 0a1c1))/a1
./pkg/thsice/thsice_solve4temp.F	303	THSICE_SOLVE4TEMP	tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce
./pkg/thsice/thsice_solve4temp.F	306	THSICE_SOLVE4TEMP	IF (tIc1(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F	308	THSICE_SOLVE4TEMP	& ' BBerr: Tice(1) > 0 ; it=', myIter, qIc1(i,j)
./pkg/thsice/thsice_solve4temp.F	310	THSICE_SOLVE4TEMP	& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F	312	THSICE_SOLVE4TEMP	IF ( tIc2(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F	314	THSICE_SOLVE4TEMP	& ' BBerr: Tice(2) > 0 ; it=', myIter, qIc2(i,j)
./pkg/thsice/thsice_solve4temp.F	316	THSICE_SOLVE4TEMP	& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F	318	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F	319	THSICE_SOLVE4TEMP	& 'ThSI_SOLVE4T: k, Ts, Tice=',0,tSrf1(i,j),tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F	324	THSICE_SOLVE4TEMP	a10(i,j) = rhoicpIce hIce(i,j)/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F	325	THSICE_SOLVE4TEMP	& k32( 4. _d 0dtk32 + rhoicpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F	326	THSICE_SOLVE4TEMP	& / ( 6. _d 0dtk32 + rhoicpIce hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F	327	THSICE_SOLVE4TEMP	b10(i,j) = -hIce(i,j)*
./pkg/thsice/thsice_solve4temp.F	328	THSICE_SOLVE4TEMP	& ( rhoicpIcetIc1(i,j) + rhoiLfreshTmlt1/tIc1(i,j) )
./pkg/thsice/thsice_solve4temp.F	330	THSICE_SOLVE4TEMP	& - k32( 4. _d 0dtk32tFrz(i,j)
./pkg/thsice/thsice_solve4temp.F	331	THSICE_SOLVE4TEMP	& +rhoicpIcehIce(i,j)*tIc2(i,j) )
./pkg/thsice/thsice_solve4temp.F	332	THSICE_SOLVE4TEMP	& / ( 6. _d 0dtk32 + rhoicpIce hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F	334	THSICE_SOLVE4TEMP	c10(i,j) = rhoiLfreshhIce(i,j)Tmlt1 / (2. _d 0dt)
./pkg/thsice/thsice_solve4temp.F	337	THSICE_SOLVE4TEMP	iceFlag(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	369	THSICE_SOLVE4TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F	371	THSICE_SOLVE4TEMP	Tsf(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F	400	THSICE_SOLVE4TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F	402	THSICE_SOLVE4TEMP	Tsf(i,j) = tSrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	403	THSICE_SOLVE4TEMP	dTsrf1(i,j) = Terrmax
./pkg/thsice/thsice_solve4temp.F	456	THSICE_SOLVE4TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F	458	THSICE_SOLVE4TEMP	IF ( iceFlag(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F	459	THSICE_SOLVE4TEMP	flxTexSW(i,j) = flxExSW(i,j,1)
./pkg/thsice/thsice_solve4temp.F	460	THSICE_SOLVE4TEMP	dFlxdT(i,j) = flxExSW(i,j,2)
./pkg/thsice/thsice_solve4temp.F	479	THSICE_SOLVE4TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F	481	THSICE_SOLVE4TEMP	IF ( iceFlag(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F	482	THSICE_SOLVE4TEMP	flxNet = sHeat(i,j) + flxTexSW(i,j)
./pkg/thsice/thsice_solve4temp.F	484	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020)
./pkg/thsice/thsice_solve4temp.F	486	THSICE_SOLVE4TEMP	& flxNet, dFlxdT(i,j), k12(i,j), k12(i,j)-dFlxdT(i,j)
./pkg/thsice/thsice_solve4temp.F	489	THSICE_SOLVE4TEMP	a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j))
./pkg/thsice/thsice_solve4temp.F	490	THSICE_SOLVE4TEMP	b1 = b10(i,j) - k12(i,j)(flxNet-dFlxdT(i,j)Tsf(i,j))
./pkg/thsice/thsice_solve4temp.F	491	THSICE_SOLVE4TEMP	& /(k12(i,j)-dFlxdT(i,j))
./pkg/thsice/thsice_solve4temp.F	492	THSICE_SOLVE4TEMP	c1 = c10(i,j)
./pkg/thsice/thsice_solve4temp.F	493	THSICE_SOLVE4TEMP	tIc1(i,j) = -(b1 + SQRT(b1b1-4. _d 0a1c1))/(2. _d 0a1)
./pkg/thsice/thsice_solve4temp.F	494	THSICE_SOLVE4TEMP	dTsrf1(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j)))
./pkg/thsice/thsice_solve4temp.F	495	THSICE_SOLVE4TEMP	& /(k12(i,j)-dFlxdT(i,j))
./pkg/thsice/thsice_solve4temp.F	496	THSICE_SOLVE4TEMP	Tsf(i,j) = Tsf(i,j) + dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	498	THSICE_SOLVE4TEMP	IF ( Tsf(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F	500	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F	501	THSICE_SOLVE4TEMP	& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	503	THSICE_SOLVE4TEMP	a1 = a10(i,j) + k12(i,j)
./pkg/thsice/thsice_solve4temp.F	505	THSICE_SOLVE4TEMP	b1 = b10(i,j)
./pkg/thsice/thsice_solve4temp.F	506	THSICE_SOLVE4TEMP	tIc1(i,j) = (-b1 - SQRT(b1b1-4. _d 0a1c1))/(2. _d 0a1)
./pkg/thsice/thsice_solve4temp.F	507	THSICE_SOLVE4TEMP	Tsf(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	511	THSICE_SOLVE4TEMP	flxTexSW(i,j) = flx0exSW(i,j)
./pkg/thsice/thsice_solve4temp.F	512	THSICE_SOLVE4TEMP	evapT(i,j) = evap00(i,j)
./pkg/thsice/thsice_solve4temp.F	513	THSICE_SOLVE4TEMP	dTsrf1(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	516	THSICE_SOLVE4TEMP	flxTexSW(i,j) = flxExSW(i,j,0)
./pkg/thsice/thsice_solve4temp.F	517	THSICE_SOLVE4TEMP	dTsrf1(i,j) = 1000.
./pkg/thsice/thsice_solve4temp.F	518	THSICE_SOLVE4TEMP	dFlxdT(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F	524	THSICE_SOLVE4TEMP	IF (ABS(dTsrf1(i,j)).GE.Terrmax) THEN
./pkg/thsice/thsice_solve4temp.F	525	THSICE_SOLVE4TEMP	iceFlag(i,j) = 1. _d 0
./pkg/thsice/thsice_solve4temp.F	527	THSICE_SOLVE4TEMP	iceFlag(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F	529	THSICE_SOLVE4TEMP	iterate4Tsf = iterate4Tsf .OR. (iceFlag(i,j).GT.0. _d 0)
./pkg/thsice/thsice_solve4temp.F	537	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F	538	THSICE_SOLVE4TEMP	& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	540	THSICE_SOLVE4TEMP	& (iceFlag(i,j).GT.0. _d 0) ) THEN
./pkg/thsice/thsice_solve4temp.F	542	THSICE_SOLVE4TEMP	& ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j)
./pkg/thsice/thsice_solve4temp.F	544	THSICE_SOLVE4TEMP	& 'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	546	THSICE_SOLVE4TEMP	& 'BB: not converge: flxNet,dFlxT=', flxNet, dFlxdT(i,j)
./pkg/thsice/thsice_solve4temp.F	547	THSICE_SOLVE4TEMP	IF ( Tsf(i,j).LT.-70. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F	549	THSICE_SOLVE4TEMP	& 'THSICE_SOLVE4TEMP: Too low Tsf in', i, j, bi, bj,
./pkg/thsice/thsice_solve4temp.F	550	THSICE_SOLVE4TEMP	& myIter, Tsf(i,j)
./pkg/thsice/thsice_solve4temp.F	570	THSICE_SOLVE4TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F	572	THSICE_SOLVE4TEMP	IF ( icMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F	575	THSICE_SOLVE4TEMP	k32 = 2. _d 0*kIce / hIce(i,j)
./pkg/thsice/thsice_solve4temp.F	576	THSICE_SOLVE4TEMP	tIc2(i,j) = ( 2. _d 0dtk32(tIc1(i,j)+2. _d 0tFrz(i,j))
./pkg/thsice/thsice_solve4temp.F	577	THSICE_SOLVE4TEMP	& + rhoicpIcehIce(i,j)*tIc2(i,j))
./pkg/thsice/thsice_solve4temp.F	578	THSICE_SOLVE4TEMP	& /(6. _d 0dtk32 + rhoicpIcehIce(i,j))
./pkg/thsice/thsice_solve4temp.F	580	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F	581	THSICE_SOLVE4TEMP	& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F	582	THSICE_SOLVE4TEMP	netSW = flxAtm(i,j)
./pkg/thsice/thsice_solve4temp.F	586	THSICE_SOLVE4TEMP	tSrf1(i,j) = Tsf(i,j)
./pkg/thsice/thsice_solve4temp.F	587	THSICE_SOLVE4TEMP	fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F	588	THSICE_SOLVE4TEMP	flxCnB(i,j) = 4. _d 0kIce (tIc2(i,j)-tFrz(i,j))/hIce(i,j)
./pkg/thsice/thsice_solve4temp.F	589	THSICE_SOLVE4TEMP	flxNet = sHeat(i,j) + flxTexSW(i,j)
./pkg/thsice/thsice_solve4temp.F	590	THSICE_SOLVE4TEMP	flxNet = flxNet + dFlxdT(i,j)*dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	595	THSICE_SOLVE4TEMP	evpAtm(i,j) = evapT(i,j) + dEvdT(i,j)*dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	599	THSICE_SOLVE4TEMP	evpAtm(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F	604	THSICE_SOLVE4TEMP	flxAtm(i,j) = flxAtm(i,j) + flxTexSW(i,j)
./pkg/thsice/thsice_solve4temp.F	605	THSICE_SOLVE4TEMP	& + dFlxdT(i,j)dTsrf1(i,j) + evpAtm(i,j)Lfresh
./pkg/thsice/thsice_solve4temp.F	607	THSICE_SOLVE4TEMP	sHeat(i,j) = flxNet - fct
./pkg/thsice/thsice_solve4temp.F	610	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020)
./pkg/thsice/thsice_solve4temp.F	612	THSICE_SOLVE4TEMP	& flxNet,fct,flxNet-fct,flxCnB(i,j)
./pkg/thsice/thsice_solve4temp.F	616	THSICE_SOLVE4TEMP	qIc1(i,j) = -cpWaterTmlt1 + cpIce (Tmlt1-tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F	617	THSICE_SOLVE4TEMP	& + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F	618	THSICE_SOLVE4TEMP	qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh
./pkg/thsice/thsice_solve4temp.F	623	THSICE_SOLVE4TEMP	IF (tIc1(i,j) .GE. Tmlt1) THEN
./pkg/thsice/thsice_solve4temp.F	625	THSICE_SOLVE4TEMP	& ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1
./pkg/thsice/thsice_solve4temp.F	627	THSICE_SOLVE4TEMP	IF (tIc2(i,j) .GE. 0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F	629	THSICE_SOLVE4TEMP	& ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F	632	THSICE_SOLVE4TEMP	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_solve4temp.F	634	THSICE_SOLVE4TEMP	& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf1(i,j)
./pkg/thsice/thsice_solve4temp.F	636	THSICE_SOLVE4TEMP	& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j)
./pkg/thsice/thsice_solve4temp.F	638	THSICE_SOLVE4TEMP	& flxAtm(i,j), evpAtm(i,j), netSW, flxSW(i,j)
./pkg/thsice/thsice_solve4temp.F	646	THSICE_SOLVE4TEMP	dTsrf1(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	104	THSICE_STEP_FWD	INTEGER i,j
./pkg/thsice/thsice_step_fwd.F	129	THSICE_STEP_FWD	DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_step_fwd.F	131	THSICE_STEP_FWD	isIceFree(i,j) = .FALSE.
./pkg/thsice/thsice_step_fwd.F	133	THSICE_STEP_FWD	sFluxFromIce(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	135	THSICE_STEP_FWD	saltFlux(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	137	THSICE_STEP_FWD	frzSeaWat(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	139	THSICE_STEP_FWD	iceFrac(i,j) = 0.
./pkg/thsice/thsice_step_fwd.F	142	THSICE_STEP_FWD	flx2oc(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	143	THSICE_STEP_FWD	frw2oc(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	144	THSICE_STEP_FWD	fsalt (i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	162	THSICE_STEP_FWD	DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F	164	THSICE_STEP_FWD	IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F	166	THSICE_STEP_FWD	snowAge(i,j,bi,bj) = thSIce_deltaT
./pkg/thsice/thsice_step_fwd.F	167	THSICE_STEP_FWD	& + snowAge(i,j,bi,bj)*ageFac
./pkg/thsice/thsice_step_fwd.F	168	THSICE_STEP_FWD	IF ( snowPrc(i,j).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F	169	THSICE_STEP_FWD	& snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	170	THSICE_STEP_FWD	& * EXP( - snowFac*snowPrc(i,j) )
./pkg/thsice/thsice_step_fwd.F	174	THSICE_STEP_FWD	icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	175	THSICE_STEP_FWD	& - Lfresh*snowPrc(i,j)
./pkg/thsice/thsice_step_fwd.F	176	THSICE_STEP_FWD	& + qPrcRnO(i,j)
./pkg/thsice/thsice_step_fwd.F	194	THSICE_STEP_FWD	DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F	196	THSICE_STEP_FWD	siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	205	THSICE_STEP_FWD	DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F	208	THSICE_STEP_FWD	tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	209	THSICE_STEP_FWD	cphm = cpwaterrhoswhOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	210	THSICE_STEP_FWD	frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) )
./pkg/thsice/thsice_step_fwd.F	212	THSICE_STEP_FWD	iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	213	THSICE_STEP_FWD	flx2oc(i,j) = icFlxSW(i,j,bi,bj) + qPrcRnO(i,j)
./pkg/thsice/thsice_step_fwd.F	216	THSICE_STEP_FWD	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_fwd.F	217	THSICE_STEP_FWD	IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN
./pkg/thsice/thsice_step_fwd.F	218	THSICE_STEP_FWD	WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_fwd.F	220	THSICE_STEP_FWD	& iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F	221	THSICE_STEP_FWD	& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	223	THSICE_STEP_FWD	& tOceMxL(i,j,bi,bj), tFrzOce(i,j),
./pkg/thsice/thsice_step_fwd.F	224	THSICE_STEP_FWD	& frzmltMxL(i,j), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	226	THSICE_STEP_FWD	IF (iceFrac(i,j).GT.0.)
./pkg/thsice/thsice_step_fwd.F	228	THSICE_STEP_FWD	& iceFrac(i,j), icFlxAtm(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F	229	THSICE_STEP_FWD	& icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j)
./pkg/thsice/thsice_step_fwd.F	260	THSICE_STEP_FWD	DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F	273	THSICE_STEP_FWD	IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F	281	THSICE_STEP_FWD	icFrac = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	284	THSICE_STEP_FWD	pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F	285	THSICE_STEP_FWD	pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F	286	THSICE_STEP_FWD	sFluxFromIce(i,j) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F	288	THSICE_STEP_FWD	icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	289	THSICE_STEP_FWD	& - opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	290	THSICE_STEP_FWD	icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	291	THSICE_STEP_FWD	& + opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	292	THSICE_STEP_FWD	Qnet(i,j,bi,bj) = -icFracflx2oc(i,j) + opFracQnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	293	THSICE_STEP_FWD	EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F	294	THSICE_STEP_FWD	& + opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	295	THSICE_STEP_FWD	saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F	300	THSICE_STEP_FWD	frzSeaWat(i,j) = MAX( -icFrac*frw2oc(i,j), 0. _d 0 )
./pkg/thsice/thsice_step_fwd.F	303	THSICE_STEP_FWD	IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F	305	THSICE_STEP_FWD	& iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F	306	THSICE_STEP_FWD	& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	309	THSICE_STEP_FWD	ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F	310	THSICE_STEP_FWD	icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	311	THSICE_STEP_FWD	icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	313	THSICE_STEP_FWD	icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	314	THSICE_STEP_FWD	icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	323	THSICE_STEP_FWD	DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_step_fwd.F	325	THSICE_STEP_FWD	flx2oc(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	326	THSICE_STEP_FWD	frw2oc(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	327	THSICE_STEP_FWD	fsalt (i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	346	THSICE_STEP_FWD	DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F	350	THSICE_STEP_FWD	pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F	351	THSICE_STEP_FWD	pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F	352	THSICE_STEP_FWD	sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F	354	THSICE_STEP_FWD	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F	355	THSICE_STEP_FWD	EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F	356	THSICE_STEP_FWD	saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F	358	THSICE_STEP_FWD	frzSeaWat(i,j) = frzSeaWat(i,j) + MAX(-frw2oc(i,j), 0. _d 0 )
./pkg/thsice/thsice_step_fwd.F	361	THSICE_STEP_FWD	IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F	363	THSICE_STEP_FWD	& iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F	364	THSICE_STEP_FWD	& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	367	THSICE_STEP_FWD	IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F	368	THSICE_STEP_FWD	& isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F	369	THSICE_STEP_FWD	& .AND. iceFrac(i,j) .LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F	370	THSICE_STEP_FWD	IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F	371	THSICE_STEP_FWD	iceMask(i,j,bi,bj)=iceFrac(i,j)
./pkg/thsice/thsice_step_fwd.F	372	THSICE_STEP_FWD	IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F	373	THSICE_STEP_FWD	& snowAge(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	375	THSICE_STEP_FWD	iceMask(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	376	THSICE_STEP_FWD	iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_step_fwd.F	377	THSICE_STEP_FWD	snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_step_fwd.F	378	THSICE_STEP_FWD	snowAge(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	379	THSICE_STEP_FWD	Tsrf(i,j,bi,bj) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	380	THSICE_STEP_FWD	Tice1(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	381	THSICE_STEP_FWD	Tice2(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F	382	THSICE_STEP_FWD	Qice1(i,j,bi,bj) = Lfresh
./pkg/thsice/thsice_step_fwd.F	383	THSICE_STEP_FWD	Qice2(i,j,bi,bj) = Lfresh
./pkg/thsice/thsice_step_fwd.F	414	THSICE_STEP_FWD	DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F	416	THSICE_STEP_FWD	sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_step_fwd.F	417	THSICE_STEP_FWD	& + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_step_fwd.F	418	THSICE_STEP_FWD	& )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	420	THSICE_STEP_FWD	pass_sIceLoad(i,j)=sIceLoad(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	429	THSICE_STEP_FWD	DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F	431	THSICE_STEP_FWD	IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F	432	THSICE_STEP_FWD	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	433	THSICE_STEP_FWD	EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F	434	THSICE_STEP_FWD	saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F	101	THSICE_STEP_TEMP	DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_step_temp.F	103	THSICE_STEP_TEMP	dTsrf(i,j) = 0. _d 0
./pkg/thsice/thsice_step_temp.F	110	THSICE_STEP_TEMP	DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_step_temp.F	112	THSICE_STEP_TEMP	icFlxAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F	113	THSICE_STEP_TEMP	icFrwAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F	140	THSICE_STEP_TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_step_temp.F	142	THSICE_STEP_TEMP	IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F	143	THSICE_STEP_TEMP	IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_temp.F	144	THSICE_STEP_TEMP	WRITE(6,'(A,2I4,2I2)') 'ThSI_STEP_T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_temp.F	146	THSICE_STEP_TEMP	& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_temp.F	147	THSICE_STEP_TEMP	& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F	153	THSICE_STEP_TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_step_temp.F	155	THSICE_STEP_TEMP	IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F	157	THSICE_STEP_TEMP	icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F	158	THSICE_STEP_TEMP	& *(1. _d 0 - siceAlb(i,j,bi,bj))
./pkg/thsice/thsice_step_temp.F	159	THSICE_STEP_TEMP	tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F	161	THSICE_STEP_TEMP	tFrzOce(i,j) = 0. _d 0
./pkg/thsice/thsice_step_temp.F	187	THSICE_STEP_TEMP	DO j = jMin, jMax
./pkg/thsice/thsice_step_temp.F	189	THSICE_STEP_TEMP	IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F	190	THSICE_STEP_TEMP	icFrac = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F	193	THSICE_STEP_TEMP	Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F	194	THSICE_STEP_TEMP	& - icFrac*icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F	72	THSICE_STEP_TEMP	INTEGER i,j
./pkg/thsice/thsice_test_addfluid.h	16	NO PROCEDURE	DO j = 1-OLy, sNy+OLy-1
./pkg/thsice/thsice_test_addfluid.h	18	NO PROCEDURE	addMass(i,j,1,bi,bj) = -EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_test_addfluid.h	19	NO PROCEDURE	& *rA(i,j,bi,bj)
./pkg/thsice/thsice_test_addfluid.h	20	NO PROCEDURE	& *maskC(i,j,1,bi,bj)
./pkg/thsice/thsice_test_addfluid.h	21	NO PROCEDURE	EmPmR(i,j,bi,bj) = 0. _d 0
./pkg/timeave/timeave_cumul_1k1t.F	37	TIMEAVE_CUMUL_1K1T	INTEGER i, j
./pkg/timeave/timeave_cumul_1k1t.F	39	TIMEAVE_CUMUL_1K1T	DO j=1,sNy
./pkg/timeave/timeave_cumul_1k1t.F	41	TIMEAVE_CUMUL_1K1T	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_1k1t.F	42	TIMEAVE_CUMUL_1K1T	& + fld(i,j)*deltaTloc
./pkg/timeave/timeave_cumul_1t.F	35	TIMEAVE_CUMUL_1T	INTEGER i, j, k
./pkg/timeave/timeave_cumul_1t.F	38	TIMEAVE_CUMUL_1T	DO j=1,sNy
./pkg/timeave/timeave_cumul_1t.F	40	TIMEAVE_CUMUL_1T	fldtave(i,j,k,bi,bj)=
./pkg/timeave/timeave_cumul_1t.F	41	TIMEAVE_CUMUL_1T	& fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaTloc
./pkg/timeave/timeave_cumul_1vfc.F	38	TIMEAVE_CUMUL_1VFC	INTEGER i, j, k
./pkg/timeave/timeave_cumul_1vfc.F	43	TIMEAVE_CUMUL_1VFC	DO j=1,sNy
./pkg/timeave/timeave_cumul_1vfc.F	45	TIMEAVE_CUMUL_1VFC	fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_1vfc.F	46	TIMEAVE_CUMUL_1VFC	& + deltaTlocfld1(i,j,k,bi,bj)fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	110	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	112	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	113	TIMEAVE_CUMUL_2V	& + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	114	TIMEAVE_CUMUL_2V	& *( fld2(i-1,j,k,bi,bj) + fld2(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	125	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	127	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	128	TIMEAVE_CUMUL_2V	& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	129	TIMEAVE_CUMUL_2V	& ( fld2(i-1,j,k,bi,bj)rA(i-1,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	130	TIMEAVE_CUMUL_2V	& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	131	TIMEAVE_CUMUL_2V	& )*recip_rAw(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	142	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	144	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	145	TIMEAVE_CUMUL_2V	& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	146	TIMEAVE_CUMUL_2V	& ( fld2(i,j-1,k,bi,bj)rA(i,j-1,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	147	TIMEAVE_CUMUL_2V	& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	148	TIMEAVE_CUMUL_2V	& )*recip_rAs(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	159	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	161	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	162	TIMEAVE_CUMUL_2V	& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	163	TIMEAVE_CUMUL_2V	& ( fld2(i-1,j,k,bi,bj)rA(i-1,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	164	TIMEAVE_CUMUL_2V	& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	165	TIMEAVE_CUMUL_2V	& )*recip_rAw(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	176	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	178	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	179	TIMEAVE_CUMUL_2V	& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	180	TIMEAVE_CUMUL_2V	& ( fld2(i,j-1,k,bi,bj)rA(i,j-1,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	181	TIMEAVE_CUMUL_2V	& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	182	TIMEAVE_CUMUL_2V	& )*recip_rAs(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	43	TIMEAVE_CUMUL_2V	INTEGER i, j, k
./pkg/timeave/timeave_cumul_2v.F	52	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	54	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	55	TIMEAVE_CUMUL_2V	& + fld1(i,j,k,bi,bj)fld2(i,j,k,bi,bj)deltaTloc
./pkg/timeave/timeave_cumul_2v.F	66	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	68	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	69	TIMEAVE_CUMUL_2V	& + .5 * ( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	70	TIMEAVE_CUMUL_2V	& * fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	80	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	82	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	83	TIMEAVE_CUMUL_2V	& + .5 * ( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	84	TIMEAVE_CUMUL_2V	& * fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	95	TIMEAVE_CUMUL_2V	DO j=1,sNy
./pkg/timeave/timeave_cumul_2v.F	97	TIMEAVE_CUMUL_2V	fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F	98	TIMEAVE_CUMUL_2V	& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F	99	TIMEAVE_CUMUL_2V	& * fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2vfc.F	44	TIMEAVE_CUMUL_2VFC	INTEGER i, j, k
./pkg/timeave/timeave_cumul_2vfc.F	51	TIMEAVE_CUMUL_2VFC	DO j=1,sNy
./pkg/timeave/timeave_cumul_2vfc.F	53	TIMEAVE_CUMUL_2VFC	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc*
./pkg/timeave/timeave_cumul_2vfc.F	54	TIMEAVE_CUMUL_2VFC	& fld1(i,j,k,bi,bj)fld2(i,j,k,bi,bj)fld3(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2vfc.F	66	TIMEAVE_CUMUL_2VFC	DO j=1,sNy
./pkg/timeave/timeave_cumul_2vfc.F	68	TIMEAVE_CUMUL_2VFC	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc*
./pkg/timeave/timeave_cumul_2vfc.F	69	TIMEAVE_CUMUL_2VFC	& 0.5*( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2vfc.F	70	TIMEAVE_CUMUL_2VFC	& fld2(i,j,k,bi,bj)fld3(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2vfc.F	82	TIMEAVE_CUMUL_2VFC	DO j=1,sNy
./pkg/timeave/timeave_cumul_2vfc.F	84	TIMEAVE_CUMUL_2VFC	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc*
./pkg/timeave/timeave_cumul_2vfc.F	85	TIMEAVE_CUMUL_2VFC	& 0.5*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2vfc.F	86	TIMEAVE_CUMUL_2VFC	& fld2(i,j,k,bi,bj)fld3(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F	40	TIMEAVE_CUMUL_DIF_1T	INTEGER i, j, k
./pkg/timeave/timeave_cumul_dif_1t.F	45	TIMEAVE_CUMUL_DIF_1T	DO j=1,sNy
./pkg/timeave/timeave_cumul_dif_1t.F	47	TIMEAVE_CUMUL_DIF_1T	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F	48	TIMEAVE_CUMUL_DIF_1T	& - ( fld1(i,j,k) - fld1(i-1,j,k) )
./pkg/timeave/timeave_cumul_dif_1t.F	49	TIMEAVE_CUMUL_DIF_1T	& * recip_dxC(i,j,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F	50	TIMEAVE_CUMUL_DIF_1T	& * fld2(i,j,k) * deltaTloc
./pkg/timeave/timeave_cumul_dif_1t.F	58	TIMEAVE_CUMUL_DIF_1T	DO j=1,sNy
./pkg/timeave/timeave_cumul_dif_1t.F	60	TIMEAVE_CUMUL_DIF_1T	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F	61	TIMEAVE_CUMUL_DIF_1T	& - ( fld1(i,j,k) - fld1(i,j-1,k) )
./pkg/timeave/timeave_cumul_dif_1t.F	62	TIMEAVE_CUMUL_DIF_1T	& * recip_dyC(i,j,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F	63	TIMEAVE_CUMUL_DIF_1T	& * fld2(i,j,k) * deltaTloc
./pkg/timeave/timeave_cumul_dif_1t.F	71	TIMEAVE_CUMUL_DIF_1T	DO j=1,sNy
./pkg/timeave/timeave_cumul_dif_1t.F	73	TIMEAVE_CUMUL_DIF_1T	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F	74	TIMEAVE_CUMUL_DIF_1T	& + ( fld1(i,j,k) - fld1(i,j,k-1) )
./pkg/timeave/timeave_cumul_dif_1t.F	76	TIMEAVE_CUMUL_DIF_1T	& * fld2(i,j,k) * deltaTloc
./pkg/timeave/timeave_cumulate.F	35	TIMEAVE_CUMULATE	INTEGER i, j, k
./pkg/timeave/timeave_cumulate.F	40	TIMEAVE_CUMULATE	DO j=1,sNy
./pkg/timeave/timeave_cumulate.F	42	TIMEAVE_CUMULATE	fldtave(i,j,k,bi,bj)=
./pkg/timeave/timeave_cumulate.F	43	TIMEAVE_CUMULATE	& fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaTloc
./pkg/timeave/timeave_norma_2v.F	33	TIMEAVE_NORMA_2V	INTEGER i, j, k
./pkg/timeave/timeave_norma_2v.F	38	TIMEAVE_NORMA_2V	DO j=1,sNy
./pkg/timeave/timeave_norma_2v.F	40	TIMEAVE_NORMA_2V	IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN
./pkg/timeave/timeave_norma_2v.F	41	TIMEAVE_NORMA_2V	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_norma_2v.F	42	TIMEAVE_NORMA_2V	& / cumulWeight(i,j,k,bi,bj)
./pkg/timeave/timeave_normalize.F	42	TIMEAVE_NORMALIZE	INTEGER i, j, k
./pkg/timeave/timeave_normalize.F	50	TIMEAVE_NORMALIZE	DO j=1,sNy
./pkg/timeave/timeave_normalize.F	52	TIMEAVE_NORMALIZE	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_reset.F	29	TIMEAVE_RESET	INTEGER i, j, k
./pkg/timeave/timeave_reset.F	34	TIMEAVE_RESET	DO j=1-OLy,sNy+OLy
./pkg/timeave/timeave_reset.F	36	TIMEAVE_RESET	fldtave(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_nh_fields.F	100	INI_NH_FIELDS	DO j=1-OLy,sNy+OLy
./model/src/ini_nh_fields.F	102	INI_NH_FIELDS	dPhiNH(i,j,bi,bj) = 0.
./model/src/ini_nh_fields.F	106	INI_NH_FIELDS	DO j=1-OLy,sNy+OLy
./model/src/ini_nh_fields.F	108	INI_NH_FIELDS	dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/ini_nh_fields.F	109	INI_NH_FIELDS	& + phi_nh(i,j,k,bi,bj)drF(k)hFacC(i,j,k,bi,bj)
./model/src/ini_nh_fields.F	113	INI_NH_FIELDS	DO j=1-OLy,sNy+OLy
./model/src/ini_nh_fields.F	115	INI_NH_FIELDS	dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/ini_nh_fields.F	116	INI_NH_FIELDS	& *recip_Rcol(i,j,bi,bj)
./model/src/ini_nh_fields.F	44	INI_NH_FIELDS	INTEGER i,j
./model/src/ini_nh_fields.F	79	INI_NH_FIELDS	DO j=1-OLy,sNy+OLy
./model/src/ini_nh_fields.F	81	INI_NH_FIELDS	dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj)
./model/src/ini_nh_fields.F	87	INI_NH_FIELDS	DO j=1-OLy,sNy+OLy
./model/src/ini_nh_fields.F	89	INI_NH_FIELDS	ks = kSurfC(i,j,bi,bj)
./model/src/ini_nh_fields.F	91	INI_NH_FIELDS	dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj)
./model/src/ini_nh_fields.F	93	INI_NH_FIELDS	dPhiNH(i,j,bi,bj) = 0.
./pkg/timeave/timeave_surf_flux.F	101	TIMEAVE_SURF_FLUX	tmpFld(i,j) = tmpFld(i,j)
./pkg/timeave/timeave_surf_flux.F	102	TIMEAVE_SURF_FLUX	& + PmEpR(i,j,bi,bj)*salt(i,j,k,bi,bj)
./pkg/timeave/timeave_surf_flux.F	47	TIMEAVE_SURF_FLUX	DO j=1,sNy
./pkg/timeave/timeave_surf_flux.F	49	TIMEAVE_SURF_FLUX	tmpFld(i,j)=fu(i,j,bi,bj)foFacMom_maskW(i,j,k,bi,bj)
./pkg/timeave/timeave_surf_flux.F	56	TIMEAVE_SURF_FLUX	DO j=1,sNy
./pkg/timeave/timeave_surf_flux.F	58	TIMEAVE_SURF_FLUX	tmpFld(i,j)=fv(i,j,bi,bj)foFacMom_maskS(i,j,k,bi,bj)
./pkg/timeave/timeave_surf_flux.F	65	TIMEAVE_SURF_FLUX	DO j=1,sNy
./pkg/timeave/timeave_surf_flux.F	67	TIMEAVE_SURF_FLUX	tmpFld(i,j) =
./pkg/timeave/timeave_surf_flux.F	69	TIMEAVE_SURF_FLUX	& -Qsw(i,j,bi,bj)+
./pkg/timeave/timeave_surf_flux.F	71	TIMEAVE_SURF_FLUX	& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj))
./pkg/timeave/timeave_surf_flux.F	78	TIMEAVE_SURF_FLUX	DO j=1,sNy
./pkg/timeave/timeave_surf_flux.F	80	TIMEAVE_SURF_FLUX	tmpFld(i,j) = tmpFld(i,j)
./pkg/timeave/timeave_surf_flux.F	81	TIMEAVE_SURF_FLUX	& + PmEpR(i,j,bi,bj)theta(i,j,k,bi,bj)HeatCapacity_Cp
./pkg/timeave/timeave_surf_flux.F	90	TIMEAVE_SURF_FLUX	DO j=1,sNy
./pkg/timeave/timeave_surf_flux.F	92	TIMEAVE_SURF_FLUX	tmpFld(i,j)=
./pkg/timeave/timeave_surf_flux.F	93	TIMEAVE_SURF_FLUX	& surfaceForcingS(i,j,bi,bj)*rUnit2mass
./pkg/timeave/timeave_surf_flux.F	99	TIMEAVE_SURF_FLUX	DO j=1,sNy
./pkg/zonal_filt/zonal_filt_apply_uv.F	39	ZONAL_FILT_APPLY_UV	INTEGER i, j, k
./pkg/zonal_filt/zonal_filt_apply_uv.F	49	ZONAL_FILT_APPLY_UV	DO j=1-OLy,sNy+OLy
./pkg/zonal_filt/zonal_filt_apply_uv.F	51	ZONAL_FILT_APPLY_UV	uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_apply_uv.F	58	ZONAL_FILT_APPLY_UV	DO j=1-OLy,sNy+OLy
./pkg/zonal_filt/zonal_filt_apply_uv.F	60	ZONAL_FILT_APPLY_UV	uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_init.F	100	ZONAL_FILT_INIT	ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I )
./pkg/zonal_filt/zonal_filt_init.F	102	ZONAL_FILT_INIT	ampFactorV(2I+1,j,bi,bj) = ampFactorV(2i,j,bi,bj)
./pkg/zonal_filt/zonal_filt_init.F	107	ZONAL_FILT_INIT	ampFactor(Nx,j,bi,bj) = ampfact( yC(1,j,bi,bj) , i )
./pkg/zonal_filt/zonal_filt_init.F	108	ZONAL_FILT_INIT	ampFactorV(Nx,j,bi,bj) = ampfact( yG(1,j,bi,bj) , i )
./pkg/zonal_filt/zonal_filt_init.F	110	ZONAL_FILT_INIT	ampFactor(Nx,j,bi,bj) = 0.
./pkg/zonal_filt/zonal_filt_init.F	111	ZONAL_FILT_INIT	ampFactorV(Nx,j,bi,bj) = 0.
./pkg/zonal_filt/zonal_filt_init.F	59	ZONAL_FILT_INIT	INTEGER i, j, bi, bj
./pkg/zonal_filt/zonal_filt_init.F	93	ZONAL_FILT_INIT	DO j=1-oLy,sNy+Oly
./pkg/zonal_filt/zonal_filt_init.F	94	ZONAL_FILT_INIT	ampFactor(1,j,bi,bj) = oneRL
./pkg/zonal_filt/zonal_filt_init.F	95	ZONAL_FILT_INIT	ampFactorV(1,j,bi,bj) = oneRL
./pkg/zonal_filt/zonal_filt_init.F	97	ZONAL_FILT_INIT	ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I )
./pkg/zonal_filt/zonal_filt_init.F	99	ZONAL_FILT_INIT	ampFactor(2I+1,j,bi,bj) = ampFactor(2i,j,bi,bj)
./pkg/zonal_filt/zonal_filt_nofill.F	44	ZONAL_FILT_NOFILL	DO j=jMin, jMax
./pkg/zonal_filt/zonal_filt_nofill.F	48	ZONAL_FILT_NOFILL	phi(I) = field(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_nofill.F	59	ZONAL_FILT_NOFILL	phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filt_nofill.F	63	ZONAL_FILT_NOFILL	phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filt_nofill.F	77	ZONAL_FILT_NOFILL	field(i,j,k,bi,bj) = phi(sNx+i)
./pkg/zonal_filt/zonal_filt_nofill.F	80	ZONAL_FILT_NOFILL	field(i,j,k,bi,bj) = phi(I)
./pkg/zonal_filt/zonal_filt_nofill.F	83	ZONAL_FILT_NOFILL	field(i,j,k,bi,bj) = phi(i-sNx)
./model/src/ini_nh_vars.F	39	INI_NH_VARS	INTEGER i, j, k
./model/src/ini_nh_vars.F	46	INI_NH_VARS	DO j=1-OLy,sNy+OLy
./model/src/ini_nh_vars.F	48	INI_NH_VARS	dPhiNH(i,j,bi,bj) = 0. _d 0
./model/src/ini_nh_vars.F	52	INI_NH_VARS	DO j=1-OLy,sNy+OLy
./model/src/ini_nh_vars.F	54	INI_NH_VARS	phi_nh(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_nh_vars.F	55	INI_NH_VARS	gW (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_nh_vars.F	57	INI_NH_VARS	gWnm (i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_nh_vars.F	58	INI_NH_VARS	gWnm (i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_nh_vars.F	60	INI_NH_VARS	gWnm1(i,j,k,bi,bj) = 0. _d 0
./pkg/zonal_filt/zonal_filter.F	100	ZONAL_FILTER	field(i,j,k) = phi(sNx+i)
./pkg/zonal_filt/zonal_filter.F	103	ZONAL_FILTER	field(i,j,k) = phi(i)
./pkg/zonal_filt/zonal_filter.F	106	ZONAL_FILTER	field(i,j,k) = phi(i-sNx)
./pkg/zonal_filt/zonal_filter.F	54	ZONAL_FILTER	INTEGER i, j, k
./pkg/zonal_filt/zonal_filter.F	57	ZONAL_FILTER	DO j=jMin, jMax
./pkg/zonal_filt/zonal_filter.F	58	ZONAL_FILTER	IF ( (gridLoc.EQ.1 .AND.ABS(yC(1,j,bi,bj)).GE.zonal_filt_lat)
./pkg/zonal_filt/zonal_filter.F	59	ZONAL_FILTER	& .OR.(gridLoc.EQ.2 .AND.ABS(yG(2,j,bi,bj)).GE.zonal_filt_lat)
./pkg/zonal_filt/zonal_filter.F	64	ZONAL_FILTER	phi(i) = field(i,j,k)
./pkg/zonal_filt/zonal_filter.F	65	ZONAL_FILTER	phiMask(i) = fieldMask(i,j,k)
./pkg/zonal_filt/zonal_filter.F	79	ZONAL_FILTER	phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filter.F	83	ZONAL_FILTER	phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)
./model/src/ini_nlfs_vars.F	104	INI_NLFS_VARS	DO j=1-OLy,sNy+OLy
./model/src/ini_nlfs_vars.F	106	INI_NLFS_VARS	etaHw (i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	107	INI_NLFS_VARS	etaHs (i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	108	INI_NLFS_VARS	dEtaWdt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	109	INI_NLFS_VARS	dEtaSdt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	115	INI_NLFS_VARS	DO j=1-OLy,sNy+OLy
./model/src/ini_nlfs_vars.F	117	INI_NLFS_VARS	hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F	118	INI_NLFS_VARS	hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F	119	INI_NLFS_VARS	hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F	138	INI_NLFS_VARS	DO j=1,sNy
./model/src/ini_nlfs_vars.F	140	INI_NLFS_VARS	ks = kSurfC(i,j,bi,bj)
./model/src/ini_nlfs_vars.F	143	INI_NLFS_VARS	IF ( ks.EQ.kSurfW(i,j,bi,bj))
./model/src/ini_nlfs_vars.F	144	INI_NLFS_VARS	& Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj))
./model/src/ini_nlfs_vars.F	145	INI_NLFS_VARS	IF ( ks.EQ.kSurfW(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F	146	INI_NLFS_VARS	& Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F	147	INI_NLFS_VARS	IF ( ks.EQ.kSurfS(i,j,bi,bj))
./model/src/ini_nlfs_vars.F	148	INI_NLFS_VARS	& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj))
./model/src/ini_nlfs_vars.F	149	INI_NLFS_VARS	IF ( ks.EQ.kSurfS(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F	150	INI_NLFS_VARS	& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F	152	INI_NLFS_VARS	Rmin_surf(i,j,bi,bj) =
./model/src/ini_nlfs_vars.F	153	INI_NLFS_VARS	& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks),
./model/src/ini_nlfs_vars.F	38	INI_NLFS_VARS	INTEGER i, j
./model/src/ini_nlfs_vars.F	43	INI_NLFS_VARS	INTEGER i, j
./model/src/ini_nlfs_vars.F	61	INI_NLFS_VARS	DO j=1-OLy,sNy+OLy
./model/src/ini_nlfs_vars.F	63	INI_NLFS_VARS	etaHnm1(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	64	INI_NLFS_VARS	dEtaHdt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	65	INI_NLFS_VARS	PmEpR (i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	72	INI_NLFS_VARS	DO j=1-OLy,sNy+OLy
./model/src/ini_nlfs_vars.F	74	INI_NLFS_VARS	hFac_surfC(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	75	INI_NLFS_VARS	hFac_surfW(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	76	INI_NLFS_VARS	hFac_surfS(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	77	INI_NLFS_VARS	hFac_surfNm1C(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	78	INI_NLFS_VARS	hFac_surfNm1W(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	79	INI_NLFS_VARS	hFac_surfNm1S(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	80	INI_NLFS_VARS	Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_nlfs_vars.F	85	INI_NLFS_VARS	DO j=1-OLy,sNy+OLy
./model/src/ini_nlfs_vars.F	87	INI_NLFS_VARS	rStarFacC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	88	INI_NLFS_VARS	rStarFacW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	89	INI_NLFS_VARS	rStarFacS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	90	INI_NLFS_VARS	pStarFacK(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	91	INI_NLFS_VARS	rStarFacNm1C(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	92	INI_NLFS_VARS	rStarFacNm1W(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	93	INI_NLFS_VARS	rStarFacNm1S(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	94	INI_NLFS_VARS	rStarExpC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	95	INI_NLFS_VARS	rStarExpW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	96	INI_NLFS_VARS	rStarExpS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F	97	INI_NLFS_VARS	rStarDhCDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	98	INI_NLFS_VARS	rStarDhWDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F	99	INI_NLFS_VARS	rStarDhSDt(i,j,bi,bj) = 0.
./model/src/ini_p_ground.F	105	INI_P_GROUND	DO j=1,sNy
./model/src/ini_p_ground.F	109	INI_P_GROUND	IF (Hfld(i,j,bi,bj).GE.hRef(K)) Ks = K
./model/src/ini_p_ground.F	112	INI_P_GROUND	& (Hfld(i,j,bi,bj)-hRef(Ks))/(hRef(Ks+1)-hRef(Ks))
./model/src/ini_p_ground.F	116	INI_P_GROUND	Pfld(i,j,bi,bj) = Po_surf
./model/src/ini_p_ground.F	153	INI_P_GROUND	DO j=1,61
./model/src/ini_p_ground.F	154	INI_P_GROUND	yLatLoc =-90.+(j-1)*3.
./model/src/ini_p_ground.F	156	INI_P_GROUND	& tmpVar(1,j), nLevHvR, mythid)
./model/src/ini_p_ground.F	177	INI_P_GROUND	DO j=1,sNy
./model/src/ini_p_ground.F	179	INI_P_GROUND	IF ( Hfld(i,j,bi,bj) .LE. 0. _d 0) THEN
./model/src/ini_p_ground.F	180	INI_P_GROUND	Pfld(i,j,bi,bj) = Ro_SeaLevel
./model/src/ini_p_ground.F	182	INI_P_GROUND	yLatLoc = yC(i,j,bi,bj)
./model/src/ini_p_ground.F	190	INI_P_GROUND	IF ( Hfld(i,j,bi,bj) .LE. zLoc+dzLoc ) THEN
./model/src/ini_p_ground.F	193	INI_P_GROUND	& - gravity*(Hfld(i,j,bi,bj)-zLoc)/thetaHvR(k)
./model/src/ini_p_ground.F	207	INI_P_GROUND	& ' selectMode,i,j,bi,bj=',selectMode,i,j,bi,bj
./model/src/ini_p_ground.F	210	INI_P_GROUND	& 'INI_P_GROUND: Hfld=', Hfld(i,j,bi,bj), ' exceeds',
./model/src/ini_p_ground.F	215	INI_P_GROUND	Pfld(i,j,bi,bj) = psNorm*atm_Po
./model/src/ini_p_ground.F	226	INI_P_GROUND	DO j=1,sNy
./model/src/ini_p_ground.F	228	INI_P_GROUND	Po_surf = Pfld(i,j,bi,bj)
./model/src/ini_p_ground.F	246	INI_P_GROUND	Pfld(i,j,bi,bj) = Po_surf
./model/src/ini_p_ground.F	269	INI_P_GROUND	DO j=1,sNy
./model/src/ini_p_ground.F	272	INI_P_GROUND	ks = kSurfC(i,j,bi,bj)
./model/src/ini_p_ground.F	277	INI_P_GROUND	IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k
./model/src/ini_p_ground.F	280	INI_P_GROUND	IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN
./model/src/ini_p_ground.F	283	INI_P_GROUND	& (Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2ks-1)-rHalf(2*ks))
./model/src/ini_p_ground.F	287	INI_P_GROUND	& (Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2ks+1)-rHalf(2*ks))
./model/src/ini_p_ground.F	289	INI_P_GROUND	Hfld(i,j,bi,bj) = phiLoc
./model/src/ini_p_ground.F	291	INI_P_GROUND	Hfld(i,j,bi,bj) = 0.
./model/src/ini_p_ground.F	304	INI_P_GROUND	DO j=1,sNy
./model/src/ini_p_ground.F	307	INI_P_GROUND	IF ( Pfld(i,j,bi,bj) .LT. Ro_SeaLevel) THEN
./model/src/ini_p_ground.F	308	INI_P_GROUND	Po_surf = Pfld(i,j,bi,bj)
./model/src/ini_p_ground.F	330	INI_P_GROUND	yLatLoc = yC(i,j,bi,bj)
./model/src/ini_p_ground.F	343	INI_P_GROUND	phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj))
./model/src/ini_p_ground.F	345	INI_P_GROUND	Hfld(i,j,bi,bj) = zLoc
./model/src/ini_p_ground.F	62	INI_P_GROUND	INTEGER bi,bj,i,j,K, Ks
./verification/OpenAD/code_ad_singlelayer/cost_test.F	35	COST_TEST	integer i, j, k
./verification/OpenAD/code_ad_singlelayer/cost_test.F	64	COST_TEST	do j=1,sNy
./verification/OpenAD/code_ad_singlelayer/cost_test.F	65	COST_TEST	jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/OpenAD/code_ad_singlelayer/cost_test.F	69	COST_TEST	objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj)
./verification/OpenAD/code_ad_singlelayer/cost_test.F	70	COST_TEST	& *( uVel(i,j,k,bi,bj) )
./verification/OpenAD/code_ad_singlelayer/cost_test.F	71	COST_TEST	& *( uVel(i,j,k,bi,bj) )
./model/src/ini_parms.F	1092	INI_PARMS	DO j=1,gridNy
./model/src/ini_parms.F	1093	INI_PARMS	delY(j) = dySpacing
./model/src/ini_parms.F	59	INI_PARMS	INTEGER k, i, j, iUnit
./model/src/ini_pressure.F	102	INI_PRESSURE	DO j=1-OLy,sNy+OLy
./model/src/ini_pressure.F	104	INI_PRESSURE	phiHydF(i,j) = 0. _d 0
./model/src/ini_pressure.F	109	INI_PRESSURE	DO j=jMin,jMax
./model/src/ini_pressure.F	111	INI_PRESSURE	oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj)
./model/src/ini_pressure.F	121	INI_PRESSURE	DO j=1,sNy
./model/src/ini_pressure.F	124	INI_PRESSURE	& + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2
./model/src/ini_pressure.F	125	INI_PRESSURE	& * maskC(i,j,k,bi,bj)
./model/src/ini_pressure.F	126	INI_PRESSURE	sumTile = sumTile + maskC(i,j,k,bi,bj)
./model/src/ini_pressure.F	45	INI_PRESSURE	INTEGER i, j, k
./model/src/ini_pressure.F	72	INI_PRESSURE	DO j=1-OLy,sNy+OLy
./model/src/ini_pressure.F	74	INI_PRESSURE	totPhiHyd(i,j,k,bi,bj) = 0. _d 0
./verification/advect_cs/code/ini_vel.F	36	INI_VEL	INTEGER bi,bj,i,j,k
./verification/advect_cs/code/ini_vel.F	41	INI_VEL	psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F	55	INI_VEL	DO j=1-Oly,sNy+Oly
./verification/advect_cs/code/ini_vel.F	56	INI_VEL	jp1=MIN(j+1,sNy+Oly)
./verification/advect_cs/code/ini_vel.F	59	INI_VEL	uVel(i,j,k,bi,bj)=0. _d 0
./verification/advect_cs/code/ini_vel.F	60	INI_VEL	& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F	61	INI_VEL	vVel(i,j,k,bi,bj)=0. _d 0
./verification/advect_cs/code/ini_vel.F	62	INI_VEL	& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F	84	INI_VEL	DO j=1-Oly,sNy+Oly
./verification/advect_cs/code/ini_vel.F	86	INI_VEL	uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./verification/advect_cs/code/ini_vel.F	87	INI_VEL	vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./verification/advect_xy/code/ini_salt.F	100	INI_SALT	IF ( maskC(i,j,k,bi,bj).NE.0.
./verification/advect_xy/code/ini_salt.F	101	INI_SALT	& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN
./verification/advect_xy/code/ini_salt.F	47	INI_SALT	INTEGER i, j, k, localWarnings
./verification/advect_xy/code/ini_salt.F	56	INI_SALT	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_salt.F	58	INI_SALT	salt(i,j,k,bi,bj) = sRef(k)
./verification/advect_xy/code/ini_salt.F	63	INI_SALT	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_salt.F	65	INI_SALT	rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_salt.F	66	INI_SALT	& +( yC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_salt.F	69	INI_SALT	IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0
./verification/advect_xy/code/ini_salt.F	91	INI_SALT	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_salt.F	93	INI_SALT	IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0.
./verification/advect_xy/code/ini_salt.F	98	INI_SALT	DO j=1,sNy
./verification/advect_xy/code/ini_theta.F	101	INI_THETA	IF ( maskC(i,j,k,bi,bj).NE.0.
./verification/advect_xy/code/ini_theta.F	102	INI_THETA	& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN
./verification/advect_xy/code/ini_theta.F	137	INI_THETA	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_theta.F	139	INI_THETA	IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./verification/advect_xy/code/ini_theta.F	140	INI_THETA	theta(i,j,k,bi,bj) = Tfreezing
./verification/advect_xy/code/ini_theta.F	47	INI_THETA	INTEGER i, j, k, localWarnings
./verification/advect_xy/code/ini_theta.F	57	INI_THETA	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_theta.F	59	INI_THETA	theta(i,j,k,bi,bj) = tRef(k)
./verification/advect_xy/code/ini_theta.F	64	INI_THETA	DO j=1,sNy
./verification/advect_xy/code/ini_theta.F	66	INI_THETA	rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_theta.F	67	INI_THETA	& +( yC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_theta.F	70	INI_THETA	theta(i,j,k,bi,bj) = EXP( -0.5 _d 0( rD/20. _d 3 )*2 )
./verification/advect_xy/code/ini_theta.F	92	INI_THETA	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_theta.F	94	INI_THETA	IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0.
./verification/advect_xy/code/ini_theta.F	99	INI_THETA	DO j=1,sNy
./verification/advect_xy/code/ini_vel.F	36	INI_VEL	INTEGER bi,bj,i,j,k
./verification/advect_xy/code/ini_vel.F	49	INI_VEL	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_vel.F	51	INI_VEL	uVel(i,j,k,bi,bj)=1. _d 0
./verification/advect_xy/code/ini_vel.F	52	INI_VEL	vVel(i,j,k,bi,bj)=1. _d 0
./verification/advect_xy/code/ini_vel.F	74	INI_VEL	DO j=1-Oly,sNy+Oly
./verification/advect_xy/code/ini_vel.F	76	INI_VEL	uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./verification/advect_xy/code/ini_vel.F	77	INI_VEL	vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./model/src/ini_psurf.F	86	INI_PSURF	DO j=1-Oly,sNy+Oly
./model/src/ini_psurf.F	88	INI_PSURF	etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/ini_psurf.F	89	INI_PSURF	etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/ini_psurf.F	90	INI_PSURF	dEtaHdt(i,j,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	117	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	119	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	120	AIM_SURF_BC	fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	157	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	159	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	160	AIM_SURF_BC	sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	161	AIM_SURF_BC	& + aim_sWght1*aim_sst1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	162	AIM_SURF_BC	stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	163	AIM_SURF_BC	& + aim_sWght1*aim_lst1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	175	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	177	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	178	AIM_SURF_BC	soilw_0 = ( aim_sw10(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	179	AIM_SURF_BC	& +aim_veget(i,j,bi,bj)*
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	180	AIM_SURF_BC	& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	182	AIM_SURF_BC	soilw_1 = ( aim_sw11(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	183	AIM_SURF_BC	& +aim_veget(i,j,bi,bj)*
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	184	AIM_SURF_BC	& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	193	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	195	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	196	AIM_SURF_BC	snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	197	AIM_SURF_BC	& + aim_sWght1*aim_snw1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	198	AIM_SURF_BC	oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	199	AIM_SURF_BC	& + aim_sWght1*aim_oic1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	236	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	242	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	243	AIM_SURF_BC	alb_land = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	244	AIM_SURF_BC	& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	251	AIM_SURF_BC	SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	252	AIM_SURF_BC	CJ = COS(yC(i,j,bi,bj) * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	300	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	302	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	303	AIM_SURF_BC	alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	304	AIM_SURF_BC	alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	305	AIM_SURF_BC	alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	309	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	311	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	320	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	322	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	323	AIM_SURF_BC	sst1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	324	AIM_SURF_BC	stl1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	325	AIM_SURF_BC	sti1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	329	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	331	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	337	AIM_SURF_BC	& +20. _d 0 exp( -((xC(i,j,bi,bj)-xBump)/dxBump)*2
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	338	AIM_SURF_BC	& -((yC(i,j,bi,bj)-yBump)/dyBump)**2 )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	355	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	357	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	358	AIM_SURF_BC	soilw1(I2,myThid) = aim_sw10(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	362	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	364	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	372	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	374	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	395	AIM_SURF_BC	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	397	AIM_SURF_BC	I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F	92	AIM_SURF_BC	INTEGER i,j,I2,k, nm0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	101	INI_DEPTHS	R_low(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	164	INI_DEPTHS	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	166	INI_DEPTHS	Ro_surf(i,j,bi,bj) = rF(1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	206	INI_DEPTHS	DO j=1,sNy
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	208	INI_DEPTHS	Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	230	INI_DEPTHS	DO j=1-Oly,sNy+Oly
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	233	INI_DEPTHS	jG = myYGlobalLo-1+(bj-1)*sNy+j
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	240	INI_DEPTHS	& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	241	INI_DEPTHS	& Ro_surf(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	243	INI_DEPTHS	& ABS(yC(i,j,bi,bj)).GE.90. )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	244	INI_DEPTHS	& Ro_surf(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	252	INI_DEPTHS	DO j=1-Oly,sNy+Oly
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	255	INI_DEPTHS	jG = myYGlobalLo-1+(bj-1)*sNy+j
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	262	INI_DEPTHS	& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	263	INI_DEPTHS	& R_low(i,j,bi,bj) = rF(1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	265	INI_DEPTHS	& ABS(yC(i,j,bi,bj)).GE.90. )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	266	INI_DEPTHS	& R_low(i,j,bi,bj) = rF(1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	59	INI_DEPTHS	INTEGER i, j
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	77	INI_DEPTHS	DO j=1-Oly,sNy+Oly
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	79	INI_DEPTHS	R_low(i,j,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	80	INI_DEPTHS	Ro_surf(i,j,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	81	INI_DEPTHS	topoZ(i,j,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F	99	INI_DEPTHS	DO j=1,sNy
./model/src/ini_salt.F	101	INI_SALT	IF ( maskC(i,j,k,bi,bj).NE.0.
./model/src/ini_salt.F	102	INI_SALT	& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/ini_salt.F	51	INI_SALT	INTEGER i, j, k, localWarnings
./model/src/ini_salt.F	59	INI_SALT	DO j=1-Oly,sNy+Oly
./model/src/ini_salt.F	61	INI_SALT	salt(i,j,k,bi,bj) = sRef(k)
./model/src/ini_salt.F	92	INI_SALT	DO j=1-Oly,sNy+Oly
./model/src/ini_salt.F	94	INI_SALT	IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0.
./model/src/ini_salt.F	99	INI_SALT	DO j=1,sNy
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	40	MOM_VI_HFACZ_DISS	DO j=2-Oly,sNy+Oly
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	41	MOM_VI_HFACZ_DISS	hFacZ(1-Olx,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	42	MOM_VI_HFACZ_DISS	r_hFacZ(1-Olx,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	44	MOM_VI_HFACZ_DISS	hFacZOpen=MIN(_hFacW(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	45	MOM_VI_HFACZ_DISS	& + _hFacW(i,j-1,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	46	MOM_VI_HFACZ_DISS	& , _hFacS(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	47	MOM_VI_HFACZ_DISS	& + _hFacS(i-1,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	49	MOM_VI_HFACZ_DISS	hFacZ(i,j)=0.5*hFacZOpen
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	50	MOM_VI_HFACZ_DISS	IF (hFacZ(i,j).EQ.0.) THEN
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	51	MOM_VI_HFACZ_DISS	r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	53	MOM_VI_HFACZ_DISS	r_hFacZ(i,j)=1./hFacZ(i,j)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	62	MOM_VI_HFACZ_DISS	DO j=1,sNy+1,sNy
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	64	MOM_VI_HFACZ_DISS	hFacZOpen=MIN( _hFacW(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	65	MOM_VI_HFACZ_DISS	& , _hFacW(i,j-1,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	66	MOM_VI_HFACZ_DISS	& , _hFacS(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	67	MOM_VI_HFACZ_DISS	& , _hFacS(i-1,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	69	MOM_VI_HFACZ_DISS	hFacZ(i,j)=hFacZOpen
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	71	MOM_VI_HFACZ_DISS	r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F	73	MOM_VI_HFACZ_DISS	r_hFacZ(i,j)=1./hFacZOpen
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	39	MOM_VI_MASK_VORT3	DO j=2-Oly,sNy+Oly
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	43	MOM_VI_MASK_VORT3	hFacZOpen=min(_hFacW(i,j,k,bi,bj),
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	44	MOM_VI_MASK_VORT3	& _hFacW(i,j-1,k,bi,bj))
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	45	MOM_VI_MASK_VORT3	hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	46	MOM_VI_MASK_VORT3	hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	47	MOM_VI_MASK_VORT3	hFacZ(i,j)=hFacZOpen
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	48	MOM_VI_MASK_VORT3	IF (hFacZ(i,j).EQ.0.) THEN
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	49	MOM_VI_MASK_VORT3	r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	50	MOM_VI_MASK_VORT3	vort3(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F	52	MOM_VI_MASK_VORT3	r_hFacZ(i,j)=1./hFacZ(i,j)
./verification/bottom_ctrl_5x5/code_ad/cost_test.F	32	COST_TEST	integer i, j, k
./model/src/ini_sigma_hfac.F	102	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	104	INI_SIGMA_HFAC	IF ( maskInC(i,j,bi,bj).NE.0. _d 0 ) THEN
./model/src/ini_sigma_hfac.F	106	INI_SIGMA_HFAC	& + dBHybSigF(k)*tmpFld(i,j)
./model/src/ini_sigma_hfac.F	108	INI_SIGMA_HFAC	hFacC(i,j,k,bi,bj) = hFactmp
./model/src/ini_sigma_hfac.F	111	INI_SIGMA_HFAC	hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_sigma_hfac.F	135	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	136	INI_SIGMA_HFAC	rSurfW(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	137	INI_SIGMA_HFAC	rLowW (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	138	INI_SIGMA_HFAC	maskInW(i,j,bi,bj)= 0.
./model/src/ini_sigma_hfac.F	140	INI_SIGMA_HFAC	j = 1-Oly
./model/src/ini_sigma_hfac.F	142	INI_SIGMA_HFAC	rSurfS(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	143	INI_SIGMA_HFAC	rLowS (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	144	INI_SIGMA_HFAC	maskInS(i,j,bi,bj)= 0.
./model/src/ini_sigma_hfac.F	146	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	148	INI_SIGMA_HFAC	maskInW(i,j,bi,bj)= maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/ini_sigma_hfac.F	149	INI_SIGMA_HFAC	rSurfW(i,j,bi,bj) =
./model/src/ini_sigma_hfac.F	150	INI_SIGMA_HFAC	& ( Ro_surf(i-1,j,bi,bj)
./model/src/ini_sigma_hfac.F	151	INI_SIGMA_HFAC	& + Ro_surf( i, j,bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F	152	INI_SIGMA_HFAC	rLowW(i,j,bi,bj) =
./model/src/ini_sigma_hfac.F	153	INI_SIGMA_HFAC	& ( R_low(i-1,j,bi,bj)
./model/src/ini_sigma_hfac.F	154	INI_SIGMA_HFAC	& + R_low( i, j,bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F	163	INI_SIGMA_HFAC	IF ( maskInW(i,j,bi,bj).EQ.0. ) THEN
./model/src/ini_sigma_hfac.F	164	INI_SIGMA_HFAC	rSurfW(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	165	INI_SIGMA_HFAC	rLowW (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	169	INI_SIGMA_HFAC	DO j=2-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	171	INI_SIGMA_HFAC	maskInS(i,j,bi,bj)= maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj)
./model/src/ini_sigma_hfac.F	172	INI_SIGMA_HFAC	rSurfS(i,j,bi,bj) =
./model/src/ini_sigma_hfac.F	173	INI_SIGMA_HFAC	& ( Ro_surf(i,j-1,bi,bj)
./model/src/ini_sigma_hfac.F	174	INI_SIGMA_HFAC	& + Ro_surf(i, j, bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F	175	INI_SIGMA_HFAC	rLowS(i,j,bi,bj) =
./model/src/ini_sigma_hfac.F	176	INI_SIGMA_HFAC	& ( R_low(i,j-1,bi,bj)
./model/src/ini_sigma_hfac.F	177	INI_SIGMA_HFAC	& + R_low(i, j, bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F	186	INI_SIGMA_HFAC	IF ( maskInS(i,j,bi,bj).EQ.0. ) THEN
./model/src/ini_sigma_hfac.F	187	INI_SIGMA_HFAC	rSurfS(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	188	INI_SIGMA_HFAC	rLowS (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	203	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	205	INI_SIGMA_HFAC	IF (dyG(i,j,bi,bj).EQ.0.) maskInW(i,j,bi,bj) = 0.
./model/src/ini_sigma_hfac.F	206	INI_SIGMA_HFAC	IF (dxG(i,j,bi,bj).EQ.0.) maskInS(i,j,bi,bj) = 0.
./model/src/ini_sigma_hfac.F	216	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	220	INI_SIGMA_HFAC	& + dBHybSigF(k)*( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) )
./model/src/ini_sigma_hfac.F	222	INI_SIGMA_HFAC	hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj)
./model/src/ini_sigma_hfac.F	227	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	231	INI_SIGMA_HFAC	& + dBHybSigF(k)*( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) )
./model/src/ini_sigma_hfac.F	233	INI_SIGMA_HFAC	hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj)
./model/src/ini_sigma_hfac.F	238	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	240	INI_SIGMA_HFAC	kSurfW(i,j,bi,bj) = Nr+1
./model/src/ini_sigma_hfac.F	241	INI_SIGMA_HFAC	kSurfS(i,j,bi,bj) = Nr+1
./model/src/ini_sigma_hfac.F	242	INI_SIGMA_HFAC	IF ( maskInW(i,j,bi,bj).NE.0. ) kSurfW(i,j,bi,bj) = 1
./model/src/ini_sigma_hfac.F	243	INI_SIGMA_HFAC	IF ( maskInS(i,j,bi,bj).NE.0. ) kSurfS(i,j,bi,bj) = 1
./model/src/ini_sigma_hfac.F	45	INI_SIGMA_HFAC	INTEGER i, j, k
./model/src/ini_sigma_hfac.F	69	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	71	INI_SIGMA_HFAC	tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)
./model/src/ini_sigma_hfac.F	73	INI_SIGMA_HFAC	IF ( tmpFld(i,j).LT.hFacInf*rFullDepth )
./model/src/ini_sigma_hfac.F	74	INI_SIGMA_HFAC	& tmpFld(i,j) = 0. _d 0
./model/src/ini_sigma_hfac.F	83	INI_SIGMA_HFAC	DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F	85	INI_SIGMA_HFAC	IF ( tmpFld(i,j).GT.0. _d 0 ) THEN
./model/src/ini_sigma_hfac.F	86	INI_SIGMA_HFAC	kSurfC (i,j,bi,bj) = 1
./model/src/ini_sigma_hfac.F	87	INI_SIGMA_HFAC	kLowC (i,j,bi,bj) = Nr
./model/src/ini_sigma_hfac.F	88	INI_SIGMA_HFAC	maskInC(i,j,bi,bj) = 1.
./model/src/ini_sigma_hfac.F	89	INI_SIGMA_HFAC	recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j)
./model/src/ini_sigma_hfac.F	91	INI_SIGMA_HFAC	kSurfC (i,j,bi,bj) = Nr+1
./model/src/ini_sigma_hfac.F	92	INI_SIGMA_HFAC	kLowC (i,j,bi,bj) = 0
./model/src/ini_sigma_hfac.F	93	INI_SIGMA_HFAC	maskInC(i,j,bi,bj) = 0.
./model/src/ini_sigma_hfac.F	94	INI_SIGMA_HFAC	recip_Rcol(i,j,bi,bj) = 0. _d 0
./model/src/ini_sigma_hfac.F	95	INI_SIGMA_HFAC	Ro_surf(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F	96	INI_SIGMA_HFAC	R_low(i,j,bi,bj) = rEmpty
./model/src/ini_spherical_polar_grid.F	103	INI_SPHERICAL_POLAR_GRID	lat = yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F	105	INI_SPHERICAL_POLAR_GRID	dlat = delYloc(j)
./model/src/ini_spherical_polar_grid.F	106	INI_SPHERICAL_POLAR_GRID	dxF(i,j,bi,bj) = rSphereCOS(latdeg2rad)dlondeg2rad
./model/src/ini_spherical_polar_grid.F	107	INI_SPHERICAL_POLAR_GRID	dyF(i,j,bi,bj) = rSpheredlatdeg2rad
./model/src/ini_spherical_polar_grid.F	112	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	118	INI_SPHERICAL_POLAR_GRID	lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F	120	INI_SPHERICAL_POLAR_GRID	dlat = delYloc(j)
./model/src/ini_spherical_polar_grid.F	121	INI_SPHERICAL_POLAR_GRID	dxG(i,j,bi,bj) = rSphereCOS(deg2radlat)dlondeg2rad
./model/src/ini_spherical_polar_grid.F	122	INI_SPHERICAL_POLAR_GRID	IF (dxG(i,j,bi,bj).LT.1.) dxG(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F	123	INI_SPHERICAL_POLAR_GRID	dyG(i,j,bi,bj) = rSpheredlatdeg2rad
./model/src/ini_spherical_polar_grid.F	143	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	146	INI_SPHERICAL_POLAR_GRID	dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F	159	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy+1,sNy+OLy ! NOTE range
./model/src/ini_spherical_polar_grid.F	162	INI_SPHERICAL_POLAR_GRID	dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_spherical_polar_grid.F	173	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy+1,sNy+OLy ! NOTE range
./model/src/ini_spherical_polar_grid.F	176	INI_SPHERICAL_POLAR_GRID	dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F	177	INI_SPHERICAL_POLAR_GRID	dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_spherical_polar_grid.F	185	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	187	INI_SPHERICAL_POLAR_GRID	lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F	189	INI_SPHERICAL_POLAR_GRID	dlat = delYloc(j)
./model/src/ini_spherical_polar_grid.F	190	INI_SPHERICAL_POLAR_GRID	rA(i,j,bi,bj) = rSphererSpheredlon*deg2rad
./model/src/ini_spherical_polar_grid.F	193	INI_SPHERICAL_POLAR_GRID	lat = yC(i,j,bi,bj) - delYloc(j)*0.5 _d 0
./model/src/ini_spherical_polar_grid.F	194	INI_SPHERICAL_POLAR_GRID	dlat= yC(i,j,bi,bj) + delYloc(j)*0.5 _d 0
./model/src/ini_spherical_polar_grid.F	195	INI_SPHERICAL_POLAR_GRID	rA(i,j,bi,bj) = dyF(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F	202	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	205	INI_SPHERICAL_POLAR_GRID	rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F	216	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	219	INI_SPHERICAL_POLAR_GRID	lat=yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F	221	INI_SPHERICAL_POLAR_GRID	dlat = 0.5 _d 0*( delYloc(j) + delYloc(j-1) )
./model/src/ini_spherical_polar_grid.F	223	INI_SPHERICAL_POLAR_GRID	dlat= delYloc(j)
./model/src/ini_spherical_polar_grid.F	225	INI_SPHERICAL_POLAR_GRID	rAs(i,j,bi,bj) = rSphererSpheredlon*deg2rad
./model/src/ini_spherical_polar_grid.F	227	INI_SPHERICAL_POLAR_GRID	IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAs(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F	232	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	235	INI_SPHERICAL_POLAR_GRID	lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F	237	INI_SPHERICAL_POLAR_GRID	dlat = 0.5 _d 0*( delYloc(j) + delYloc(j-1) )
./model/src/ini_spherical_polar_grid.F	238	INI_SPHERICAL_POLAR_GRID	rAz(i,j,bi,bj) = rSphererSpheredlon*deg2rad
./model/src/ini_spherical_polar_grid.F	240	INI_SPHERICAL_POLAR_GRID	IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAz(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F	245	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	247	INI_SPHERICAL_POLAR_GRID	lat=0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F	248	INI_SPHERICAL_POLAR_GRID	tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F	249	INI_SPHERICAL_POLAR_GRID	lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F	250	INI_SPHERICAL_POLAR_GRID	tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F	258	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	261	INI_SPHERICAL_POLAR_GRID	lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F	262	INI_SPHERICAL_POLAR_GRID	cosFacU(j,bi,bj) = ABS( COS(latdeg2rad) )*cosPower
./model/src/ini_spherical_polar_grid.F	263	INI_SPHERICAL_POLAR_GRID	lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F	264	INI_SPHERICAL_POLAR_GRID	cosFacV(j,bi,bj) = ABS( COS(latdeg2rad) )*cosPower
./model/src/ini_spherical_polar_grid.F	265	INI_SPHERICAL_POLAR_GRID	sqcosFacU(j,bi,bj) = SQRT(cosFacU(j,bi,bj))
./model/src/ini_spherical_polar_grid.F	266	INI_SPHERICAL_POLAR_GRID	sqcosFacV(j,bi,bj) = SQRT(cosFacV(j,bi,bj))
./model/src/ini_spherical_polar_grid.F	268	INI_SPHERICAL_POLAR_GRID	cosFacU(j,bi,bj) = 1.
./model/src/ini_spherical_polar_grid.F	269	INI_SPHERICAL_POLAR_GRID	cosFacV(j,bi,bj) = 1.
./model/src/ini_spherical_polar_grid.F	270	INI_SPHERICAL_POLAR_GRID	sqcosFacU(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F	271	INI_SPHERICAL_POLAR_GRID	sqcosFacV(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F	54	INI_SPHERICAL_POLAR_GRID	INTEGER i, j
./model/src/ini_spherical_polar_grid.F	78	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	80	INI_SPHERICAL_POLAR_GRID	xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_spherical_polar_grid.F	81	INI_SPHERICAL_POLAR_GRID	yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_spherical_polar_grid.F	86	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F	89	INI_SPHERICAL_POLAR_GRID	xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_spherical_polar_grid.F	90	INI_SPHERICAL_POLAR_GRID	& xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) )
./model/src/ini_spherical_polar_grid.F	91	INI_SPHERICAL_POLAR_GRID	yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_spherical_polar_grid.F	92	INI_SPHERICAL_POLAR_GRID	& yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) )
./model/src/ini_spherical_polar_grid.F	97	INI_SPHERICAL_POLAR_GRID	DO j=1-OLy,sNy+OLy
./model/src/ini_theta.F	100	INI_THETA	DO j=1,sNy
./model/src/ini_theta.F	102	INI_THETA	IF ( maskC(i,j,k,bi,bj).NE.0.
./model/src/ini_theta.F	103	INI_THETA	& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/ini_theta.F	138	INI_THETA	DO j=1-OLy,sNy+OLy
./model/src/ini_theta.F	140	INI_THETA	IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/ini_theta.F	141	INI_THETA	theta(i,j,k,bi,bj) = Tfreezing
./model/src/ini_theta.F	51	INI_THETA	INTEGER i, j, k, localWarnings
./model/src/ini_theta.F	60	INI_THETA	DO j=1-OLy,sNy+OLy
./model/src/ini_theta.F	62	INI_THETA	theta(i,j,k,bi,bj) = tRef(k)
./model/src/ini_theta.F	93	INI_THETA	DO j=1-OLy,sNy+OLy
./model/src/ini_theta.F	95	INI_THETA	IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0.
./model/src/ini_vel.F	36	INI_VEL	INTEGER bi,bj,i,j,k
./model/src/ini_vel.F	49	INI_VEL	DO j=1-Oly,sNy+Oly
./model/src/ini_vel.F	51	INI_VEL	uVel(i,j,k,bi,bj)=0. _d 0
./model/src/ini_vel.F	52	INI_VEL	vVel(i,j,k,bi,bj)=0. _d 0
./model/src/ini_vel.F	73	INI_VEL	DO j=1-Oly,sNy+Oly
./model/src/ini_vel.F	75	INI_VEL	uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./model/src/ini_vel.F	76	INI_VEL	vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./verification/dome/code/obcs_calc.F	81	OBCS_CALC	do j=2,nr
./verification/dome/code/obcs_calc.F	85	OBCS_CALC	z(j) = z(j-1) - delR(j)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	123	FIZHI_INIT_FIXED	do j=jm1,jm2
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	125	FIZHI_INIT_FIXED	phis_var(i,j,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	40	FIZHI_INIT_FIXED	INTEGER i,j,L,bi,bj
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	74	FIZHI_INIT_FIXED	do j = jm1,jm2
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	76	FIZHI_INIT_FIXED	lons(i,j,bi,bj) = xC(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	77	FIZHI_INIT_FIXED	lats(i,j,bi,bj) = yC(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	92	FIZHI_INIT_FIXED	do j=jm1,jm2
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	94	FIZHI_INIT_FIXED	landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	95	FIZHI_INIT_FIXED	if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	96	FIZHI_INIT_FIXED	& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F	97	FIZHI_INIT_FIXED	if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	120	FIZHI_INIT_VEG	do j=1,jm
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	122	FIZHI_INIT_VEG	if(surftype(i,j,k,bi,bj).ge.100 .and.
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	123	FIZHI_INIT_VEG	& tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	125	FIZHI_INIT_VEG	igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	126	FIZHI_INIT_VEG	ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	127	FIZHI_INIT_VEG	chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	128	FIZHI_INIT_VEG	chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	129	FIZHI_INIT_VEG	chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	67	FIZHI_INIT_VEG	INTEGER i,j,k,bi,bj
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	75	FIZHI_INIT_VEG	do j = 1,jm
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	77	FIZHI_INIT_VEG	surftype(i,j,1,bi,bj) = 100
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	78	FIZHI_INIT_VEG	tilefrac(i,j,1,bi,bj) = 0.99 _d 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	79	FIZHI_INIT_VEG	surftype(i,j,2,bi,bj) = 100
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	80	FIZHI_INIT_VEG	tilefrac(i,j,2,bi,bj) = 0.01 _d 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	84	FIZHI_INIT_VEG	do j = 1,jm
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	86	FIZHI_INIT_VEG	surftype(i,j,k,bi,bj) = 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F	87	FIZHI_INIT_VEG	tilefrac(i,j,k,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/ini_salt.F	108	INI_SALT	call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj),
./verification/fizhi-cs-aqualev20/code/ini_salt.F	110	INI_SALT	salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	102	UPDATE_OCEAN_EXPORTS	do j=jm1,jm2
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	104	UPDATE_OCEAN_EXPORTS	if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin)
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	105	UPDATE_OCEAN_EXPORTS	. sst(i,j,bi,bj) = sstmin
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	180	GETSICE	integer i,j
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	182	GETSICE	do j = jm1,jm2
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	184	GETSICE	sice(i,j,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	257	GETSST	integer i,j
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	266	GETSST	do j = jm1,jm2
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	269	GETSST	if( abs(yc(i,j,bi,bj)*deg2rad) .lt. pio3 ) then
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	270	GETSST	sinarg = 3.yc(i,j,bi,bj)deg2rad/2.
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	271	GETSST	sst(i,j,bi,bj) = 273.16 + 27.(1.-(sin(sinarg)sin(sinarg)))
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	273	GETSST	sst(i,j,bi,bj) = 273.16
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F	34	UPDATE_OCEAN_EXPORTS	integer i, j, bi, bj, bislot, bjslot
./verification/fizhi-gridalt-hs/code/do_fizhi.F	131	DO_FIZHI	INTEGER i,j,L
./verification/fizhi-gridalt-hs/code/do_fizhi.F	171	DO_FIZHI	do j = jm1,jm2
./verification/fizhi-gridalt-hs/code/do_fizhi.F	173	DO_FIZHI	recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F	175	DO_FIZHI	termP=0.5 _d 0*((pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))
./verification/fizhi-gridalt-hs/code/do_fizhi.F	178	DO_FIZHI	duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F	179	DO_FIZHI	dvphy(i,j,L,bi,bj)= -kV*vphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F	184	DO_FIZHI	termP=0.5 _d 0*( pephy(i,j,L,bi,bj) + pephy(i,j,L+1,bi,bj) )
./verification/fizhi-gridalt-hs/code/do_fizhi.F	195	DO_FIZHI	dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq )
./verification/fizhi-gridalt-hs/code/do_fizhi.F	197	DO_FIZHI	dthphy(i,j,L,bi,bj)=0.
./verification/fizhi-gridalt-hs/code/do_fizhi.F	202	DO_FIZHI	dsphy(i,j,L,bi,bj)=0.
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	123	FIZHI_INIT_FIXED	do j=jm1,jm2
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	125	FIZHI_INIT_FIXED	phis_var(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	40	FIZHI_INIT_FIXED	INTEGER i,j,L,bi,bj
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	74	FIZHI_INIT_FIXED	do j = jm1,jm2
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	76	FIZHI_INIT_FIXED	lons(i,j,bi,bj) = xC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	77	FIZHI_INIT_FIXED	lats(i,j,bi,bj) = yC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	92	FIZHI_INIT_FIXED	do j=jm1,jm2
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	94	FIZHI_INIT_FIXED	landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	95	FIZHI_INIT_FIXED	if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	96	FIZHI_INIT_FIXED	& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F	97	FIZHI_INIT_FIXED	if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	102	FIZHI_INIT_VARS	if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	103	FIZHI_INIT_VARS	& pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	107	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	109	FIZHI_INIT_VARS	pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	111	FIZHI_INIT_VARS	pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	114	FIZHI_INIT_VARS	if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	115	FIZHI_INIT_VARS	& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	123	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	125	FIZHI_INIT_VARS	windphy(i,j,L,bi,bj) = 0.025 *
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	126	FIZHI_INIT_VARS	& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	147	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	149	FIZHI_INIT_VARS	uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	156	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	158	FIZHI_INIT_VARS	vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	165	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	167	FIZHI_INIT_VARS	thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	175	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	177	FIZHI_INIT_VARS	sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	184	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	186	FIZHI_INIT_VARS	duphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	187	FIZHI_INIT_VARS	dvphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	188	FIZHI_INIT_VARS	dthphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	189	FIZHI_INIT_VARS	dsphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	196	FIZHI_INIT_VARS	do j = jm1,jm2
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	198	FIZHI_INIT_VARS	guphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	199	FIZHI_INIT_VARS	gvphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	200	FIZHI_INIT_VARS	gthphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	201	FIZHI_INIT_VARS	gsphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	253	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	255	FIZHI_INIT_VARS	swlz(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	256	FIZHI_INIT_VARS	lwlz(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	257	FIZHI_INIT_VARS	qliqavesw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	258	FIZHI_INIT_VARS	qliqavelw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	259	FIZHI_INIT_VARS	fccavesw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	260	FIZHI_INIT_VARS	fccavelw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	261	FIZHI_INIT_VARS	cldtot_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	262	FIZHI_INIT_VARS	cldras_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	263	FIZHI_INIT_VARS	cldlsp_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	264	FIZHI_INIT_VARS	cldtot_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	265	FIZHI_INIT_VARS	cldras_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	266	FIZHI_INIT_VARS	cldlsp_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	270	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	272	FIZHI_INIT_VARS	rainlsp(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	273	FIZHI_INIT_VARS	raincon(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	274	FIZHI_INIT_VARS	snowfall(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	48	FIZHI_INIT_VARS	INTEGER i, j, L, bi, bj, Lbotij
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	80	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	83	FIZHI_INIT_VARS	pedyn(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	87	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	89	FIZHI_INIT_VARS	Lbotij = kSurfC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	91	FIZHI_INIT_VARS	& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	94	FIZHI_INIT_VARS	do j = 1,sNy
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	96	FIZHI_INIT_VARS	Lbotij = kSurfC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	98	FIZHI_INIT_VARS	pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F	99	FIZHI_INIT_VARS	& drF(L-1)*hfacC(i,j,L-1,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	100	FIZHI_INIT_VEG	tilefrac(i,j,k,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	130	FIZHI_INIT_VEG	do j=1,jm
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	132	FIZHI_INIT_VEG	if(surftype(i,j,k,bi,bj).lt.100 .and.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	133	FIZHI_INIT_VEG	& tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	135	FIZHI_INIT_VEG	igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	136	FIZHI_INIT_VEG	ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	137	FIZHI_INIT_VEG	chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	138	FIZHI_INIT_VEG	chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	139	FIZHI_INIT_VEG	chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	148	FIZHI_INIT_VEG	do j=1,jm
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	150	FIZHI_INIT_VEG	if(surftype(i,j,k,bi,bj).ge.100 .and.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	151	FIZHI_INIT_VEG	& tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	153	FIZHI_INIT_VEG	igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	154	FIZHI_INIT_VEG	ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	155	FIZHI_INIT_VEG	chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	156	FIZHI_INIT_VEG	chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	157	FIZHI_INIT_VEG	chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	67	FIZHI_INIT_VEG	INTEGER i,j,k,bi,bj
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	81	FIZHI_INIT_VEG	do j = 1,jm
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	83	FIZHI_INIT_VEG	if(aim_landfr(i,j,bi,bj).gt.0.1) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	84	FIZHI_INIT_VEG	surftype(i,j,1,bi,bj) = 1
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	85	FIZHI_INIT_VEG	tilefrac(i,j,1,bi,bj) = 0.5 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	86	FIZHI_INIT_VEG	surftype(i,j,2,bi,bj) = 2
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	87	FIZHI_INIT_VEG	tilefrac(i,j,2,bi,bj) = 0.5 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	89	FIZHI_INIT_VEG	surftype(i,j,1,bi,bj) = 100
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	90	FIZHI_INIT_VEG	tilefrac(i,j,1,bi,bj) = 0.99 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	91	FIZHI_INIT_VEG	surftype(i,j,2,bi,bj) = 100
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	92	FIZHI_INIT_VEG	tilefrac(i,j,2,bi,bj) = 0.01 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	97	FIZHI_INIT_VEG	do j = 1,jm
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F	99	FIZHI_INIT_VEG	surftype(i,j,k,bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	134	FIZHI_TENDENCY_APPLY_T	integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	136	FIZHI_TENDENCY_APPLY_T	do j=jMin,jMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	138	FIZHI_TENDENCY_APPLY_T	gT_arr(i,j) = maskC(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	139	FIZHI_TENDENCY_APPLY_T	. *( gT_arr(i,j) + gthphy(i,j,kLev,bi,bj) )
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	180	FIZHI_TENDENCY_APPLY_S	integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	182	FIZHI_TENDENCY_APPLY_S	do j=jMin,jMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	184	FIZHI_TENDENCY_APPLY_S	gS_arr(i,j) = maskC(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	185	FIZHI_TENDENCY_APPLY_S	. *( gS_arr(i,j) + gsphy(i,j,kLev,bi,bj) )
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	41	FIZHI_TENDENCY_APPLY_U	integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	43	FIZHI_TENDENCY_APPLY_U	do j=jMin,jMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	45	FIZHI_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j) +
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	46	FIZHI_TENDENCY_APPLY_U	. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	88	FIZHI_TENDENCY_APPLY_V	integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	90	FIZHI_TENDENCY_APPLY_V	do j=jMin,jMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	92	FIZHI_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j) +
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F	93	FIZHI_TENDENCY_APPLY_V	. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	119	GETSICE	integer i,j
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	121	GETSICE	do j = jm1,jm2
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	123	GETSICE	sice(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	179	GETSST	integer i,j
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	181	GETSST	do j = jm1,jm2
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	183	GETSST	sst(i,j,bi,bj) = 280.
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	24	UPDATE_OCEAN_EXPORTS	integer i, j, bi, bj, biglobal, bjglobal
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	56	UPDATE_OCEAN_EXPORTS	do j=jm1,jm2
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	58	UPDATE_OCEAN_EXPORTS	if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin)
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F	59	UPDATE_OCEAN_EXPORTS	. sst(i,j,bi,bj) = sstmin
./model/src/integr_continuity.F	107	INTEGR_CONTINUITY	DO j=1,sNy+1
./model/src/integr_continuity.F	109	INTEGR_CONTINUITY	uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj)
./model/src/integr_continuity.F	111	INTEGR_CONTINUITY	& drF(k)_hFacW(i,j,k,bi,bj)
./model/src/integr_continuity.F	112	INTEGR_CONTINUITY	vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj)
./model/src/integr_continuity.F	114	INTEGR_CONTINUITY	& drF(k)_hFacS(i,j,k,bi,bj)
./model/src/integr_continuity.F	119	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	121	INTEGR_CONTINUITY	hDivFlow(i,j) = hDivFlow(i,j)
./model/src/integr_continuity.F	122	INTEGR_CONTINUITY	& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j)
./model/src/integr_continuity.F	123	INTEGR_CONTINUITY	& +vTrans(i,j+1)-vTrans(i,j) )
./model/src/integr_continuity.F	125	INTEGR_CONTINUITY	& -facMass*addMass(i,j,k,bi,bj)
./model/src/integr_continuity.F	142	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	144	INTEGR_CONTINUITY	dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./model/src/integr_continuity.F	150	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	152	INTEGR_CONTINUITY	PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)
./model/src/integr_continuity.F	153	INTEGR_CONTINUITY	& + hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F	155	INTEGR_CONTINUITY	PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass
./model/src/integr_continuity.F	159	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	162	INTEGR_CONTINUITY	PmEpR(i,j,bi,bj) = 0. _d 0
./model/src/integr_continuity.F	163	INTEGR_CONTINUITY	dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F	170	INTEGR_CONTINUITY	DO j=1-OLy,sNy+OLy
./model/src/integr_continuity.F	172	INTEGR_CONTINUITY	PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/integr_continuity.F	175	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	177	INTEGR_CONTINUITY	ks = kSurfC(i,j,bi,bj)
./model/src/integr_continuity.F	178	INTEGR_CONTINUITY	dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F	180	INTEGR_CONTINUITY	& -facEmP*EmPmR(i,j,bi,bj)
./model/src/integr_continuity.F	189	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	191	INTEGR_CONTINUITY	dEtaHdt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/integr_continuity.F	207	INTEGR_CONTINUITY	DO j=1-OLy,sNy+OLy
./model/src/integr_continuity.F	209	INTEGR_CONTINUITY	etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F	213	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	215	INTEGR_CONTINUITY	etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F	216	INTEGR_CONTINUITY	& + implicDiv2DflowdEtaHdt(i,j,bi,bj)deltaTfreesurf
./model/src/integr_continuity.F	239	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	241	INTEGR_CONTINUITY	ks = kSurfC(i,j,bi,bj)
./model/src/integr_continuity.F	242	INTEGR_CONTINUITY	rStarDhDt(i,j) = dEtaHdt(i,j,bi,bj)
./model/src/integr_continuity.F	244	INTEGR_CONTINUITY	& *recip_Rcol(i,j,bi,bj)
./model/src/integr_continuity.F	268	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	270	INTEGR_CONTINUITY	wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/integr_continuity.F	271	INTEGR_CONTINUITY	& +mass2rUnitPmEpR(i,j,bi,bj)maskC(i,j,k,bi,bj)
./model/src/integr_continuity.F	281	INTEGR_CONTINUITY	DO j=1,sNy
./model/src/integr_continuity.F	283	INTEGR_CONTINUITY	wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*maskInC(i,j,bi,bj)
./model/src/integr_continuity.F	57	INTEGR_CONTINUITY	INTEGER i, j
./model/src/integr_continuity.F	65	INTEGR_CONTINUITY	INTEGER i, j
./model/src/integr_continuity.F	95	INTEGR_CONTINUITY	DO j=1-OLy,sNy+OLy
./model/src/integr_continuity.F	97	INTEGR_CONTINUITY	hDivFlow(i,j) = 0. _d 0
./model/src/integr_continuity.F	98	INTEGR_CONTINUITY	utrans(i,j) = 0. _d 0
./model/src/integr_continuity.F	99	INTEGR_CONTINUITY	vtrans(i,j) = 0. _d 0
./verification/flt_example/extra/write_float.F	104	NO PROCEDURE	do j=20,30,2
./verification/flt_example/extra/write_float.F	106	NO PROCEDURE	if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F	111	NO PROCEDURE	ypart = yc(j)
./verification/flt_example/extra/write_float.F	131	NO PROCEDURE	do j=20,30,2
./verification/flt_example/extra/write_float.F	133	NO PROCEDURE	if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F	138	NO PROCEDURE	ypart = yc(j)
./verification/flt_example/extra/write_float.F	157	NO PROCEDURE	do j=20,30,2
./verification/flt_example/extra/write_float.F	159	NO PROCEDURE	if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F	164	NO PROCEDURE	ypart = yc(j)
./verification/flt_example/extra/write_float.F	180	NO PROCEDURE	do j=20,30,2
./verification/flt_example/extra/write_float.F	186	NO PROCEDURE	ypart = yc(j)
./verification/flt_example/extra/write_float.F	49	NO PROCEDURE	do j=2,Ny
./verification/flt_example/extra/write_float.F	50	NO PROCEDURE	yc(j)=yc(j-1)+degY
./verification/flt_example/extra/write_float.F	82	NO PROCEDURE	do j=20,30,2
./verification/flt_example/extra/write_float.F	84	NO PROCEDURE	if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F	89	NO PROCEDURE	ypart = yc(j)
./model/src/integrate_for_w.F	102	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	104	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	105	INTEGRATE_FOR_W	& conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	106	INTEGRATE_FOR_W	& maskC(i,j,k,bi,bj)maskC(i,j,k-1,bi,bj)
./model/src/integrate_for_w.F	111	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	113	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	114	INTEGRATE_FOR_W	& ( wFld(i,j,k+1,bi,bj)deepFac2F(k+1)rhoFacF(k+1)
./model/src/integrate_for_w.F	115	INTEGRATE_FOR_W	& +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	116	INTEGRATE_FOR_W	& )maskC(i,j,k,bi,bj)maskC(i,j,k-1,bi,bj)
./model/src/integrate_for_w.F	127	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	129	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	130	INTEGRATE_FOR_W	& ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	131	INTEGRATE_FOR_W	& -rStarDhDt(i,j)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	132	INTEGRATE_FOR_W	& )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	137	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	139	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	140	INTEGRATE_FOR_W	& ( wFld(i,j,k+1,bi,bj)deepFac2F(k+1)rhoFacF(k+1)
./model/src/integrate_for_w.F	141	INTEGRATE_FOR_W	& +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	142	INTEGRATE_FOR_W	& -rStarDhDt(i,j)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	143	INTEGRATE_FOR_W	& )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	153	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	155	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	156	INTEGRATE_FOR_W	& ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	157	INTEGRATE_FOR_W	& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k)
./model/src/integrate_for_w.F	158	INTEGRATE_FOR_W	& )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	162	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	164	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	165	INTEGRATE_FOR_W	& ( wFld(i,j,k+1,bi,bj)
./model/src/integrate_for_w.F	166	INTEGRATE_FOR_W	& +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	167	INTEGRATE_FOR_W	& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k)
./model/src/integrate_for_w.F	168	INTEGRATE_FOR_W	& )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	178	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	180	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	181	INTEGRATE_FOR_W	& conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	182	INTEGRATE_FOR_W	& *maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	187	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	189	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F	190	INTEGRATE_FOR_W	& ( wFld(i,j,k+1,bi,bj)deepFac2F(k+1)rhoFacF(k+1)
./model/src/integrate_for_w.F	191	INTEGRATE_FOR_W	& +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F	192	INTEGRATE_FOR_W	& )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F	56	INTEGRATE_FOR_W	INTEGER i,j
./model/src/integrate_for_w.F	64	INTEGRATE_FOR_W	DO j=1,sNy+1
./model/src/integrate_for_w.F	66	INTEGRATE_FOR_W	uTrans(i,j) = uFld(i,j,k,bi,bj)
./model/src/integrate_for_w.F	67	INTEGRATE_FOR_W	& _dyG(i,j,bi,bj)deepFacC(k)*rhoFacC(k)
./model/src/integrate_for_w.F	68	INTEGRATE_FOR_W	& drF(k)_hFacW(i,j,k,bi,bj)
./model/src/integrate_for_w.F	69	INTEGRATE_FOR_W	vTrans(i,j) = vFld(i,j,k,bi,bj)
./model/src/integrate_for_w.F	70	INTEGRATE_FOR_W	& _dxG(i,j,bi,bj)deepFacC(k)*rhoFacC(k)
./model/src/integrate_for_w.F	71	INTEGRATE_FOR_W	& drF(k)_hFacS(i,j,k,bi,bj)
./model/src/integrate_for_w.F	74	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	76	INTEGRATE_FOR_W	conv2d(i,j) = -( uTrans(i+1,j)-uTrans(i,j)
./model/src/integrate_for_w.F	77	INTEGRATE_FOR_W	& +vTrans(i,j+1)-vTrans(i,j) )
./model/src/integrate_for_w.F	82	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	84	INTEGRATE_FOR_W	conv2d(i,j) = conv2d(i,j)
./model/src/integrate_for_w.F	85	INTEGRATE_FOR_W	& + mFld(i,j,k,bi,bj)*mass2rUnit
./model/src/integrate_for_w.F	96	INTEGRATE_FOR_W	DO j=1,sNy
./model/src/integrate_for_w.F	98	INTEGRATE_FOR_W	wFld(i,j,k,bi,bj) = 0.
./model/src/load_fields_driver.F	112	LOAD_FIELDS_DRIVER	DO j=1-OLy,sNy+OLy
./model/src/load_fields_driver.F	114	LOAD_FIELDS_DRIVER	frictionHeating(i,j,k,bi,bj) = 0. _d 0
./model/src/load_fields_driver.F	82	LOAD_FIELDS_DRIVER	INTEGER i,j,k,bi,bj
./model/src/load_fields_driver.F	96	LOAD_FIELDS_DRIVER	DO j=1-OLy,sNy+OLy
./model/src/load_fields_driver.F	98	LOAD_FIELDS_DRIVER	addMass(i,j,k,bi,bj) = 0. _d 0
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F	100	CTRL_MAP_INI_GENARR	bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F	101	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F	103	CTRL_MAP_INI_GENARR	bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F	104	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F	105	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F	53	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F	95	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./model/src/load_grid_spacing.F	144	LOAD_GRID_SPACING	DO j=1,gridNy
./model/src/load_grid_spacing.F	146	LOAD_GRID_SPACING	IF ( delY(j).EQ.UNSET_RL ) THEN
./model/src/load_grid_spacing.F	149	LOAD_GRID_SPACING	& ' No value for delY at j =', j
./model/src/load_grid_spacing.F	153	LOAD_GRID_SPACING	IF ( delY(j).LE.0. ) THEN
./model/src/load_grid_spacing.F	156	LOAD_GRID_SPACING	& ' delY(j=', j, ')=', delY(j), ' : MUST BE >0'
./model/src/load_grid_spacing.F	172	LOAD_GRID_SPACING	DO j=1,gridNy
./model/src/load_grid_spacing.F	173	LOAD_GRID_SPACING	delYsum = delYsum + delY(j)
./model/src/load_grid_spacing.F	44	LOAD_GRID_SPACING	INTEGER i, j, n
./verification/global_ocean.cs32x15/code_ad/cost_test.F	33	COST_TEST	integer i, j, k
./verification/global_ocean.cs32x15/code_ad/cost_test.F	65	COST_TEST	do j=1,sNy
./verification/global_ocean.cs32x15/code_ad/cost_test.F	66	COST_TEST	jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/global_ocean.cs32x15/code_ad/cost_test.F	73	COST_TEST	& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/global_ocean.cs32x15/code_ad/cost_test.F	74	COST_TEST	objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./verification/global_ocean.cs32x15/code_ad/cost_test.F	77	COST_TEST	& theta(i,j,kLocOut,bi,bj)
./verification/global_ocean.cs32x15/code_ad/cost_test.F	82	COST_TEST	if (maskC(i,j,k,bi,bj).NE.0.) then
./verification/global_ocean.cs32x15/code_ad/cost_test.F	84	COST_TEST	& (theta(i,j,k,bi,bj)-thetaLev(i,j,k,bi,bj))**2
./model/src/momentum_correction_step.F	62	MOMENTUM_CORRECTION_STEP	INTEGER k,i,j
./model/src/momentum_correction_step.F	69	MOMENTUM_CORRECTION_STEP	DO j=1-OLy,sNy+OLy
./model/src/momentum_correction_step.F	71	MOMENTUM_CORRECTION_STEP	phiSurfX(i,j)=0.
./model/src/momentum_correction_step.F	72	MOMENTUM_CORRECTION_STEP	phiSurfY(i,j)=0.
./verification/halfpipe_streamice/code_ad/cost_test.F	42	COST_TEST	integer i, j, k
./verification/halfpipe_streamice/code_ad/cost_test.F	82	COST_TEST	do j=1,sNy
./verification/halfpipe_streamice/code_ad/cost_test.F	86	COST_TEST	if (streamice_hmask(i,j,bi,bj).eq.1.0) then
./verification/halfpipe_streamice/code_ad/cost_test.F	88	COST_TEST	& u_streamice(i,j,bi,bj)2+v_streamice(i,j,bi,bj)2
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	100	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	104	CTRL_MAP_INI_GENARR	B_glen(i,j,bi,bj) =
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	105	CTRL_MAP_INI_GENARR	& B_glen(i,j,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	106	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	150	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	153	CTRL_MAP_INI_GENARR	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	154	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	156	CTRL_MAP_INI_GENARR	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	157	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	160	CTRL_MAP_INI_GENARR	diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	161	CTRL_MAP_INI_GENARR	& + tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	57	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	93	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	98	CTRL_MAP_INI_GENARR	H_streamice(i,j,bi,bj) =
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F	99	CTRL_MAP_INI_GENARR	& H_streamice(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/cost_test.F	41	COST_TEST	integer i, j, k
./verification/halfpipe_streamice/code_oad/cost_test.F	81	COST_TEST	do j=1,sNy
./verification/halfpipe_streamice/code_oad/cost_test.F	85	COST_TEST	if (streamice_hmask(i,j,bi,bj).eq.1.0) then
./verification/halfpipe_streamice/code_oad/cost_test.F	87	COST_TEST	& u_streamice(i,j,bi,bj)2+v_streamice(i,j,bi,bj)2
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	100	CTRL_MAP_INI_GENARR	H_streamice(i,j,bi,bj) =
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	101	CTRL_MAP_INI_GENARR	& H_streamice(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	102	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	104	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	108	CTRL_MAP_INI_GENARR	B_glen(i,j,bi,bj) =
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	109	CTRL_MAP_INI_GENARR	& B_glen(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	110	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	112	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	158	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	161	CTRL_MAP_INI_GENARR	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	162	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	164	CTRL_MAP_INI_GENARR	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	165	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	168	CTRL_MAP_INI_GENARR	diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	169	CTRL_MAP_INI_GENARR	& + tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	57	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F	96	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/hs94.128x64x5/code/external_forcing.F	115	EXTERNAL_FORCING_V	INTEGER i, j
./verification/hs94.128x64x5/code/external_forcing.F	122	EXTERNAL_FORCING_V	DO j=1,sNy+1
./verification/hs94.128x64x5/code/external_forcing.F	126	EXTERNAL_FORCING_V	IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.128x64x5/code/external_forcing.F	127	EXTERNAL_FORCING_V	recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.128x64x5/code/external_forcing.F	132	EXTERNAL_FORCING_V	gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F	133	EXTERNAL_FORCING_V	& -kV*vVel(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F	183	EXTERNAL_FORCING_T	INTEGER i, j
./verification/hs94.128x64x5/code/external_forcing.F	191	EXTERNAL_FORCING_T	DO j=1,sNy
./verification/hs94.128x64x5/code/external_forcing.F	193	EXTERNAL_FORCING_T	term1=60. _d 0(SIN(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.128x64x5/code/external_forcing.F	196	EXTERNAL_FORCING_T	& (COS(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.128x64x5/code/external_forcing.F	200	EXTERNAL_FORCING_T	termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.128x64x5/code/external_forcing.F	203	EXTERNAL_FORCING_T	& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.128x64x5/code/external_forcing.F	204	EXTERNAL_FORCING_T	& COS((yC(i,j,bi,bj)deg2rad))**4
./verification/hs94.128x64x5/code/external_forcing.F	205	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F	206	EXTERNAL_FORCING_T	& - kT*( theta(i,j,kLev,bi,bj)-thetaEq )
./verification/hs94.128x64x5/code/external_forcing.F	207	EXTERNAL_FORCING_T	& *maskC(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F	47	EXTERNAL_FORCING_U	INTEGER i, j
./verification/hs94.128x64x5/code/external_forcing.F	56	EXTERNAL_FORCING_U	DO j=0,sNy+1
./verification/hs94.128x64x5/code/external_forcing.F	58	EXTERNAL_FORCING_U	IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.128x64x5/code/external_forcing.F	59	EXTERNAL_FORCING_U	recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.128x64x5/code/external_forcing.F	64	EXTERNAL_FORCING_U	gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F	65	EXTERNAL_FORCING_U	& -kV*uVel(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F	153	APPLY_FORCING_V	INTEGER i, j
./verification/hs94.1x64x5/code/apply_forcing.F	162	APPLY_FORCING_V	DO j=1,sNy+1
./verification/hs94.1x64x5/code/apply_forcing.F	166	APPLY_FORCING_V	IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code/apply_forcing.F	168	APPLY_FORCING_V	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	183	APPLY_FORCING_V	& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	185	APPLY_FORCING_V	& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	190	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./verification/hs94.1x64x5/code/apply_forcing.F	191	APPLY_FORCING_V	& - kV*vVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F	246	APPLY_FORCING_T	INTEGER i, j
./verification/hs94.1x64x5/code/apply_forcing.F	256	APPLY_FORCING_T	DO j=0,sNy+1
./verification/hs94.1x64x5/code/apply_forcing.F	258	APPLY_FORCING_T	term1 = 60. _d 0(SIN(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.1x64x5/code/apply_forcing.F	261	APPLY_FORCING_T	& (COS(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.1x64x5/code/apply_forcing.F	266	APPLY_FORCING_T	termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	268	APPLY_FORCING_T	& *recip_Rcol(i,j,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F	280	APPLY_FORCING_T	& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	282	APPLY_FORCING_T	& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	288	APPLY_FORCING_T	& COS((yC(i,j,bi,bj)deg2rad))**4
./verification/hs94.1x64x5/code/apply_forcing.F	289	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/hs94.1x64x5/code/apply_forcing.F	290	APPLY_FORCING_T	& - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code/apply_forcing.F	291	APPLY_FORCING_T	& *maskC(i,j,k,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F	60	APPLY_FORCING_U	INTEGER i, j
./verification/hs94.1x64x5/code/apply_forcing.F	71	APPLY_FORCING_U	DO j=0,sNy+1
./verification/hs94.1x64x5/code/apply_forcing.F	73	APPLY_FORCING_U	IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code/apply_forcing.F	75	APPLY_FORCING_U	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	90	APPLY_FORCING_U	& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	92	APPLY_FORCING_U	& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F	97	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./verification/hs94.1x64x5/code/apply_forcing.F	98	APPLY_FORCING_U	& - kV*uVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	153	APPLY_FORCING_V	INTEGER i, j
./verification/hs94.1x64x5/code_ad/apply_forcing.F	162	APPLY_FORCING_V	DO j=1,sNy+1
./verification/hs94.1x64x5/code_ad/apply_forcing.F	166	APPLY_FORCING_V	IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_ad/apply_forcing.F	168	APPLY_FORCING_V	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	183	APPLY_FORCING_V	& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	185	APPLY_FORCING_V	& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	190	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	191	APPLY_FORCING_V	& - kV*vVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	246	APPLY_FORCING_T	INTEGER i, j
./verification/hs94.1x64x5/code_ad/apply_forcing.F	256	APPLY_FORCING_T	DO j=0,sNy+1
./verification/hs94.1x64x5/code_ad/apply_forcing.F	258	APPLY_FORCING_T	term1 = 60. _d 0(SIN(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	261	APPLY_FORCING_T	& (COS(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	266	APPLY_FORCING_T	termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	268	APPLY_FORCING_T	& *recip_Rcol(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	280	APPLY_FORCING_T	& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	282	APPLY_FORCING_T	& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	288	APPLY_FORCING_T	& COS((yC(i,j,bi,bj)deg2rad))**4
./verification/hs94.1x64x5/code_ad/apply_forcing.F	289	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	290	APPLY_FORCING_T	& - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code_ad/apply_forcing.F	291	APPLY_FORCING_T	& *maskC(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	60	APPLY_FORCING_U	INTEGER i, j
./verification/hs94.1x64x5/code_ad/apply_forcing.F	71	APPLY_FORCING_U	DO j=0,sNy+1
./verification/hs94.1x64x5/code_ad/apply_forcing.F	73	APPLY_FORCING_U	IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_ad/apply_forcing.F	75	APPLY_FORCING_U	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	90	APPLY_FORCING_U	& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	92	APPLY_FORCING_U	& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F	97	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./verification/hs94.1x64x5/code_ad/apply_forcing.F	98	APPLY_FORCING_U	& - kV*uVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/cost_test.F	33	COST_TEST	integer i, j, k
./verification/hs94.1x64x5/code_ad/cost_test.F	62	COST_TEST	do j=1,sNy
./verification/hs94.1x64x5/code_ad/cost_test.F	63	COST_TEST	jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/hs94.1x64x5/code_ad/cost_test.F	69	COST_TEST	& theta(i,j,kLocOut,bi,bj)
./verification/hs94.1x64x5/code_ad/cost_test.F	72	COST_TEST	& ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	108	CTRL_MAP_GENTIM2D	do j = 1,sNy
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	111	CTRL_MAP_GENTIM2D	xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	112	CTRL_MAP_GENTIM2D	& +xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	114	CTRL_MAP_GENTIM2D	xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	127	CTRL_MAP_GENTIM2D	do j = 1,sNy
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	130	CTRL_MAP_GENTIM2D	& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	131	CTRL_MAP_GENTIM2D	& *xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	144	CTRL_MAP_GENTIM2D	& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F	47	CTRL_MAP_GENTIM2D	integer i,j,k
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	100	CTRL_MAP_INI_GENARR	bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	101	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	104	CTRL_MAP_INI_GENARR	theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	105	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	107	CTRL_MAP_INI_GENARR	salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	108	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	113	CTRL_MAP_INI_GENARR	bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	114	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	115	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	118	CTRL_MAP_INI_GENARR	theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	119	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	120	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	122	CTRL_MAP_INI_GENARR	salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	123	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	124	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	161	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	165	CTRL_MAP_INI_GENARR	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	166	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	168	CTRL_MAP_INI_GENARR	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	169	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	173	CTRL_MAP_INI_GENARR	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	174	CTRL_MAP_INI_GENARR	& + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	175	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	177	CTRL_MAP_INI_GENARR	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	178	CTRL_MAP_INI_GENARR	& + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	179	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	53	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F	95	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/hs94.1x64x5/code_oad/apply_forcing.F	153	APPLY_FORCING_V	INTEGER i, j
./verification/hs94.1x64x5/code_oad/apply_forcing.F	162	APPLY_FORCING_V	DO j=1,sNy+1
./verification/hs94.1x64x5/code_oad/apply_forcing.F	166	APPLY_FORCING_V	IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_oad/apply_forcing.F	168	APPLY_FORCING_V	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	183	APPLY_FORCING_V	& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	185	APPLY_FORCING_V	& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	190	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	191	APPLY_FORCING_V	& - kV*vVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	246	APPLY_FORCING_T	INTEGER i, j
./verification/hs94.1x64x5/code_oad/apply_forcing.F	256	APPLY_FORCING_T	DO j=0,sNy+1
./verification/hs94.1x64x5/code_oad/apply_forcing.F	258	APPLY_FORCING_T	term1 = 60. _d 0(SIN(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	261	APPLY_FORCING_T	& (COS(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	266	APPLY_FORCING_T	termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	268	APPLY_FORCING_T	& *recip_Rcol(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	280	APPLY_FORCING_T	& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	282	APPLY_FORCING_T	& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	288	APPLY_FORCING_T	& COS((yC(i,j,bi,bj)deg2rad))**4
./verification/hs94.1x64x5/code_oad/apply_forcing.F	289	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	290	APPLY_FORCING_T	& - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code_oad/apply_forcing.F	291	APPLY_FORCING_T	& *maskC(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	60	APPLY_FORCING_U	INTEGER i, j
./verification/hs94.1x64x5/code_oad/apply_forcing.F	71	APPLY_FORCING_U	DO j=0,sNy+1
./verification/hs94.1x64x5/code_oad/apply_forcing.F	73	APPLY_FORCING_U	IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_oad/apply_forcing.F	75	APPLY_FORCING_U	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	90	APPLY_FORCING_U	& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	92	APPLY_FORCING_U	& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F	97	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./verification/hs94.1x64x5/code_oad/apply_forcing.F	98	APPLY_FORCING_U	& - kV*uVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/cost_test.F	33	COST_TEST	integer i, j, k
./verification/hs94.1x64x5/code_oad/cost_test.F	62	COST_TEST	do j=1,sNy
./verification/hs94.1x64x5/code_oad/cost_test.F	63	COST_TEST	jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/hs94.1x64x5/code_oad/cost_test.F	69	COST_TEST	& theta(i,j,kLocOut,bi,bj)
./verification/hs94.1x64x5/code_oad/cost_test.F	72	COST_TEST	& ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	108	CTRL_MAP_GENTIM2D	do j = 1,sNy
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	111	CTRL_MAP_GENTIM2D	xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	112	CTRL_MAP_GENTIM2D	& +xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	114	CTRL_MAP_GENTIM2D	xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	127	CTRL_MAP_GENTIM2D	do j = 1,sNy
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	130	CTRL_MAP_GENTIM2D	& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	131	CTRL_MAP_GENTIM2D	& *xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	144	CTRL_MAP_GENTIM2D	& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F	47	CTRL_MAP_GENTIM2D	integer i,j,k
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	100	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	103	CTRL_MAP_INI_GENARR	theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	104	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	106	CTRL_MAP_INI_GENARR	salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	107	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	112	CTRL_MAP_INI_GENARR	bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	113	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	114	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	117	CTRL_MAP_INI_GENARR	theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	118	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	119	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	121	CTRL_MAP_INI_GENARR	salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	122	CTRL_MAP_INI_GENARR	& + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	123	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	160	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	164	CTRL_MAP_INI_GENARR	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	165	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	167	CTRL_MAP_INI_GENARR	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	168	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	172	CTRL_MAP_INI_GENARR	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	173	CTRL_MAP_INI_GENARR	& + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	174	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	176	CTRL_MAP_INI_GENARR	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	177	CTRL_MAP_INI_GENARR	& + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	178	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	52	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	94	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F	99	CTRL_MAP_INI_GENARR	bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	153	APPLY_FORCING_V	INTEGER i, j
./verification/hs94.cs-32x32x5/code/apply_forcing.F	162	APPLY_FORCING_V	DO j=1,sNy+1
./verification/hs94.cs-32x32x5/code/apply_forcing.F	166	APPLY_FORCING_V	IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.cs-32x32x5/code/apply_forcing.F	168	APPLY_FORCING_V	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	183	APPLY_FORCING_V	& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	185	APPLY_FORCING_V	& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	190	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	191	APPLY_FORCING_V	& - kV*vVel(i,j,k,bi,bj)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	246	APPLY_FORCING_T	INTEGER i, j
./verification/hs94.cs-32x32x5/code/apply_forcing.F	256	APPLY_FORCING_T	DO j=0,sNy+1
./verification/hs94.cs-32x32x5/code/apply_forcing.F	258	APPLY_FORCING_T	term1 = 60. _d 0(SIN(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	261	APPLY_FORCING_T	& (COS(yC(i,j,bi,bj)deg2rad)**2)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	266	APPLY_FORCING_T	termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	268	APPLY_FORCING_T	& *recip_Rcol(i,j,bi,bj)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	280	APPLY_FORCING_T	& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	282	APPLY_FORCING_T	& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	288	APPLY_FORCING_T	& COS((yC(i,j,bi,bj)deg2rad))**4
./verification/hs94.cs-32x32x5/code/apply_forcing.F	289	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	290	APPLY_FORCING_T	& - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.cs-32x32x5/code/apply_forcing.F	291	APPLY_FORCING_T	& *maskC(i,j,k,bi,bj)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	60	APPLY_FORCING_U	INTEGER i, j
./verification/hs94.cs-32x32x5/code/apply_forcing.F	71	APPLY_FORCING_U	DO j=0,sNy+1
./verification/hs94.cs-32x32x5/code/apply_forcing.F	73	APPLY_FORCING_U	IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.cs-32x32x5/code/apply_forcing.F	75	APPLY_FORCING_U	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	90	APPLY_FORCING_U	& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	92	APPLY_FORCING_U	& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F	97	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./verification/hs94.cs-32x32x5/code/apply_forcing.F	98	APPLY_FORCING_U	& - kV*uVel(i,j,k,bi,bj)
./verification/isomip/code_ad/cost_test.F	33	COST_TEST	integer i, j, k
./verification/isomip/code_ad/cost_test.F	65	COST_TEST	do j=1,sNy
./verification/isomip/code_ad/cost_test.F	66	COST_TEST	jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/isomip/code_ad/cost_test.F	73	COST_TEST	& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/isomip/code_ad/cost_test.F	74	COST_TEST	objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_ad/cost_test.F	77	COST_TEST	& theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_ad/cost_test.F	82	COST_TEST	if (maskC(i,j,k,bi,bj).NE.0.) then
./verification/isomip/code_ad/cost_test.F	84	COST_TEST	& ( theta(i,j,k,bi,bj) )**2
./verification/isomip/code_oad/cost_test.F	33	COST_TEST	integer i, j, k
./verification/isomip/code_oad/cost_test.F	65	COST_TEST	do j=1,sNy
./verification/isomip/code_oad/cost_test.F	66	COST_TEST	jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/isomip/code_oad/cost_test.F	73	COST_TEST	& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/isomip/code_oad/cost_test.F	74	COST_TEST	objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_oad/cost_test.F	77	COST_TEST	& theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_oad/cost_test.F	82	COST_TEST	if (maskC(i,j,k,bi,bj).NE.0.) then
./verification/isomip/code_oad/cost_test.F	84	COST_TEST	& ( theta(i,j,k,bi,bj) )**2
./verification/natl_box/results/comp_orig.F	15	NO PROCEDURE	integer lbuffer1, lbuffer2, i, j, k, irec
./verification/natl_box/results/comp_orig.F	30	NO PROCEDURE	read(1,rec=irec) ((fld1(i,j),i=1,nx),j=1,ny)
./verification/natl_box/results/comp_orig.F	31	NO PROCEDURE	read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny)
./verification/natl_box/results/comp_orig.F	33	NO PROCEDURE	do j=1,ny
./verification/natl_box/results/comp_orig.F	34	NO PROCEDURE	maxdiff=max(maxdiff,abs(fld1(i,j)-fld2(i,j)))
./model/src/post_cg3d.F	105	POST_CG3D	DO j=1,sNy
./model/src/post_cg3d.F	108	POST_CG3D	& Bo_surf(i,j,bi,bj)recip_drC(1)
./model/src/post_cg3d.F	110	POST_CG3D	dPhiNH(i,j,bi,bj) = ( tmpSurf*dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F	111	POST_CG3D	& + Bo_surf(i,j,bi,bj)*
./model/src/post_cg3d.F	112	POST_CG3D	& ( etaH(i,j,bi,bj)-etaN(i,j,bi,bj)
./model/src/post_cg3d.F	115	POST_CG3D	& *wVel(i,j,1,bi,bj)
./model/src/post_cg3d.F	138	POST_CG3D	DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F	140	POST_CG3D	phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj)
./model/src/post_cg3d.F	141	POST_CG3D	& - dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F	142	POST_CG3D	& )*maskC(i,j,k,bi,bj)
./model/src/post_cg3d.F	146	POST_CG3D	DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F	148	POST_CG3D	etaN(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/post_cg3d.F	149	POST_CG3D	& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F	50	POST_CG3D	INTEGER i,j,k,bi,bj
./model/src/post_cg3d.F	64	POST_CG3D	DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F	66	POST_CG3D	dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj)
./model/src/post_cg3d.F	71	POST_CG3D	DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F	73	POST_CG3D	ks = kSurfC(i,j,bi,bj)
./model/src/post_cg3d.F	75	POST_CG3D	dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj)
./model/src/post_cg3d.F	77	POST_CG3D	dPhiNH(i,j,bi,bj) = 0.
./model/src/post_cg3d.F	84	POST_CG3D	DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F	86	POST_CG3D	dPhiNH(i,j,bi,bj) = 0.
./model/src/post_cg3d.F	90	POST_CG3D	DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F	92	POST_CG3D	dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F	93	POST_CG3D	& + phi_nh(i,j,k,bi,bj)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/post_cg3d.F	97	POST_CG3D	DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F	99	POST_CG3D	dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	124	APPLY_FORCING_U	DO j=0,sNy+1
./verification/rotating_tank/code/apply_forcing.F	126	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	127	APPLY_FORCING_U	& +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	128	APPLY_FORCING_U	& recip_drF(k)_recip_hFacW(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	132	APPLY_FORCING_U	DO j=0,sNy+1
./verification/rotating_tank/code/apply_forcing.F	134	APPLY_FORCING_U	IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F	135	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	136	APPLY_FORCING_U	& +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	137	APPLY_FORCING_U	& recip_drF(k)_recip_hFacW(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	230	APPLY_FORCING_V	INTEGER i, j
./verification/rotating_tank/code/apply_forcing.F	241	APPLY_FORCING_V	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	243	APPLY_FORCING_V	locVar(i,j) = gV(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	249	APPLY_FORCING_V	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	251	APPLY_FORCING_V	tmpVar = gV(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	252	APPLY_FORCING_V	gV(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	253	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j) + tmpVar
./verification/rotating_tank/code/apply_forcing.F	291	APPLY_FORCING_V	DO j=1,sNy+1
./verification/rotating_tank/code/apply_forcing.F	295	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	296	APPLY_FORCING_V	& +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	297	APPLY_FORCING_V	& recip_drF(k)_recip_hFacS(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	301	APPLY_FORCING_V	DO j=1,sNy+1
./verification/rotating_tank/code/apply_forcing.F	303	APPLY_FORCING_V	IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F	304	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	305	APPLY_FORCING_V	& +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	306	APPLY_FORCING_V	& recip_drF(k)_recip_hFacS(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	399	APPLY_FORCING_T	INTEGER i, j
./verification/rotating_tank/code/apply_forcing.F	464	APPLY_FORCING_T	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	466	APPLY_FORCING_T	locVar(i,j) = gT(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	472	APPLY_FORCING_T	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	474	APPLY_FORCING_T	tmpVar = gT(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	475	APPLY_FORCING_T	gT(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	476	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j) + tmpVar
./verification/rotating_tank/code/apply_forcing.F	519	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	521	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	522	APPLY_FORCING_T	& + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F	523	APPLY_FORCING_T	& *( temp_addMass - theta(i,j,k,bi,bj) )
./verification/rotating_tank/code/apply_forcing.F	524	APPLY_FORCING_T	& *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	525	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	530	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	532	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	533	APPLY_FORCING_T	& + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F	535	APPLY_FORCING_T	& *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	536	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	555	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	557	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	558	APPLY_FORCING_T	& + frictionHeating(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	559	APPLY_FORCING_T	& tmpFacrecip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	560	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	582	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	584	APPLY_FORCING_T	tmpVar(i,j) = 0.
./verification/rotating_tank/code/apply_forcing.F	590	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	592	APPLY_FORCING_T	tmpVar(i,j) = wVel(i,j,kc,bi,bj)delPIatm_Rq
./verification/rotating_tank/code/apply_forcing.F	593	APPLY_FORCING_T	& ( theta(i,j,km,bi,bj)salt(i,j,km,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	594	APPLY_FORCING_T	& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	595	APPLY_FORCING_T	& )maskC(i,j,km,bi,bj)0.25 _d 0
./verification/rotating_tank/code/apply_forcing.F	602	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	604	APPLY_FORCING_T	tmpVar(i,j) = tmpVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	605	APPLY_FORCING_T	& + wVel(i,j,kp,bi,bj)delPIatm_Rq
./verification/rotating_tank/code/apply_forcing.F	606	APPLY_FORCING_T	& ( theta(i,j,kc,bi,bj)salt(i,j,kc,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	607	APPLY_FORCING_T	& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	608	APPLY_FORCING_T	& )maskC(i,j,kp,bi,bj)0.25 _d 0
./verification/rotating_tank/code/apply_forcing.F	612	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	614	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	615	APPLY_FORCING_T	& + tmpVar(i,j)*tmpFac
./verification/rotating_tank/code/apply_forcing.F	616	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	61	APPLY_FORCING_U	INTEGER i, j
./verification/rotating_tank/code/apply_forcing.F	631	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	633	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	634	APPLY_FORCING_T	& +surfaceForcingT(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	635	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	639	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	641	APPLY_FORCING_T	IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F	642	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	643	APPLY_FORCING_T	& +surfaceForcingT(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	644	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	651	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	653	APPLY_FORCING_T	IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./verification/rotating_tank/code/apply_forcing.F	654	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	655	APPLY_FORCING_T	& +TsurfCorrecip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	675	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	677	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	678	APPLY_FORCING_T	& -Qsw(i,j,bi,bj)(swfracb(1)maskC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	679	APPLY_FORCING_T	& -swfracb(2)*maskC(i,j,kp1, bi,bj))
./verification/rotating_tank/code/apply_forcing.F	681	APPLY_FORCING_T	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	692	APPLY_FORCING_T	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	708	APPLY_FORCING_T	hC = hFacC(i ,j ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	709	APPLY_FORCING_T	hW = hFacW(i ,j ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	710	APPLY_FORCING_T	hE = hFacW(i+1,j ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	711	APPLY_FORCING_T	hN = hFacS(i ,j+1,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	712	APPLY_FORCING_T	hS = hFacS(i ,j ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	715	APPLY_FORCING_T	faceArea = drF(k)*dyG(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	717	APPLY_FORCING_T	& -faceAreakDiffCyl(theta(i,j,k,bi,bj) - tCyl)
./verification/rotating_tank/code/apply_forcing.F	718	APPLY_FORCING_T	& *recip_dxC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	722	APPLY_FORCING_T	faceArea = drF(k)*dyG(i+1,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	724	APPLY_FORCING_T	& -faceAreakDiffCyl(tCyl - theta(i,j,k,bi,bj))
./verification/rotating_tank/code/apply_forcing.F	725	APPLY_FORCING_T	& *recip_dxC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	729	APPLY_FORCING_T	faceArea = drF(k)*dxG(i,j+1,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	72	APPLY_FORCING_U	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	731	APPLY_FORCING_T	& -faceAreakDiffCyl(tCyl-theta(i,j,k,bi,bj))
./verification/rotating_tank/code/apply_forcing.F	732	APPLY_FORCING_T	& *recip_dyC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	736	APPLY_FORCING_T	faceArea = drF(k)*dxG(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	738	APPLY_FORCING_T	& -faceAreakDiffCyl(theta(i,j,k,bi,bj) - tCyl)
./verification/rotating_tank/code/apply_forcing.F	739	APPLY_FORCING_T	& *recip_dyC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	744	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	745	APPLY_FORCING_T	& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./verification/rotating_tank/code/apply_forcing.F	746	APPLY_FORCING_T	& *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	74	APPLY_FORCING_U	locVar(i,j) = gU(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	80	APPLY_FORCING_U	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	82	APPLY_FORCING_U	tmpVar = gU(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	83	APPLY_FORCING_U	gU(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	84	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j) + tmpVar
./verification/rotating_tank/code/apply_forcing.F	874	APPLY_FORCING_S	INTEGER i, j
./verification/rotating_tank/code/apply_forcing.F	885	APPLY_FORCING_S	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	887	APPLY_FORCING_S	locVar(i,j) = gS(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	893	APPLY_FORCING_S	DO j=1-OLy,sNy+OLy
./verification/rotating_tank/code/apply_forcing.F	895	APPLY_FORCING_S	tmpVar = gS(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	896	APPLY_FORCING_S	gS(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F	897	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j) + tmpVar
./verification/rotating_tank/code/apply_forcing.F	939	APPLY_FORCING_S	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	941	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	942	APPLY_FORCING_S	& + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F	943	APPLY_FORCING_S	& *( salt_addMass - salt(i,j,k,bi,bj) )
./verification/rotating_tank/code/apply_forcing.F	944	APPLY_FORCING_S	& *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	945	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	950	APPLY_FORCING_S	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	952	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	953	APPLY_FORCING_S	& + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F	955	APPLY_FORCING_S	& *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	956	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	966	APPLY_FORCING_S	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	968	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	969	APPLY_FORCING_S	& +surfaceForcingS(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	970	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	974	APPLY_FORCING_S	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	976	APPLY_FORCING_S	IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F	977	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	978	APPLY_FORCING_S	& +surfaceForcingS(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	979	APPLY_FORCING_S	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F	986	APPLY_FORCING_S	DO j=1,sNy
./verification/rotating_tank/code/apply_forcing.F	988	APPLY_FORCING_S	IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./verification/rotating_tank/code/apply_forcing.F	989	APPLY_FORCING_S	gS_arr(i,j) = gS_arr(i,j)
./verification/rotating_tank/code/apply_forcing.F	990	APPLY_FORCING_S	& +SsurfCorrecip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/pre_cg3d.F	100	PRE_CG3D	tmpSurf = ( tmpSurf*( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F	103	PRE_CG3D	& *wVel(i,j,1,bi,bj)
./model/src/pre_cg3d.F	106	PRE_CG3D	tmpSurf = etaN(i,j,bi,bj)-etaH(i,j,bi,bj)
./model/src/pre_cg3d.F	108	PRE_CG3D	ks = kSurfC(i,j,bi,bj)
./model/src/pre_cg3d.F	110	PRE_CG3D	cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F	113	PRE_CG3D	& _rA(i,j,bi,bj)deepFac2F(ks)
./model/src/pre_cg3d.F	121	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	123	PRE_CG3D	ks = kSurfC(i,j,bi,bj)
./model/src/pre_cg3d.F	124	PRE_CG3D	tmpVar(i,j) = freeSurfFac
./model/src/pre_cg3d.F	125	PRE_CG3D	& *( etaN(i,j,bi,bj) - etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F	126	PRE_CG3D	& _rA(i,j,bi,bj)deepFac2F(ks)
./model/src/pre_cg3d.F	128	PRE_CG3D	& *recip_Rcol(i,j,bi,bj)
./model/src/pre_cg3d.F	132	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	134	PRE_CG3D	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F	135	PRE_CG3D	& + tmpVar(i,j)drF(k)h0FacC(i,j,k,bi,bj)
./model/src/pre_cg3d.F	146	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	148	PRE_CG3D	ks = kSurfC(i,j,bi,bj)
./model/src/pre_cg3d.F	150	PRE_CG3D	cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F	151	PRE_CG3D	& +freeSurfFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/pre_cg3d.F	152	PRE_CG3D	& _rA(i,j,bi,bj)deepFac2F(ks)/deltaTmom
./model/src/pre_cg3d.F	162	PRE_CG3D	DO j=1,sNy+1
./model/src/pre_cg3d.F	164	PRE_CG3D	uf(i,j) = -_recip_dxC(i,j,bi,bj)
./model/src/pre_cg3d.F	166	PRE_CG3D	& *(cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj))
./model/src/pre_cg3d.F	168	PRE_CG3D	& maskInC(i,j,bi,bj)maskInC(i-1,j,bi,bj)
./model/src/pre_cg3d.F	170	PRE_CG3D	vf(i,j) = -_recip_dyC(i,j,bi,bj)
./model/src/pre_cg3d.F	172	PRE_CG3D	& *(cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj))
./model/src/pre_cg3d.F	174	PRE_CG3D	& maskInC(i,j,bi,bj)maskInC(i,j-1,bi,bj)
./model/src/pre_cg3d.F	186	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	188	PRE_CG3D	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F	189	PRE_CG3D	& +drF(k)dyG(i+1,j,bi,bj)_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F	190	PRE_CG3D	& -drF(k)dyG( i ,j,bi,bj)_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F	191	PRE_CG3D	& +drF(k)dxG(i,j+1,bi,bj)_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F	192	PRE_CG3D	& -drF(k)dxG(i, j ,bi,bj)_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F	193	PRE_CG3D	& +( tmpFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/pre_cg3d.F	194	PRE_CG3D	& -wVel(i,j,kp1,bi,bj)*wFacKp
./model/src/pre_cg3d.F	195	PRE_CG3D	& )*_rA(i,j,bi,bj)/deltaTmom
./model/src/pre_cg3d.F	205	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	207	PRE_CG3D	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F	208	PRE_CG3D	& +drF(k)dyG(i+1,j,bi,bj)_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F	209	PRE_CG3D	& -drF(k)dyG( i ,j,bi,bj)_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F	210	PRE_CG3D	& +drF(k)dxG(i,j+1,bi,bj)_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F	211	PRE_CG3D	& -drF(k)dxG(i, j ,bi,bj)_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F	212	PRE_CG3D	& +( wVel(i,j, k ,bi,bj)wFacKmmaskC(i,j,k-1,bi,bj)
./model/src/pre_cg3d.F	213	PRE_CG3D	& -wVel(i,j,kp1,bi,bj)*wFacKp
./model/src/pre_cg3d.F	214	PRE_CG3D	& )*_rA(i,j,bi,bj)/deltaTmom
./model/src/pre_cg3d.F	231	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	233	PRE_CG3D	cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F	234	PRE_CG3D	& *maskInC(i,j,bi,bj)
./model/src/pre_cg3d.F	235	PRE_CG3D	phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj)
./model/src/pre_cg3d.F	236	PRE_CG3D	& *maskInC(i,j,bi,bj)
./model/src/pre_cg3d.F	56	PRE_CG3D	INTEGER i,j,k,bi,bj
./model/src/pre_cg3d.F	82	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	84	PRE_CG3D	cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F	85	PRE_CG3D	& + tmpFac_rA(i,j,bi,bj)EmPmR(i,j,bi,bj)/deltaTMom
./model/src/pre_cg3d.F	86	PRE_CG3D	& *maskInC(i,j,bi,bj)
./model/src/pre_cg3d.F	94	PRE_CG3D	DO j=1,sNy
./model/src/pre_cg3d.F	98	PRE_CG3D	& Bo_surf(i,j,bi,bj)recip_drC(1)
./model/src/pressure_for_eos.F	43	PRESSURE_FOR_EOS	INTEGER i,j
./model/src/pressure_for_eos.F	57	PRESSURE_FOR_EOS	DO j=1-Oly,sNy+Oly
./model/src/pressure_for_eos.F	59	PRESSURE_FOR_EOS	locPres(i,j) = rhoConst*(
./model/src/pressure_for_eos.F	60	PRESSURE_FOR_EOS	& totPhiHyd(i,j,k,bi,bj)
./model/src/pressure_for_eos.F	66	PRESSURE_FOR_EOS	DO j=1-Oly,sNy+Oly
./model/src/pressure_for_eos.F	68	PRESSURE_FOR_EOS	locPres(i,j) = -rhoConstrC(k)gravity
./model/src/pressure_for_eos.F	76	PRESSURE_FOR_EOS	DO j=1-Oly,sNy+Oly
./model/src/pressure_for_eos.F	78	PRESSURE_FOR_EOS	locPres(i,j) = rC(k)
./verification/solid-body.cs-32x32x1/code/ini_psurf.F	45	INI_PSURF	etaN(I,J,bi,bj) = 0. +fac(fCori(i,j,bi,bj)*2)
./verification/solid-body.cs-32x32x1/code/ini_vel.F	34	INI_VEL	INTEGER bi,bj,i,j,k
./verification/solid-body.cs-32x32x1/code/ini_vel.F	38	INI_VEL	psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F	52	INI_VEL	DO j=1-Oly,sNy+Oly
./verification/solid-body.cs-32x32x1/code/ini_vel.F	53	INI_VEL	jp1=MIN(j+1,sNy+Oly)
./verification/solid-body.cs-32x32x1/code/ini_vel.F	56	INI_VEL	uVel(i,j,k,bi,bj)=0.
./verification/solid-body.cs-32x32x1/code/ini_vel.F	57	INI_VEL	& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyg(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F	58	INI_VEL	vVel(i,j,k,bi,bj)=0.
./verification/solid-body.cs-32x32x1/code/ini_vel.F	59	INI_VEL	& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F	60	INI_VEL	wVel(i,j,k,bi,bj)=0.
./verification/solid-body.cs-32x32x1/code/ini_vel.F	89	INI_VEL	DO j=1-Oly,sNy+Oly
./verification/solid-body.cs-32x32x1/code/ini_vel.F	91	INI_VEL	uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F	92	INI_VEL	vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	100	EXTERNAL_FORCING_U	& )*recip_DXC(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	101	EXTERNAL_FORCING_U	& *_maskW(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	152	EXTERNAL_FORCING_V	INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F	168	EXTERNAL_FORCING_V	DO j=1,sNy+1
./verification/tidal_basin_2d/code/external_forcing.F	172	EXTERNAL_FORCING_V	gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	173	EXTERNAL_FORCING_V	& +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	174	EXTERNAL_FORCING_V	& recip_drF(kLev)recip_hFacS(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	225	EXTERNAL_FORCING_T	INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F	250	EXTERNAL_FORCING_T	DO j=1,sNy
./verification/tidal_basin_2d/code/external_forcing.F	252	EXTERNAL_FORCING_T	gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	253	EXTERNAL_FORCING_T	& +surfaceForcingT(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	254	EXTERNAL_FORCING_T	& recip_drF(kLev)recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	273	EXTERNAL_FORCING_T	DO j=1,sNy
./verification/tidal_basin_2d/code/external_forcing.F	275	EXTERNAL_FORCING_T	gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	276	EXTERNAL_FORCING_T	& -Qsw(i,j,bi,bj)(swfracb(1)maskC(i,j,klev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	277	EXTERNAL_FORCING_T	& -swfracb(2)*maskC(i,j,kp1, bi,bj))
./verification/tidal_basin_2d/code/external_forcing.F	279	EXTERNAL_FORCING_T	& recip_drF(klev)recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	332	EXTERNAL_FORCING_S	INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F	348	EXTERNAL_FORCING_S	DO j=1,sNy
./verification/tidal_basin_2d/code/external_forcing.F	350	EXTERNAL_FORCING_S	gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	351	EXTERNAL_FORCING_S	& +surfaceForcingS(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	352	EXTERNAL_FORCING_S	& recip_drF(kLev)recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	49	EXTERNAL_FORCING_U	INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F	69	EXTERNAL_FORCING_U	DO j=0,sNy+1
./verification/tidal_basin_2d/code/external_forcing.F	71	EXTERNAL_FORCING_U	gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	72	EXTERNAL_FORCING_U	& +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	73	EXTERNAL_FORCING_U	& recip_drF(kLev)recip_hFacW(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F	92	EXTERNAL_FORCING_U	DO j=0,sNy+1
./verification/tidal_basin_2d/code/external_forcing.F	94	EXTERNAL_FORCING_U	longitud1=XC(i-1,j,bi,bj)*Coord2longitude
./verification/tidal_basin_2d/code/external_forcing.F	95	EXTERNAL_FORCING_U	longitud2=XC(i,j,bi,bj)*Coord2longitude
./verification/tidal_basin_2d/code/external_forcing.F	96	EXTERNAL_FORCING_U	gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/read_pickup.F	192	READ_PICKUP	j = 3
./model/src/read_pickup.F	193	READ_PICKUP	IF ( startFromPickupAB2 ) j = 2
./model/src/read_pickup.F	199	READ_PICKUP	& nj+j, myIter,myThid )
./model/src/read_pickup.F	200	READ_PICKUP	nj = j
./model/src/read_pickup.F	205	READ_PICKUP	& nj+j, myIter,myThid )
./model/src/read_pickup.F	206	READ_PICKUP	nj = 2*j
./model/src/read_pickup.F	211	READ_PICKUP	& nj+j, myIter,myThid )
./model/src/read_pickup.F	212	READ_PICKUP	nj = 3*j
./model/src/read_pickup.F	217	READ_PICKUP	& nj+j, myIter,myThid )
./model/src/read_pickup.F	218	READ_PICKUP	nj = 4*j
./model/src/read_pickup.F	75	READ_PICKUP	INTEGER j, nj, ioUnit
./model/src/read_pickup.F	89	READ_PICKUP	DO j = 1,MAX_LEN_FNAM
./model/src/read_pickup.F	90	READ_PICKUP	fn(j:j) = ' '
./model/src/reset_nlfs_vars.F	42	RESET_NLFS_VARS	INTEGER i,j,bi,bj
./model/src/reset_nlfs_vars.F	52	RESET_NLFS_VARS	DO j=1-OLy,sNy+OLy
./model/src/reset_nlfs_vars.F	54	RESET_NLFS_VARS	pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/reset_nlfs_vars.F	58	RESET_NLFS_VARS	DO j=1-OLy,sNy+OLy
./model/src/reset_nlfs_vars.F	60	RESET_NLFS_VARS	pStarFacK(i,j,bi,bj) = 1. _d 0
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F	44	COST_TRACER	integer i, j, k
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F	52	COST_TRACER	DO j=1,sNy
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F	55	COST_TRACER	locfc = locfc + maskC(i,j,k,bi,bj)*
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F	56	COST_TRACER	& ptracer(i,j,k,bi,bj,6)*
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F	57	COST_TRACER	& rA(i,j,bi,bj)*drF(k)
./model/src/rotate_uv2en.F	100	ROTATE_UV2EN_RL	tmpV(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F	101	ROTATE_UV2EN_RL	& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) )
./model/src/rotate_uv2en.F	103	ROTATE_UV2EN_RL	tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	104	ROTATE_UV2EN_RL	tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	110	ROTATE_UV2EN_RL	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	112	ROTATE_UV2EN_RL	tmpU(i,j) = uFldX(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	113	ROTATE_UV2EN_RL	tmpV(i,j) = vFldY(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	115	ROTATE_UV2EN_RL	tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	116	ROTATE_UV2EN_RL	tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	123	ROTATE_UV2EN_RL	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	125	ROTATE_UV2EN_RL	uFldE(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F	126	ROTATE_UV2EN_RL	& angleCosC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F	127	ROTATE_UV2EN_RL	& -angleSinC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F	128	ROTATE_UV2EN_RL	vFldN(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F	129	ROTATE_UV2EN_RL	& angleSinC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F	130	ROTATE_UV2EN_RL	& +angleCosC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F	138	ROTATE_UV2EN_RL	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	140	ROTATE_UV2EN_RL	tmpU(i,j) =
./model/src/rotate_uv2en.F	141	ROTATE_UV2EN_RL	& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	142	ROTATE_UV2EN_RL	& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	143	ROTATE_UV2EN_RL	tmpV(i,j) =
./model/src/rotate_uv2en.F	144	ROTATE_UV2EN_RL	& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	145	ROTATE_UV2EN_RL	& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	155	ROTATE_UV2EN_RL	do j = 1-oly+1,sny+oly
./model/src/rotate_uv2en.F	156	ROTATE_UV2EN_RL	uFldX(1,j,k,bi,bj)=0.
./model/src/rotate_uv2en.F	157	ROTATE_UV2EN_RL	vFldY(1,j,k,bi,bj)=0.
./model/src/rotate_uv2en.F	159	ROTATE_UV2EN_RL	uFldX(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F	160	ROTATE_UV2EN_RL	& *( tmpU(i-1,j) + tmpU(i,j) )
./model/src/rotate_uv2en.F	161	ROTATE_UV2EN_RL	vFldY(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F	162	ROTATE_UV2EN_RL	& *( tmpV(i,j-1) + tmpV(i,j) )
./model/src/rotate_uv2en.F	164	ROTATE_UV2EN_RL	uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	165	ROTATE_UV2EN_RL	vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	171	ROTATE_UV2EN_RL	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	173	ROTATE_UV2EN_RL	uFldX(i,j,k,bi,bj) = tmpU(i,j)
./model/src/rotate_uv2en.F	174	ROTATE_UV2EN_RL	vFldY(i,j,k,bi,bj) = tmpV(i,j)
./model/src/rotate_uv2en.F	176	ROTATE_UV2EN_RL	uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	177	ROTATE_UV2EN_RL	vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	242	ROTATE_UV2EN_RS	integer i,j,k,kk
./model/src/rotate_uv2en.F	275	ROTATE_UV2EN_RS	do j = 1-oly,sny+oly-1
./model/src/rotate_uv2en.F	276	ROTATE_UV2EN_RS	tmpU(snx+Olx,j)=0.
./model/src/rotate_uv2en.F	277	ROTATE_UV2EN_RS	tmpV(snx+Olx,j)=0.
./model/src/rotate_uv2en.F	279	ROTATE_UV2EN_RS	tmpU(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F	280	ROTATE_UV2EN_RS	& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) )
./model/src/rotate_uv2en.F	281	ROTATE_UV2EN_RS	tmpV(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F	282	ROTATE_UV2EN_RS	& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) )
./model/src/rotate_uv2en.F	284	ROTATE_UV2EN_RS	tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	285	ROTATE_UV2EN_RS	tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	291	ROTATE_UV2EN_RS	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	293	ROTATE_UV2EN_RS	tmpU(i,j) = uFldX(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	294	ROTATE_UV2EN_RS	tmpV(i,j) = vFldY(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	296	ROTATE_UV2EN_RS	tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	297	ROTATE_UV2EN_RS	tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	304	ROTATE_UV2EN_RS	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	306	ROTATE_UV2EN_RS	uFldE(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F	307	ROTATE_UV2EN_RS	& angleCosC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F	308	ROTATE_UV2EN_RS	& -angleSinC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F	309	ROTATE_UV2EN_RS	vFldN(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F	310	ROTATE_UV2EN_RS	& angleSinC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F	311	ROTATE_UV2EN_RS	& +angleCosC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F	319	ROTATE_UV2EN_RS	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	321	ROTATE_UV2EN_RS	tmpU(i,j) =
./model/src/rotate_uv2en.F	322	ROTATE_UV2EN_RS	& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	323	ROTATE_UV2EN_RS	& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	324	ROTATE_UV2EN_RS	tmpV(i,j) =
./model/src/rotate_uv2en.F	325	ROTATE_UV2EN_RS	& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	326	ROTATE_UV2EN_RS	& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F	336	ROTATE_UV2EN_RS	do j = 1-oly+1,sny+oly
./model/src/rotate_uv2en.F	337	ROTATE_UV2EN_RS	uFldX(1,j,k,bi,bj)=0.
./model/src/rotate_uv2en.F	338	ROTATE_UV2EN_RS	vFldY(1,j,k,bi,bj)=0.
./model/src/rotate_uv2en.F	340	ROTATE_UV2EN_RS	uFldX(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F	341	ROTATE_UV2EN_RS	& *( tmpU(i-1,j) + tmpU(i,j) )
./model/src/rotate_uv2en.F	342	ROTATE_UV2EN_RS	vFldY(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F	343	ROTATE_UV2EN_RS	& *( tmpV(i,j-1) + tmpV(i,j) )
./model/src/rotate_uv2en.F	345	ROTATE_UV2EN_RS	uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	346	ROTATE_UV2EN_RS	vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	352	ROTATE_UV2EN_RS	do j = 1-oly,sny+oly
./model/src/rotate_uv2en.F	354	ROTATE_UV2EN_RS	uFldX(i,j,k,bi,bj) = tmpU(i,j)
./model/src/rotate_uv2en.F	355	ROTATE_UV2EN_RS	vFldY(i,j,k,bi,bj) = tmpV(i,j)
./model/src/rotate_uv2en.F	357	ROTATE_UV2EN_RS	uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	358	ROTATE_UV2EN_RS	vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F	61	ROTATE_UV2EN_RL	integer i,j,k,kk
./model/src/rotate_uv2en.F	94	ROTATE_UV2EN_RL	do j = 1-oly,sny+oly-1
./model/src/rotate_uv2en.F	95	ROTATE_UV2EN_RL	tmpU(snx+Olx,j)=0.
./model/src/rotate_uv2en.F	96	ROTATE_UV2EN_RL	tmpV(snx+Olx,j)=0.
./model/src/rotate_uv2en.F	98	ROTATE_UV2EN_RL	tmpU(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F	99	ROTATE_UV2EN_RL	& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) )
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F	44	COST_TRACER	integer i, j, k
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F	52	COST_TRACER	DO j=1,sNy
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F	55	COST_TRACER	locfc = locfc + maskC(i,j,k,bi,bj)*
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F	56	COST_TRACER	& ptracer(i,j,k,bi,bj,6)*
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F	57	COST_TRACER	& rA(i,j,bi,bj)*drF(k)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	143	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	146	CTRL_MAP_INI_GENARR	pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	147	CTRL_MAP_INI_GENARR	& + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	148	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	150	CTRL_MAP_INI_GENARR	pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	151	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	52	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F	94	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	52	PTRACERS_APPLY_FORCING	INTEGER i,j
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	77	PTRACERS_APPLY_FORCING	DO j=jMin,jMax
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	79	PTRACERS_APPLY_FORCING	gPtracer(i,j) = gPtracer(i,j)
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	80	PTRACERS_APPLY_FORCING	& + surfForcPtr(i,j)
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	81	PTRACERS_APPLY_FORCING	& recip_drF(k)recip_hFacC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	85	PTRACERS_APPLY_FORCING	DO j=jMin,jMax
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	87	PTRACERS_APPLY_FORCING	gPtracer(i,j) = gPtracer(i,j)
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F	88	PTRACERS_APPLY_FORCING	& + 1. _d 0 * maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	108	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	110	PTRACERS_FORCING_SURF	add2EmP(i,j) = 0. _d 0
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	127	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	129	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	130	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	131	PTRACERS_FORCING_SURF	& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	132	PTRACERS_FORCING_SURF	& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	157	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	159	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	160	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	161	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	162	PTRACERS_FORCING_SURF	& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	178	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	180	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	181	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	182	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	51	PTRACERS_FORCING_SURF	INTEGER i, j
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	65	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	67	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	69	PTRACERS_FORCING_SURF	& * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	70	PTRACERS_FORCING_SURF	& * drF(ks) * _hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	85	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	87	PTRACERS_FORCING_SURF	tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	88	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/tmpVar
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	89	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	90	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	94	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	96	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	97	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F	98	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./model/src/salt_integrate.F	120	SALT_INTEGRATE	INTEGER i, j, k
./model/src/salt_integrate.F	198	SALT_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/salt_integrate.F	200	SALT_INTEGRATE	gS_loc(i,j,k) = 0. _d 0
./model/src/salt_integrate.F	204	SALT_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/salt_integrate.F	206	SALT_INTEGRATE	fVer(i,j,1) = 0. _d 0
./model/src/salt_integrate.F	207	SALT_INTEGRATE	fVer(i,j,2) = 0. _d 0
./model/src/salt_integrate.F	212	SALT_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/salt_integrate.F	214	SALT_INTEGRATE	kappaRk(i,j,k) = 0. _d 0
./model/src/salt_integrate.F	313	SALT_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/salt_integrate.F	315	SALT_INTEGRATE	gsForc(i,j) = 0. _d 0
./model/src/salt_integrate.F	366	SALT_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/salt_integrate.F	368	SALT_INTEGRATE	gS_loc(i,j,k) = gS_loc(i,j,k) + gsForc(i,j)
./model/src/salt_integrate.F	396	SALT_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/salt_integrate.F	398	SALT_INTEGRATE	gS_loc(i,j,k) = gS_loc(i,j,k) + gsForc(i,j)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F	37	COST_HFLUX	integer i, j
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F	44	COST_HFLUX	do j=1,sNy
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F	46	COST_HFLUX	tmpC = tmpC + maskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F	68	COST_HFLUX	DO j=1,sNy
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F	70	COST_HFLUX	locfc = locfc + tmpCmaskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F	71	COST_HFLUX	& whfluxm(i,j,bi,bj)*
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F	73	COST_HFLUX	& Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F	34	COST_TEMP	INTEGER i, j, k
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F	50	COST_TEMP	DO j=1,sNy
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F	52	COST_TEMP	tmp = tmp + maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F	76	COST_TEMP	DO j=1,sNy
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F	78	COST_TEMP	locfc = locfc + tmpmaskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F	80	COST_TEMP	& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	120	COST_WEIGHTS	DO j = jMin,jMax
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	123	COST_WEIGHTS	IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	124	COST_WEIGHTS	whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	125	COST_WEIGHTS	& /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	127	COST_WEIGHTS	whfluxm(i,j,bi,bj) = 1. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	36	COST_WEIGHTS	INTEGER i,j,k
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	63	COST_WEIGHTS	DO j = jMin,jMax
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F	65	COST_WEIGHTS	whfluxm(i,j,bi,bj)= 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	122	EXTERNAL_FORCING_SURF	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	124	EXTERNAL_FORCING_SURF	PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	135	EXTERNAL_FORCING_SURF	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	137	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	138	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	200	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	204	EXTERNAL_FORCING_SURF	surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	206	EXTERNAL_FORCING_SURF	surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	208	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	209	EXTERNAL_FORCING_SURF	& - ( Qnet(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	211	EXTERNAL_FORCING_SURF	& -Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	214	EXTERNAL_FORCING_SURF	& +Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	218	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	219	EXTERNAL_FORCING_SURF	& -saltFlux(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	250	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	252	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	253	EXTERNAL_FORCING_SURF	& + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	254	EXTERNAL_FORCING_SURF	& *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	261	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	263	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	264	EXTERNAL_FORCING_SURF	& + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	265	EXTERNAL_FORCING_SURF	& *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	285	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	287	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	288	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	289	EXTERNAL_FORCING_SURF	& *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	296	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	298	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	299	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	300	EXTERNAL_FORCING_SURF	& *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	311	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	313	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	314	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	322	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	324	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	325	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	352	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	354	EXTERNAL_FORCING_SURF	phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	355	EXTERNAL_FORCING_SURF	& +sIceLoad(i,j,bi,bj)*gravity
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	360	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	362	EXTERNAL_FORCING_SURF	phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F	58	EXTERNAL_FORCING_SURF	INTEGER i,j
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	101	INI_FORCING	lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	104	INI_FORCING	& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	105	INI_FORCING	lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	107	INI_FORCING	lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	135	INI_FORCING	DO j=1-Oly,sNy+Oly
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	137	INI_FORCING	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	169	INI_FORCING	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	171	INI_FORCING	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	38	INI_FORCING	INTEGER i, j
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	44	INI_FORCING	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	46	INI_FORCING	fu (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	47	INI_FORCING	fv (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	48	INI_FORCING	Qnet (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	49	INI_FORCING	EmPmR (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	50	INI_FORCING	saltFlux (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	51	INI_FORCING	SST (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	52	INI_FORCING	SSS (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	53	INI_FORCING	Qsw (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	54	INI_FORCING	pLoad (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	55	INI_FORCING	sIceLoad (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	56	INI_FORCING	surfaceForcingU(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	57	INI_FORCING	surfaceForcingV(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	58	INI_FORCING	surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	59	INI_FORCING	surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	60	INI_FORCING	surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	62	INI_FORCING	taux0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	63	INI_FORCING	taux1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	64	INI_FORCING	tauy0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	65	INI_FORCING	tauy1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	66	INI_FORCING	Qnet0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	67	INI_FORCING	Qnet1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	68	INI_FORCING	EmPmR0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	69	INI_FORCING	EmPmR1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	70	INI_FORCING	saltFlux0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	71	INI_FORCING	saltFlux1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	72	INI_FORCING	SST0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	73	INI_FORCING	SST1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	74	INI_FORCING	SSS0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	75	INI_FORCING	SSS1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	77	INI_FORCING	Qsw0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	78	INI_FORCING	Qsw1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	81	INI_FORCING	pLoad0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	82	INI_FORCING	pLoad1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	86	INI_FORCING	Qnetm (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	95	INI_FORCING	DO j=1-Oly,sNy+Oly
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	98	INI_FORCING	& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F	99	INI_FORCING	lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F	37	COST_HFLUX	integer i, j
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F	44	COST_HFLUX	do j=1,sNy
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F	46	COST_HFLUX	tmpC = tmpC + maskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F	68	COST_HFLUX	DO j=1,sNy
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F	70	COST_HFLUX	locfc = locfc + tmpCmaskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F	71	COST_HFLUX	& whfluxm(i,j,bi,bj)*
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F	73	COST_HFLUX	& Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F	34	COST_TEMP	INTEGER i, j, k
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F	50	COST_TEMP	DO j=1,sNy
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F	52	COST_TEMP	tmp = tmp + maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F	76	COST_TEMP	DO j=1,sNy
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F	78	COST_TEMP	locfc = locfc + tmpmaskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F	80	COST_TEMP	& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	120	COST_WEIGHTS	DO j = jMin,jMax
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	123	COST_WEIGHTS	IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	124	COST_WEIGHTS	whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	125	COST_WEIGHTS	& /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	127	COST_WEIGHTS	whfluxm(i,j,bi,bj) = 1. _d 0
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	36	COST_WEIGHTS	INTEGER i,j,k
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	63	COST_WEIGHTS	DO j = jMin,jMax
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F	65	COST_WEIGHTS	whfluxm(i,j,bi,bj)= 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	122	EXTERNAL_FORCING_SURF	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	124	EXTERNAL_FORCING_SURF	PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	135	EXTERNAL_FORCING_SURF	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	137	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	138	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	200	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	204	EXTERNAL_FORCING_SURF	surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	206	EXTERNAL_FORCING_SURF	surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	208	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	209	EXTERNAL_FORCING_SURF	& - ( Qnet(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	211	EXTERNAL_FORCING_SURF	& -Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	214	EXTERNAL_FORCING_SURF	& +Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	218	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	219	EXTERNAL_FORCING_SURF	& -saltFlux(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	250	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	252	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	253	EXTERNAL_FORCING_SURF	& + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	254	EXTERNAL_FORCING_SURF	& *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	261	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	263	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	264	EXTERNAL_FORCING_SURF	& + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	265	EXTERNAL_FORCING_SURF	& *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	285	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	287	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	288	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	289	EXTERNAL_FORCING_SURF	& *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	296	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	298	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	299	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	300	EXTERNAL_FORCING_SURF	& *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	311	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	313	EXTERNAL_FORCING_SURF	surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	314	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	322	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	324	EXTERNAL_FORCING_SURF	surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	325	EXTERNAL_FORCING_SURF	& + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	352	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	354	EXTERNAL_FORCING_SURF	phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	355	EXTERNAL_FORCING_SURF	& +sIceLoad(i,j,bi,bj)*gravity
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	360	EXTERNAL_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	362	EXTERNAL_FORCING_SURF	phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F	58	EXTERNAL_FORCING_SURF	INTEGER i,j
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	101	INI_FORCING	lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	104	INI_FORCING	& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	105	INI_FORCING	lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	107	INI_FORCING	lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	135	INI_FORCING	DO j=1-Oly,sNy+Oly
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	137	INI_FORCING	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	169	INI_FORCING	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	171	INI_FORCING	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	38	INI_FORCING	INTEGER i, j
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	44	INI_FORCING	DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	46	INI_FORCING	fu (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	47	INI_FORCING	fv (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	48	INI_FORCING	Qnet (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	49	INI_FORCING	EmPmR (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	50	INI_FORCING	saltFlux (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	51	INI_FORCING	SST (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	52	INI_FORCING	SSS (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	53	INI_FORCING	Qsw (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	54	INI_FORCING	pLoad (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	55	INI_FORCING	sIceLoad (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	56	INI_FORCING	surfaceForcingU(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	57	INI_FORCING	surfaceForcingV(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	58	INI_FORCING	surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	59	INI_FORCING	surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	60	INI_FORCING	surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	62	INI_FORCING	taux0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	63	INI_FORCING	taux1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	64	INI_FORCING	tauy0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	65	INI_FORCING	tauy1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	66	INI_FORCING	Qnet0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	67	INI_FORCING	Qnet1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	68	INI_FORCING	EmPmR0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	69	INI_FORCING	EmPmR1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	70	INI_FORCING	saltFlux0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	71	INI_FORCING	saltFlux1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	72	INI_FORCING	SST0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	73	INI_FORCING	SST1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	74	INI_FORCING	SSS0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	75	INI_FORCING	SSS1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	77	INI_FORCING	Qsw0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	78	INI_FORCING	Qsw1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	81	INI_FORCING	pLoad0 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	82	INI_FORCING	pLoad1 (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	86	INI_FORCING	Qnetm (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	95	INI_FORCING	DO j=1-Oly,sNy+Oly
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	98	INI_FORCING	& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F	99	INI_FORCING	lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./model/src/set_defaults.F	40	SET_DEFAULTS	INTEGER i, j, k
./model/src/set_defaults.F	77	SET_DEFAULTS	DO j=1,grid_maxNy
./model/src/set_defaults.F	78	SET_DEFAULTS	delY(j) = UNSET_RL
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	153	APPLY_FORCING_V	INTEGER i, j
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	162	APPLY_FORCING_V	DO j=1,sNy+1
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	166	APPLY_FORCING_V	IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	168	APPLY_FORCING_V	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	183	APPLY_FORCING_V	& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	185	APPLY_FORCING_V	& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	190	APPLY_FORCING_V	gV_arr(i,j) = gV_arr(i,j)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	191	APPLY_FORCING_V	& - kV*vVel(i,j,k,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	246	APPLY_FORCING_T	INTEGER i, j
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	256	APPLY_FORCING_T	DO j=0,sNy+1
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	258	APPLY_FORCING_T	term1 = 60. _d 0(SIN(yC(i,j,bi,bj)deg2rad)**2)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	261	APPLY_FORCING_T	& (COS(yC(i,j,bi,bj)deg2rad)**2)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	266	APPLY_FORCING_T	termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	268	APPLY_FORCING_T	& *recip_Rcol(i,j,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	280	APPLY_FORCING_T	& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	282	APPLY_FORCING_T	& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	288	APPLY_FORCING_T	& COS((yC(i,j,bi,bj)deg2rad))**4
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	289	APPLY_FORCING_T	gT_arr(i,j) = gT_arr(i,j)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	290	APPLY_FORCING_T	& - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	291	APPLY_FORCING_T	& *maskC(i,j,k,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	60	APPLY_FORCING_U	INTEGER i, j
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	71	APPLY_FORCING_U	DO j=0,sNy+1
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	73	APPLY_FORCING_U	IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	75	APPLY_FORCING_U	recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	90	APPLY_FORCING_U	& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	92	APPLY_FORCING_U	& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	97	APPLY_FORCING_U	gU_arr(i,j) = gU_arr(i,j)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F	98	APPLY_FORCING_U	& - kV*uVel(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	140	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	143	CTRL_MAP_INI_GENARR	pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	144	CTRL_MAP_INI_GENARR	& + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	145	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	147	CTRL_MAP_INI_GENARR	pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	148	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	52	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F	92	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	107	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	109	PTRACERS_FORCING_SURF	add2EmP(i,j) = 0. _d 0
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	126	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	128	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	129	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	130	PTRACERS_FORCING_SURF	& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	131	PTRACERS_FORCING_SURF	& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	156	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	158	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	159	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	160	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	161	PTRACERS_FORCING_SURF	& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	177	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	179	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	180	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	181	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	51	PTRACERS_FORCING_SURF	INTEGER i, j
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	65	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	67	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	69	PTRACERS_FORCING_SURF	& surfaceForcingS(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	84	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	86	PTRACERS_FORCING_SURF	tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	87	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/tmpVar
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	88	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	89	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	93	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	95	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	96	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F	97	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	143	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	146	CTRL_MAP_INI_GENARR	pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	147	CTRL_MAP_INI_GENARR	& + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	148	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	150	CTRL_MAP_INI_GENARR	pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	151	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	52	CTRL_MAP_INI_GENARR	integer i,j,k
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F	94	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	107	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	109	PTRACERS_FORCING_SURF	add2EmP(i,j) = 0. _d 0
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	126	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	128	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	129	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	130	PTRACERS_FORCING_SURF	& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	131	PTRACERS_FORCING_SURF	& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	156	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	158	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	159	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	160	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	161	PTRACERS_FORCING_SURF	& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	177	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	179	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	180	PTRACERS_FORCING_SURF	& surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	181	PTRACERS_FORCING_SURF	& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	51	PTRACERS_FORCING_SURF	INTEGER i, j
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	65	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	67	PTRACERS_FORCING_SURF	surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	69	PTRACERS_FORCING_SURF	& surfaceForcingS(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	84	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	86	PTRACERS_FORCING_SURF	tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	87	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/tmpVar
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	88	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	89	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	93	PTRACERS_FORCING_SURF	DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	95	PTRACERS_FORCING_SURF	add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	96	PTRACERS_FORCING_SURF	add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F	97	PTRACERS_FORCING_SURF	& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./model/src/solve_for_pressure.F	120	SOLVE_FOR_PRESSURE	DO j=1-OLy,sNy+OLy
./model/src/solve_for_pressure.F	123	SOLVE_FOR_PRESSURE	etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F	125	SOLVE_FOR_PRESSURE	cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F	126	SOLVE_FOR_PRESSURE	cg2d_b(i,j,bi,bj) = 0.
./model/src/solve_for_pressure.F	131	SOLVE_FOR_PRESSURE	DO j=1,sNy
./model/src/solve_for_pressure.F	133	SOLVE_FOR_PRESSURE	cg2d_b(i,j,bi,bj) =
./model/src/solve_for_pressure.F	134	SOLVE_FOR_PRESSURE	& tmpFac_rA(i,j,bi,bj)EmPmR(i,j,bi,bj)/deltaTMom
./model/src/solve_for_pressure.F	135	SOLVE_FOR_PRESSURE	& *maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F	141	SOLVE_FOR_PRESSURE	DO j=1,sNy
./model/src/solve_for_pressure.F	144	SOLVE_FOR_PRESSURE	& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)
./model/src/solve_for_pressure.F	145	SOLVE_FOR_PRESSURE	& *maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F	161	SOLVE_FOR_PRESSURE	DO j=1,sNy
./model/src/solve_for_pressure.F	163	SOLVE_FOR_PRESSURE	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/solve_for_pressure.F	164	SOLVE_FOR_PRESSURE	& - tmpFac*Bo_surf(i,j,bi,bj)
./model/src/solve_for_pressure.F	184	SOLVE_FOR_PRESSURE	DO j=1,sNy
./model/src/solve_for_pressure.F	186	SOLVE_FOR_PRESSURE	ks = kSurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F	188	SOLVE_FOR_PRESSURE	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F	189	SOLVE_FOR_PRESSURE	& -freeSurfFac_rA(i,j,bi,bj)deepFac2F(ks)
./model/src/solve_for_pressure.F	191	SOLVE_FOR_PRESSURE	& *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F	192	SOLVE_FOR_PRESSURE	& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F	193	SOLVE_FOR_PRESSURE	cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/solve_for_pressure.F	194	SOLVE_FOR_PRESSURE	& -freeSurfFac_rA(i,j,bi,bj)deepFac2F(ks)
./model/src/solve_for_pressure.F	196	SOLVE_FOR_PRESSURE	& *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F	197	SOLVE_FOR_PRESSURE	& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F	206	SOLVE_FOR_PRESSURE	DO j=1,sNy
./model/src/solve_for_pressure.F	208	SOLVE_FOR_PRESSURE	ks = kSurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F	209	SOLVE_FOR_PRESSURE	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F	210	SOLVE_FOR_PRESSURE	& -freeSurfFac_rA(i,j,bi,bj)deepFac2F(ks)
./model/src/solve_for_pressure.F	212	SOLVE_FOR_PRESSURE	& * etaH(i,j,bi,bj)
./model/src/solve_for_pressure.F	216	SOLVE_FOR_PRESSURE	DO j=1,sNy
./model/src/solve_for_pressure.F	218	SOLVE_FOR_PRESSURE	ks = kSurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F	219	SOLVE_FOR_PRESSURE	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F	220	SOLVE_FOR_PRESSURE	& -freeSurfFac_rA(i,j,bi,bj)deepFac2F(ks)
./model/src/solve_for_pressure.F	222	SOLVE_FOR_PRESSURE	& * etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F	238	SOLVE_FOR_PRESSURE	DO j=1,sNy
./model/src/solve_for_pressure.F	240	SOLVE_FOR_PRESSURE	cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F	241	SOLVE_FOR_PRESSURE	cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F	340	SOLVE_FOR_PRESSURE	DO j=1-OLy,sNy+OLy
./model/src/solve_for_pressure.F	342	SOLVE_FOR_PRESSURE	etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj)
./model/src/solve_for_pressure.F	54	SOLVE_FOR_PRESSURE	INTEGER i,j,k,bi,bj
./model/src/solve_pentadiagonal.F	101	SOLVE_PENTADIAGONAL	b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	102	SOLVE_PENTADIAGONAL	c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	103	SOLVE_PENTADIAGONAL	d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	104	SOLVE_PENTADIAGONAL	y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	105	SOLVE_PENTADIAGONAL	IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F	106	SOLVE_PENTADIAGONAL	c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F	108	SOLVE_PENTADIAGONAL	c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	116	SOLVE_PENTADIAGONAL	DO j=jMin,jMax
./model/src/solve_pentadiagonal.F	119	SOLVE_PENTADIAGONAL	a5d(i,j,k) = a5d(i,j,k)*c5d(i,j,k-2)
./model/src/solve_pentadiagonal.F	120	SOLVE_PENTADIAGONAL	b5d(i,j,k) = b5d(i,j,k) - a5d(i,j,k)*d5d(i,j,k-2)
./model/src/solve_pentadiagonal.F	121	SOLVE_PENTADIAGONAL	c5d(i,j,k) = c5d(i,j,k) - a5d(i,j,k)*e5d(i,j,k-2)
./model/src/solve_pentadiagonal.F	123	SOLVE_PENTADIAGONAL	b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	124	SOLVE_PENTADIAGONAL	c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	125	SOLVE_PENTADIAGONAL	d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	126	SOLVE_PENTADIAGONAL	y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1)
./model/src/solve_pentadiagonal.F	127	SOLVE_PENTADIAGONAL	& - a5d(i,j,k)*y5d(i,j,k-2)
./model/src/solve_pentadiagonal.F	128	SOLVE_PENTADIAGONAL	IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F	129	SOLVE_PENTADIAGONAL	c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F	131	SOLVE_PENTADIAGONAL	c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	143	SOLVE_PENTADIAGONAL	DO j=jMin,jMax
./model/src/solve_pentadiagonal.F	145	SOLVE_PENTADIAGONAL	y5d(i,j,k) = y5d(i,j,k)*c5d(i,j,k)
./model/src/solve_pentadiagonal.F	149	SOLVE_PENTADIAGONAL	DO j=jMin,jMax
./model/src/solve_pentadiagonal.F	151	SOLVE_PENTADIAGONAL	y5d(i,j,k) = ( y5d(i,j,k)
./model/src/solve_pentadiagonal.F	152	SOLVE_PENTADIAGONAL	& - d5d(i,j,k)*y5d(i,j,k+1)
./model/src/solve_pentadiagonal.F	153	SOLVE_PENTADIAGONAL	& )*c5d(i,j,k)
./model/src/solve_pentadiagonal.F	157	SOLVE_PENTADIAGONAL	DO j=jMin,jMax
./model/src/solve_pentadiagonal.F	159	SOLVE_PENTADIAGONAL	y5d(i,j,k) = ( y5d(i,j,k)
./model/src/solve_pentadiagonal.F	160	SOLVE_PENTADIAGONAL	& - d5d(i,j,k)*y5d(i,j,k+1)
./model/src/solve_pentadiagonal.F	161	SOLVE_PENTADIAGONAL	& - e5d(i,j,k)*y5d(i,j,k+2)
./model/src/solve_pentadiagonal.F	162	SOLVE_PENTADIAGONAL	& )*c5d(i,j,k)
./model/src/solve_pentadiagonal.F	173	SOLVE_PENTADIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_pentadiagonal.F	177	SOLVE_PENTADIAGONAL	y5d_m1(i,j,k) = y5d(i,j,k)
./model/src/solve_pentadiagonal.F	185	SOLVE_PENTADIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_pentadiagonal.F	201	SOLVE_PENTADIAGONAL	c5d_prime(k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F	202	SOLVE_PENTADIAGONAL	d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F	203	SOLVE_PENTADIAGONAL	e5d_prime(k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F	204	SOLVE_PENTADIAGONAL	y5d_prime(k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F	207	SOLVE_PENTADIAGONAL	c5d_prime(k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F	208	SOLVE_PENTADIAGONAL	& -b5d(i,j,k)*d5d_prime(k-1)
./model/src/solve_pentadiagonal.F	209	SOLVE_PENTADIAGONAL	d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F	210	SOLVE_PENTADIAGONAL	& -b5d(i,j,k)*e5d_prime(k-1)
./model/src/solve_pentadiagonal.F	211	SOLVE_PENTADIAGONAL	e5d_prime(k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F	212	SOLVE_PENTADIAGONAL	y5d_prime(k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F	213	SOLVE_PENTADIAGONAL	& -b5d(i,j,k)*y5d_prime(k-1)
./model/src/solve_pentadiagonal.F	216	SOLVE_PENTADIAGONAL	c5d_prime(k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F	217	SOLVE_PENTADIAGONAL	& -a5d(i,j,k)*e5d_prime(k-2)
./model/src/solve_pentadiagonal.F	218	SOLVE_PENTADIAGONAL	& -(b5d(i,j,k)-a5d(i,j,k)d5d_prime(k-2))d5d_prime(k-1)
./model/src/solve_pentadiagonal.F	219	SOLVE_PENTADIAGONAL	d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F	220	SOLVE_PENTADIAGONAL	& -(b5d(i,j,k)-a5d(i,j,k)d5d_prime(k-2))e5d_prime(k-1)
./model/src/solve_pentadiagonal.F	221	SOLVE_PENTADIAGONAL	e5d_prime(k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F	222	SOLVE_PENTADIAGONAL	y5d_prime(k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F	223	SOLVE_PENTADIAGONAL	& -a5d(i,j,k)*y5d_prime(k-2)
./model/src/solve_pentadiagonal.F	224	SOLVE_PENTADIAGONAL	& -(b5d(i,j,k)-a5d(i,j,k)d5d_prime(k-2))y5d_prime(k-1)
./model/src/solve_pentadiagonal.F	260	SOLVE_PENTADIAGONAL	y5d(i,j,k) = y5d_update(k)
./model/src/solve_pentadiagonal.F	271	SOLVE_PENTADIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_pentadiagonal.F	275	SOLVE_PENTADIAGONAL	c5d_prime(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	276	SOLVE_PENTADIAGONAL	d5d_prime(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	277	SOLVE_PENTADIAGONAL	e5d_prime(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	278	SOLVE_PENTADIAGONAL	y5d_prime(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	279	SOLVE_PENTADIAGONAL	y5d_update(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	289	SOLVE_PENTADIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_pentadiagonal.F	296	SOLVE_PENTADIAGONAL	c5d_prime(i,j,k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F	297	SOLVE_PENTADIAGONAL	d5d_prime(i,j,k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F	298	SOLVE_PENTADIAGONAL	e5d_prime(i,j,k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F	299	SOLVE_PENTADIAGONAL	y5d_prime(i,j,k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F	302	SOLVE_PENTADIAGONAL	c5d_prime(i,j,k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F	303	SOLVE_PENTADIAGONAL	& -b5d(i,j,k)*d5d_prime(i,j,k-1)
./model/src/solve_pentadiagonal.F	304	SOLVE_PENTADIAGONAL	d5d_prime(i,j,k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F	305	SOLVE_PENTADIAGONAL	& -b5d(i,j,k)*e5d_prime(i,j,k-1)
./model/src/solve_pentadiagonal.F	306	SOLVE_PENTADIAGONAL	e5d_prime(i,j,k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F	307	SOLVE_PENTADIAGONAL	y5d_prime(i,j,k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F	308	SOLVE_PENTADIAGONAL	& -b5d(i,j,k)*y5d_prime(i,j,k-1)
./model/src/solve_pentadiagonal.F	311	SOLVE_PENTADIAGONAL	c5d_prime(i,j,k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F	312	SOLVE_PENTADIAGONAL	& -a5d(i,j,k)*e5d_prime(i,j,k-2)
./model/src/solve_pentadiagonal.F	313	SOLVE_PENTADIAGONAL	& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2))
./model/src/solve_pentadiagonal.F	314	SOLVE_PENTADIAGONAL	& *d5d_prime(i,j,k-1)
./model/src/solve_pentadiagonal.F	315	SOLVE_PENTADIAGONAL	d5d_prime(i,j,k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F	316	SOLVE_PENTADIAGONAL	& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2))
./model/src/solve_pentadiagonal.F	317	SOLVE_PENTADIAGONAL	& *e5d_prime(i,j,k-1)
./model/src/solve_pentadiagonal.F	318	SOLVE_PENTADIAGONAL	e5d_prime(i,j,k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F	319	SOLVE_PENTADIAGONAL	y5d_prime(i,j,k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F	320	SOLVE_PENTADIAGONAL	& -a5d(i,j,k)*y5d_prime(i,j,k-2)
./model/src/solve_pentadiagonal.F	321	SOLVE_PENTADIAGONAL	& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2))
./model/src/solve_pentadiagonal.F	322	SOLVE_PENTADIAGONAL	& *y5d_prime(i,j,k-1)
./model/src/solve_pentadiagonal.F	326	SOLVE_PENTADIAGONAL	tmpVar = c5d_prime(i,j,k)
./model/src/solve_pentadiagonal.F	329	SOLVE_PENTADIAGONAL	d5d_prime(i,j,k) = d5d_prime(i,j,k)*recVar
./model/src/solve_pentadiagonal.F	330	SOLVE_PENTADIAGONAL	e5d_prime(i,j,k) = e5d_prime(i,j,k)*recVar
./model/src/solve_pentadiagonal.F	331	SOLVE_PENTADIAGONAL	y5d_prime(i,j,k) = y5d_prime(i,j,k)*recVar
./model/src/solve_pentadiagonal.F	333	SOLVE_PENTADIAGONAL	d5d_prime(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	334	SOLVE_PENTADIAGONAL	e5d_prime(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	335	SOLVE_PENTADIAGONAL	y5d_prime(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	348	SOLVE_PENTADIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_pentadiagonal.F	353	SOLVE_PENTADIAGONAL	y5d_update(i,j,k) = y5d_prime(i,j,k)
./model/src/solve_pentadiagonal.F	355	SOLVE_PENTADIAGONAL	y5d_update(i,j,k) = y5d_prime(i,j,k)
./model/src/solve_pentadiagonal.F	356	SOLVE_PENTADIAGONAL	& - y5d_update(i,j,k+1)*d5d_prime(i,j,k)
./model/src/solve_pentadiagonal.F	358	SOLVE_PENTADIAGONAL	y5d_update(i,j,k) = y5d_prime(i,j,k)
./model/src/solve_pentadiagonal.F	359	SOLVE_PENTADIAGONAL	& - y5d_update(i,j,k+1)*d5d_prime(i,j,k)
./model/src/solve_pentadiagonal.F	360	SOLVE_PENTADIAGONAL	& - y5d_update(i,j,k+2)*e5d_prime(i,j,k)
./model/src/solve_pentadiagonal.F	369	SOLVE_PENTADIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_pentadiagonal.F	373	SOLVE_PENTADIAGONAL	y5d(i,j,k) = y5d_update(i,j,k)
./model/src/solve_pentadiagonal.F	59	SOLVE_PENTADIAGONAL	INTEGER i,j,k
./model/src/solve_pentadiagonal.F	86	SOLVE_PENTADIAGONAL	DO j=jMin,jMax
./model/src/solve_pentadiagonal.F	88	SOLVE_PENTADIAGONAL	IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F	89	SOLVE_PENTADIAGONAL	c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F	91	SOLVE_PENTADIAGONAL	c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F	98	SOLVE_PENTADIAGONAL	DO j=jMin,jMax
./model/src/solve_tridiagonal.F	102	SOLVE_TRIDIAGONAL	DO j=jMin,jMax
./model/src/solve_tridiagonal.F	104	SOLVE_TRIDIAGONAL	y3d(i,j,k) = ( y3d(i,j,k)
./model/src/solve_tridiagonal.F	105	SOLVE_TRIDIAGONAL	& - a3d(i,j,k)*y3d(i,j,k-1)
./model/src/solve_tridiagonal.F	106	SOLVE_TRIDIAGONAL	& )*b3d(i,j,k)
./model/src/solve_tridiagonal.F	113	SOLVE_TRIDIAGONAL	DO j=jMin,jMax
./model/src/solve_tridiagonal.F	115	SOLVE_TRIDIAGONAL	y3d(i,j,k) = y3d(i,j,k)
./model/src/solve_tridiagonal.F	116	SOLVE_TRIDIAGONAL	& - c3d(i,j,k)b3d(i,j,k)y3d(i,j,k+1)
./model/src/solve_tridiagonal.F	125	SOLVE_TRIDIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_tridiagonal.F	129	SOLVE_TRIDIAGONAL	c3d_m1(i,j,k) = c3d(i,j,k)
./model/src/solve_tridiagonal.F	130	SOLVE_TRIDIAGONAL	y3d_m1(i,j,k) = y3d(i,j,k)
./model/src/solve_tridiagonal.F	138	SOLVE_TRIDIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_tridiagonal.F	150	SOLVE_TRIDIAGONAL	IF ( b3d(i,j,1).NE.0. _d 0 ) THEN
./model/src/solve_tridiagonal.F	151	SOLVE_TRIDIAGONAL	c3d_prime(1) = c3d_m1(i,j,1) / b3d(i,j,1)
./model/src/solve_tridiagonal.F	152	SOLVE_TRIDIAGONAL	y3d_prime(1) = y3d_m1(i,j,1) / b3d(i,j,1)
./model/src/solve_tridiagonal.F	159	SOLVE_TRIDIAGONAL	tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1)
./model/src/solve_tridiagonal.F	162	SOLVE_TRIDIAGONAL	c3d_prime(k) = c3d_m1(i,j,k)*recVar
./model/src/solve_tridiagonal.F	163	SOLVE_TRIDIAGONAL	y3d_prime(k) = (y3d_m1(i,j,k) - y3d_prime(k-1)*a3d(i,j,k))
./model/src/solve_tridiagonal.F	184	SOLVE_TRIDIAGONAL	y3d(i,j,k) = y3d_update(k)
./model/src/solve_tridiagonal.F	194	SOLVE_TRIDIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_tridiagonal.F	198	SOLVE_TRIDIAGONAL	c3d_prime(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F	199	SOLVE_TRIDIAGONAL	y3d_prime(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F	200	SOLVE_TRIDIAGONAL	y3d_update(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F	209	SOLVE_TRIDIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_tridiagonal.F	214	SOLVE_TRIDIAGONAL	IF ( b3d(i,j,1).NE.0. _d 0 ) THEN
./model/src/solve_tridiagonal.F	215	SOLVE_TRIDIAGONAL	recVar = 1. _d 0 / b3d(i,j,1)
./model/src/solve_tridiagonal.F	216	SOLVE_TRIDIAGONAL	c3d_prime(i,j,1) = c3d_m1(i,j,1)*recVar
./model/src/solve_tridiagonal.F	217	SOLVE_TRIDIAGONAL	y3d_prime(i,j,1) = y3d_m1(i,j,1)*recVar
./model/src/solve_tridiagonal.F	219	SOLVE_TRIDIAGONAL	c3d_prime(i,j,1) = 0. _d 0
./model/src/solve_tridiagonal.F	220	SOLVE_TRIDIAGONAL	y3d_prime(i,j,1) = 0. _d 0
./model/src/solve_tridiagonal.F	224	SOLVE_TRIDIAGONAL	tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(i,j,k-1)
./model/src/solve_tridiagonal.F	227	SOLVE_TRIDIAGONAL	c3d_prime(i,j,k) = c3d_m1(i,j,k)*recVar
./model/src/solve_tridiagonal.F	228	SOLVE_TRIDIAGONAL	y3d_prime(i,j,k) = ( y3d_m1(i,j,k)
./model/src/solve_tridiagonal.F	229	SOLVE_TRIDIAGONAL	& - a3d(i,j,k)*y3d_prime(i,j,k-1)
./model/src/solve_tridiagonal.F	232	SOLVE_TRIDIAGONAL	c3d_prime(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F	233	SOLVE_TRIDIAGONAL	y3d_prime(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F	245	SOLVE_TRIDIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_tridiagonal.F	250	SOLVE_TRIDIAGONAL	y3d_update(i,j,k) = y3d_prime(i,j,k)
./model/src/solve_tridiagonal.F	252	SOLVE_TRIDIAGONAL	y3d_update(i,j,k) = y3d_prime(i,j,k)
./model/src/solve_tridiagonal.F	253	SOLVE_TRIDIAGONAL	& - c3d_prime(i,j,k)*y3d_update(i,j,k+1)
./model/src/solve_tridiagonal.F	262	SOLVE_TRIDIAGONAL	DO j=1-OLy,sNy+OLy
./model/src/solve_tridiagonal.F	266	SOLVE_TRIDIAGONAL	y3d(i,j,k) = y3d_update(i,j,k)
./model/src/solve_tridiagonal.F	47	SOLVE_TRIDIAGONAL	INTEGER i,j,k
./model/src/solve_tridiagonal.F	70	SOLVE_TRIDIAGONAL	DO j=jMin,jMax
./model/src/solve_tridiagonal.F	72	SOLVE_TRIDIAGONAL	IF ( b3d(i,j,1).NE.0. _d 0 ) THEN
./model/src/solve_tridiagonal.F	73	SOLVE_TRIDIAGONAL	b3d(i,j,1) = 1. _d 0 / b3d(i,j,1)
./model/src/solve_tridiagonal.F	75	SOLVE_TRIDIAGONAL	b3d(i,j,1) = 0. _d 0
./model/src/solve_tridiagonal.F	83	SOLVE_TRIDIAGONAL	DO j=jMin,jMax
./model/src/solve_tridiagonal.F	85	SOLVE_TRIDIAGONAL	tmpVar = b3d(i,j,k) - a3d(i,j,k)c3d(i,j,k-1)b3d(i,j,k-1)
./model/src/solve_tridiagonal.F	87	SOLVE_TRIDIAGONAL	b3d(i,j,k) = 1. _d 0 / tmpVar
./model/src/solve_tridiagonal.F	89	SOLVE_TRIDIAGONAL	b3d(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F	96	SOLVE_TRIDIAGONAL	DO j=jMin,jMax
./model/src/solve_tridiagonal.F	98	SOLVE_TRIDIAGONAL	y3d(i,j,1) = y3d(i,j,1)*b3d(i,j,1)
./model/src/solve_uv_tridiago.F	102	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	104	SOLVE_UV_TRIDIAGO	alpU(i,j,bi,bj) = aU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	105	SOLVE_UV_TRIDIAGO	gamU(i,j,bi,bj) = cU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	106	SOLVE_UV_TRIDIAGO	yy_U(i,j,bi,bj) = rhsU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	112	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	114	SOLVE_UV_TRIDIAGO	tmpVar = bU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	121	SOLVE_UV_TRIDIAGO	gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	122	SOLVE_UV_TRIDIAGO	alpU(i,j,bi,bj) = alpU(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	123	SOLVE_UV_TRIDIAGO	yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	127	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	131	SOLVE_UV_TRIDIAGO	tmpVar = bU(i,j,k,bi,bj) - alpU(i,j,bi,bj)*gamU(im,j,bi,bj)
./model/src/solve_uv_tridiago.F	138	SOLVE_UV_TRIDIAGO	yy_U(i,j,bi,bj) = ( yy_U(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	139	SOLVE_UV_TRIDIAGO	& - alpU(i,j,bi,bj)*yy_U(im,j,bi,bj)
./model/src/solve_uv_tridiago.F	141	SOLVE_UV_TRIDIAGO	gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	142	SOLVE_UV_TRIDIAGO	alpU(i,j,bi,bj) = - alpU(i,j,bi,bj)alpU(im,j,bi,bj)tmpVar
./model/src/solve_uv_tridiago.F	147	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	152	SOLVE_UV_TRIDIAGO	yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	153	SOLVE_UV_TRIDIAGO	& - gamU(i,j,bi,bj)*yy_U(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F	154	SOLVE_UV_TRIDIAGO	alpU(i,j,bi,bj) = alpU(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	155	SOLVE_UV_TRIDIAGO	& - gamU(i,j,bi,bj)*alpU(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F	156	SOLVE_UV_TRIDIAGO	gamU(i,j,bi,bj) = -gamU(i,j,bi,bj)*gamU(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F	176	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	177	SOLVE_UV_TRIDIAGO	aTu(1,j,bi,bj) = alpU( 1, j,bi,bj)
./model/src/solve_uv_tridiago.F	178	SOLVE_UV_TRIDIAGO	cTu(1,j,bi,bj) = gamU( 1, j,bi,bj)
./model/src/solve_uv_tridiago.F	179	SOLVE_UV_TRIDIAGO	yTu(1,j,bi,bj) = yy_U( 1, j,bi,bj)
./model/src/solve_uv_tridiago.F	180	SOLVE_UV_TRIDIAGO	aTu(2,j,bi,bj) = alpU(sNx,j,bi,bj)
./model/src/solve_uv_tridiago.F	181	SOLVE_UV_TRIDIAGO	cTu(2,j,bi,bj) = gamU(sNx,j,bi,bj)
./model/src/solve_uv_tridiago.F	182	SOLVE_UV_TRIDIAGO	yTu(2,j,bi,bj) = yy_U(sNx,j,bi,bj)
./model/src/solve_uv_tridiago.F	196	SOLVE_UV_TRIDIAGO	DO j=1,sNy
./model/src/solve_uv_tridiago.F	201	SOLVE_UV_TRIDIAGO	tmpVar = oneRL - aTu(1,j,bi,bj)*cTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F	208	SOLVE_UV_TRIDIAGO	yTu(1,j,bi,bj) = ( yTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F	209	SOLVE_UV_TRIDIAGO	& - aTu(1,j,bi,bj)*yTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F	211	SOLVE_UV_TRIDIAGO	cTu(1,j,bi,bj) = cTu(1,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	212	SOLVE_UV_TRIDIAGO	aTu(1,j,bi,bj) = - aTu(1,j,bi,bj)aTu(2,j,bm,bj)tmpVar
./model/src/solve_uv_tridiago.F	215	SOLVE_UV_TRIDIAGO	tmpVar = aTu(2,j,bi,bj)*cTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F	216	SOLVE_UV_TRIDIAGO	yTu(2,j,bi,bj) = yTu(2,j,bi,bj)
./model/src/solve_uv_tridiago.F	217	SOLVE_UV_TRIDIAGO	& - aTu(2,j,bi,bj)*yTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F	218	SOLVE_UV_TRIDIAGO	& + tmpVar*yTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F	219	SOLVE_UV_TRIDIAGO	cTu(2,j,bi,bj) = cTu(2,j,bi,bj)
./model/src/solve_uv_tridiago.F	220	SOLVE_UV_TRIDIAGO	& + tmpVar*cTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F	221	SOLVE_UV_TRIDIAGO	aTu(2,j,bi,bj) = -aTu(2,j,bi,bj)*aTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F	222	SOLVE_UV_TRIDIAGO	& + tmpVar*aTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F	230	SOLVE_UV_TRIDIAGO	aTu(i,j,bi,bj) = aTu(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	231	SOLVE_UV_TRIDIAGO	& - cTu(i,j,bi,bj)*aTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F	232	SOLVE_UV_TRIDIAGO	yTu(i,j,bi,bj) = yTu(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	233	SOLVE_UV_TRIDIAGO	& - cTu(i,j,bi,bj)*yTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F	234	SOLVE_UV_TRIDIAGO	cTu(i,j,bi,bj) = -cTu(i,j,bi,bj)*cTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F	242	SOLVE_UV_TRIDIAGO	cTu(1,j,bm,bj) = oneRL + cTu(1,j,bm,bj)
./model/src/solve_uv_tridiago.F	243	SOLVE_UV_TRIDIAGO	aTu(2,j,bp,bj) = oneRL + aTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F	244	SOLVE_UV_TRIDIAGO	tmpVar = cTu(1,j,bm,bj) * aTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F	245	SOLVE_UV_TRIDIAGO	& - aTu(1,j,bm,bj) * cTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F	252	SOLVE_UV_TRIDIAGO	uTmp1 = ( aTu(2,j,bp,bj) * yTu(1,j,bm,bj)
./model/src/solve_uv_tridiago.F	253	SOLVE_UV_TRIDIAGO	& - aTu(1,j,bm,bj) * yTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F	255	SOLVE_UV_TRIDIAGO	uTmp2 = ( cTu(1,j,bm,bj) * yTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F	256	SOLVE_UV_TRIDIAGO	& - cTu(2,j,bp,bj) * yTu(1,j,bm,bj)
./model/src/solve_uv_tridiago.F	263	SOLVE_UV_TRIDIAGO	yTu(i,j,bi,bj) = uTmp1
./model/src/solve_uv_tridiago.F	265	SOLVE_UV_TRIDIAGO	yTu(i,j,bi,bj) = uTmp2
./model/src/solve_uv_tridiago.F	267	SOLVE_UV_TRIDIAGO	yTu(i,j,bi,bj) = yTu(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	268	SOLVE_UV_TRIDIAGO	& - aTu(i,j,bi,bj) * uTmp2
./model/src/solve_uv_tridiago.F	269	SOLVE_UV_TRIDIAGO	& - cTu(i,j,bi,bj) * uTmp1
./model/src/solve_uv_tridiago.F	283	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	285	SOLVE_UV_TRIDIAGO	uFld(i,j,k,bi,bj) = yy_U(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	286	SOLVE_UV_TRIDIAGO	& - alpU(i,j,bi,bj) * yTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F	287	SOLVE_UV_TRIDIAGO	& - gamU(i,j,bi,bj) * yTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F	301	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	303	SOLVE_UV_TRIDIAGO	alpV(i,j,bi,bj) = aV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	304	SOLVE_UV_TRIDIAGO	gamV(i,j,bi,bj) = cV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	305	SOLVE_UV_TRIDIAGO	yy_V(i,j,bi,bj) = rhsV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	310	SOLVE_UV_TRIDIAGO	j = 1
./model/src/solve_uv_tridiago.F	313	SOLVE_UV_TRIDIAGO	tmpVar = bV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F	320	SOLVE_UV_TRIDIAGO	gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	321	SOLVE_UV_TRIDIAGO	alpV(i,j,bi,bj) = alpV(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	322	SOLVE_UV_TRIDIAGO	yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	327	SOLVE_UV_TRIDIAGO	DO j= 2,sNy
./model/src/solve_uv_tridiago.F	328	SOLVE_UV_TRIDIAGO	jm = j-1
./model/src/solve_uv_tridiago.F	330	SOLVE_UV_TRIDIAGO	tmpVar = bV(i,j,k,bi,bj) - alpV(i,j,bi,bj)*gamV(i,jm,bi,bj)
./model/src/solve_uv_tridiago.F	337	SOLVE_UV_TRIDIAGO	yy_V(i,j,bi,bj) = ( yy_V(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	338	SOLVE_UV_TRIDIAGO	& - alpV(i,j,bi,bj)*yy_V(i,jm,bi,bj)
./model/src/solve_uv_tridiago.F	340	SOLVE_UV_TRIDIAGO	gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F	341	SOLVE_UV_TRIDIAGO	alpV(i,j,bi,bj) = - alpV(i,j,bi,bj)alpV(i,jm,bi,bj)tmpVar
./model/src/solve_uv_tridiago.F	348	SOLVE_UV_TRIDIAGO	j = sNy - jj
./model/src/solve_uv_tridiago.F	349	SOLVE_UV_TRIDIAGO	jp = j+1
./model/src/solve_uv_tridiago.F	351	SOLVE_UV_TRIDIAGO	yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	352	SOLVE_UV_TRIDIAGO	& - gamV(i,j,bi,bj)*yy_V(i,jp,bi,bj)
./model/src/solve_uv_tridiago.F	353	SOLVE_UV_TRIDIAGO	alpV(i,j,bi,bj) = alpV(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	354	SOLVE_UV_TRIDIAGO	& - gamV(i,j,bi,bj)*alpV(i,jp,bi,bj)
./model/src/solve_uv_tridiago.F	355	SOLVE_UV_TRIDIAGO	gamV(i,j,bi,bj) = -gamV(i,j,bi,bj)*gamV(i,jp,bi,bj)
./model/src/solve_uv_tridiago.F	414	SOLVE_UV_TRIDIAGO	DO j=1,2
./model/src/solve_uv_tridiago.F	417	SOLVE_UV_TRIDIAGO	aTv(j,i,bi,bj) = aTv(j,i,bi,bj)
./model/src/solve_uv_tridiago.F	418	SOLVE_UV_TRIDIAGO	& - cTv(j,i,bi,bj)*aTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F	419	SOLVE_UV_TRIDIAGO	yTv(j,i,bi,bj) = yTv(j,i,bi,bj)
./model/src/solve_uv_tridiago.F	420	SOLVE_UV_TRIDIAGO	& - cTv(j,i,bi,bj)*yTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F	421	SOLVE_UV_TRIDIAGO	cTv(j,i,bi,bj) = -cTv(j,i,bi,bj)*cTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F	448	SOLVE_UV_TRIDIAGO	DO j=1,2
./model/src/solve_uv_tridiago.F	449	SOLVE_UV_TRIDIAGO	IF ( bj+j .EQ.2 ) THEN
./model/src/solve_uv_tridiago.F	450	SOLVE_UV_TRIDIAGO	yTv(j,i,bi,bj) = vTmp1
./model/src/solve_uv_tridiago.F	451	SOLVE_UV_TRIDIAGO	ELSEIF ( bj+j .EQ. nSy+2 ) THEN
./model/src/solve_uv_tridiago.F	452	SOLVE_UV_TRIDIAGO	yTv(j,i,bi,bj) = vTmp2
./model/src/solve_uv_tridiago.F	454	SOLVE_UV_TRIDIAGO	yTv(j,i,bi,bj) = yTv(j,i,bi,bj)
./model/src/solve_uv_tridiago.F	455	SOLVE_UV_TRIDIAGO	& - aTv(j,i,bi,bj) * vTmp2
./model/src/solve_uv_tridiago.F	456	SOLVE_UV_TRIDIAGO	& - cTv(j,i,bi,bj) * vTmp1
./model/src/solve_uv_tridiago.F	470	SOLVE_UV_TRIDIAGO	DO j= 1,sNy
./model/src/solve_uv_tridiago.F	472	SOLVE_UV_TRIDIAGO	vFld(i,j,k,bi,bj) = yy_V(i,j,bi,bj)
./model/src/solve_uv_tridiago.F	473	SOLVE_UV_TRIDIAGO	& - alpV(i,j,bi,bj) * yTv(2,i,bi,bm)
./model/src/solve_uv_tridiago.F	474	SOLVE_UV_TRIDIAGO	& - gamV(i,j,bi,bj) * yTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F	78	SOLVE_UV_TRIDIAGO	INTEGER i,j,k
./model/src/taueddy_init_varia.F	37	TAUEDDY_INIT_VARIA	INTEGER i, j, k
./model/src/taueddy_init_varia.F	44	TAUEDDY_INIT_VARIA	DO j=1-Oly,sNy+Oly
./model/src/taueddy_init_varia.F	46	TAUEDDY_INIT_VARIA	eddyPsiX(i,j,k,bi,bj)=0.
./model/src/taueddy_init_varia.F	47	TAUEDDY_INIT_VARIA	eddyPsiY(i,j,k,bi,bj)=0.
./model/src/taueddy_tendency_apply.F	147	TAUEDDY_TENDENCY_APPLY_V	INTEGER i, j
./model/src/taueddy_tendency_apply.F	160	TAUEDDY_TENDENCY_APPLY_V	DO j=jMin,jMax
./model/src/taueddy_tendency_apply.F	162	TAUEDDY_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./model/src/taueddy_tendency_apply.F	164	TAUEDDY_TENDENCY_APPLY_V	& ( maskm1_maskS(i,j, k ,bi,bj)tauyEddy(i,j, k ,bi,bj)
./model/src/taueddy_tendency_apply.F	165	TAUEDDY_TENDENCY_APPLY_V	& - maskp1_maskS(i,j,kp1,bi,bj)tauyEddy(i,j,kp1,bi,bj) )
./model/src/taueddy_tendency_apply.F	166	TAUEDDY_TENDENCY_APPLY_V	& recip_drF(k)_recip_hFacS(i,j,k,bi,bj)
./model/src/taueddy_tendency_apply.F	65	TAUEDDY_TENDENCY_APPLY_U	INTEGER i, j
./model/src/taueddy_tendency_apply.F	78	TAUEDDY_TENDENCY_APPLY_U	DO j=jMin,jMax
./model/src/taueddy_tendency_apply.F	80	TAUEDDY_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./model/src/taueddy_tendency_apply.F	82	TAUEDDY_TENDENCY_APPLY_U	& ( maskm1_maskW(i,j, k ,bi,bj)tauxEddy(i,j, k ,bi,bj)
./model/src/taueddy_tendency_apply.F	83	TAUEDDY_TENDENCY_APPLY_U	& - maskp1_maskW(i,j,kp1,bi,bj)tauxEddy(i,j,kp1,bi,bj) )
./model/src/taueddy_tendency_apply.F	84	TAUEDDY_TENDENCY_APPLY_U	& recip_drF(k)_recip_hFacW(i,j,k,bi,bj)
./model/src/temp_integrate.F	124	TEMP_INTEGRATE	INTEGER i, j, k
./model/src/temp_integrate.F	206	TEMP_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/temp_integrate.F	208	TEMP_INTEGRATE	gT_loc(i,j,k) = 0. _d 0
./model/src/temp_integrate.F	212	TEMP_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/temp_integrate.F	214	TEMP_INTEGRATE	fVer(i,j,1) = 0. _d 0
./model/src/temp_integrate.F	215	TEMP_INTEGRATE	fVer(i,j,2) = 0. _d 0
./model/src/temp_integrate.F	220	TEMP_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/temp_integrate.F	222	TEMP_INTEGRATE	kappaRk(i,j,k) = 0. _d 0
./model/src/temp_integrate.F	321	TEMP_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/temp_integrate.F	323	TEMP_INTEGRATE	gtForc(i,j) = 0. _d 0
./model/src/temp_integrate.F	374	TEMP_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/temp_integrate.F	376	TEMP_INTEGRATE	gT_loc(i,j,k) = gT_loc(i,j,k) + gtForc(i,j)
./model/src/temp_integrate.F	404	TEMP_INTEGRATE	DO j=1-OLy,sNy+OLy
./model/src/temp_integrate.F	406	TEMP_INTEGRATE	gT_loc(i,j,k) = gT_loc(i,j,k) + gtForc(i,j)
./model/src/thermodynamics.F	160	THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F	162	THERMODYNAMICS	recip_hFacNew(i,j,k) = 0. _d 0
./model/src/thermodynamics.F	164	THERMODYNAMICS	kappaRk(i,j,k) = 0. _d 0
./model/src/thermodynamics.F	175	THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F	177	THERMODYNAMICS	recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F	178	THERMODYNAMICS	& / rStarExpC(i,j,bi,bj)
./model/src/thermodynamics.F	186	THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F	188	THERMODYNAMICS	recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F	189	THERMODYNAMICS	& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/thermodynamics.F	191	THERMODYNAMICS	& *recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F	199	THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F	201	THERMODYNAMICS	IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./model/src/thermodynamics.F	202	THERMODYNAMICS	recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/thermodynamics.F	204	THERMODYNAMICS	recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F	213	THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F	215	THERMODYNAMICS	recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F	226	THERMODYNAMICS	DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F	228	THERMODYNAMICS	uFld(i,j,k) = uVel(i,j,k,bi,bj)
./model/src/thermodynamics.F	229	THERMODYNAMICS	vFld(i,j,k) = vVel(i,j,k,bi,bj)
./model/src/thermodynamics.F	230	THERMODYNAMICS	wFld(i,j,k) = wVel(i,j,k,bi,bj)
./model/src/thermodynamics.F	96	THERMODYNAMICS	INTEGER i, j, k
./model/src/timestep.F	118	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	120	TIMESTEP	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j)
./model/src/timestep.F	121	TIMESTEP	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j)
./model/src/timestep.F	132	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	134	TIMESTEP	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j)
./model/src/timestep.F	135	TIMESTEP	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvDissip(i,j)
./model/src/timestep.F	142	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	144	TIMESTEP	gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guExt(i,j)
./model/src/timestep.F	145	TIMESTEP	gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvExt(i,j)
./model/src/timestep.F	153	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	155	TIMESTEP	gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F	156	TIMESTEP	gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F	200	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	202	TIMESTEP	gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F	203	TIMESTEP	gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F	212	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	214	TIMESTEP	gUtmp(i,j) = gUtmp(i,j) + guExt(i,j)
./model/src/timestep.F	215	TIMESTEP	gVtmp(i,j) = gVtmp(i,j) + gvExt(i,j)
./model/src/timestep.F	222	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	224	TIMESTEP	gUtmp(i,j) = gUtmp(i,j) + guDissip(i,j)
./model/src/timestep.F	225	TIMESTEP	gVtmp(i,j) = gVtmp(i,j) + gvDissip(i,j)
./model/src/timestep.F	241	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	243	TIMESTEP	gUtmp(i,j) = ( gU(i,j,k,bi,bj) + guExt(i,j) ) + guCor(i,j)
./model/src/timestep.F	244	TIMESTEP	gVtmp(i,j) = ( gV(i,j,k,bi,bj) + gvExt(i,j) ) + gvCor(i,j)
./model/src/timestep.F	248	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	250	TIMESTEP	gUtmp(i,j) = gU(i,j,k,bi,bj) + guCor(i,j)
./model/src/timestep.F	251	TIMESTEP	gVtmp(i,j) = gV(i,j,k,bi,bj) + gvCor(i,j)
./model/src/timestep.F	256	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	258	TIMESTEP	gUtmp(i,j) = gUtmp(i,j) + guDissip(i,j)
./model/src/timestep.F	259	TIMESTEP	gVtmp(i,j) = gVtmp(i,j) + gvDissip(i,j)
./model/src/timestep.F	264	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	266	TIMESTEP	gUtmp(i,j) = gUtmp(i,j) + guCor(i,j)
./model/src/timestep.F	267	TIMESTEP	gVtmp(i,j) = gVtmp(i,j) + gvCor(i,j)
./model/src/timestep.F	281	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	283	TIMESTEP	gUtmp(i,j) = gUtmp(i,j)/rStarExpW(i,j,bi,bj)
./model/src/timestep.F	284	TIMESTEP	gVtmp(i,j) = gVtmp(i,j)/rStarExpS(i,j,bi,bj)
./model/src/timestep.F	290	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	292	TIMESTEP	gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F	293	TIMESTEP	& /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/timestep.F	295	TIMESTEP	& *recip_hFacW(i,j,k,bi,bj)
./model/src/timestep.F	297	TIMESTEP	gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F	298	TIMESTEP	& /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/timestep.F	300	TIMESTEP	& *recip_hFacS(i,j,k,bi,bj)
./model/src/timestep.F	306	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	308	TIMESTEP	IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN
./model/src/timestep.F	309	TIMESTEP	gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F	310	TIMESTEP	& *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)
./model/src/timestep.F	312	TIMESTEP	IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN
./model/src/timestep.F	313	TIMESTEP	gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F	314	TIMESTEP	& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)
./model/src/timestep.F	328	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	330	TIMESTEP	gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F	331	TIMESTEP	& - nhFac_recip_dxC(i,j,bi,bj)
./model/src/timestep.F	332	TIMESTEP	& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F	333	TIMESTEP	& -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) )
./model/src/timestep.F	335	TIMESTEP	gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F	336	TIMESTEP	& - nhFac_recip_dyC(i,j,bi,bj)
./model/src/timestep.F	337	TIMESTEP	& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F	338	TIMESTEP	& -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-1,bi,bj) )
./model/src/timestep.F	343	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	345	TIMESTEP	gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F	346	TIMESTEP	& - nhFac_recip_dxC(i,j,bi,bj)
./model/src/timestep.F	347	TIMESTEP	& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F	348	TIMESTEP	gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F	349	TIMESTEP	& - nhFac_recip_dyC(i,j,bi,bj)
./model/src/timestep.F	350	TIMESTEP	& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F	358	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	360	TIMESTEP	gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./model/src/timestep.F	362	TIMESTEP	& gUtmp(i,j)
./model/src/timestep.F	363	TIMESTEP	& - psFac*phiSurfX(i,j)
./model/src/timestep.F	364	TIMESTEP	& - phxFac*dPhiHydX(i,j)
./model/src/timestep.F	365	TIMESTEP	& )*_maskW(i,j,k,bi,bj)
./model/src/timestep.F	370	TIMESTEP	DO j=jMin,jMax
./model/src/timestep.F	372	TIMESTEP	gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./model/src/timestep.F	374	TIMESTEP	& gVtmp(i,j)
./model/src/timestep.F	375	TIMESTEP	& - psFac*phiSurfY(i,j)
./model/src/timestep.F	376	TIMESTEP	& - phyFac*dPhiHydY(i,j)
./model/src/timestep.F	377	TIMESTEP	& )*_maskS(i,j,k,bi,bj)
./model/src/timestep.F	63	TIMESTEP	INTEGER i,j
./model/src/timestep.F	91	TIMESTEP	DO j=1-OLy,sNy+OLy
./model/src/timestep.F	93	TIMESTEP	guExt(i,j) = 0. _d 0
./model/src/timestep.F	94	TIMESTEP	gvExt(i,j) = 0. _d 0
./model/src/timestep.F	95	TIMESTEP	gUtmp(i,j) = 0. _d 0
./model/src/timestep.F	96	TIMESTEP	gVtmp(i,j) = 0. _d 0
./model/src/timestep.F	98	TIMESTEP	guCor(i,j) = 0. _d 0
./model/src/timestep.F	99	TIMESTEP	gvCor(i,j) = 0. _d 0
./model/src/timestep_tracer.F	48	TIMESTEP_TRACER	INTEGER i, j, k
./model/src/timestep_tracer.F	55	TIMESTEP_TRACER	DO j=1-OLy,sNy+OLy
./model/src/timestep_tracer.F	57	TIMESTEP_TRACER	gTracer(i,j,k) = tracer(i,j,k)
./model/src/timestep_tracer.F	58	TIMESTEP_TRACER	& + deltaTLev(k)*gTracer(i,j,k)
./model/src/timestep_wvel.F	100	TIMESTEP_WVEL	DO j=jMin,jMax
./model/src/timestep_wvel.F	102	TIMESTEP_WVEL	wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/timestep_wvel.F	103	TIMESTEP_WVEL	& + deltaTmomtmpFacgWtmp(i,j)
./model/src/timestep_wvel.F	115	TIMESTEP_WVEL	DO j=1-Oly,sNy+Oly
./model/src/timestep_wvel.F	117	TIMESTEP_WVEL	gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/timestep_wvel.F	47	TIMESTEP_WVEL	INTEGER i, j, k, km1
./model/src/timestep_wvel.F	71	TIMESTEP_WVEL	DO j=jMin,jMax
./model/src/timestep_wvel.F	73	TIMESTEP_WVEL	gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F	75	TIMESTEP_WVEL	& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) )
./model/src/timestep_wvel.F	79	TIMESTEP_WVEL	DO j=jMin,jMax
./model/src/timestep_wvel.F	81	TIMESTEP_WVEL	gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F	83	TIMESTEP_WVEL	& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) )
./model/src/timestep_wvel.F	89	TIMESTEP_WVEL	DO j=1-Oly,sNy+Oly
./model/src/timestep_wvel.F	91	TIMESTEP_WVEL	gWtmp(i,j) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F	92	TIMESTEP_WVEL	& maskC(i,j,k,bi,bj)maskC(i,j,km1,bi,bj)
./model/src/timestep_wvel.F	93	TIMESTEP_WVEL	gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F	100	TRACERS_IIGW_CORRECTION	& ( dTr_kdW_k(i,j) + dTrp1*dWp1(i,j) )
./model/src/tracers_iigw_correction.F	101	TRACERS_IIGW_CORRECTION	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F	47	TRACERS_IIGW_CORRECTION	INTEGER i,j,k
./model/src/tracers_iigw_correction.F	55	TRACERS_IIGW_CORRECTION	DO j=1-Oly,sNy+Oly
./model/src/tracers_iigw_correction.F	57	TRACERS_IIGW_CORRECTION	dWp1(i,j) = 0. _d 0
./model/src/tracers_iigw_correction.F	66	TRACERS_IIGW_CORRECTION	DO j=1-Oly,sNy+Oly
./model/src/tracers_iigw_correction.F	68	TRACERS_IIGW_CORRECTION	dW_k(i,j) = dWp1(i,j)
./model/src/tracers_iigw_correction.F	69	TRACERS_IIGW_CORRECTION	dWp1(i,j) = ( wVel(i,j,kp1,bi,bj)
./model/src/tracers_iigw_correction.F	70	TRACERS_IIGW_CORRECTION	& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F	80	TRACERS_IIGW_CORRECTION	DO j=1-Oly,sNy+Oly
./model/src/tracers_iigw_correction.F	82	TRACERS_IIGW_CORRECTION	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F	84	TRACERS_IIGW_CORRECTION	& ( dTr_kdW_k(i,j) + dTrp1*dWp1(i,j) )
./model/src/tracers_iigw_correction.F	85	TRACERS_IIGW_CORRECTION	& recip_drF(k)_recip_hFacC(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F	96	TRACERS_IIGW_CORRECTION	DO j=1-Oly,sNy+Oly
./model/src/tracers_iigw_correction.F	98	TRACERS_IIGW_CORRECTION	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./model/src/update_cg2d.F	100	UPDATE_CG2D	aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*cg2dNorm
./model/src/update_cg2d.F	103	UPDATE_CG2D	& maskInC(i,j,bi,bj)maskInC(i,j-1,bi,bj)
./model/src/update_cg2d.F	109	UPDATE_CG2D	DO j=1,sNy
./model/src/update_cg2d.F	111	UPDATE_CG2D	ks = kSurfC(i,j,bi,bj)
./model/src/update_cg2d.F	112	UPDATE_CG2D	aC2d(i,j,bi,bj) = -(
./model/src/update_cg2d.F	113	UPDATE_CG2D	& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj)
./model/src/update_cg2d.F	114	UPDATE_CG2D	& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj)
./model/src/update_cg2d.F	115	UPDATE_CG2D	& +freeSurfFaccg2dNormrecip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/update_cg2d.F	116	UPDATE_CG2D	& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/update_cg2d.F	121	UPDATE_CG2D	DO j=1,sNy
./model/src/update_cg2d.F	123	UPDATE_CG2D	aC2d(i,j,bi,bj) = -(
./model/src/update_cg2d.F	124	UPDATE_CG2D	& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj)
./model/src/update_cg2d.F	125	UPDATE_CG2D	& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj)
./model/src/update_cg2d.F	126	UPDATE_CG2D	& +freeSurfFaccg2dNormrecip_Bo(i,j,bi,bj)
./model/src/update_cg2d.F	127	UPDATE_CG2D	& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/update_cg2d.F	143	UPDATE_CG2D	DO j=1,sNy+1
./model/src/update_cg2d.F	145	UPDATE_CG2D	IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN
./model/src/update_cg2d.F	146	UPDATE_CG2D	pC(i,j,bi,bj) = 1. _d 0
./model/src/update_cg2d.F	148	UPDATE_CG2D	pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj)
./model/src/update_cg2d.F	150	UPDATE_CG2D	pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj)
./model/src/update_cg2d.F	152	UPDATE_CG2D	pW(i,j,bi,bj) = 0.
./model/src/update_cg2d.F	154	UPDATE_CG2D	pW(i,j,bi,bj) =
./model/src/update_cg2d.F	155	UPDATE_CG2D	& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac pW_tmp)*2 )
./model/src/update_cg2d.F	157	UPDATE_CG2D	pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj)
./model/src/update_cg2d.F	159	UPDATE_CG2D	pS(i,j,bi,bj) = 0.
./model/src/update_cg2d.F	161	UPDATE_CG2D	pS(i,j,bi,bj) =
./model/src/update_cg2d.F	162	UPDATE_CG2D	& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac pS_tmp)*2 )
./model/src/update_cg2d.F	50	UPDATE_CG2D	INTEGER i, j, k, ks
./model/src/update_cg2d.F	69	UPDATE_CG2D	DO j=1-OLy,sNy+OLy
./model/src/update_cg2d.F	71	UPDATE_CG2D	aW2d(i,j,bi,bj) = 0. _d 0
./model/src/update_cg2d.F	72	UPDATE_CG2D	aS2d(i,j,bi,bj) = 0. _d 0
./model/src/update_cg2d.F	74	UPDATE_CG2D	aC2d(i,j,bi,bj) = 0. _d 0
./model/src/update_cg2d.F	79	UPDATE_CG2D	DO j=1,sNy+1
./model/src/update_cg2d.F	82	UPDATE_CG2D	faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/update_cg2d.F	83	UPDATE_CG2D	& *_hFacW(i,j,k,bi,bj)
./model/src/update_cg2d.F	84	UPDATE_CG2D	aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)
./model/src/update_cg2d.F	85	UPDATE_CG2D	& + faceArea*recip_dxC(i,j,bi,bj)
./model/src/update_cg2d.F	86	UPDATE_CG2D	faceArea = _dxG(i,j,bi,bj)*drF(k)
./model/src/update_cg2d.F	87	UPDATE_CG2D	& *_hFacS(i,j,k,bi,bj)
./model/src/update_cg2d.F	88	UPDATE_CG2D	aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)
./model/src/update_cg2d.F	89	UPDATE_CG2D	& + faceArea*recip_dyC(i,j,bi,bj)
./model/src/update_cg2d.F	93	UPDATE_CG2D	DO j=1,sNy+1
./model/src/update_cg2d.F	95	UPDATE_CG2D	aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*cg2dNorm
./model/src/update_cg2d.F	98	UPDATE_CG2D	& maskInC(i,j,bi,bj)maskInC(i-1,j,bi,bj)
./model/src/update_etah.F	44	UPDATE_ETAH	INTEGER i,j,bi,bj
./model/src/update_etah.F	53	UPDATE_ETAH	DO j=1-Oly,sNy+Oly
./model/src/update_etah.F	55	UPDATE_ETAH	etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/update_etah.F	63	UPDATE_ETAH	DO j=1-Oly,sNy+Oly
./model/src/update_etah.F	65	UPDATE_ETAH	etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/update_etah.F	70	UPDATE_ETAH	DO j=1,sNy
./model/src/update_etah.F	72	UPDATE_ETAH	etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/update_etah.F	73	UPDATE_ETAH	& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj)
./model/src/update_etaws.F	46	UPDATE_ETAWS	INTEGER i,j,bi,bj
./model/src/update_etaws.F	56	UPDATE_ETAWS	DO j=1-OLy,sNy+OLy
./model/src/update_etaws.F	58	UPDATE_ETAWS	dEtaWdt(i,j,bi,bj) = etaHw(i,j,bi,bj)
./model/src/update_etaws.F	59	UPDATE_ETAWS	dEtaSdt(i,j,bi,bj) = etaHs(i,j,bi,bj)
./model/src/update_etaws.F	63	UPDATE_ETAWS	DO j=1,sNy+1
./model/src/update_etaws.F	65	UPDATE_ETAWS	etaHw(i,j,bi,bj) = ( etaH (i-1,j,bi,bj)
./model/src/update_etaws.F	66	UPDATE_ETAWS	& + etaH ( i ,j,bi,bj) )*0.5 _d 0
./model/src/update_etaws.F	67	UPDATE_ETAWS	etaHs(i,j,bi,bj) = ( etaH (i,j-1,bi,bj)
./model/src/update_etaws.F	68	UPDATE_ETAWS	& + etaH (i, j ,bi,bj) )*0.5 _d 0
./model/src/update_etaws.F	90	UPDATE_ETAWS	DO j=1-OLy,sNy+OLy
./model/src/update_etaws.F	92	UPDATE_ETAWS	dEtaWdt(i,j,bi,bj) = ( etaHw(i,j,bi,bj)
./model/src/update_etaws.F	93	UPDATE_ETAWS	& - dEtaWdt(i,j,bi,bj) )/deltaTfreesurf
./model/src/update_etaws.F	94	UPDATE_ETAWS	dEtaSdt(i,j,bi,bj) = ( etaHs(i,j,bi,bj)
./model/src/update_etaws.F	95	UPDATE_ETAWS	& - dEtaSdt(i,j,bi,bj) )/deltaTfreesurf
./model/src/update_masks_etc.F	141	UPDATE_MASKS_ETC	R_low(i,j,bi,bj) = rF(1)
./model/src/update_masks_etc.F	186	UPDATE_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/update_masks_etc.F	189	UPDATE_MASKS_ETC	tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/update_masks_etc.F	191	UPDATE_MASKS_ETC	IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN
./model/src/update_masks_etc.F	192	UPDATE_MASKS_ETC	recip_Rcol(i,j,bi,bj) = 0.
./model/src/update_masks_etc.F	194	UPDATE_MASKS_ETC	recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/update_masks_etc.F	341	UPDATE_MASKS_ETC	DO j=1-OLy,sNy+OLy
./model/src/update_masks_etc.F	343	UPDATE_MASKS_ETC	h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./model/src/update_masks_etc.F	344	UPDATE_MASKS_ETC	h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/update_masks_etc.F	345	UPDATE_MASKS_ETC	h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/update_r_star.F	102	UPDATE_R_STAR	recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_r_star.F	103	UPDATE_R_STAR	& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F	104	UPDATE_R_STAR	recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F	105	UPDATE_R_STAR	& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F	106	UPDATE_R_STAR	recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F	107	UPDATE_R_STAR	& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F	109	UPDATE_R_STAR	IF (maskC(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F	110	UPDATE_R_STAR	& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./model/src/update_r_star.F	111	UPDATE_R_STAR	IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F	112	UPDATE_R_STAR	& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj)
./model/src/update_r_star.F	113	UPDATE_R_STAR	IF (maskS(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F	114	UPDATE_R_STAR	& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./model/src/update_r_star.F	43	UPDATE_R_STAR	INTEGER i,j,k,bi,bj
./model/src/update_r_star.F	54	UPDATE_R_STAR	DO j=1-Oly,sNy+Oly
./model/src/update_r_star.F	58	UPDATE_R_STAR	hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/update_r_star.F	59	UPDATE_R_STAR	& *rStarFacC(i,j,bi,bj)
./model/src/update_r_star.F	60	UPDATE_R_STAR	hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/update_r_star.F	61	UPDATE_R_STAR	& *rStarFacW(i,j,bi,bj)
./model/src/update_r_star.F	62	UPDATE_R_STAR	hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/update_r_star.F	63	UPDATE_R_STAR	& *rStarFacS(i,j,bi,bj)
./model/src/update_r_star.F	67	UPDATE_R_STAR	recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_r_star.F	68	UPDATE_R_STAR	& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F	69	UPDATE_R_STAR	recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F	70	UPDATE_R_STAR	& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F	71	UPDATE_R_STAR	recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F	72	UPDATE_R_STAR	& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F	74	UPDATE_R_STAR	IF (maskC(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F	75	UPDATE_R_STAR	& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./model/src/update_r_star.F	76	UPDATE_R_STAR	IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F	77	UPDATE_R_STAR	& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj)
./model/src/update_r_star.F	78	UPDATE_R_STAR	IF (maskS(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F	79	UPDATE_R_STAR	& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./model/src/update_r_star.F	88	UPDATE_R_STAR	DO j=1-Oly,sNy+Oly
./model/src/update_r_star.F	93	UPDATE_R_STAR	hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/update_r_star.F	94	UPDATE_R_STAR	& *rStarFacNm1C(i,j,bi,bj)
./model/src/update_r_star.F	95	UPDATE_R_STAR	hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/update_r_star.F	96	UPDATE_R_STAR	& *rStarFacNm1W(i,j,bi,bj)
./model/src/update_r_star.F	97	UPDATE_R_STAR	hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/update_r_star.F	98	UPDATE_R_STAR	& *rStarFacNm1S(i,j,bi,bj)
./model/src/update_sigma.F	104	UPDATE_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/update_sigma.F	106	UPDATE_SIGMA	IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F	107	UPDATE_SIGMA	tmpFld(i,j) = etaHc(i,j,bi,bj)
./model/src/update_sigma.F	108	UPDATE_SIGMA	& + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) )
./model/src/update_sigma.F	110	UPDATE_SIGMA	tmpFld(i,j) = rFullDepth
./model/src/update_sigma.F	115	UPDATE_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/update_sigma.F	117	UPDATE_SIGMA	hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_sigma.F	119	UPDATE_SIGMA	& +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F	121	UPDATE_SIGMA	recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F	123	UPDATE_SIGMA	& +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F	130	UPDATE_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/update_sigma.F	132	UPDATE_SIGMA	IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F	133	UPDATE_SIGMA	tmpFld(i,j) = etaHw(i,j,bi,bj)
./model/src/update_sigma.F	134	UPDATE_SIGMA	& + ( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) )
./model/src/update_sigma.F	136	UPDATE_SIGMA	tmpFld(i,j) = rFullDepth
./model/src/update_sigma.F	141	UPDATE_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/update_sigma.F	143	UPDATE_SIGMA	hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_sigma.F	145	UPDATE_SIGMA	& +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F	147	UPDATE_SIGMA	recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F	149	UPDATE_SIGMA	& +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F	156	UPDATE_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/update_sigma.F	158	UPDATE_SIGMA	IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F	159	UPDATE_SIGMA	tmpFld(i,j) = etaHs(i,j,bi,bj)
./model/src/update_sigma.F	160	UPDATE_SIGMA	& + ( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) )
./model/src/update_sigma.F	162	UPDATE_SIGMA	tmpFld(i,j) = rFullDepth
./model/src/update_sigma.F	167	UPDATE_SIGMA	DO j=1-OLy,sNy+OLy
./model/src/update_sigma.F	169	UPDATE_SIGMA	hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_sigma.F	171	UPDATE_SIGMA	& +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F	173	UPDATE_SIGMA	recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F	175	UPDATE_SIGMA	& +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F	58	UPDATE_SIGMA	INTEGER i, j, k
./model/src/update_surf_dr.F	104	UPDATE_SURF_DR	DO j=1-Oly,sNy+Oly
./model/src/update_surf_dr.F	106	UPDATE_SURF_DR	ks = kSurfW(i,j,bi,bj)
./model/src/update_surf_dr.F	108	UPDATE_SURF_DR	hFacW(i,j,ks,bi,bj) = hFac_surfNm1W(i,j,bi,bj)
./model/src/update_surf_dr.F	109	UPDATE_SURF_DR	recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1W(i,j,bi,bj)
./model/src/update_surf_dr.F	113	UPDATE_SURF_DR	DO j=2-Oly,sNy+Oly
./model/src/update_surf_dr.F	115	UPDATE_SURF_DR	ks = kSurfS(i,j,bi,bj)
./model/src/update_surf_dr.F	117	UPDATE_SURF_DR	hFacS(i,j,ks,bi,bj) = hFac_surfNm1S(i,j,bi,bj)
./model/src/update_surf_dr.F	118	UPDATE_SURF_DR	recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1S(i,j,bi,bj)
./model/src/update_surf_dr.F	126	UPDATE_SURF_DR	DO j=1-Oly,sNy+Oly
./model/src/update_surf_dr.F	128	UPDATE_SURF_DR	hFacC(i,j,k,bi,bj)=h0FacC(i,j,k,bi,bj)
./model/src/update_surf_dr.F	129	UPDATE_SURF_DR	IF (h0FacC(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/update_surf_dr.F	130	UPDATE_SURF_DR	recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / h0FacC(i,j,k,bi,bj)
./model/src/update_surf_dr.F	132	UPDATE_SURF_DR	recip_hFacC(i,j,k,bi,bj) = 0.
./model/src/update_surf_dr.F	43	UPDATE_SURF_DR	INTEGER i,j,k,bi,bj
./model/src/update_surf_dr.F	55	UPDATE_SURF_DR	DO j=1-Oly,sNy+Oly
./model/src/update_surf_dr.F	57	UPDATE_SURF_DR	ks = kSurfC(i,j,bi,bj)
./model/src/update_surf_dr.F	59	UPDATE_SURF_DR	hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F	60	UPDATE_SURF_DR	recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F	68	UPDATE_SURF_DR	DO j=1-Oly,sNy+Oly
./model/src/update_surf_dr.F	70	UPDATE_SURF_DR	ks = kSurfW(i,j,bi,bj)
./model/src/update_surf_dr.F	72	UPDATE_SURF_DR	hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F	73	UPDATE_SURF_DR	recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F	77	UPDATE_SURF_DR	DO j=2-Oly,sNy+Oly
./model/src/update_surf_dr.F	79	UPDATE_SURF_DR	ks = kSurfS(i,j,bi,bj)
./model/src/update_surf_dr.F	81	UPDATE_SURF_DR	hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F	82	UPDATE_SURF_DR	recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F	91	UPDATE_SURF_DR	DO j=1-Oly,sNy+Oly
./model/src/update_surf_dr.F	93	UPDATE_SURF_DR	ks = kSurfC(i,j,bi,bj)
./model/src/update_surf_dr.F	95	UPDATE_SURF_DR	hFacC(i,j,ks,bi,bj) = hFac_surfNm1C(i,j,bi,bj)
./model/src/update_surf_dr.F	96	UPDATE_SURF_DR	recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1C(i,j,bi,bj)
./model/src/write_grid.F	49	WRITE_GRID	INTEGER i,j,k,bi,bj
./model/src/write_grid.F	61	WRITE_GRID	DO j=1-OLy,sNy+OLy
./model/src/write_grid.F	64	WRITE_GRID	tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/write_pickup.F	114	WRITE_PICKUP	j = 0
./model/src/write_pickup.F	118	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	119	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid )
./model/src/write_pickup.F	120	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Uvel '
./model/src/write_pickup.F	121	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	122	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid )
./model/src/write_pickup.F	123	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Vvel '
./model/src/write_pickup.F	127	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	128	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, uMean, -j, myIter, myThid)
./model/src/write_pickup.F	129	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Umean '
./model/src/write_pickup.F	130	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	131	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, vMean, -j, myIter, myThid)
./model/src/write_pickup.F	132	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Vmean '
./model/src/write_pickup.F	136	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	137	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid )
./model/src/write_pickup.F	138	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Theta '
./model/src/write_pickup.F	139	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	140	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid )
./model/src/write_pickup.F	141	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Salt '
./model/src/write_pickup.F	149	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	151	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	152	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GuNm1 '
./model/src/write_pickup.F	155	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	157	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	158	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GuNm2 '
./model/src/write_pickup.F	162	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	164	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	165	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GvNm1 '
./model/src/write_pickup.F	168	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	170	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	171	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GvNm2 '
./model/src/write_pickup.F	177	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	179	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	180	WRITE_PICKUP	IF (j.LE.listDim) THEN
./model/src/write_pickup.F	181	WRITE_PICKUP	IF ( AdamsBashforthGt ) wrFldList(j) = 'GtNm1 '
./model/src/write_pickup.F	182	WRITE_PICKUP	IF ( AdamsBashforth_T ) wrFldList(j) = 'TempNm1 '
./model/src/write_pickup.F	186	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	188	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	189	WRITE_PICKUP	IF (j.LE.listDim) THEN
./model/src/write_pickup.F	190	WRITE_PICKUP	IF ( AdamsBashforthGt ) wrFldList(j) = 'GtNm2 '
./model/src/write_pickup.F	191	WRITE_PICKUP	IF ( AdamsBashforth_T ) wrFldList(j) = 'TempNm2 '
./model/src/write_pickup.F	198	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	200	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	201	WRITE_PICKUP	IF (j.LE.listDim) THEN
./model/src/write_pickup.F	202	WRITE_PICKUP	IF ( AdamsBashforthGs ) wrFldList(j) = 'GsNm1 '
./model/src/write_pickup.F	203	WRITE_PICKUP	IF ( AdamsBashforth_S ) wrFldList(j) = 'SaltNm1 '
./model/src/write_pickup.F	207	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	209	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	210	WRITE_PICKUP	IF (j.LE.listDim) THEN
./model/src/write_pickup.F	211	WRITE_PICKUP	IF ( AdamsBashforthGs ) wrFldList(j) = 'GsNm2 '
./model/src/write_pickup.F	212	WRITE_PICKUP	IF ( AdamsBashforth_S ) wrFldList(j) = 'SaltNm2 '
./model/src/write_pickup.F	220	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	222	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	223	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GwNm1 '
./model/src/write_pickup.F	226	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	228	WRITE_PICKUP	& -j, myIter, myThid )
./model/src/write_pickup.F	229	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GwNm2 '
./model/src/write_pickup.F	235	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	236	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid )
./model/src/write_pickup.F	237	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GuNm1 '
./model/src/write_pickup.F	238	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	239	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid )
./model/src/write_pickup.F	240	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GvNm1 '
./model/src/write_pickup.F	243	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	244	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid )
./model/src/write_pickup.F	245	WRITE_PICKUP	IF (j.LE.listDim) THEN
./model/src/write_pickup.F	246	WRITE_PICKUP	IF ( AdamsBashforthGt ) wrFldList(j) = 'GtNm1 '
./model/src/write_pickup.F	247	WRITE_PICKUP	IF ( AdamsBashforth_T ) wrFldList(j) = 'TempNm1 '
./model/src/write_pickup.F	251	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	252	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid )
./model/src/write_pickup.F	253	WRITE_PICKUP	IF (j.LE.listDim) THEN
./model/src/write_pickup.F	254	WRITE_PICKUP	IF ( AdamsBashforthGs ) wrFldList(j) = 'GsNm1 '
./model/src/write_pickup.F	255	WRITE_PICKUP	IF ( AdamsBashforth_S ) wrFldList(j) = 'SaltNm1 '
./model/src/write_pickup.F	260	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	261	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid )
./model/src/write_pickup.F	262	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'GwNm1 '
./model/src/write_pickup.F	269	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	270	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid )
./model/src/write_pickup.F	271	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'PhiHyd '
./model/src/write_pickup.F	275	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	276	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid )
./model/src/write_pickup.F	277	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Phi_NHyd'
./model/src/write_pickup.F	283	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	284	WRITE_PICKUP	CALL WRITE_REC_3D_RL( fn, fp, Nr,addMass,-j,myIter, myThid )
./model/src/write_pickup.F	285	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'AddMass '
./model/src/write_pickup.F	289	WRITE_PICKUP	n3D = j
./model/src/write_pickup.F	291	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	292	WRITE_PICKUP	nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F	294	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'EtaN '
./model/src/write_pickup.F	297	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	298	WRITE_PICKUP	nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F	300	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'dPhiNH '
./model/src/write_pickup.F	305	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	306	WRITE_PICKUP	nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F	308	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'dEtaHdt '
./model/src/write_pickup.F	313	WRITE_PICKUP	j = j + 1
./model/src/write_pickup.F	314	WRITE_PICKUP	nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F	316	WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'EtaH '
./model/src/write_pickup.F	320	WRITE_PICKUP	nWrFlds = j
./model/src/write_pickup.F	79	WRITE_PICKUP	INTEGER j, nj
./model/src/write_pickup.F	93	WRITE_PICKUP	DO j=1,listDim
./model/src/write_pickup.F	94	WRITE_PICKUP	wrFldList(j) = ' '
./model/src/write_pickup.F	98	WRITE_PICKUP	DO j = 1,MAX_LEN_FNAM
./model/src/write_pickup.F	99	WRITE_PICKUP	fn(j:j) = ' '
./optim/optim_readdata.F	67	OPTIM_READDATA	integer i,j
./optim/optim_writedata.F	52	OPTIM_WRITEDATA	integer i,j,k
./pkg/admtlm/admtlm_bypassad.F	100	ADMTLM_BYPASSAD	& + adetan(i,j,bi,bj)
./pkg/admtlm/admtlm_bypassad.F	114	ADMTLM_BYPASSAD	do j = jmin, jmax
./pkg/admtlm/admtlm_bypassad.F	116	ADMTLM_BYPASSAD	tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F	117	ADMTLM_BYPASSAD	& + advvel(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F	132	ADMTLM_BYPASSAD	do j = jmin, jmax
./pkg/admtlm/admtlm_bypassad.F	134	ADMTLM_BYPASSAD	tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F	135	ADMTLM_BYPASSAD	& + aduvel(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F	150	ADMTLM_BYPASSAD	do j = jmin, jmax
./pkg/admtlm/admtlm_bypassad.F	152	ADMTLM_BYPASSAD	tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F	153	ADMTLM_BYPASSAD	& + adsalt(i,j,k,bi,bj)*fac
./pkg/admtlm/admtlm_bypassad.F	168	ADMTLM_BYPASSAD	do j = jmin, jmax
./pkg/admtlm/admtlm_bypassad.F	170	ADMTLM_BYPASSAD	tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F	171	ADMTLM_BYPASSAD	& + adtheta(i,j,k,bi,bj)*fac
./pkg/admtlm/admtlm_bypassad.F	33	ADMTLM_BYPASSAD	integer i, j, k
./pkg/admtlm/admtlm_bypassad.F	74	ADMTLM_BYPASSAD	DO j = jmin, jmax
./pkg/admtlm/admtlm_bypassad.F	77	ADMTLM_BYPASSAD	adtheta(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F	78	ADMTLM_BYPASSAD	& g_objf_state_final(i,j,bi,bj,k)
./pkg/admtlm/admtlm_bypassad.F	79	ADMTLM_BYPASSAD	adsalt(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F	80	ADMTLM_BYPASSAD	& g_objf_state_final(i,j,bi,bj,1*Nr+k)
./pkg/admtlm/admtlm_bypassad.F	81	ADMTLM_BYPASSAD	aduvel(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F	82	ADMTLM_BYPASSAD	& g_objf_state_final(i,j,bi,bj,2*Nr+k)
./pkg/admtlm/admtlm_bypassad.F	83	ADMTLM_BYPASSAD	advvel(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F	84	ADMTLM_BYPASSAD	& g_objf_state_final(i,j,bi,bj,3*Nr+k)
./pkg/admtlm/admtlm_bypassad.F	86	ADMTLM_BYPASSAD	adetan(i,j,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F	87	ADMTLM_BYPASSAD	& g_objf_state_final(i,j,bi,bj,4*Nr+1)
./pkg/admtlm/admtlm_bypassad.F	97	ADMTLM_BYPASSAD	do j = jmin, jmax
./pkg/admtlm/admtlm_bypassad.F	99	ADMTLM_BYPASSAD	tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj)
./pkg/admtlm/admtlm_dsvd.F	182	ADMTLM_DSVD	& j, ishfts, maxitr, mode, nconv
./pkg/admtlm/admtlm_dsvd.F	571	ADMTLM_DSVD	do j=1, nconv
./pkg/admtlm/admtlm_dsvd.F	572	ADMTLM_DSVD	print *, 'ph-ev ', j, s(j,1), s(j,2)
./pkg/admtlm/admtlm_dsvd.F	577	ADMTLM_DSVD	do 20 j=1, nconv
./pkg/admtlm/admtlm_dsvd.F	579	ADMTLM_DSVD	s(j,1) = sqrt(s(j,1))
./pkg/admtlm/admtlm_dsvd.F	592	ADMTLM_DSVD	tmpvec1(l) = v(l,j)
./pkg/admtlm/admtlm_dsvd.F	600	ADMTLM_DSVD	call DCOPY( m, tmpvec2, 1, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F	601	ADMTLM_DSVD	temp = one / dnrm2( m, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F	603	ADMTLM_DSVD	print *, 'ph-print ', j, dnrm2( m, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F	605	ADMTLM_DSVD	call DSCAL(m , temp, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F	629	ADMTLM_DSVD	call DAXPY(m, -s(j,1), u(1,j), 1, tmpvec2, 1)
./pkg/admtlm/admtlm_dsvd.F	630	ADMTLM_DSVD	s(j,2) = dnrm2(m, tmpvec2, 1)
./pkg/admtlm/admtlm_dsvd2model.F	72	ADMTLM_DSVD2MODEL	integer i, j, k
./pkg/admtlm/admtlm_init_fixed.F	28	ADMTLM_INIT_FIXED	integer i, j, k
./pkg/admtlm/admtlm_init_fixed.F	48	ADMTLM_INIT_FIXED	DO j=1,sNy
./pkg/admtlm/admtlm_init_fixed.F	50	ADMTLM_INIT_FIXED	wetan(i,j,bi,bj) = 1. / (0.1 _d 0)**2
./pkg/admtlm/admtlm_map.F	28	ADMTLM_MAP	integer i, j, k
./pkg/admtlm/admtlm_map.F	33	ADMTLM_MAP	DO j=1,sNy
./pkg/admtlm/admtlm_map.F	36	ADMTLM_MAP	adobjf_state_final(i,j,bi,bj,k) =
./pkg/admtlm/admtlm_map.F	37	ADMTLM_MAP	& g_objf_state_final(i,j,bi,bj,k)
./pkg/admtlm/admtlm_map.F	39	ADMTLM_MAP	adobjf_state_final(i,j,bi,bj,4*Nr+1) =
./pkg/admtlm/admtlm_map.F	40	ADMTLM_MAP	& g_objf_state_final(i,j,bi,bj,4*Nr+1)
./pkg/admtlm/admtlm_metric.F	31	ADMTLM_METRIC	integer i, j, k
./pkg/admtlm/admtlm_metric.F	53	ADMTLM_METRIC	DO j=1,sNy
./pkg/admtlm/admtlm_metric.F	57	ADMTLM_METRIC	& + g_objf_state_final(i,j,bi,bj,k+0Nr)2/stdDevtheta*2
./pkg/admtlm/admtlm_metric.F	58	ADMTLM_METRIC	& + g_objf_state_final(i,j,bi,bj,k+1Nr)2/stdDevsalt*2
./pkg/admtlm/admtlm_metric.F	59	ADMTLM_METRIC	& + g_objf_state_final(i,j,bi,bj,k+2Nr)2/stdDevuvel*2
./pkg/admtlm/admtlm_metric.F	60	ADMTLM_METRIC	& + g_objf_state_final(i,j,bi,bj,k+3Nr)2/stdDevvvel*2
./pkg/admtlm/admtlm_metric.F	63	ADMTLM_METRIC	& + g_objf_state_final(i,j,bi,bj,1+4Nr)2/stdDevetan*2
./pkg/admtlm/admtlm_metric.F	75	ADMTLM_METRIC	DO j=1,sNy
./pkg/admtlm/admtlm_model2dsvd.F	70	ADMTLM_MODEL2DSVD	integer i, j, k
./pkg/aim_v23/aim_aim2dyn.F	110	AIM_AIM2DYN	DO j=1,sNy
./pkg/aim_v23/aim_aim2dyn.F	112	AIM_AIM2DYN	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2dyn.F	114	AIM_AIM2DYN	aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid)
./pkg/aim_v23/aim_aim2dyn.F	121	AIM_AIM2DYN	aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid)
./pkg/aim_v23/aim_aim2dyn.F	128	AIM_AIM2DYN	DO j=1,sNy
./pkg/aim_v23/aim_aim2dyn.F	130	AIM_AIM2DYN	aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	131	AIM_AIM2DYN	& / pStarFacK(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	150	AIM_AIM2DYN	DO j=1,sNy
./pkg/aim_v23/aim_aim2dyn.F	152	AIM_AIM2DYN	aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	153	AIM_AIM2DYN	& *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	154	AIM_AIM2DYN	& /rStarExpC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	155	AIM_AIM2DYN	aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	156	AIM_AIM2DYN	& *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	157	AIM_AIM2DYN	& /rStarExpC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	161	AIM_AIM2DYN	DO j=1,sNy
./pkg/aim_v23/aim_aim2dyn.F	163	AIM_AIM2DYN	IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/aim_v23/aim_aim2dyn.F	164	AIM_AIM2DYN	aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	165	AIM_AIM2DYN	& /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	166	AIM_AIM2DYN	aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	167	AIM_AIM2DYN	& /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	169	AIM_AIM2DYN	aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	170	AIM_AIM2DYN	& *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	171	AIM_AIM2DYN	aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	172	AIM_AIM2DYN	& *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	181	AIM_AIM2DYN	DO j=1,sNy
./pkg/aim_v23/aim_aim2dyn.F	183	AIM_AIM2DYN	aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	184	AIM_AIM2DYN	& *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	185	AIM_AIM2DYN	aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	186	AIM_AIM2DYN	& *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F	65	AIM_AIM2DYN	INTEGER i,j,k
./pkg/aim_v23/aim_aim2dyn.F	86	AIM_AIM2DYN	DO j=1,sNy
./pkg/aim_v23/aim_aim2dyn.F	88	AIM_AIM2DYN	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2dyn.F	89	AIM_AIM2DYN	aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid)
./pkg/aim_v23/aim_aim2dyn.F	95	AIM_AIM2DYN	DO j=1,sNy
./pkg/aim_v23/aim_aim2dyn.F	97	AIM_AIM2DYN	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2dyn.F	98	AIM_AIM2DYN	aim_surfWind(i,j,bi,bj) = SPEED0(I2,myThid)
./pkg/aim_v23/aim_aim2land.F	101	AIM_AIM2LAND	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F	102	AIM_AIM2LAND	IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR.
./pkg/aim_v23/aim_aim2land.F	103	AIM_AIM2LAND	& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2land.F	104	AIM_AIM2LAND	land_HeatFlx(i,j,bi,bj) = land_HeatFlx(i,j,bi,bj)
./pkg/aim_v23/aim_aim2land.F	106	AIM_AIM2LAND	land_EnWFlux(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2land.F	117	AIM_AIM2LAND	DO j=1,sNy
./pkg/aim_v23/aim_aim2land.F	119	AIM_AIM2LAND	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F	123	AIM_AIM2LAND	land_Pr_m_Ev(i,j,bi,bj) = land_Pr_m_Ev(i,j,bi,bj)
./pkg/aim_v23/aim_aim2land.F	135	AIM_AIM2LAND	DO j=1,sNy
./pkg/aim_v23/aim_aim2land.F	137	AIM_AIM2LAND	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F	138	AIM_AIM2LAND	land_EnWFlux(i,j,bi,bj) = land_EnWFlux(i,j,bi,bj)
./pkg/aim_v23/aim_aim2land.F	61	AIM_AIM2LAND	INTEGER i,j,k,I2
./pkg/aim_v23/aim_aim2land.F	65	AIM_AIM2LAND	DO j=1,sNy
./pkg/aim_v23/aim_aim2land.F	67	AIM_AIM2LAND	land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2land.F	68	AIM_AIM2LAND	land_EnWFlux(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2land.F	84	AIM_AIM2LAND	DO j=1,sNy
./pkg/aim_v23/aim_aim2land.F	86	AIM_AIM2LAND	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F	89	AIM_AIM2LAND	land_HeatFlx(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2land.F	99	AIM_AIM2LAND	DO j=1,sNy
./pkg/aim_v23/aim_aim2sioce.F	101	AIM_AIM2SIOCE	IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F	104	AIM_AIM2SIOCE	prcAtm(i,j) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F	105	AIM_AIM2SIOCE	Qnet(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F	106	AIM_AIM2SIOCE	EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F	107	AIM_AIM2SIOCE	Qsw(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F	109	AIM_AIM2SIOCE	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F	112	AIM_AIM2SIOCE	prcAtm(i,j) = ( PRECNV(I2,myThid)
./pkg/aim_v23/aim_aim2sioce.F	118	AIM_AIM2SIOCE	Qnet(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2sioce.F	125	AIM_AIM2SIOCE	EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid)
./pkg/aim_v23/aim_aim2sioce.F	126	AIM_AIM2SIOCE	& - prcAtm(i,j) ) * convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F	129	AIM_AIM2SIOCE	Qsw(i,j,bi,bj) = SSR(I2,2,myThid)
./pkg/aim_v23/aim_aim2sioce.F	137	AIM_AIM2SIOCE	DO j=1,sNy
./pkg/aim_v23/aim_aim2sioce.F	139	AIM_AIM2SIOCE	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F	145	AIM_AIM2SIOCE	icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F	151	AIM_AIM2SIOCE	icFrac = iceMask(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	153	AIM_AIM2SIOCE	Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	154	AIM_AIM2SIOCE	& + opFrac*Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	161	AIM_AIM2SIOCE	DO j=1,sNy
./pkg/aim_v23/aim_aim2sioce.F	163	AIM_AIM2SIOCE	IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F	164	AIM_AIM2SIOCE	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F	167	AIM_AIM2SIOCE	sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	168	AIM_AIM2SIOCE	& + EnPrec(I2,myThid)*prcAtm(i,j)
./pkg/aim_v23/aim_aim2sioce.F	169	AIM_AIM2SIOCE	snowPrc(i,j) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F	172	AIM_AIM2SIOCE	snowPrc(i,j) = prcAtm(i,j)*convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F	175	AIM_AIM2SIOCE	snowPrc(i,j) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F	187	AIM_AIM2SIOCE	DO j=1,sNy
./pkg/aim_v23/aim_aim2sioce.F	189	AIM_AIM2SIOCE	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F	190	AIM_AIM2SIOCE	IF ( siceFrac(i,j) .GT. 0. ) THEN
./pkg/aim_v23/aim_aim2sioce.F	191	AIM_AIM2SIOCE	icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj))
./pkg/aim_v23/aim_aim2sioce.F	195	AIM_AIM2SIOCE	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac
./pkg/aim_v23/aim_aim2sioce.F	202	AIM_AIM2SIOCE	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac
./pkg/aim_v23/aim_aim2sioce.F	204	AIM_AIM2SIOCE	& - prcAtm(i,j) ) * convPrcEvp * icFrac
./pkg/aim_v23/aim_aim2sioce.F	207	AIM_AIM2SIOCE	Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	219	AIM_AIM2SIOCE	DO j=1,sNy
./pkg/aim_v23/aim_aim2sioce.F	221	AIM_AIM2SIOCE	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F	222	AIM_AIM2SIOCE	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	223	AIM_AIM2SIOCE	& + EnPrec(I2,myThid)*prcAtm(i,j)
./pkg/aim_v23/aim_aim2sioce.F	228	AIM_AIM2SIOCE	DO j=1,sNy
./pkg/aim_v23/aim_aim2sioce.F	231	AIM_AIM2SIOCE	prcAtm(i,j) = prcAtm(i,j) * convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F	233	AIM_AIM2SIOCE	Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	234	AIM_AIM2SIOCE	Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F	90	AIM_AIM2SIOCE	INTEGER i,j,I2
./pkg/aim_v23/aim_aim2sioce.F	99	AIM_AIM2SIOCE	DO j=1,sNy
./pkg/aim_v23/aim_diagnostics.F	313	AIM_DIAGNOSTICS	TSRtave(i,j,bi,bj) = TSRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	315	AIM_DIAGNOSTICS	OLRtave(i,j,bi,bj) = OLRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	317	AIM_DIAGNOSTICS	SSRtave(i,j,bi,bj) = SSRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	319	AIM_DIAGNOSTICS	SLRtave(i,j,bi,bj) = SLRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	321	AIM_DIAGNOSTICS	SHFtave(i,j,bi,bj) = SHFtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	323	AIM_DIAGNOSTICS	EVAPtave(i,j,bi,bj) = EVAPtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	325	AIM_DIAGNOSTICS	PRECNVtave(i,j,bi,bj) = PRECNVtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	327	AIM_DIAGNOSTICS	PRECLStave(i,j,bi,bj) = PRECLStave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	329	AIM_DIAGNOSTICS	CLOUDCtave(i,j,bi,bj) = CLOUDCtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	331	AIM_DIAGNOSTICS	CLTOPtave(i,j,bi,bj) = CLTOPtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	333	AIM_DIAGNOSTICS	CBMFtave(i,j,bi,bj) = CBMFtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	335	AIM_DIAGNOSTICS	DRAGtave(i,j,bi,bj) = DRAGtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	337	AIM_DIAGNOSTICS	aimV0tave(i,j,bi,bj) = aimV0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	339	AIM_DIAGNOSTICS	aimT0tave(i,j,bi,bj) = aimT0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	341	AIM_DIAGNOSTICS	aimQ0tave(i,j,bi,bj) = aimQ0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	343	AIM_DIAGNOSTICS	EnFxPrtave(i,j,bi,bj) = EnFxPrtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	347	AIM_DIAGNOSTICS	albedotave(i,j,bi,bj) = albedotave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	349	AIM_DIAGNOSTICS	dTsurftave(i,j,bi,bj) = dTsurftave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F	357	AIM_DIAGNOSTICS	DO j=1,sNy
./pkg/aim_v23/aim_diagnostics.F	359	AIM_DIAGNOSTICS	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_diagnostics.F	360	AIM_DIAGNOSTICS	aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_co2.F	52	AIM_DO_CO2	INTEGER bi, bj, i, j
./pkg/aim_v23/aim_do_co2.F	66	AIM_DO_CO2	DO j=1,sNy
./pkg/aim_v23/aim_do_co2.F	68	AIM_DO_CO2	aimflxCo2(i,j,bi,bj) = flxCO2ocn(i,j,bi,bj)
./pkg/aim_v23/aim_do_co2.F	88	AIM_DO_CO2	DO j=1,sNy
./pkg/aim_v23/aim_do_co2.F	90	AIM_DO_CO2	flxCO2tile(bi,bj)=flxCO2tile(bi,bj) + aimflxCo2(i,j,bi,bj)
./pkg/aim_v23/aim_do_co2.F	91	AIM_DO_CO2	& * rA(i,j,bi,bj) * deltaT
./pkg/aim_v23/aim_do_physics.F	100	AIM_DO_PHYSICS	& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F	101	AIM_DO_PHYSICS	& + salt(i,j,Nr,bi,bj)drF(Nr)recip_drF(k)
./pkg/aim_v23/aim_do_physics.F	102	AIM_DO_PHYSICS	& hFacC(i,j,Nr,bi,bj)recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F	103	AIM_DO_PHYSICS	salt(i,j,Nr,bi,bj) = 0.
./pkg/aim_v23/aim_do_physics.F	132	AIM_DO_PHYSICS	DO j=1,sNy
./pkg/aim_v23/aim_do_physics.F	134	AIM_DO_PHYSICS	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_do_physics.F	135	AIM_DO_PHYSICS	PHI0(I2) = gravity*topoZ(i,j,bi,bj)
./pkg/aim_v23/aim_do_physics.F	182	AIM_DO_PHYSICS	DO j = 1-OLy, sNy+OLy
./pkg/aim_v23/aim_do_physics.F	184	AIM_DO_PHYSICS	qPrcRn(i,j) = 0.
./pkg/aim_v23/aim_do_physics.F	75	AIM_DO_PHYSICS	INTEGER i,j,k,I2
./pkg/aim_v23/aim_do_physics.F	96	AIM_DO_PHYSICS	DO j = 1-OLy, sNy+OLy
./pkg/aim_v23/aim_do_physics.F	98	AIM_DO_PHYSICS	k = kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	112	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	114	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	115	AIM_DYN2AIM	dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	123	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	125	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	126	AIM_DYN2AIM	IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/aim_v23/aim_dyn2aim.F	127	AIM_DYN2AIM	dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	129	AIM_DYN2AIM	dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	142	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	144	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	145	AIM_DYN2AIM	dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	165	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	167	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	168	AIM_DYN2AIM	IF ( maskC(i,j,k,bi,bj).EQ.oneRS ) THEN
./pkg/aim_v23/aim_dyn2aim.F	172	AIM_DYN2AIM	TA(I2,Katm) = theta(i,j,k,bi,bj)*conv_theta2T
./pkg/aim_v23/aim_dyn2aim.F	176	AIM_DYN2AIM	QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL )
./pkg/aim_v23/aim_dyn2aim.F	178	AIM_DYN2AIM	ThA(I2,Katm) = theta(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	188	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	190	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	191	AIM_DYN2AIM	TA(I2,Katm) = TA(I2,Katm)*pStarFacK(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	199	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	201	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	202	AIM_DYN2AIM	k = kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	205	AIM_DYN2AIM	& uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	206	AIM_DYN2AIM	& + uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	207	AIM_DYN2AIM	& + vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	208	AIM_DYN2AIM	& + vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	223	AIM_DYN2AIM	j = 1 + int((I2-1)/sNx)
./pkg/aim_v23/aim_dyn2aim.F	230	AIM_DYN2AIM	& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	248	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	250	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	68	AIM_DYN2AIM	INTEGER i, j, I2, k, Katm
./pkg/aim_v23/aim_dyn2aim.F	76	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	78	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	79	AIM_DYN2AIM	snLat(I2,myThid) = SIN(yC(i,j,bi,bj)*deg2rad)
./pkg/aim_v23/aim_dyn2aim.F	80	AIM_DYN2AIM	csLat(I2,myThid) = COS(yC(i,j,bi,bj)*deg2rad)
./pkg/aim_v23/aim_dyn2aim.F	85	AIM_DYN2AIM	DO j = 1,sNy
./pkg/aim_v23/aim_dyn2aim.F	87	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	88	AIM_DYN2AIM	kGrd(I2) = (Nr+1) - kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	93	AIM_DYN2AIM	DO j=1,sNy
./pkg/aim_v23/aim_dyn2aim.F	95	AIM_DYN2AIM	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F	96	AIM_DYN2AIM	k = kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F	99	AIM_DYN2AIM	PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po
./pkg/aim_v23/aim_fields_load.F	159	AIM_FIELDS_LOAD	DO j=1,sNy
./pkg/aim_v23/aim_fields_load.F	175	AIM_FIELDS_LOAD	DO j=1,sNy
./pkg/aim_v23/aim_fields_load.F	178	AIM_FIELDS_LOAD	aim_sst0(i,j,bi,bj) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F	179	AIM_FIELDS_LOAD	& * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F	203	AIM_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/aim_v23/aim_fields_load.F	206	AIM_FIELDS_LOAD	aim_albedo(i,j,bi,bj)= 0.
./pkg/aim_v23/aim_fields_load.F	207	AIM_FIELDS_LOAD	aim_veget(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	208	AIM_FIELDS_LOAD	aim_sst0(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F	209	AIM_FIELDS_LOAD	aim_lst0(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F	210	AIM_FIELDS_LOAD	aim_oic0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	211	AIM_FIELDS_LOAD	aim_snw0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	212	AIM_FIELDS_LOAD	aim_sw10(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	213	AIM_FIELDS_LOAD	aim_sw20(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	214	AIM_FIELDS_LOAD	aim_qfx0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	215	AIM_FIELDS_LOAD	aim_sst1(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F	216	AIM_FIELDS_LOAD	aim_lst1(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F	217	AIM_FIELDS_LOAD	aim_oic1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	218	AIM_FIELDS_LOAD	aim_snw1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	219	AIM_FIELDS_LOAD	aim_sw11(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	220	AIM_FIELDS_LOAD	aim_sw21(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	221	AIM_FIELDS_LOAD	aim_qfx1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F	294	AIM_FIELDS_LOAD	DO j=1,sNy
./pkg/aim_v23/aim_fields_load.F	296	AIM_FIELDS_LOAD	aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0
./pkg/aim_v23/aim_fields_load.F	302	AIM_FIELDS_LOAD	DO j=1,sNy
./pkg/aim_v23/aim_fields_load.F	304	AIM_FIELDS_LOAD	aim_veget(i,j,bi,bj) =
./pkg/aim_v23/aim_fields_load.F	305	AIM_FIELDS_LOAD	& MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0)
./pkg/aim_v23/aim_fields_load.F	313	AIM_FIELDS_LOAD	DO j=1,sNy
./pkg/aim_v23/aim_fields_load.F	316	AIM_FIELDS_LOAD	aim_lst0(i,j,bi,bj) = aim_lst0(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F	317	AIM_FIELDS_LOAD	& * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F	318	AIM_FIELDS_LOAD	aim_lst1(i,j,bi,bj) = aim_lst1(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F	319	AIM_FIELDS_LOAD	& * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F	57	AIM_FIELDS_LOAD	INTEGER bi,bj, i, j
./pkg/aim_v23/aim_initialise.F	108	AIM_INITIALISE	DO j=1-Oly,sNy+Oly
./pkg/aim_v23/aim_initialise.F	110	AIM_INITIALISE	aim_landFr (i,j,bi,bj) = 0.
./pkg/aim_v23/aim_initialise.F	49	AIM_INITIALISE	INTEGER i, j, k
./pkg/aim_v23/aim_initialise.F	86	AIM_INITIALISE	DO j=1,sNy
./pkg/aim_v23/aim_initialise.F	88	AIM_INITIALISE	tmpPgrnd = truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_initialise.F	89	AIM_INITIALISE	tmpVar = Ro_surf(i,j,bi,bj)
./pkg/aim_v23/aim_initialise.F	91	AIM_INITIALISE	truncSurfP(i,j,bi,bj) = ( tmpVar/tmpPgrnd )**atm_kappa
./pkg/aim_v23/aim_initialise.F	95	AIM_INITIALISE	DO j=1,sNy
./pkg/aim_v23/aim_initialise.F	97	AIM_INITIALISE	tmpVar = Ro_surf(i,j,bi,bj)
./pkg/aim_v23/aim_initialise.F	98	AIM_INITIALISE	truncSurfP(i,j,bi,bj) = ( tmpVar/atm_Po )**atm_kappa
./pkg/aim_v23/aim_land2aim.F	102	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	104	AIM_LAND2AIM	land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K
./pkg/aim_v23/aim_land2aim.F	108	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	110	AIM_LAND2AIM	land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/aim_v23/aim_land2aim.F	122	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	124	AIM_LAND2AIM	aimSWA(i,j) = land_groundW(i,j,1,bi,bj)
./pkg/aim_v23/aim_land2aim.F	125	AIM_LAND2AIM	& + land_hSnow(i,j,bi,bj)*recip_hSnWet
./pkg/aim_v23/aim_land2aim.F	126	AIM_LAND2AIM	aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 )
./pkg/aim_v23/aim_land2aim.F	135	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	137	AIM_LAND2AIM	aimSWA(i,j) = land_groundW(i,j,1,bi,bj)
./pkg/aim_v23/aim_land2aim.F	138	AIM_LAND2AIM	& + snowFld(i,j)*recip_mSnWet
./pkg/aim_v23/aim_land2aim.F	139	AIM_LAND2AIM	aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 )
./pkg/aim_v23/aim_land2aim.F	148	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	150	AIM_LAND2AIM	land_groundW(i,j,k,bi,bj) = aimSWA(i,j)
./pkg/aim_v23/aim_land2aim.F	158	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	163	AIM_LAND2AIM	& *land_groundW(i,j,k,bi,bj)
./pkg/aim_v23/aim_land2aim.F	166	AIM_LAND2AIM	land_enthalp(i,j,k,bi,bj) =
./pkg/aim_v23/aim_land2aim.F	167	AIM_LAND2AIM	& grd_HeatCp*land_groundT(i,j,k,bi,bj)
./pkg/aim_v23/aim_land2aim.F	189	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	191	AIM_LAND2AIM	aimAlb(i,j) = grnd_alb(i,j,bi,bj)
./pkg/aim_v23/aim_land2aim.F	192	AIM_LAND2AIM	& + MAX( 0. _d 0, ALBSN-grnd_alb(i,j,bi,bj) )
./pkg/aim_v23/aim_land2aim.F	193	AIM_LAND2AIM	& MIN( 1. _d 0, RSDsnowFld(i,j) )
./pkg/aim_v23/aim_land2aim.F	84	AIM_LAND2AIM	INTEGER i,j,k
./pkg/aim_v23/aim_land2aim.F	94	AIM_LAND2AIM	DO j=1,sNy
./pkg/aim_v23/aim_land2aim.F	96	AIM_LAND2AIM	aimTld(i,j) = land_skinT(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_land_impl.F	100	AIM_LAND_IMPL	DO j=1,sNy
./pkg/aim_v23/aim_land_impl.F	102	AIM_LAND_IMPL	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_land_impl.F	103	AIM_LAND_IMPL	IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR.
./pkg/aim_v23/aim_land_impl.F	104	AIM_LAND_IMPL	& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN
./pkg/aim_v23/aim_land_impl.F	108	AIM_LAND_IMPL	land_EnWFlux(i,j,bi,bj) = -ALHF
./pkg/aim_v23/aim_land_impl.F	135	AIM_LAND_IMPL	DO j=1,sNy
./pkg/aim_v23/aim_land_impl.F	137	AIM_LAND_IMPL	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_land_impl.F	140	AIM_LAND_IMPL	land_HeatFlx(i,j,bi,bj) = sFlx(I2,0)
./pkg/aim_v23/aim_land_impl.F	142	AIM_LAND_IMPL	land_HeatFlx(i,j,bi,bj) = sFlx(I2,1)+dTsurf(I2)*sFlx(I2,2)
./pkg/aim_v23/aim_land_impl.F	145	AIM_LAND_IMPL	land_EnWFlux(i,j,bi,bj) = -land_EnWFlux(i,j,bi,bj)*EVAP(I2)
./pkg/aim_v23/aim_land_impl.F	81	AIM_LAND_IMPL	INTEGER i,j, I2
./pkg/aim_v23/aim_land_impl.F	86	AIM_LAND_IMPL	DO j=1,sNy
./pkg/aim_v23/aim_land_impl.F	88	AIM_LAND_IMPL	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_land_impl.F	92	AIM_LAND_IMPL	land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_land_impl.F	93	AIM_LAND_IMPL	land_EnWFlux(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_mnc_init.F	149	AIM_MNC_INIT	DO j = 1,MNC_MAX_CHAR
./pkg/aim_v23/aim_mnc_init.F	150	AIM_MNC_INIT	dn(i)(j:j) = ' '
./pkg/aim_v23/aim_mnc_init.F	33	AIM_MNC_INIT	INTEGER i,j, ndim
./pkg/aim_v23/aim_sice2aim.F	112	AIM_SICE2AIM	DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F	114	AIM_SICE2AIM	aimAlb(i,j) = siceAlb(i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F	119	AIM_SICE2AIM	DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F	121	AIM_SICE2AIM	aimAlb(i,j) = ALBICE
./pkg/aim_v23/aim_sice2aim.F	136	AIM_SICE2AIM	DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F	138	AIM_SICE2AIM	IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_sice2aim.F	139	AIM_SICE2AIM	tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K
./pkg/aim_v23/aim_sice2aim.F	140	AIM_SICE2AIM	sOceMxL(i,j,bi,bj) = sMxL_default
./pkg/aim_v23/aim_sice2aim.F	155	AIM_SICE2AIM	DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F	157	AIM_SICE2AIM	IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_sice2aim.F	158	AIM_SICE2AIM	aimTsoce(i,j) = tOceMxL(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_sice2aim.F	80	AIM_SICE2AIM	INTEGER i,j
./pkg/aim_v23/aim_sice2aim.F	84	AIM_SICE2AIM	DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F	86	AIM_SICE2AIM	aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_sice2aim.F	87	AIM_SICE2AIM	aimSIfrc(i,j) = iceMask(i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F	92	AIM_SICE2AIM	DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F	94	AIM_SICE2AIM	Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K
./pkg/aim_v23/aim_sice2aim.F	95	AIM_SICE2AIM	Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F	96	AIM_SICE2AIM	Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F	97	AIM_SICE2AIM	iceMask(i,j,bi,bj) = aimSIfrc(i,j)
./pkg/aim_v23/aim_surf_bc.F	100	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	102	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	103	AIM_SURF_BC	fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	140	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	142	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	143	AIM_SURF_BC	sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	144	AIM_SURF_BC	& + aim_sWght1*aim_sst1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	145	AIM_SURF_BC	stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	146	AIM_SURF_BC	& + aim_sWght1*aim_lst1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	158	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	160	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	161	AIM_SURF_BC	soilw_0 = ( aim_sw10(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	162	AIM_SURF_BC	& +aim_veget(i,j,bi,bj)*
./pkg/aim_v23/aim_surf_bc.F	163	AIM_SURF_BC	& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0)
./pkg/aim_v23/aim_surf_bc.F	165	AIM_SURF_BC	soilw_1 = ( aim_sw11(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	166	AIM_SURF_BC	& +aim_veget(i,j,bi,bj)*
./pkg/aim_v23/aim_surf_bc.F	167	AIM_SURF_BC	& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0)
./pkg/aim_v23/aim_surf_bc.F	176	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	178	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	179	AIM_SURF_BC	snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	180	AIM_SURF_BC	& + aim_sWght1*aim_snw1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	181	AIM_SURF_BC	oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	182	AIM_SURF_BC	& + aim_sWght1*aim_oic1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	219	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	225	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	226	AIM_SURF_BC	alb_land = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	227	AIM_SURF_BC	& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./pkg/aim_v23/aim_surf_bc.F	234	AIM_SURF_BC	SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/aim_v23/aim_surf_bc.F	235	AIM_SURF_BC	CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/aim_v23/aim_surf_bc.F	283	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	285	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	286	AIM_SURF_BC	alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	287	AIM_SURF_BC	alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	288	AIM_SURF_BC	alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	292	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	294	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	303	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	305	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	306	AIM_SURF_BC	sst1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	307	AIM_SURF_BC	stl1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	308	AIM_SURF_BC	sti1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	312	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	314	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	324	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	326	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	327	AIM_SURF_BC	soilw1(I2,myThid) = aim_sw10(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F	331	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	333	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	341	AIM_SURF_BC	DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F	343	AIM_SURF_BC	I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F	364	AIM_SURF_BC	DO j=1-OLy,sNy+OLy
./pkg/aim_v23/aim_surf_bc.F	366	AIM_SURF_BC	aim_CO2(i,j,bi,bj)= atm_pCO2
./pkg/aim_v23/aim_surf_bc.F	86	AIM_SURF_BC	INTEGER i,j,I2,k, nm0
./pkg/aim_v23/aim_tendency_apply.F	100	AIM_TENDENCY_APPLY_U	aim_dKE(i,j) =
./pkg/aim_v23/aim_tendency_apply.F	101	AIM_TENDENCY_APPLY_U	& -uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F	102	AIM_TENDENCY_APPLY_U	& hFacW(i,j,k,bi,bj)drF(k)*rUnit2mass
./pkg/aim_v23/aim_tendency_apply.F	107	AIM_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	109	AIM_TENDENCY_APPLY_U	IF ( maskW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F	111	AIM_TENDENCY_APPLY_U	& -( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F	112	AIM_TENDENCY_APPLY_U	& * 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	113	AIM_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/aim_v23/aim_tendency_apply.F	115	AIM_TENDENCY_APPLY_U	& * recip_hFacW(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	117	AIM_TENDENCY_APPLY_U	aim_uStress(i,j,bi,bj) = uStr_tmp
./pkg/aim_v23/aim_tendency_apply.F	120	AIM_TENDENCY_APPLY_U	aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	122	AIM_TENDENCY_APPLY_U	aim_dKE(i,j) = 0.
./pkg/aim_v23/aim_tendency_apply.F	128	AIM_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	130	AIM_TENDENCY_APPLY_U	IF ( maskW(i,j,k-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F	131	AIM_TENDENCY_APPLY_U	& .AND. maskW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F	133	AIM_TENDENCY_APPLY_U	& -( (1.-maskC(i-1,j,k-1,bi,bj))*aim_drag(i-1,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	134	AIM_TENDENCY_APPLY_U	& +(1.-maskC( i ,j,k-1,bi,bj))*aim_drag( i ,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	135	AIM_TENDENCY_APPLY_U	& )* 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	136	AIM_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/aim_v23/aim_tendency_apply.F	138	AIM_TENDENCY_APPLY_U	& * recip_hFacW(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	140	AIM_TENDENCY_APPLY_U	aim_uStress(i,j,bi,bj) = uStr_tmp
./pkg/aim_v23/aim_tendency_apply.F	143	AIM_TENDENCY_APPLY_U	aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	145	AIM_TENDENCY_APPLY_U	aim_dKE(i,j) = 0.
./pkg/aim_v23/aim_tendency_apply.F	155	AIM_TENDENCY_APPLY_U	DO j=1,sNy
./pkg/aim_v23/aim_tendency_apply.F	157	AIM_TENDENCY_APPLY_U	frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	158	AIM_TENDENCY_APPLY_U	& -0.5 _d 0 * ( aim_dKE( i, j)*rAw( i, j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	159	AIM_TENDENCY_APPLY_U	& + aim_dKE(i+1,j)*rAw(i+1,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F	173	AIM_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	175	AIM_TENDENCY_APPLY_U	aim_KEuStr(i,j,bi,bj) = aim_dKE(i,j)
./pkg/aim_v23/aim_tendency_apply.F	179	AIM_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	181	AIM_TENDENCY_APPLY_U	aim_KEuStr(i,j,bi,bj) = aim_KEuStr(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	182	AIM_TENDENCY_APPLY_U	& + aim_dKE(i,j)
./pkg/aim_v23/aim_tendency_apply.F	260	AIM_TENDENCY_APPLY_V	INTEGER i, j
./pkg/aim_v23/aim_tendency_apply.F	269	AIM_TENDENCY_APPLY_V	DO j=1-OLy,sNy+OLy
./pkg/aim_v23/aim_tendency_apply.F	271	AIM_TENDENCY_APPLY_V	aim_vStress(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F	272	AIM_TENDENCY_APPLY_V	aim_KEvStr(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F	282	AIM_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	284	AIM_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/aim_v23/aim_tendency_apply.F	285	AIM_TENDENCY_APPLY_V	& -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F	287	AIM_TENDENCY_APPLY_V	aim_dKE(i,j) =
./pkg/aim_v23/aim_tendency_apply.F	288	AIM_TENDENCY_APPLY_V	& -vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F	289	AIM_TENDENCY_APPLY_V	& hFacS(i,j,k,bi,bj)drF(k)*rUnit2mass
./pkg/aim_v23/aim_tendency_apply.F	294	AIM_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	296	AIM_TENDENCY_APPLY_V	IF ( maskS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F	298	AIM_TENDENCY_APPLY_V	& -( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F	299	AIM_TENDENCY_APPLY_V	& * 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	300	AIM_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/aim_v23/aim_tendency_apply.F	302	AIM_TENDENCY_APPLY_V	& * recip_hFacS(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	304	AIM_TENDENCY_APPLY_V	aim_vStress(i,j,bi,bj) = vStr_tmp
./pkg/aim_v23/aim_tendency_apply.F	307	AIM_TENDENCY_APPLY_V	aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	309	AIM_TENDENCY_APPLY_V	aim_dKE(i,j) = 0.
./pkg/aim_v23/aim_tendency_apply.F	315	AIM_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	317	AIM_TENDENCY_APPLY_V	IF ( maskS(i,j,k-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F	318	AIM_TENDENCY_APPLY_V	& .AND. maskS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F	320	AIM_TENDENCY_APPLY_V	& -( (1.-maskC(i,j-1,k-1,bi,bj))*aim_drag(i,j-1,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	321	AIM_TENDENCY_APPLY_V	& +(1.-maskC(i, j ,k-1,bi,bj))*aim_drag(i, j ,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	322	AIM_TENDENCY_APPLY_V	& )* 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	323	AIM_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/aim_v23/aim_tendency_apply.F	325	AIM_TENDENCY_APPLY_V	& * recip_hFacS(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	327	AIM_TENDENCY_APPLY_V	aim_vStress(i,j,bi,bj) = vStr_tmp
./pkg/aim_v23/aim_tendency_apply.F	330	AIM_TENDENCY_APPLY_V	aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	332	AIM_TENDENCY_APPLY_V	aim_dKE(i,j) = 0.
./pkg/aim_v23/aim_tendency_apply.F	342	AIM_TENDENCY_APPLY_V	DO j=1,sNy
./pkg/aim_v23/aim_tendency_apply.F	344	AIM_TENDENCY_APPLY_V	frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	345	AIM_TENDENCY_APPLY_V	& -0.5 _d 0 * ( aim_dKE(i, j )*rAs(i, j, bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	346	AIM_TENDENCY_APPLY_V	& + aim_dKE(i,j+1)*rAs(i,j+1,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F	360	AIM_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	362	AIM_TENDENCY_APPLY_V	aim_KEvStr(i,j,bi,bj) = aim_dKE(i,j)
./pkg/aim_v23/aim_tendency_apply.F	366	AIM_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	368	AIM_TENDENCY_APPLY_V	aim_KEvStr(i,j,bi,bj) = aim_KEvStr(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	369	AIM_TENDENCY_APPLY_V	& + aim_dKE(i,j)
./pkg/aim_v23/aim_tendency_apply.F	439	AIM_TENDENCY_APPLY_T	gT_arr(i,j) = maskC(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	440	AIM_TENDENCY_APPLY_T	& *( gT_arr(i,j) + aim_dTdt(i,j,k,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F	501	AIM_TENDENCY_APPLY_S	gS_arr(i,j) = maskC(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F	502	AIM_TENDENCY_APPLY_S	& *( gS_arr(i,j) + aim_dSdt(i,j,k,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F	73	AIM_TENDENCY_APPLY_U	INTEGER i, j
./pkg/aim_v23/aim_tendency_apply.F	82	AIM_TENDENCY_APPLY_U	DO j=1-OLy,sNy+OLy
./pkg/aim_v23/aim_tendency_apply.F	84	AIM_TENDENCY_APPLY_U	aim_uStress(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F	85	AIM_TENDENCY_APPLY_U	aim_KEuStr(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F	95	AIM_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/aim_v23/aim_tendency_apply.F	97	AIM_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/aim_v23/aim_tendency_apply.F	98	AIM_TENDENCY_APPLY_U	& -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_write_local.F	52	AIM_WRITE_LOCAL	INTEGER i, j, k, Katm
./pkg/aim_v23/aim_write_local.F	75	AIM_WRITE_LOCAL	DO j=1,sNy
./pkg/aim_v23/aim_write_local.F	77	AIM_WRITE_LOCAL	tmpFld(i,j,k) = field(i,j,Katm)
./pkg/aim_v23/aim_write_local.F	84	AIM_WRITE_LOCAL	DO j=1,sNy
./pkg/aim_v23/aim_write_local.F	86	AIM_WRITE_LOCAL	tmpFld(i,j,k) = field(i,j,k)
./pkg/aim_v23/aim_write_phys.F	105	AIM_WRITE_PHYS	DO j=1,sNy
./pkg/aim_v23/aim_write_phys.F	107	AIM_WRITE_PHYS	tmpFld(i,j,1) = field(i,j,kLev,ith)
./pkg/aim_v23/aim_write_phys.F	114	AIM_WRITE_PHYS	DO j=1,sNy
./pkg/aim_v23/aim_write_phys.F	116	AIM_WRITE_PHYS	tmpFld(i,j,k) = field(i,j,Katm,ith)
./pkg/aim_v23/aim_write_phys.F	123	AIM_WRITE_PHYS	DO j=1,sNy
./pkg/aim_v23/aim_write_phys.F	125	AIM_WRITE_PHYS	tmpFld(i,j,k) = field(i,j,k,ith)
./pkg/aim_v23/aim_write_phys.F	55	AIM_WRITE_PHYS	INTEGER i, j, k, Katm, nLoc
./eesupp/src/fill_cs_corner_ag_rl.F	134	FILL_CS_CORNER_AG_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_ag_rl.F	136	FILL_CS_CORNER_AG_RL	uFld( 1-i , 1-j ) = vFld( 1-j , i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	137	FILL_CS_CORNER_AG_RL	vFld( 1-i , 1-j ) = uFld( 1-j , i )
./eesupp/src/fill_cs_corner_ag_rl.F	142	FILL_CS_CORNER_AG_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_ag_rl.F	144	FILL_CS_CORNER_AG_RL	uFld(sNx+i, 1-j ) = vFld(sNx+j, i )
./eesupp/src/fill_cs_corner_ag_rl.F	145	FILL_CS_CORNER_AG_RL	vFld(sNx+i, 1-j ) = uFld(sNx+j, i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	150	FILL_CS_CORNER_AG_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_ag_rl.F	152	FILL_CS_CORNER_AG_RL	uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i )
./eesupp/src/fill_cs_corner_ag_rl.F	153	FILL_CS_CORNER_AG_RL	vFld( 1-i ,sNy+j) = uFld( 1-j , sNy+1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	158	FILL_CS_CORNER_AG_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_ag_rl.F	160	FILL_CS_CORNER_AG_RL	uFld(sNx+i,sNy+j) = vFld(sNx+j, sNy+1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	161	FILL_CS_CORNER_AG_RL	vFld(sNx+i,sNy+j) = uFld(sNx+j, sNy+1-i )
./eesupp/src/fill_cs_corner_ag_rl.F	208	FILL_CS_CORNER_AG_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_ag_rl.F	210	FILL_CS_CORNER_AG_RL	uFld( 1-i , 1-j ) = vFld( j , 1-i )
./eesupp/src/fill_cs_corner_ag_rl.F	211	FILL_CS_CORNER_AG_RL	vFld( 1-i , 1-j ) = uFld( j , 1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	216	FILL_CS_CORNER_AG_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_ag_rl.F	218	FILL_CS_CORNER_AG_RL	uFld(sNx+i, 1-j ) = vFld(sNx+1-j, 1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	219	FILL_CS_CORNER_AG_RL	vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i )
./eesupp/src/fill_cs_corner_ag_rl.F	224	FILL_CS_CORNER_AG_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_ag_rl.F	226	FILL_CS_CORNER_AG_RL	uFld( 1-i ,sNy+j) = vFld( j ,sNy+i)*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	227	FILL_CS_CORNER_AG_RL	vFld( 1-i ,sNy+j) = uFld( j ,sNy+i)
./eesupp/src/fill_cs_corner_ag_rl.F	232	FILL_CS_CORNER_AG_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_ag_rl.F	234	FILL_CS_CORNER_AG_RL	uFld(sNx+i,sNy+j) = vFld(sNx+1-j,sNy+i)
./eesupp/src/fill_cs_corner_ag_rl.F	235	FILL_CS_CORNER_AG_RL	vFld(sNx+i,sNy+j) = uFld(sNx+1-j,sNy+i)*negOne
./eesupp/src/fill_cs_corner_ag_rl.F	60	FILL_CS_CORNER_AG_RL	INTEGER i,j
./eesupp/src/fill_cs_corner_tr_rl.F	104	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	106	FILL_CS_CORNER_TR_RL	trFld(sNx+i, 1-j ) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F	111	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	113	FILL_CS_CORNER_TR_RL	trFld( 1-i ,sNy+j) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F	118	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	120	FILL_CS_CORNER_TR_RL	trFld(sNx+i,sNy+j) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F	166	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	168	FILL_CS_CORNER_TR_RL	trFld( 1-i , 1-j ) = negOne*trFld( 1-j , i )
./eesupp/src/fill_cs_corner_tr_rl.F	173	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	175	FILL_CS_CORNER_TR_RL	trFld(sNx+i, 1-j ) = negOne*trFld(sNx+j, i )
./eesupp/src/fill_cs_corner_tr_rl.F	180	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	182	FILL_CS_CORNER_TR_RL	trFld( 1-i ,sNy+j) = negOne*trFld( 1-j , sNy+1-i )
./eesupp/src/fill_cs_corner_tr_rl.F	187	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	189	FILL_CS_CORNER_TR_RL	trFld(sNx+i,sNy+j) = negOne*trFld(sNx+j, sNy+1-i )
./eesupp/src/fill_cs_corner_tr_rl.F	236	FILL_CS_CORNER_TR_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_tr_rl.F	238	FILL_CS_CORNER_TR_RL	trFld( 1-i , 1-j ) = negOne*trFld( j , 1-i )
./eesupp/src/fill_cs_corner_tr_rl.F	243	FILL_CS_CORNER_TR_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_tr_rl.F	245	FILL_CS_CORNER_TR_RL	trFld(sNx+i, 1-j ) = negOne*trFld(sNx+1-j, 1-i )
./eesupp/src/fill_cs_corner_tr_rl.F	250	FILL_CS_CORNER_TR_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_tr_rl.F	252	FILL_CS_CORNER_TR_RL	trFld( 1-i ,sNy+j) = negOne*trFld( j ,sNy+i)
./eesupp/src/fill_cs_corner_tr_rl.F	257	FILL_CS_CORNER_TR_RL	DO j=1,Oly
./eesupp/src/fill_cs_corner_tr_rl.F	259	FILL_CS_CORNER_TR_RL	trFld(sNx+i,sNy+j) = negOne*trFld(sNx+1-j,sNy+i)
./eesupp/src/fill_cs_corner_tr_rl.F	60	FILL_CS_CORNER_TR_RL	INTEGER i,j
./eesupp/src/fill_cs_corner_tr_rl.F	97	FILL_CS_CORNER_TR_RL	DO j=1,OLy
./eesupp/src/fill_cs_corner_tr_rl.F	99	FILL_CS_CORNER_TR_RL	trFld( 1-i , 1-j ) = 0. _d 0
./pkg/atm2d/atm2d_readparms.F	49	ATM2D_READPARMS	INTEGER j ! loop counter
./pkg/atm2d/atm2d_readparms.F	87	ATM2D_READPARMS	do j=1,sNy
./pkg/atm2d/atm2d_readparms.F	88	ATM2D_READPARMS	rband(j)=0
./pkg/atm2d/atm2d_write_pickup.F	141	ATM2D_WRITE_PICKUP_NOW	INTEGER prec, i,j
./eesupp/src/fill_cs_corner_uv_rs.F	127	FILL_CS_CORNER_UV_RS	DO j=1,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	129	FILL_CS_CORNER_UV_RS	uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i )
./eesupp/src/fill_cs_corner_uv_rs.F	133	FILL_CS_CORNER_UV_RS	DO j=1,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	135	FILL_CS_CORNER_UV_RS	vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i )
./eesupp/src/fill_cs_corner_uv_rs.F	142	FILL_CS_CORNER_UV_RS	DO j=1,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	144	FILL_CS_CORNER_UV_RS	uFld(sNx+i, 1-j ) = vFld(sNx+j, i )
./eesupp/src/fill_cs_corner_uv_rs.F	148	FILL_CS_CORNER_UV_RS	DO j=1,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	150	FILL_CS_CORNER_UV_RS	vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i )
./eesupp/src/fill_cs_corner_uv_rs.F	157	FILL_CS_CORNER_UV_RS	DO j=1,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	159	FILL_CS_CORNER_UV_RS	uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i )
./eesupp/src/fill_cs_corner_uv_rs.F	163	FILL_CS_CORNER_UV_RS	DO j=2,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	165	FILL_CS_CORNER_UV_RS	vFld( 1-i ,sNy+j) = uFld( j , sNy+i )
./eesupp/src/fill_cs_corner_uv_rs.F	172	FILL_CS_CORNER_UV_RS	DO j=1,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	174	FILL_CS_CORNER_UV_RS	uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i )
./eesupp/src/fill_cs_corner_uv_rs.F	178	FILL_CS_CORNER_UV_RS	DO j=2,OLy
./eesupp/src/fill_cs_corner_uv_rs.F	180	FILL_CS_CORNER_UV_RS	vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i )
./eesupp/src/fill_cs_corner_uv_rs.F	57	FILL_CS_CORNER_UV_RS	INTEGER i,j
./pkg/atm2d/calc_1dto2d.F	103	CALC_WGHT2D	SUBROUTINE CALC_WGHT2D( i, j, ind, wgt)
./pkg/atm2d/calc_1dto2d.F	128	CALC_WGHT2D	INTEGER i, j
./pkg/atm2d/calc_1dto2d.F	132	CALC_WGHT2D	precipo_2D(i,j)= precipo_2D(i,j) + atm_precip(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	133	CALC_WGHT2D	solarnet_ocn_2D(i,j)=solarnet_ocn_2D(i,j) + atm_solar_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	134	CALC_WGHT2D	slp_2D(i,j)= slp_2D(i,j) + atm_slp(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	135	CALC_WGHT2D	pCO2_2D(i,j)= pCO2_2D(i,j) + atm_pco2(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	136	CALC_WGHT2D	wspeed_2D(i,j)= wspeed_2D(i,j) + atm_windspeed(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	137	CALC_WGHT2D	fu_2D(i,j)= fu_2D(i,j) + atm_tauu(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	139	CALC_WGHT2D	qneto_2D(i,j)= qneto_2D(i,j) + atm_qnet_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	140	CALC_WGHT2D	evapo_2D(i,j)= evapo_2D(i,j) + atm_evap_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	141	CALC_WGHT2D	IF (evapo_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip
./pkg/atm2d/calc_1dto2d.F	142	CALC_WGHT2D	precipo_2D(i,j)= precipo_2D(i,j) - evapo_2D(i,j)
./pkg/atm2d/calc_1dto2d.F	143	CALC_WGHT2D	evapo_2D(i,j)=0. _d 0
./pkg/atm2d/calc_1dto2d.F	146	CALC_WGHT2D	IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F	147	CALC_WGHT2D	qneti_2D(i,j)= qneti_2D(i,j) + atm_qnet_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	148	CALC_WGHT2D	precipi_2D(i,j)= precipi_2D(i,j) + atm_precip(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	149	CALC_WGHT2D	evapi_2D(i,j)= evapi_2D(i,j) + atm_evap_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	150	CALC_WGHT2D	IF (evapi_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip
./pkg/atm2d/calc_1dto2d.F	151	CALC_WGHT2D	precipi_2D(i,j)= precipi_2D(i,j) - evapi_2D(i,j)
./pkg/atm2d/calc_1dto2d.F	152	CALC_WGHT2D	evapi_2D(i,j)=0. _d 0
./pkg/atm2d/calc_1dto2d.F	154	CALC_WGHT2D	dFdT_ice_2D(i,j)= dFdT_ice_2D(i,j) + atm_dFdT_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	155	CALC_WGHT2D	Tair_2D(i,j)= Tair_2D(i,j) + atm_Tair(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	156	CALC_WGHT2D	solarinc_2D(i,j)= solarinc_2D(i,j) + atm_solarinc(ind)*wgt
./pkg/atm2d/calc_1dto2d.F	160	CALC_WGHT2D	qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocnq(ind)*
./pkg/atm2d/calc_1dto2d.F	161	CALC_WGHT2D	& (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	162	CALC_WGHT2D	evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocnq(ind)*
./pkg/atm2d/calc_1dto2d.F	163	CALC_WGHT2D	& (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	164	CALC_WGHT2D	IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F	165	CALC_WGHT2D	qneti_2D(i,j)=qneti_2D(i,j)+atm_dFdt_iceq(ind)*
./pkg/atm2d/calc_1dto2d.F	166	CALC_WGHT2D	& (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	167	CALC_WGHT2D	evapi_2D(i,j)=evapi_2D(i,j)+atm_dLdt_iceq(ind)*
./pkg/atm2d/calc_1dto2d.F	168	CALC_WGHT2D	& (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	171	CALC_WGHT2D	qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocn(ind)*
./pkg/atm2d/calc_1dto2d.F	172	CALC_WGHT2D	& (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	173	CALC_WGHT2D	evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocn(ind)*
./pkg/atm2d/calc_1dto2d.F	174	CALC_WGHT2D	& (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	175	CALC_WGHT2D	IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F	176	CALC_WGHT2D	qneti_2D(i,j)= qneti_2D(i,j) + atm_dFdt_ice(ind)*
./pkg/atm2d/calc_1dto2d.F	177	CALC_WGHT2D	& (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	178	CALC_WGHT2D	evapi_2D(i,j)= evapi_2D(i,j)+atm_dLdt_ice(ind)*
./pkg/atm2d/calc_1dto2d.F	179	CALC_WGHT2D	& (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F	211	INIT_2DFLD	INTEGER i,j
./pkg/atm2d/calc_1dto2d.F	214	INIT_2DFLD	DO j=1,sNy
./pkg/atm2d/calc_1dto2d.F	216	INIT_2DFLD	precipo_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	217	INIT_2DFLD	precipi_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	218	INIT_2DFLD	solarnet_ocn_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	219	INIT_2DFLD	slp_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	220	INIT_2DFLD	pCO2_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	221	INIT_2DFLD	wspeed_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	222	INIT_2DFLD	fu_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	223	INIT_2DFLD	fv_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	224	INIT_2DFLD	qneto_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	225	INIT_2DFLD	evapo_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	226	INIT_2DFLD	qneti_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	227	INIT_2DFLD	evapi_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	228	INIT_2DFLD	dFdT_ice_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	229	INIT_2DFLD	Tair_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	230	INIT_2DFLD	solarinc_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	231	INIT_2DFLD	runoff_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F	34	CALC_1DTO2D	INTEGER i,j ! loop counters across ocean grid
./pkg/atm2d/calc_1dto2d.F	48	CALC_1DTO2D	DO j=ibj1,ibj2
./pkg/atm2d/calc_1dto2d.F	50	CALC_1DTO2D	& atm_runoff(atm_oc_ind(j))*atm_oc_frac1(j) +
./pkg/atm2d/calc_1dto2d.F	51	CALC_1DTO2D	& atm_runoff(atm_oc_ind(j)+1)*atm_oc_frac2(j)
./pkg/atm2d/calc_1dto2d.F	55	CALC_1DTO2D	DO j=1,sNy
./pkg/atm2d/calc_1dto2d.F	58	CALC_1DTO2D	fv_toC = atm_tauv(tauv_jpt(j)) * tauv_jwght(j) +
./pkg/atm2d/calc_1dto2d.F	59	CALC_1DTO2D	& atm_tauv(tauv_jpt(j)+1) * (1. _d 0 - tauv_jwght(j))
./pkg/atm2d/calc_1dto2d.F	63	CALC_1DTO2D	IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/calc_1dto2d.F	65	CALC_1DTO2D	runoff_2D(i,j) = run_b(runIndex(j)) *
./pkg/atm2d/calc_1dto2d.F	66	CALC_1DTO2D	& runoffVal(i,j)/rA(i,j,1,1)
./pkg/atm2d/calc_1dto2d.F	68	CALC_1DTO2D	CALL CALC_WGHT2D(i,j,atm_oc_ind(j),atm_oc_wgt(j))
./pkg/atm2d/calc_1dto2d.F	70	CALC_1DTO2D	IF (atm_oc_wgt(j).LT.1. _d 0)
./pkg/atm2d/calc_1dto2d.F	71	CALC_1DTO2D	& CALL CALC_WGHT2D(i, j, atm_oc_ind(j)+1,
./pkg/atm2d/calc_1dto2d.F	72	CALC_1DTO2D	& 1. _d 0-atm_oc_wgt(j))
./pkg/atm2d/calc_1dto2d.F	74	CALC_1DTO2D	fv_2D(i,j) = fv_toC
./pkg/atm2d/calc_1dto2d.F	77	CALC_1DTO2D	qnet_atm(i,j)= qnet_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F	78	CALC_1DTO2D	& qneti_2D(i,j)dtatmoiceMask(i,j,1,1) +
./pkg/atm2d/calc_1dto2d.F	79	CALC_1DTO2D	& qneto_2D(i,j)dtatmo(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F	80	CALC_1DTO2D	evap_atm(i,j)= evap_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F	81	CALC_1DTO2D	& evapi_2D(i,j)dtatmoiceMask(i,j,1,1) +
./pkg/atm2d/calc_1dto2d.F	82	CALC_1DTO2D	& evapo_2D(i,j)dtatmo(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F	83	CALC_1DTO2D	precip_atm(i,j)= precip_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F	84	CALC_1DTO2D	& precipi_2D(i,j)dtatmoiceMask(i,j,1,1) +
./pkg/atm2d/calc_1dto2d.F	85	CALC_1DTO2D	& precipo_2D(i,j)dtatmo(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F	86	CALC_1DTO2D	runoff_atm(i,j)= runoff_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F	87	CALC_1DTO2D	& runoff_2D(i,j)*dtatmo
./pkg/atm2d/calc_zonal_means.F	100	CALC_ZONAL_MEANS	& rA(i,j,1,1)iceMask(i,j,1,1)mWgt
./pkg/atm2d/calc_zonal_means.F	101	CALC_ZONAL_MEANS	cco2flux(atm_oc_ind(j)+1)= cco2flux(atm_oc_ind(j)+1) +
./pkg/atm2d/calc_zonal_means.F	102	CALC_ZONAL_MEANS	& oFluxCO2(i,j)rA(i,j,1,1)mWgt
./pkg/atm2d/calc_zonal_means.F	104	CALC_ZONAL_MEANS	ctice(atm_oc_ind(j)+1)= ctice(atm_oc_ind(j)+1) +
./pkg/atm2d/calc_zonal_means.F	105	CALC_ZONAL_MEANS	& Tsrf(i,j,1,1)rA(i,j,1,1)iceMask(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F	106	CALC_ZONAL_MEANS	csAlb(atm_oc_ind(j)+1)= csAlb(atm_oc_ind(j)+1) +
./pkg/atm2d/calc_zonal_means.F	107	CALC_ZONAL_MEANS	& siceAlb(i,j,1,1)rA(i,j,1,1)iceMask(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F	108	CALC_ZONAL_MEANS	csAlbNIR(atm_oc_ind(j)+1)= csAlbNIR(atm_oc_ind(j)+1) +
./pkg/atm2d/calc_zonal_means.F	109	CALC_ZONAL_MEANS	& icAlbNIR(i,j,1,1)rA(i,j,1,1)iceMask(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F	47	CALC_ZONAL_MEANS	INTEGER i,j ! loop counters for the ocean grid
./pkg/atm2d/calc_zonal_means.F	70	CALC_ZONAL_MEANS	DO j=1,sNy
./pkg/atm2d/calc_zonal_means.F	73	CALC_ZONAL_MEANS	IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/calc_zonal_means.F	76	CALC_ZONAL_MEANS	ctocn(atm_oc_ind(j))= ctocn(atm_oc_ind(j)) +
./pkg/atm2d/calc_zonal_means.F	77	CALC_ZONAL_MEANS	& sstFromOcn(i,j) * rA(i,j,1,1) *
./pkg/atm2d/calc_zonal_means.F	78	CALC_ZONAL_MEANS	& (1. _d 0-iceMask(i,j,1,1))*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F	79	CALC_ZONAL_MEANS	cfice(atm_oc_ind(j))=cfice(atm_oc_ind(j)) +
./pkg/atm2d/calc_zonal_means.F	80	CALC_ZONAL_MEANS	& rA(i,j,1,1)iceMask(i,j,1,1)atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F	81	CALC_ZONAL_MEANS	cco2flux(atm_oc_ind(j))=cco2flux(atm_oc_ind(j)) +
./pkg/atm2d/calc_zonal_means.F	82	CALC_ZONAL_MEANS	& oFluxCO2(i,j)rA(i,j,1,1)atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F	84	CALC_ZONAL_MEANS	ctice(atm_oc_ind(j))=ctice(atm_oc_ind(j)) + Tsrf(i,j,1,1)
./pkg/atm2d/calc_zonal_means.F	85	CALC_ZONAL_MEANS	& rA(i,j,1,1)iceMask(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F	86	CALC_ZONAL_MEANS	csAlb(atm_oc_ind(j))=csAlb(atm_oc_ind(j)) + siceAlb(i,j,1,1)
./pkg/atm2d/calc_zonal_means.F	87	CALC_ZONAL_MEANS	& rA(i,j,1,1)iceMask(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F	88	CALC_ZONAL_MEANS	csAlbNIR(atm_oc_ind(j))=csAlbNIR(atm_oc_ind(j)) +
./pkg/atm2d/calc_zonal_means.F	89	CALC_ZONAL_MEANS	& icAlbNIR(i,j,1,1)
./pkg/atm2d/calc_zonal_means.F	90	CALC_ZONAL_MEANS	& rA(i,j,1,1)iceMask(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F	93	CALC_ZONAL_MEANS	IF (atm_oc_wgt(j).LT.1. _d 0) THEN
./pkg/atm2d/calc_zonal_means.F	94	CALC_ZONAL_MEANS	mWgt= 1. _d 0-atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F	96	CALC_ZONAL_MEANS	ctocn(atm_oc_ind(j)+1)= ctocn(atm_oc_ind(j)+1) +
./pkg/atm2d/calc_zonal_means.F	97	CALC_ZONAL_MEANS	& sstFromOcn(i,j) * rA(i,j,1,1) *
./pkg/atm2d/calc_zonal_means.F	98	CALC_ZONAL_MEANS	& (1. _d 0-iceMask(i,j,1,1))*mWgt
./pkg/atm2d/calc_zonal_means.F	99	CALC_ZONAL_MEANS	cfice(atm_oc_ind(j)+1)= cfice(atm_oc_ind(j)+1) +
./pkg/atm2d/cpl_send_ocn_atmconfig.F	34	CPL_SEND_OCN_ATMCONFIG	INTEGER i,j
./pkg/atm2d/cpl_send_ocn_atmconfig.F	44	CPL_SEND_OCN_ATMCONFIG	DO j=1,Ny_ocn
./pkg/atm2d/cpl_send_ocn_atmconfig.F	45	CPL_SEND_OCN_ATMCONFIG	landMask_ocn(i,j)= 0.5 !ocean code checks for this
./pkg/atm2d/fixed_flux_add.F	125	FIXED_FLUX_ADD	DO j=1,sNy
./pkg/atm2d/fixed_flux_add.F	127	FIXED_FLUX_ADD	IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/fixed_flux_add.F	129	FIXED_FLUX_ADD	fu_2D(i,j)= fu_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F	130	FIXED_FLUX_ADD	& (wght0tau0(i,j,1,1) + wght1tau1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F	131	FIXED_FLUX_ADD	fv_2D(i,j)= fv_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F	132	FIXED_FLUX_ADD	& (wght0tav0(i,j,1,1) + wght1tav1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F	133	FIXED_FLUX_ADD	wspeed_2D(i,j)= wspeed_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F	134	FIXED_FLUX_ADD	& (wght0wind0(i,j,1,1) + wght1wind1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F	136	FIXED_FLUX_ADD	qfadj = (wght0qnet0(i,j,1,1) + wght1qnet1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F	138	FIXED_FLUX_ADD	& (iceMask(i,j,1,1) .LT. 0.999 _d 0)) THEN
./pkg/atm2d/fixed_flux_add.F	139	FIXED_FLUX_ADD	qneto_2D(i,j)= qneto_2D(i,j) + qfadj
./pkg/atm2d/fixed_flux_add.F	140	FIXED_FLUX_ADD	& / (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F	145	FIXED_FLUX_ADD	evapo_2D(i,j)= -evap0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	146	FIXED_FLUX_ADD	precipo_2D(i,j)= precip0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	147	FIXED_FLUX_ADD	IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/fixed_flux_add.F	148	FIXED_FLUX_ADD	evapi_2D(i,j)= -evap0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	149	FIXED_FLUX_ADD	precipi_2D(i,j)= precip0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	152	FIXED_FLUX_ADD	evapo_2D(i,j)= evapo_2D(i,j) -
./pkg/atm2d/fixed_flux_add.F	153	FIXED_FLUX_ADD	& evap0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	154	FIXED_FLUX_ADD	precipo_2D(i,j)= precipo_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F	155	FIXED_FLUX_ADD	& precip0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	156	FIXED_FLUX_ADD	IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/fixed_flux_add.F	157	FIXED_FLUX_ADD	evapi_2D(i,j)= evapi_2D(i,j) -
./pkg/atm2d/fixed_flux_add.F	158	FIXED_FLUX_ADD	& evap0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	159	FIXED_FLUX_ADD	precipi_2D(i,j)= precipi_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F	160	FIXED_FLUX_ADD	& precip0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	165	FIXED_FLUX_ADD	runoff_2D(i,j)= runoff0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	167	FIXED_FLUX_ADD	runoff_2D(i,j)= runoff_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F	168	FIXED_FLUX_ADD	& runoff0(i,j,1,1)
./pkg/atm2d/fixed_flux_add.F	43	FIXED_FLUX_ADD	INTEGER i,j ! loop counters
./pkg/atm2d/forward_step_atm2d.F	149	FORWARD_STEP_ATM2D	DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F	150	FORWARD_STEP_ATM2D	co24ocnan(j)=0.0
./pkg/atm2d/forward_step_atm2d.F	157	FORWARD_STEP_ATM2D	DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F	158	FORWARD_STEP_ATM2D	antemnep(j)=0.
./pkg/atm2d/forward_step_atm2d.F	179	FORWARD_STEP_ATM2D	DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F	180	FORWARD_STEP_ATM2D	fluxco2mn(j)=0.0
./pkg/atm2d/forward_step_atm2d.F	207	FORWARD_STEP_ATM2D	DO j = 1-OLy, sNy+OLy
./pkg/atm2d/forward_step_atm2d.F	209	FORWARD_STEP_ATM2D	qPrcRn(i,j) = 0.
./pkg/atm2d/forward_step_atm2d.F	284	FORWARD_STEP_ATM2D	DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F	285	FORWARD_STEP_ATM2D	ch4mn=ch4mn+temch4(j)
./pkg/atm2d/forward_step_atm2d.F	286	FORWARD_STEP_ATM2D	n2omn=n2omn+temn2o(j)
./pkg/atm2d/forward_step_atm2d.F	287	FORWARD_STEP_ATM2D	nepmn=nepmn+temco2(j)
./pkg/atm2d/forward_step_atm2d.F	298	FORWARD_STEP_ATM2D	DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F	299	FORWARD_STEP_ATM2D	temnep(monid,j)=temco2(j)
./pkg/atm2d/forward_step_atm2d.F	301	FORWARD_STEP_ATM2D	DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F	302	FORWARD_STEP_ATM2D	antemnep(j)=antemnep(j)+temnep(monid,j)
./pkg/atm2d/forward_step_atm2d.F	303	FORWARD_STEP_ATM2D	nepan=nepan+temnep(monid,j)
./pkg/atm2d/forward_step_atm2d.F	304	FORWARD_STEP_ATM2D	ch4ann=ch4ann+temch4(j)
./pkg/atm2d/forward_step_atm2d.F	305	FORWARD_STEP_ATM2D	n2oann=n2oann+temn2o(j)
./pkg/atm2d/forward_step_atm2d.F	426	FORWARD_STEP_ATM2D	DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F	428	FORWARD_STEP_ATM2D	co24ocnan(j)=co24ocnan(j)*dtatm/24.0/365.0
./pkg/atm2d/forward_step_atm2d.F	430	FORWARD_STEP_ATM2D	co24ocnan(j)=co24ocnan(j)/365.0
./pkg/atm2d/forward_step_atm2d.F	50	FORWARD_STEP_ATM2D	INTEGER j,mn,na,no !loop counters
./pkg/atm2d/get_ocnvars.F	100	GET_OCNVARS	mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F	105	GET_OCNVARS	DO j=1,sNy
./pkg/atm2d/get_ocnvars.F	107	GET_OCNVARS	v2ocMxL(i,j,1,1) =
./pkg/atm2d/get_ocnvars.F	108	GET_OCNVARS	& ( uVel(i , j,1,1,1)*uVel(i , j,1,1,1)
./pkg/atm2d/get_ocnvars.F	109	GET_OCNVARS	& + uVel(i+1,j,1,1,1)*uVel(i+1,j,1,1,1)
./pkg/atm2d/get_ocnvars.F	110	GET_OCNVARS	& + vVel(i,j+1,1,1,1)*vVel(i,j+1,1,1,1)
./pkg/atm2d/get_ocnvars.F	111	GET_OCNVARS	& + vVel(i,j , 1,1,1)*vVel(i,j , 1,1,1)
./pkg/atm2d/get_ocnvars.F	116	GET_OCNVARS	DO j=1,sNy
./pkg/atm2d/get_ocnvars.F	120	GET_OCNVARS	oFluxCO2(i,j) = fluxCO2(i,j,1,1)
./pkg/atm2d/get_ocnvars.F	124	GET_OCNVARS	tOceMxl(i,j,1,1)= sstFromOcn(i,j)
./pkg/atm2d/get_ocnvars.F	125	GET_OCNVARS	sOceMxl(i,j,1,1)= sssFromOcn(i,j)
./pkg/atm2d/get_ocnvars.F	126	GET_OCNVARS	hOceMxl(i,j,1,1) = mlDepth(i,j)
./pkg/atm2d/get_ocnvars.F	47	GET_OCNVARS	INTEGER i,j
./pkg/atm2d/get_ocnvars.F	52	GET_OCNVARS	DO j=1,sNy
./pkg/atm2d/get_ocnvars.F	54	GET_OCNVARS	sstFromOcn(i,j)= SST_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	55	GET_OCNVARS	sssFromOcn(i,j)= SSS_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	56	GET_OCNVARS	mlDepth(i,j) = OcMxlD_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	57	GET_OCNVARS	IF ( ocnCpl_exchange_DIC ) oFluxCO2(i,j) = fluxCO2_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	62	GET_OCNVARS	tOceMxl(i,j,1,1)= SST_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	63	GET_OCNVARS	sOceMxl(i,j,1,1)= SSS_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	64	GET_OCNVARS	hOceMxl(i,j,1,1) = OcMxlD_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	65	GET_OCNVARS	v2ocMxL(i,j,1,1) = vSq_ocn(i,j)
./pkg/atm2d/get_ocnvars.F	70	GET_OCNVARS	DO j=1,sNy
./pkg/atm2d/get_ocnvars.F	72	GET_OCNVARS	sstFromOcn(i,j) = theta(i,j,1,1,1)
./pkg/atm2d/get_ocnvars.F	73	GET_OCNVARS	sssFromOcn(i,j) = salt (i,j,1,1,1)
./pkg/atm2d/get_ocnvars.F	81	GET_OCNVARS	DO j=1,sNy
./pkg/atm2d/get_ocnvars.F	83	GET_OCNVARS	mlDepth(i,j) =
./pkg/atm2d/get_ocnvars.F	84	GET_OCNVARS	& h0FacC(i,j,1,1,1)rStarFacC(i,j,1,1)drF(1)
./pkg/atm2d/get_ocnvars.F	88	GET_OCNVARS	DO j=1,sNy
./pkg/atm2d/get_ocnvars.F	90	GET_OCNVARS	mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F	98	GET_OCNVARS	DO j=1,sNy
./pkg/atm2d/init_atm2d.F	107	INIT_ATM2D	DO j=2, sNy-1
./pkg/atm2d/init_atm2d.F	110	INIT_ATM2D	IF ((yG(1,j,1,1).GE.atm_yG(jj)).AND.
./pkg/atm2d/init_atm2d.F	111	INIT_ATM2D	& (yG(1,j,1,1).LT.atm_yG(jj+1))) j_atm=jj
./pkg/atm2d/init_atm2d.F	114	INIT_ATM2D	atm_oc_ind(j)=j_atm
./pkg/atm2d/init_atm2d.F	115	INIT_ATM2D	end1= sin(yG(1,j,1,1) *deg2rad)
./pkg/atm2d/init_atm2d.F	116	INIT_ATM2D	end2= sin(yG(1,j+1,1,1) *deg2rad)
./pkg/atm2d/init_atm2d.F	119	INIT_ATM2D	IF ( yG(1,j+1,1,1) .GT. atm_yG(j_atm+1) ) THEN
./pkg/atm2d/init_atm2d.F	121	INIT_ATM2D	atm_oc_wgt(j)=(enda2-end1)/ (end2-end1)
./pkg/atm2d/init_atm2d.F	122	INIT_ATM2D	atm_oc_frac1(j)= (enda2-end1) / (enda2 - enda1)
./pkg/atm2d/init_atm2d.F	123	INIT_ATM2D	atm_oc_frac2(j)= (end2 - enda2) / (enda3 - enda2)
./pkg/atm2d/init_atm2d.F	125	INIT_ATM2D	atm_oc_wgt(j)=1. _d 0
./pkg/atm2d/init_atm2d.F	126	INIT_ATM2D	atm_oc_frac1(j)= (end2-end1)/ (enda2-enda1)
./pkg/atm2d/init_atm2d.F	127	INIT_ATM2D	atm_oc_frac2(j)=0. _d 0
./pkg/atm2d/init_atm2d.F	134	INIT_ATM2D	DO j=2, sNy
./pkg/atm2d/init_atm2d.F	136	INIT_ATM2D	IF (( yG(1,j,1,1) .GE. atm_yC(jj)).AND.
./pkg/atm2d/init_atm2d.F	137	INIT_ATM2D	& ( yG(1,j,1,1) .LT. atm_yC(jj+1))) j_atm=jj
./pkg/atm2d/init_atm2d.F	139	INIT_ATM2D	tauv_jpt(j)= j_atm
./pkg/atm2d/init_atm2d.F	140	INIT_ATM2D	tauv_jwght(j)= 1. _d 0 - (yG(1,j,1,1) - atm_yC(j_atm)) /
./pkg/atm2d/init_atm2d.F	156	INIT_ATM2D	DO j=1,sNy
./pkg/atm2d/init_atm2d.F	158	INIT_ATM2D	IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/init_atm2d.F	159	INIT_ATM2D	ocnArea(atm_oc_ind(j))=ocnArea(atm_oc_ind(j)) +
./pkg/atm2d/init_atm2d.F	160	INIT_ATM2D	& rA(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/init_atm2d.F	161	INIT_ATM2D	IF (atm_oc_wgt(j).LT.1.d0) THEN
./pkg/atm2d/init_atm2d.F	162	INIT_ATM2D	ocnArea(atm_oc_ind(j)+1)=ocnArea(atm_oc_ind(j)+1) +
./pkg/atm2d/init_atm2d.F	163	INIT_ATM2D	& rA(i,j,1,1)*(1.d0-atm_oc_wgt(j))
./pkg/atm2d/init_atm2d.F	247	INIT_ATM2D	DO j=1,sNy
./pkg/atm2d/init_atm2d.F	249	INIT_ATM2D	if ( (maskC(i,j,1,1,1).EQ.1.) .AND.
./pkg/atm2d/init_atm2d.F	250	INIT_ATM2D	& ( (maskC(i-1,j,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F	251	INIT_ATM2D	& (maskC(i+1,j,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F	252	INIT_ATM2D	& (maskC(i,j-1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F	253	INIT_ATM2D	& (maskC(i,j+1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F	254	INIT_ATM2D	& (maskC(i+1,j+1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F	255	INIT_ATM2D	& (maskC(i-1,j-1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F	256	INIT_ATM2D	& (maskC(i+1,j-1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F	257	INIT_ATM2D	& (maskC(i-1,j+1,1,1,1).EQ.0.) ) ) THEN
./pkg/atm2d/init_atm2d.F	258	INIT_ATM2D	runoffVal(i,j)=1. _d 0
./pkg/atm2d/init_atm2d.F	270	INIT_ATM2D	DO j=ibj1,ibj2
./pkg/atm2d/init_atm2d.F	272	INIT_ATM2D	totrun_b(ib)=totrun_b(ib)+runoffVal(i,j)*maskC(i,j,1,1,1)
./pkg/atm2d/init_atm2d.F	275	INIT_ATM2D	DO j=ibj1,ibj2
./pkg/atm2d/init_atm2d.F	276	INIT_ATM2D	runIndex(j)= ib ! for lookup of rband as fn. of latitude
./pkg/atm2d/init_atm2d.F	278	INIT_ATM2D	runoffVal(i,j)=runoffVal(i,j)*maskC(i,j,1,1,1)/totrun_b(ib)
./pkg/atm2d/init_atm2d.F	297	INIT_ATM2D	DO j=1-OLy,sNy+OLy
./pkg/atm2d/init_atm2d.F	299	INIT_ATM2D	qnet_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	300	INIT_ATM2D	evap_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	301	INIT_ATM2D	precip_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	302	INIT_ATM2D	runoff_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	303	INIT_ATM2D	sum_qrel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	304	INIT_ATM2D	sum_frel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	305	INIT_ATM2D	sum_iceMask_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	306	INIT_ATM2D	sum_iceHeight_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	307	INIT_ATM2D	sum_iceTime_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	308	INIT_ATM2D	sum_oceMxLT_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	309	INIT_ATM2D	sum_oceMxLS_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F	311	INIT_ATM2D	qnet_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	312	INIT_ATM2D	evap_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	313	INIT_ATM2D	precip_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	314	INIT_ATM2D	runoff_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	315	INIT_ATM2D	sum_qrel(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	316	INIT_ATM2D	sum_frel(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	317	INIT_ATM2D	sum_iceMask(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	318	INIT_ATM2D	sum_iceHeight(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	319	INIT_ATM2D	sum_iceTime(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	320	INIT_ATM2D	sum_oceMxLT(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	321	INIT_ATM2D	sum_oceMxLS(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	340	INIT_ATM2D	DO j=1-OLy,sNy+OLy
./pkg/atm2d/init_atm2d.F	341	INIT_ATM2D	pass_runoff(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	342	INIT_ATM2D	pass_qnet(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	343	INIT_ATM2D	pass_evap(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	344	INIT_ATM2D	pass_precip(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	345	INIT_ATM2D	pass_fu(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	346	INIT_ATM2D	pass_fv(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	347	INIT_ATM2D	pass_wspeed(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	348	INIT_ATM2D	pass_solarnet(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	349	INIT_ATM2D	pass_slp(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	350	INIT_ATM2D	pass_siceLoad(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	351	INIT_ATM2D	pass_pCO2(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	352	INIT_ATM2D	pass_prcAtm(i,j) = 0. _d 0
./pkg/atm2d/init_atm2d.F	353	INIT_ATM2D	snowPrc (i,j) = 0. _d 0
./pkg/atm2d/init_atm2d.F	354	INIT_ATM2D	sFluxFromIce(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F	360	INIT_ATM2D	DO j=1,sNy
./pkg/atm2d/init_atm2d.F	361	INIT_ATM2D	oFluxCO2(i,j) = 0. _d 0
./pkg/atm2d/init_atm2d.F	47	INIT_ATM2D	INTEGER i,j,jj
./pkg/atm2d/init_sumvars.F	26	INIT_SUMVARS	INTEGER i,j
./pkg/atm2d/init_sumvars.F	29	INIT_SUMVARS	DO j=1-OLy,sNy+OLy
./pkg/atm2d/init_sumvars.F	31	INIT_SUMVARS	sum_runoff(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	32	INIT_SUMVARS	sum_precip(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	33	INIT_SUMVARS	sum_evap(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	34	INIT_SUMVARS	sum_qnet(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	35	INIT_SUMVARS	sum_fu(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	36	INIT_SUMVARS	sum_fv(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	37	INIT_SUMVARS	sum_wspeed(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	38	INIT_SUMVARS	sum_solarnet(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	39	INIT_SUMVARS	sum_slp(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	40	INIT_SUMVARS	sum_pCO2(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	41	INIT_SUMVARS	sum_prcIce(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	42	INIT_SUMVARS	sum_snowPrc(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	43	INIT_SUMVARS	sum_evapIce(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	44	INIT_SUMVARS	sum_sHeat(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F	45	INIT_SUMVARS	sum_flxCnB(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	106	MONTH_END_DIAGS	DO j=1,sNy
./pkg/atm2d/month_end_diags.F	109	MONTH_END_DIAGS	qnet_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	110	MONTH_END_DIAGS	evap_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	111	MONTH_END_DIAGS	precip_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	112	MONTH_END_DIAGS	runoff_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	113	MONTH_END_DIAGS	sum_qrel(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	114	MONTH_END_DIAGS	sum_frel(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	115	MONTH_END_DIAGS	sum_iceMask(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	116	MONTH_END_DIAGS	sum_iceHeight(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	117	MONTH_END_DIAGS	sum_iceTime(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	118	MONTH_END_DIAGS	sum_oceMxLT(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	119	MONTH_END_DIAGS	sum_oceMxLS(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F	36	MONTH_END_DIAGS	INTEGER i,j
./pkg/atm2d/month_end_diags.F	41	MONTH_END_DIAGS	DO j=1,sNy
./pkg/atm2d/month_end_diags.F	44	MONTH_END_DIAGS	qnet_atm_ta(i,j,monid)= qnet_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	45	MONTH_END_DIAGS	& qnet_atm(i,j)
./pkg/atm2d/month_end_diags.F	46	MONTH_END_DIAGS	evap_atm_ta(i,j,monid)= evap_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	47	MONTH_END_DIAGS	& evap_atm(i,j)
./pkg/atm2d/month_end_diags.F	48	MONTH_END_DIAGS	precip_atm_ta(i,j,monid)= precip_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	49	MONTH_END_DIAGS	& precip_atm(i,j)
./pkg/atm2d/month_end_diags.F	50	MONTH_END_DIAGS	runoff_atm_ta(i,j,monid)= runoff_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	51	MONTH_END_DIAGS	& runoff_atm(i,j)
./pkg/atm2d/month_end_diags.F	52	MONTH_END_DIAGS	sum_qrel_ta(i,j,monid)= sum_qrel_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	53	MONTH_END_DIAGS	& sum_qrel(i,j)
./pkg/atm2d/month_end_diags.F	54	MONTH_END_DIAGS	sum_frel_ta(i,j,monid)= sum_frel_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	55	MONTH_END_DIAGS	& sum_frel(i,j)
./pkg/atm2d/month_end_diags.F	56	MONTH_END_DIAGS	sum_iceMask_ta(i,j,monid)= sum_iceMask_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	57	MONTH_END_DIAGS	& sum_iceMask(i,j)
./pkg/atm2d/month_end_diags.F	58	MONTH_END_DIAGS	sum_iceHeight_ta(i,j,monid)= sum_iceHeight_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	59	MONTH_END_DIAGS	& sum_iceHeight(i,j)
./pkg/atm2d/month_end_diags.F	60	MONTH_END_DIAGS	sum_iceTime_ta(i,j,monid)= sum_iceTime_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	61	MONTH_END_DIAGS	& sum_iceTime(i,j)
./pkg/atm2d/month_end_diags.F	62	MONTH_END_DIAGS	sum_oceMxLT_ta(i,j,monid)= sum_oceMxLT_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	63	MONTH_END_DIAGS	& sum_oceMxLT(i,j)
./pkg/atm2d/month_end_diags.F	64	MONTH_END_DIAGS	sum_oceMxLS_ta(i,j,monid)= sum_oceMxLS_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F	65	MONTH_END_DIAGS	& sum_oceMxLS(i,j)
./pkg/atm2d/month_end_diags.F	67	MONTH_END_DIAGS	qnet_atm(i,j)=qnet_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	68	MONTH_END_DIAGS	evap_atm(i,j)=evap_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	69	MONTH_END_DIAGS	precip_atm(i,j)= precip_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	70	MONTH_END_DIAGS	runoff_atm(i,j)= runoff_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	71	MONTH_END_DIAGS	sum_qrel(i,j)= sum_qrel(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	72	MONTH_END_DIAGS	sum_frel(i,j)= sum_frel(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	73	MONTH_END_DIAGS	sum_iceMask(i,j)= sum_iceMask(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	74	MONTH_END_DIAGS	sum_iceHeight(i,j)= sum_iceHeight(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	75	MONTH_END_DIAGS	sum_iceTime(i,j)= sum_iceTime(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	76	MONTH_END_DIAGS	sum_oceMxLT(i,j)= sum_oceMxLT(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F	77	MONTH_END_DIAGS	sum_oceMxLS(i,j)= sum_oceMxLS(i,j)/ norm_factor
./pkg/atm2d/norm_ocn_fluxes.F	34	NORM_OCN_FLUXES	INTEGER i,j
./pkg/atm2d/norm_ocn_fluxes.F	39	NORM_OCN_FLUXES	DO j=1, sNy
./pkg/atm2d/norm_ocn_fluxes.F	42	NORM_OCN_FLUXES	IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/norm_ocn_fluxes.F	44	NORM_OCN_FLUXES	pass_runoff(i,j)= sum_runoff(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	45	NORM_OCN_FLUXES	pass_precip(i,j)= sum_precip(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	46	NORM_OCN_FLUXES	pass_evap(i,j)= -sum_evap(i,j)/nper !convert sign convention here
./pkg/atm2d/norm_ocn_fluxes.F	47	NORM_OCN_FLUXES	pass_qnet(i,j)= sum_qnet(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	48	NORM_OCN_FLUXES	pass_fu(i,j)= sum_fu(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	49	NORM_OCN_FLUXES	pass_fv(i,j)= sum_fv(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	50	NORM_OCN_FLUXES	pass_wspeed(i,j)= sum_wspeed(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	51	NORM_OCN_FLUXES	pass_solarnet(i,j)= -sum_solarnet(i,j)/nper !change sign
./pkg/atm2d/norm_ocn_fluxes.F	52	NORM_OCN_FLUXES	pass_slp(i,j)= sum_slp(i,j)/nper*100. _d 0 !convert to Pa
./pkg/atm2d/norm_ocn_fluxes.F	53	NORM_OCN_FLUXES	pass_pCO2(i,j)= sum_pCO2(i,j)*1. _d -6/nper
./pkg/atm2d/norm_ocn_fluxes.F	55	NORM_OCN_FLUXES	sHeating(i,j,1,1) = sum_sHeat(i,j)/nper ! from temp-solve step
./pkg/atm2d/norm_ocn_fluxes.F	56	NORM_OCN_FLUXES	flxCndBt(i,j,1,1)= sum_flxCnB(i,j)/nper ! from temp-solve step
./pkg/atm2d/norm_ocn_fluxes.F	57	NORM_OCN_FLUXES	pass_PrcAtm(i,j)= sum_prcIce(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	58	NORM_OCN_FLUXES	icFrwAtm(i,j,1,1)= sum_evapIce(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	63	NORM_OCN_FLUXES	snowPrc(i,j)= sum_snowPrc(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F	66	NORM_OCN_FLUXES	IF ( pass_wspeed(i,j) .LT. 0. _d 0)
./pkg/atm2d/norm_ocn_fluxes.F	67	NORM_OCN_FLUXES	& pass_wspeed(i,j) = 0. _d 0
./pkg/atm2d/norm_ocn_fluxes.F	70	NORM_OCN_FLUXES	sum_iceMask(i,j)=sum_iceMask(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F	71	NORM_OCN_FLUXES	& iceMask(i,j,1,1)*dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F	72	NORM_OCN_FLUXES	sum_iceHeight(i,j)= sum_iceHeight(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F	73	NORM_OCN_FLUXES	& iceHeight(i,j,1,1)*dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F	74	NORM_OCN_FLUXES	IF (iceMask(i,j,1,1) .NE. 0. _d 0)
./pkg/atm2d/norm_ocn_fluxes.F	75	NORM_OCN_FLUXES	& sum_iceTime(i,j)= sum_iceTime(i,j) + dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F	76	NORM_OCN_FLUXES	sum_oceMxLT(i,j)=sum_oceMxLT(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F	77	NORM_OCN_FLUXES	& tOceMxL(i,j,1,1)*dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F	78	NORM_OCN_FLUXES	sum_oceMxLS(i,j)=sum_oceMxLS(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F	79	NORM_OCN_FLUXES	& sOceMxL(i,j,1,1)*dtcouplo
./pkg/atm2d/pass_thsice_fluxes.F	34	PASS_THSICE_FLUXES	INTEGER i,j
./pkg/atm2d/pass_thsice_fluxes.F	36	PASS_THSICE_FLUXES	DO j=1, sNy
./pkg/atm2d/pass_thsice_fluxes.F	39	PASS_THSICE_FLUXES	IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/pass_thsice_fluxes.F	40	PASS_THSICE_FLUXES	netSW(i,j) = solarinc_2D(i,j)*(1. _d 0 - siceAlb(i,j,1,1)) ! convert to netSW
./pkg/atm2d/pass_thsice_fluxes.F	41	PASS_THSICE_FLUXES	sFlx(i,j,0)= -qneti_2D(i,j) -netSW(i,j) +
./pkg/atm2d/pass_thsice_fluxes.F	42	PASS_THSICE_FLUXES	& Tsrf(i,j,1,1)*dFdT_ice_2D(i,j)
./pkg/atm2d/pass_thsice_fluxes.F	43	PASS_THSICE_FLUXES	sFlx(i,j,1)= -qneti_2D(i,j) -netSW(i,j)
./pkg/atm2d/pass_thsice_fluxes.F	44	PASS_THSICE_FLUXES	sFlx(i,j,2)= -dFdT_ice_2D(i,j)
./pkg/atm2d/pass_thsice_fluxes.F	47	PASS_THSICE_FLUXES	sum_prcIce(i,j) = sum_prcIce(i,j) - precipi_2D(i,j)*rhofw
./pkg/atm2d/pass_thsice_fluxes.F	48	PASS_THSICE_FLUXES	sum_evapIce(i,j) = sum_evapIce(i,j) - evapi_2D(i,j)*rhofw
./pkg/atm2d/pass_thsice_fluxes.F	49	PASS_THSICE_FLUXES	IF (Tair_2D(i,j) .LE. 0. _d 0)
./pkg/atm2d/pass_thsice_fluxes.F	50	PASS_THSICE_FLUXES	& sum_snowPrc(i,j) = sum_snowPrc(i,j) - precipi_2D(i,j)*rhofw
./pkg/atm2d/put_ocnvars.F	100	PUT_OCNVARS	wind(i,j,1,1)= pass_wspeed(i,j)
./pkg/atm2d/put_ocnvars.F	45	PUT_OCNVARS	INTEGER i,j
./pkg/atm2d/put_ocnvars.F	47	PUT_OCNVARS	DO j=1,sNy
./pkg/atm2d/put_ocnvars.F	53	PUT_OCNVARS	atmSLPr_ocn(i,j)= pass_slp(i,j)
./pkg/atm2d/put_ocnvars.F	54	PUT_OCNVARS	HeatFlux_ocn(i,j)= pass_qnet(i,j)
./pkg/atm2d/put_ocnvars.F	55	PUT_OCNVARS	qShortWave_ocn(i,j)= pass_solarnet(i,j)
./pkg/atm2d/put_ocnvars.F	56	PUT_OCNVARS	TauX_ocn(i,j)= pass_fu(i,j)
./pkg/atm2d/put_ocnvars.F	57	PUT_OCNVARS	TauY_ocn(i,j)= pass_fv(i,j)
./pkg/atm2d/put_ocnvars.F	59	PUT_OCNVARS	FWFlux_ocn(i,j)= (pass_precip(i,j) + pass_evap(i,j)
./pkg/atm2d/put_ocnvars.F	60	PUT_OCNVARS	& + pass_runoff(i,j)) * rhoConstFresh
./pkg/atm2d/put_ocnvars.F	61	PUT_OCNVARS	SaltFlx_ocn(i,j) = sFluxFromIce(i,j)
./pkg/atm2d/put_ocnvars.F	63	PUT_OCNVARS	sIceMass_ocn(i,j) = pass_sIceLoad(i,j)
./pkg/atm2d/put_ocnvars.F	66	PUT_OCNVARS	aCO2_ocn(i,j) = pass_pCO2(i,j)
./pkg/atm2d/put_ocnvars.F	67	PUT_OCNVARS	wSpeed_ocn(i,j) = pass_wspeed(i,j)
./pkg/atm2d/put_ocnvars.F	68	PUT_OCNVARS	sIceFrac_ocn(i,j) = iceMask(i,j,1,1)
./pkg/atm2d/put_ocnvars.F	74	PUT_OCNVARS	pLoad(i,j,1,1)= pass_slp(i,j)
./pkg/atm2d/put_ocnvars.F	75	PUT_OCNVARS	Qnet(i,j,1,1)= pass_qnet(i,j)
./pkg/atm2d/put_ocnvars.F	76	PUT_OCNVARS	Qsw(i,j,1,1)= pass_solarnet(i,j)
./pkg/atm2d/put_ocnvars.F	77	PUT_OCNVARS	fu(i,j,1,1)= pass_fu(i,j)
./pkg/atm2d/put_ocnvars.F	78	PUT_OCNVARS	fv(i,j,1,1)= pass_fv(i,j)
./pkg/atm2d/put_ocnvars.F	79	PUT_OCNVARS	EmPmR(i,j,1,1)= (pass_precip(i,j) + pass_evap(i,j)
./pkg/atm2d/put_ocnvars.F	80	PUT_OCNVARS	& + pass_runoff(i,j)) * rhoConstFresh
./pkg/atm2d/put_ocnvars.F	81	PUT_OCNVARS	saltFlux(i,j,1,1)= sFluxFromIce(i,j)
./pkg/atm2d/put_ocnvars.F	90	PUT_OCNVARS	sIceLoad(i,j,1,1) = pass_sIceLoad(i,j)
./pkg/atm2d/put_ocnvars.F	99	PUT_OCNVARS	AtmospCO2(i,j,1,1)= pass_pCO2(i,j)
./pkg/atm2d/relax_add.F	100	RELAX_ADD	IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/relax_add.F	103	RELAX_ADD	sstRelax(i,j)= (wght0sst0(i,j,1,1) + wght1sst1(i,j,1,1))
./pkg/atm2d/relax_add.F	105	RELAX_ADD	sstRelax(i,j)= sstFromOcn(i,j)
./pkg/atm2d/relax_add.F	109	RELAX_ADD	sssRelax(i,j)= (wght0sss0(i,j,1,1) + wght1sss1(i,j,1,1))
./pkg/atm2d/relax_add.F	111	RELAX_ADD	sssRelax(i,j)= sssFromOcn(i,j)
./pkg/atm2d/relax_add.F	117	RELAX_ADD	IF ((sstRelax(i,j).GT.2. _d 0).OR.
./pkg/atm2d/relax_add.F	118	RELAX_ADD	& (iceMask(i,j,1,1) .EQ. 0. _d 0)) THEN
./pkg/atm2d/relax_add.F	120	RELAX_ADD	ELSEIF (sstRelax(i,j) .LE. -1. _d 0) THEN
./pkg/atm2d/relax_add.F	123	RELAX_ADD	nearIce=(sstRelax(i,j)+1.0)/3.0
./pkg/atm2d/relax_add.F	126	RELAX_ADD	qrelflux= lambdaTheta*(sstFromOcn(i,j)-sstRelax(i,j))
./pkg/atm2d/relax_add.F	133	RELAX_ADD	IF (iceMask(i,j,1,1) .LT. 0.999 _d 0) THEN
./pkg/atm2d/relax_add.F	134	RELAX_ADD	qneto_2D(i,j)= qneto_2D(i,j) + qrelflux
./pkg/atm2d/relax_add.F	135	RELAX_ADD	& / (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/relax_add.F	140	RELAX_ADD	frelflux= -lambdaSalt*(sssFromOcn(i,j)-sssRelax(i,j))/
./pkg/atm2d/relax_add.F	146	RELAX_ADD	evapo_2D(i,j)= evapo_2D(i,j) - frelflux
./pkg/atm2d/relax_add.F	149	RELAX_ADD	IF (iceMask(i,j,1,1).GT.0. _d 0)
./pkg/atm2d/relax_add.F	150	RELAX_ADD	& evapi_2D(i,j)= evapi_2D(i,j) - frelflux
./pkg/atm2d/relax_add.F	152	RELAX_ADD	precipo_2D(i,j)= precipo_2D(i,j) + frelflux
./pkg/atm2d/relax_add.F	153	RELAX_ADD	IF (iceMask(i,j,1,1).GT.0. _d 0)
./pkg/atm2d/relax_add.F	154	RELAX_ADD	& precipi_2D(i,j)= precipi_2D(i,j) + frelflux
./pkg/atm2d/relax_add.F	162	RELAX_ADD	sum_qrel(i,j)= sum_qrel(i,j) + qrelflux*dtatmo
./pkg/atm2d/relax_add.F	163	RELAX_ADD	sum_frel(i,j)= sum_frel(i,j) + frelflux*dtatmo
./pkg/atm2d/relax_add.F	57	RELAX_ADD	INTEGER i,j
./pkg/atm2d/relax_add.F	83	RELAX_ADD	DO j=1,sNy
./pkg/atm2d/relax_add.F	89	RELAX_ADD	& max(cos(1.5 _d 0yC(1,j,1,1)deg2rad),0. _d 0)
./pkg/atm2d/relax_add.F	95	RELAX_ADD	& max(cos(1.5 _d 0yC(1,j,1,1)deg2rad),0. _d 0)
./pkg/atm2d/sum_ocn_fluxes.F	36	SUM_OCN_FLUXES	INTEGER i,j
./pkg/atm2d/sum_ocn_fluxes.F	38	SUM_OCN_FLUXES	DO j=1, sNy
./pkg/atm2d/sum_ocn_fluxes.F	41	SUM_OCN_FLUXES	IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/sum_ocn_fluxes.F	45	SUM_OCN_FLUXES	IF (iceMask(i,j,1,1) .GT. windice_thres) THEN
./pkg/atm2d/sum_ocn_fluxes.F	47	SUM_OCN_FLUXES	fu_2D(i,j)= fu_2D(i,j) * (1. _d 0 -
./pkg/atm2d/sum_ocn_fluxes.F	48	SUM_OCN_FLUXES	& (iceMask(i,j,1,1) + iceMask(i-1,j,1,1)) * 0.5 _d 0 )
./pkg/atm2d/sum_ocn_fluxes.F	50	SUM_OCN_FLUXES	fv_2D(i,j)= fv_2D(i,j) * (1. _d 0 -
./pkg/atm2d/sum_ocn_fluxes.F	51	SUM_OCN_FLUXES	& (iceMask(i,j,1,1) + iceMask(i,j-1,1,1)) * 0.5 _d 0 )
./pkg/atm2d/sum_ocn_fluxes.F	53	SUM_OCN_FLUXES	wspeed_2D(i,j)= wspeed_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F	54	SUM_OCN_FLUXES	& * (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F	58	SUM_OCN_FLUXES	sum_runoff(i,j)= sum_runoff(i,j) + runoff_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F	59	SUM_OCN_FLUXES	sum_precip(i,j)= sum_precip(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F	60	SUM_OCN_FLUXES	& precipo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F	61	SUM_OCN_FLUXES	sum_evap(i,j)= sum_evap(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F	62	SUM_OCN_FLUXES	& evapo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F	63	SUM_OCN_FLUXES	sum_qnet(i,j)= sum_qnet(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F	64	SUM_OCN_FLUXES	& qneto_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F	65	SUM_OCN_FLUXES	sum_fu(i,j)= sum_fu(i,j) + fu_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F	66	SUM_OCN_FLUXES	sum_fv(i,j)= sum_fv(i,j) + fv_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F	67	SUM_OCN_FLUXES	sum_wspeed(i,j)= sum_wspeed(i,j) + wspeed_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F	68	SUM_OCN_FLUXES	sum_solarnet(i,j)= sum_solarnet(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F	69	SUM_OCN_FLUXES	& solarnet_ocn_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F	70	SUM_OCN_FLUXES	sum_slp(i,j)= sum_slp(i,j) + slp_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F	71	SUM_OCN_FLUXES	sum_pCO2(i,j)= sum_pCO2(i,j) + pCO2_2D(i,j)
./pkg/atm2d/sum_thsice_out.F	32	SUM_THSICE_OUT	INTEGER i,j
./pkg/atm2d/sum_thsice_out.F	34	SUM_THSICE_OUT	DO j=1, sNy
./pkg/atm2d/sum_thsice_out.F	37	SUM_THSICE_OUT	IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/sum_thsice_out.F	38	SUM_THSICE_OUT	sum_sHeat(i,j) = sum_sHeat(i,j) + sHeating(i,j,1,1)
./pkg/atm2d/sum_thsice_out.F	39	SUM_THSICE_OUT	sum_flxCnB(i,j)= sum_flxCnB(i,j) + flxCndBt(i,j,1,1)
./pkg/atm2d/sum_thsice_out.F	42	SUM_THSICE_OUT	sum_solarnet(i,j)= sum_solarnet(i,j)
./pkg/atm2d/sum_thsice_out.F	43	SUM_THSICE_OUT	& + icFlxSW(i,j,1,1)*iceMask(i,j,1,1)
./pkg/atm2d/sum_thsice_out.F	45	SUM_THSICE_OUT	icFlxSW(i,j,1,1)= 0. _d 0
./pkg/atm2d/sum_yr_end_diags.F	34	SUM_YR_END_DIAGS	INTEGER i,j
./pkg/atm2d/sum_yr_end_diags.F	38	SUM_YR_END_DIAGS	DO j=1,int(sNy/2)
./pkg/atm2d/sum_yr_end_diags.F	40	SUM_YR_END_DIAGS	IF (iceMask(i,j,1,1).GT. 0. _d 0)
./pkg/atm2d/sum_yr_end_diags.F	41	SUM_YR_END_DIAGS	& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1)
./pkg/atm2d/sum_yr_end_diags.F	48	SUM_YR_END_DIAGS	DO j=int(sNy/2),sNy
./pkg/atm2d/sum_yr_end_diags.F	50	SUM_YR_END_DIAGS	IF (iceMask(i,j,1,1).GT. 0. _d 0)
./pkg/atm2d/sum_yr_end_diags.F	51	SUM_YR_END_DIAGS	& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1)
./pkg/atm2d/sum_yr_end_diags.F	57	SUM_YR_END_DIAGS	DO j=1,sNy
./pkg/atm2d/sum_yr_end_diags.F	60	SUM_YR_END_DIAGS	IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/sum_yr_end_diags.F	61	SUM_YR_END_DIAGS	sst_tave= sst_tave + rA(i,j,1,1)*sstFromOcn(i,j)
./pkg/atm2d/sum_yr_end_diags.F	62	SUM_YR_END_DIAGS	sss_tave= sss_tave + rA(i,j,1,1)*sssFromOcn(i,j)
./pkg/atm2d/sum_yr_end_diags.F	63	SUM_YR_END_DIAGS	HF2ocn_tave = HF2ocn_tave + rA(i,j,1,1)*pass_qnet(i,j)
./pkg/atm2d/sum_yr_end_diags.F	64	SUM_YR_END_DIAGS	FW2ocn_tave = FW2ocn_tave + rA(i,j,1,1)*
./pkg/atm2d/sum_yr_end_diags.F	65	SUM_YR_END_DIAGS	& (pass_precip(i,j) + pass_evap(i,j) + pass_runoff(i,j))
./pkg/atm2d/sum_yr_end_diags.F	67	SUM_YR_END_DIAGS	CO2flx_tave = CO2flx_tave + rA(i,j,1,1)*oFluxCO2(i,j)
./pkg/atm2d/tave_end_diags.F	100	TAVE_END_DIAGS	& runoff_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F	101	TAVE_END_DIAGS	qrel_ann(i,j) = qrel_ann(i,j) +
./pkg/atm2d/tave_end_diags.F	102	TAVE_END_DIAGS	& qrel_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F	103	TAVE_END_DIAGS	frel_ann(i,j) = frel_ann(i,j) +
./pkg/atm2d/tave_end_diags.F	104	TAVE_END_DIAGS	& frel_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F	106	TAVE_END_DIAGS	qnet_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	107	TAVE_END_DIAGS	evap_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	108	TAVE_END_DIAGS	precip_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	109	TAVE_END_DIAGS	runoff_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	110	TAVE_END_DIAGS	sum_qrel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	111	TAVE_END_DIAGS	sum_frel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	112	TAVE_END_DIAGS	sum_iceMask_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	113	TAVE_END_DIAGS	sum_iceHeight_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	114	TAVE_END_DIAGS	sum_iceTime_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	115	TAVE_END_DIAGS	sum_oceMxLT_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	116	TAVE_END_DIAGS	sum_oceMxLS_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F	39	TAVE_END_DIAGS	INTEGER i,j,mn,j_atm
./pkg/atm2d/tave_end_diags.F	62	TAVE_END_DIAGS	DO j=1,sNy
./pkg/atm2d/tave_end_diags.F	65	TAVE_END_DIAGS	qnet_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F	66	TAVE_END_DIAGS	evap_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F	67	TAVE_END_DIAGS	precip_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F	68	TAVE_END_DIAGS	runoff_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F	69	TAVE_END_DIAGS	qrel_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F	70	TAVE_END_DIAGS	frel_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F	78	TAVE_END_DIAGS	DO j=1,sNy
./pkg/atm2d/tave_end_diags.F	81	TAVE_END_DIAGS	qnet_mon(i,j)= qnet_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	82	TAVE_END_DIAGS	evap_mon(i,j)= evap_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	83	TAVE_END_DIAGS	precip_mon(i,j)= precip_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	84	TAVE_END_DIAGS	runoff_mon(i,j)= runoff_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	85	TAVE_END_DIAGS	qrel_mon(i,j)= sum_qrel_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	86	TAVE_END_DIAGS	frel_mon(i,j)= sum_frel_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	87	TAVE_END_DIAGS	iceMask_mon(i,j)= sum_iceMask_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	88	TAVE_END_DIAGS	iceHeight_mon(i,j)= sum_iceHeight_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	89	TAVE_END_DIAGS	iceTime_mon(i,j)= sum_iceTime_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	90	TAVE_END_DIAGS	oceMxLT_mon(i,j)= sum_oceMxLT_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	91	TAVE_END_DIAGS	oceMxLS_mon(i,j)= sum_oceMxLS_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F	93	TAVE_END_DIAGS	qnet_ann(i,j) = qnet_ann(i,j) +
./pkg/atm2d/tave_end_diags.F	94	TAVE_END_DIAGS	& qnet_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F	95	TAVE_END_DIAGS	evap_ann(i,j) = evap_ann(i,j) +
./pkg/atm2d/tave_end_diags.F	96	TAVE_END_DIAGS	& evap_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F	97	TAVE_END_DIAGS	precip_ann(i,j) = precip_ann(i,j) +
./pkg/atm2d/tave_end_diags.F	98	TAVE_END_DIAGS	& precip_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F	99	TAVE_END_DIAGS	runoff_ann(i,j) = runoff_ann(i,j) +
./eesupp/src/gather_yz.F	18	GATHER_YZ	INTEGER jG, j, bi, bj
./eesupp/src/gather_yz.F	35	GATHER_YZ	DO j=1,sNy
./eesupp/src/gather_yz.F	36	GATHER_YZ	jG = myYGlobalLo-1+(bi-1)*sNy+j
./eesupp/src/gather_yz.F	37	GATHER_YZ	global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F	55	GATHER_YZ	DO j=1,sNy
./eesupp/src/gather_yz.F	56	GATHER_YZ	jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/gather_yz.F	57	GATHER_YZ	global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F	74	GATHER_YZ	DO j=1,sNy
./eesupp/src/gather_yz.F	75	GATHER_YZ	jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/gather_yz.F	76	GATHER_YZ	global(jG) = temp(j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F	103	ATM_APPLY_IMPORT	DO j=1,sNy
./pkg/atm_compon_interf/atm_apply_import.F	105	ATM_APPLY_IMPORT	IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F	106	ATM_APPLY_IMPORT	v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F	119	ATM_APPLY_IMPORT	DO j=1,sNy
./pkg/atm_compon_interf/atm_apply_import.F	121	ATM_APPLY_IMPORT	atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/atm_compon_interf/atm_apply_import.F	130	ATM_APPLY_IMPORT	DO j=1,sNy
./pkg/atm_compon_interf/atm_apply_import.F	132	ATM_APPLY_IMPORT	IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F	135	ATM_APPLY_IMPORT	IF ( atmSIfrc(i,j).EQ.0. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F	136	ATM_APPLY_IMPORT	atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/atm_compon_interf/atm_apply_import.F	137	ATM_APPLY_IMPORT	ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0) THEN
./pkg/atm_compon_interf/atm_apply_import.F	140	ATM_APPLY_IMPORT	atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/atm_compon_interf/atm_apply_import.F	141	ATM_APPLY_IMPORT	atmSIfrc(i,j) = 0.
./pkg/atm_compon_interf/atm_apply_import.F	62	ATM_APPLY_IMPORT	INTEGER i,j
./pkg/atm_compon_interf/atm_apply_import.F	70	ATM_APPLY_IMPORT	DO j=1,sNy
./pkg/atm_compon_interf/atm_apply_import.F	72	ATM_APPLY_IMPORT	IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F	73	ATM_APPLY_IMPORT	hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F	81	ATM_APPLY_IMPORT	DO j=1,sNy
./pkg/atm_compon_interf/atm_apply_import.F	83	ATM_APPLY_IMPORT	IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F	84	ATM_APPLY_IMPORT	tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F	92	ATM_APPLY_IMPORT	DO j=1,sNy
./pkg/atm_compon_interf/atm_apply_import.F	94	ATM_APPLY_IMPORT	IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F	95	ATM_APPLY_IMPORT	sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj)
./pkg/atm_compon_interf/atm_cpl_read_pickup.F	41	ATM_CPL_READ_PICKUP	INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_cpl_read_pickup.F	83	ATM_CPL_READ_PICKUP	DO j=1-OLy,sNy+OLy
./pkg/atm_compon_interf/atm_cpl_read_pickup.F	85	ATM_CPL_READ_PICKUP	EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh
./pkg/atm_compon_interf/atm_cpl_read_pickup.F	86	ATM_CPL_READ_PICKUP	RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh
./pkg/atm_compon_interf/atm_export_fld.F	53	ATM_EXPORT_FLD	INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_export_fld.F	61	ATM_EXPORT_FLD	DO j=1,sNy
./pkg/atm_compon_interf/atm_export_fld.F	63	ATM_EXPORT_FLD	atmFld(i,j,bi,bj) = atmFld(i,j,bi,bj)*recipAvT
./pkg/atm_compon_interf/atm_export_fld.F	86	ATM_EXPORT_FLD	DO j=1,sNy
./pkg/atm_compon_interf/atm_export_fld.F	88	ATM_EXPORT_FLD	atmFld(i,j,bi,bj) = 0.
./pkg/atm_compon_interf/atm_get_atmconfig.F	49	ATM_GET_ATMCONFIG	INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_get_atmconfig.F	56	ATM_GET_ATMCONFIG	DO j=1-OLy,sNy+OLy
./pkg/atm_compon_interf/atm_get_atmconfig.F	58	ATM_GET_ATMCONFIG	landMask(i,j,bi,bj) = 0. _d 0
./pkg/atm_compon_interf/atm_get_atmconfig.F	64	ATM_GET_ATMCONFIG	DO j=1-OLy,sNy+OLy
./pkg/atm_compon_interf/atm_get_atmconfig.F	66	ATM_GET_ATMCONFIG	landMask(i,j,bi,bj) = aim_landFr(i,j,bi,bj)
./pkg/atm_compon_interf/atm_import_ocnconfig.F	39	ATM_IMPORT_OCNCONFIG	INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_import_ocnconfig.F	44	ATM_IMPORT_OCNCONFIG	DO j=1-Oly,sNy+Oly
./pkg/atm_compon_interf/atm_import_ocnconfig.F	46	ATM_IMPORT_OCNCONFIG	ocMxlD (i,j,bi,bj) = 0.
./pkg/atm_compon_interf/atm_store_aim_fields.F	62	ATM_STORE_AIM_FIELDS	INTEGER i,j
./pkg/atm_compon_interf/atm_store_aim_fields.F	70	ATM_STORE_AIM_FIELDS	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_aim_fields.F	72	ATM_STORE_AIM_FIELDS	sWSpeed(i,j,bi,bj) = sWSpeed(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_fields.F	73	ATM_STORE_AIM_FIELDS	& + aim_surfWind(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_fields.F	82	ATM_STORE_AIM_FIELDS	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_aim_fields.F	84	ATM_STORE_AIM_FIELDS	airCO2(i,j,bi,bj) = airCO2(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_fields.F	85	ATM_STORE_AIM_FIELDS	& + aim_CO2(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	101	ATM_STORE_AIM_WNDSTR	& ( aim_drag(i,j-1,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	102	ATM_STORE_AIM_WNDSTR	& (1. _d 0 - iceMask(i,j-1,bi,bj)stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	103	ATM_STORE_AIM_WNDSTR	& + aim_drag(i, j ,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	104	ATM_STORE_AIM_WNDSTR	& (1. _d 0 - iceMask(i, j ,bi,bj)stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	105	ATM_STORE_AIM_WNDSTR	& )* 0.5 _d 0 * vVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	106	ATM_STORE_AIM_WNDSTR	tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	115	ATM_STORE_AIM_WNDSTR	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	118	ATM_STORE_AIM_WNDSTR	IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	120	ATM_STORE_AIM_WNDSTR	& ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	121	ATM_STORE_AIM_WNDSTR	& * 0.5 _d 0 * uVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	122	ATM_STORE_AIM_WNDSTR	tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	127	ATM_STORE_AIM_WNDSTR	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	130	ATM_STORE_AIM_WNDSTR	IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	132	ATM_STORE_AIM_WNDSTR	& ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	133	ATM_STORE_AIM_WNDSTR	& * 0.5 _d 0 * vVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	134	ATM_STORE_AIM_WNDSTR	tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	67	ATM_STORE_AIM_WNDSTR	INTEGER i, j, ks
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	81	ATM_STORE_AIM_WNDSTR	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	84	ATM_STORE_AIM_WNDSTR	IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	86	ATM_STORE_AIM_WNDSTR	& ( aim_drag(i-1,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	87	ATM_STORE_AIM_WNDSTR	& (1. _d 0 - iceMask(i-1,j,bi,bj)stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	88	ATM_STORE_AIM_WNDSTR	& + aim_drag( i ,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	89	ATM_STORE_AIM_WNDSTR	& (1. _d 0 - iceMask( i ,j,bi,bj)stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	90	ATM_STORE_AIM_WNDSTR	& )* 0.5 _d 0 * uVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	91	ATM_STORE_AIM_WNDSTR	tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	96	ATM_STORE_AIM_WNDSTR	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_aim_wndstr.F	99	ATM_STORE_AIM_WNDSTR	IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_dynvars.F	49	ATM_STORE_DYNVARS	INTEGER i,j
./pkg/atm_compon_interf/atm_store_dynvars.F	57	ATM_STORE_DYNVARS	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_dynvars.F	59	ATM_STORE_DYNVARS	atmSLPr(i,j,bi,bj) = atmSLPr(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_dynvars.F	60	ATM_STORE_DYNVARS	& + etaN(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_land.F	58	ATM_STORE_LAND	INTEGER i, j
./pkg/atm_compon_interf/atm_store_land.F	65	ATM_STORE_LAND	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_land.F	67	ATM_STORE_LAND	RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_land.F	68	ATM_STORE_LAND	& + land_runOff(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_land.F	76	ATM_STORE_LAND	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_land.F	78	ATM_STORE_LAND	RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_land.F	79	ATM_STORE_LAND	& + land_enRnOf(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F	102	ATM_STORE_SURFFLUX	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_surfflux.F	104	ATM_STORE_SURFFLUX	tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F	105	ATM_STORE_SURFFLUX	& + fu(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F	106	ATM_STORE_SURFFLUX	tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F	107	ATM_STORE_SURFFLUX	& + fv(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F	49	ATM_STORE_SURFFLUX	INTEGER i,j
./pkg/atm_compon_interf/atm_store_surfflux.F	58	ATM_STORE_SURFFLUX	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_surfflux.F	60	ATM_STORE_SURFFLUX	HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F	61	ATM_STORE_SURFFLUX	& + Qnet(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F	68	ATM_STORE_SURFFLUX	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_surfflux.F	70	ATM_STORE_SURFFLUX	qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F	71	ATM_STORE_SURFFLUX	& + Qsw(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F	78	ATM_STORE_SURFFLUX	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_surfflux.F	80	ATM_STORE_SURFFLUX	EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F	81	ATM_STORE_SURFFLUX	& + EmPmR(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F	89	ATM_STORE_SURFFLUX	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_surfflux.F	91	ATM_STORE_SURFFLUX	iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F	92	ATM_STORE_SURFFLUX	& + saltFlux(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_thsice.F	55	ATM_STORE_THSICE	INTEGER i,j
./pkg/atm_compon_interf/atm_store_thsice.F	65	ATM_STORE_THSICE	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_thsice.F	68	ATM_STORE_THSICE	seaIceMass(i,j,bi,bj) =
./pkg/atm_compon_interf/atm_store_thsice.F	69	ATM_STORE_THSICE	& ( snowHeight(i,j,bi,bj)*rhos
./pkg/atm_compon_interf/atm_store_thsice.F	70	ATM_STORE_THSICE	& + iceHeight(i,j,bi,bj)*rhoi
./pkg/atm_compon_interf/atm_store_thsice.F	71	ATM_STORE_THSICE	& )iceMask(i,j,bi,bj)cplTimeFraction
./pkg/atm_compon_interf/atm_store_thsice.F	80	ATM_STORE_THSICE	DO j=1,sNy
./pkg/atm_compon_interf/atm_store_thsice.F	82	ATM_STORE_THSICE	fracIce(i,j,bi,bj) = fracIce(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_thsice.F	83	ATM_STORE_THSICE	& + iceMask(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/cpl_exch_configs.F	100	CPL_EXCH_CONFIGS	& .OR. ( landMask_loc(i,j,bi,bj) .EQ. atm_landOnly
./pkg/atm_compon_interf/cpl_exch_configs.F	101	CPL_EXCH_CONFIGS	& .AND. ocMxlD(i,j,bi,bj) .NE. mxlD_noWater ) ) THEN
./pkg/atm_compon_interf/cpl_exch_configs.F	104	CPL_EXCH_CONFIGS	& 'Inconsistent land/sea mask @ (i=', i, ',j=', j,
./pkg/atm_compon_interf/cpl_exch_configs.F	108	CPL_EXCH_CONFIGS	& 'Land (atmosphere) ==', landMask_loc(i,j,bi,bj)
./pkg/atm_compon_interf/cpl_exch_configs.F	111	CPL_EXCH_CONFIGS	& 'Mxl-Depth (ocean) ==', ocMxlD(i,j,bi,bj)
./pkg/atm_compon_interf/cpl_exch_configs.F	48	CPL_EXCH_CONFIGS	INTEGER i, j, bi, bj
./pkg/atm_compon_interf/cpl_exch_configs.F	96	CPL_EXCH_CONFIGS	DO j=1,sNy
./pkg/atm_compon_interf/cpl_exch_configs.F	98	CPL_EXCH_CONFIGS	IF ( ( landMask_loc(i,j,bi,bj) .EQ. atm_waterOnly
./pkg/atm_compon_interf/cpl_exch_configs.F	99	CPL_EXCH_CONFIGS	& .AND. ocMxlD(i,j,bi,bj) .EQ. mxlD_noWater )
./pkg/atm_compon_interf/cpl_register.F	50	CPL_REGISTER	INTEGER j, nTiles
./pkg/atm_compon_interf/cpl_register.F	57	CPL_REGISTER	j = 0
./pkg/atm_compon_interf/cpl_register.F	60	CPL_REGISTER	j = j+1
./pkg/atm_compon_interf/cpl_register.F	70	CPL_REGISTER	iReg(1,j) = bi
./pkg/atm_compon_interf/cpl_register.F	71	CPL_REGISTER	iReg(2,j) = bj
./pkg/atm_compon_interf/cpl_register.F	72	CPL_REGISTER	iReg(3,j) = sNx
./pkg/atm_compon_interf/cpl_register.F	73	CPL_REGISTER	iReg(4,j) = sNy
./pkg/atm_compon_interf/cpl_register.F	74	CPL_REGISTER	iReg(5,j) = iG0
./pkg/atm_compon_interf/cpl_register.F	75	CPL_REGISTER	iReg(6,j) = jG0
./eesupp/src/global_sum_singlecpu.F	62	GLOBAL_SUM_SINGLECPU_RL	INTEGER i, j, ij
./eesupp/src/global_sum_singlecpu.F	90	GLOBAL_SUM_SINGLECPU_RL	DO j=1,sNy
./eesupp/src/global_sum_singlecpu.F	92	GLOBAL_SUM_SINGLECPU_RL	sharedLocBuf_r8(i,j,bi,bj) = phiLocal(i,j,bi,bj)
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	42	CPL_CHECK_CPLCONFIG	INTEGER i, j, n
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	64	CPL_CHECK_CPLCONFIG	DO j=1,Ny_atm
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	66	CPL_CHECK_CPLCONFIG	tmpVar(i,j) = landMask_atm(i,j) .EQ. 1. _d 0
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	73	CPL_CHECK_CPLCONFIG	j = 1 + ija/Nx_atm
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	74	CPL_CHECK_CPLCONFIG	IF ( landMask_atm(i,j).EQ.0. ) THEN
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	77	CPL_CHECK_CPLCONFIG	& ' * ERROR * RunOff Mapp: i,j=', i, j, ' not Land point'
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	79	CPL_CHECK_CPLCONFIG	tmpVar(i,j) = .FALSE.
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	83	CPL_CHECK_CPLCONFIG	j = 1 + ijo/Nx_ocn
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	84	CPL_CHECK_CPLCONFIG	IF ( OcMxlD_ocn(i,j).EQ.0. ) THEN
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	87	CPL_CHECK_CPLCONFIG	& ' * ERROR * RunOff Mapp: i,j=', i, j, ' not Oce point'
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	93	CPL_CHECK_CPLCONFIG	DO j=1,Ny_atm
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	95	CPL_CHECK_CPLCONFIG	IF ( tmpVar(i,j) ) THEN
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F	97	CPL_CHECK_CPLCONFIG	& ' WARNING Land point: i,j=', i, j, ' not drained'
./pkg/atm_phys/atm_phys_driver.F	132	ATM_PHYS_DRIVER	INTEGER i, j
./pkg/atm_phys/atm_phys_driver.F	532	ATM_PHYS_DRIVER	DO j=2-OLy,sNy+OLy
./pkg/atm_phys/atm_phys_driver.F	534	ATM_PHYS_DRIVER	fu(i,j,bi,bj) = halfRL
./pkg/atm_phys/atm_phys_driver.F	535	ATM_PHYS_DRIVER	& *( taux(i-1,j,bi,bj) + taux(i,j,bi,bj) )
./pkg/atm_phys/atm_phys_driver.F	536	ATM_PHYS_DRIVER	fv(i,j,bi,bj) = halfRL
./pkg/atm_phys/atm_phys_driver.F	537	ATM_PHYS_DRIVER	& *( tauy(i,j-1,bi,bj) + tauy(i,j,bi,bj) )
./pkg/atm_phys/atm_phys_init_fixed.F	123	ATM_PHYS_INIT_FIXED	DO j=1-OLy,sNy+OLy
./pkg/atm_phys/atm_phys_init_fixed.F	125	ATM_PHYS_INIT_FIXED	atmPhys_Qflx(i,j,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_fixed.F	45	ATM_PHYS_INIT_FIXED	INTEGER i,j,bi,bj
./pkg/atm_phys/atm_phys_init_varia.F	34	ATM_PHYS_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/atm_phys/atm_phys_init_varia.F	42	ATM_PHYS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/atm_phys/atm_phys_init_varia.F	44	ATM_PHYS_INIT_VARIA	atmPhys_dT(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F	45	ATM_PHYS_INIT_VARIA	atmPhys_dQ(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F	46	ATM_PHYS_INIT_VARIA	atmPhys_dU(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F	47	ATM_PHYS_INIT_VARIA	atmPhys_dV(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F	53	ATM_PHYS_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/atm_phys/atm_phys_init_varia.F	55	ATM_PHYS_INIT_VARIA	atmPhys_SST(i,j,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_read_pickup.F	154	ATM_PHYS_READ_PICKUP	DO j=1,nMissing
./pkg/atm_phys/atm_phys_read_pickup.F	47	ATM_PHYS_READ_PICKUP	INTEGER j, nj, ioUnit
./pkg/atm_phys/atm_phys_tendency_apply.F	141	ATM_PHYS_TENDENCY_APPLY_V	INTEGER i, j
./pkg/atm_phys/atm_phys_tendency_apply.F	147	ATM_PHYS_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/atm_phys/atm_phys_tendency_apply.F	149	ATM_PHYS_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/atm_phys/atm_phys_tendency_apply.F	150	ATM_PHYS_TENDENCY_APPLY_V	& + maskS(i,j,k,bi,bj)*( atmPhys_dV(i,j-1,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	151	ATM_PHYS_TENDENCY_APPLY_V	& +atmPhys_dV(i, j ,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	157	ATM_PHYS_TENDENCY_APPLY_V	DO j=jMin,jMax
./pkg/atm_phys/atm_phys_tendency_apply.F	159	ATM_PHYS_TENDENCY_APPLY_V	gV_arr(i,j) = gV_arr(i,j)
./pkg/atm_phys/atm_phys_tendency_apply.F	160	ATM_PHYS_TENDENCY_APPLY_V	& - maskS(i,j,k,bi,bj)vVel(i,j,k,bi,bj)atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F	161	ATM_PHYS_TENDENCY_APPLY_V	damp_dKE(i,j) =
./pkg/atm_phys/atm_phys_tendency_apply.F	162	ATM_PHYS_TENDENCY_APPLY_V	& - vVel(i,j,k,bi,bj)vVel(i,j,k,bi,bj)atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F	163	ATM_PHYS_TENDENCY_APPLY_V	& hFacS(i,j,k,bi,bj)drF(k)*rUnit2mass
./pkg/atm_phys/atm_phys_tendency_apply.F	168	ATM_PHYS_TENDENCY_APPLY_V	DO j=1,sNy
./pkg/atm_phys/atm_phys_tendency_apply.F	170	ATM_PHYS_TENDENCY_APPLY_V	frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	171	ATM_PHYS_TENDENCY_APPLY_V	& -0.5 _d 0 * ( damp_dKE( i, j)*rAs(i, j ,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	172	ATM_PHYS_TENDENCY_APPLY_V	& + damp_dKE(i+1,j)*rAs(i,j+1,bi,bj) )
./pkg/atm_phys/atm_phys_tendency_apply.F	225	ATM_PHYS_TENDENCY_APPLY_T	INTEGER i, j
./pkg/atm_phys/atm_phys_tendency_apply.F	228	ATM_PHYS_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/atm_phys/atm_phys_tendency_apply.F	230	ATM_PHYS_TENDENCY_APPLY_T	gT_arr(i,j) = gT_arr(i,j)
./pkg/atm_phys/atm_phys_tendency_apply.F	231	ATM_PHYS_TENDENCY_APPLY_T	& + maskC(i,j,k,bi,bj) * atmPhys_dT(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	280	ATM_PHYS_TENDENCY_APPLY_S	INTEGER i, j
./pkg/atm_phys/atm_phys_tendency_apply.F	283	ATM_PHYS_TENDENCY_APPLY_S	DO j=jMin,jMax
./pkg/atm_phys/atm_phys_tendency_apply.F	285	ATM_PHYS_TENDENCY_APPLY_S	gS_arr(i,j) = gS_arr(i,j)
./pkg/atm_phys/atm_phys_tendency_apply.F	286	ATM_PHYS_TENDENCY_APPLY_S	& + maskC(i,j,k,bi,bj) * atmPhys_dQ(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	55	ATM_PHYS_TENDENCY_APPLY_U	INTEGER i, j
./pkg/atm_phys/atm_phys_tendency_apply.F	61	ATM_PHYS_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/atm_phys/atm_phys_tendency_apply.F	63	ATM_PHYS_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/atm_phys/atm_phys_tendency_apply.F	64	ATM_PHYS_TENDENCY_APPLY_U	& + maskW(i,j,k,bi,bj)*( atmPhys_dU(i-1,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	65	ATM_PHYS_TENDENCY_APPLY_U	& +atmPhys_dU( i ,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	71	ATM_PHYS_TENDENCY_APPLY_U	DO j=jMin,jMax
./pkg/atm_phys/atm_phys_tendency_apply.F	73	ATM_PHYS_TENDENCY_APPLY_U	gU_arr(i,j) = gU_arr(i,j)
./pkg/atm_phys/atm_phys_tendency_apply.F	74	ATM_PHYS_TENDENCY_APPLY_U	& - maskW(i,j,k,bi,bj)uVel(i,j,k,bi,bj)atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F	75	ATM_PHYS_TENDENCY_APPLY_U	damp_dKE(i,j) =
./pkg/atm_phys/atm_phys_tendency_apply.F	76	ATM_PHYS_TENDENCY_APPLY_U	& - uVel(i,j,k,bi,bj)uVel(i,j,k,bi,bj)atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F	77	ATM_PHYS_TENDENCY_APPLY_U	& hFacW(i,j,k,bi,bj)drF(k)*rUnit2mass
./pkg/atm_phys/atm_phys_tendency_apply.F	82	ATM_PHYS_TENDENCY_APPLY_U	DO j=1,sNy
./pkg/atm_phys/atm_phys_tendency_apply.F	84	ATM_PHYS_TENDENCY_APPLY_U	frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	85	ATM_PHYS_TENDENCY_APPLY_U	& -0.5 _d 0 * ( damp_dKE( i, j)*rAw( i, j,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F	86	ATM_PHYS_TENDENCY_APPLY_U	& + damp_dKE(i+1,j)*rAw(i+1,j,bi,bj) )
./pkg/atm_phys/atm_phys_write_pickup.F	102	ATM_PHYS_WRITE_PICKUP	j = Nr
./pkg/atm_phys/atm_phys_write_pickup.F	108	ATM_PHYS_WRITE_PICKUP	& 0, 0, j, ' ',
./pkg/atm_phys/atm_phys_write_pickup.F	55	ATM_PHYS_WRITE_PICKUP	INTEGER j, nj, fp, lChar
./pkg/atm_phys/atm_phys_write_pickup.F	72	ATM_PHYS_WRITE_PICKUP	j = 0
./pkg/atm_phys/atm_phys_write_pickup.F	77	ATM_PHYS_WRITE_PICKUP	nj = -j*Nr
./pkg/atm_phys/atm_phys_write_pickup.F	79	ATM_PHYS_WRITE_PICKUP	j = j + 1
./pkg/atm_phys/atm_phys_write_pickup.F	83	ATM_PHYS_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'AtPh_SST'
./pkg/atm_phys/atm_phys_write_pickup.F	86	ATM_PHYS_WRITE_PICKUP	nWrFlds = j
./pkg/atm_phys/atm_phys_write_pickup.F	99	ATM_PHYS_WRITE_PICKUP	j = 1
./pkg/autodiff/active_file_control.F	127	ACTIVE_READ_3D_RL	DO j=1,sNy
./pkg/autodiff/active_file_control.F	129	ACTIVE_READ_3D_RL	active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F	159	ACTIVE_READ_3D_RL	DO j=1,sNy
./pkg/autodiff/active_file_control.F	161	ACTIVE_READ_3D_RL	active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	162	ACTIVE_READ_3D_RL	& + active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	181	ACTIVE_READ_3D_RL	DO j=1,sNy
./pkg/autodiff/active_file_control.F	183	ACTIVE_READ_3D_RL	active_var(i,j,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control.F	276	ACTIVE_READ_3D_RS	INTEGER i,j,k
./pkg/autodiff/active_file_control.F	309	ACTIVE_READ_3D_RS	DO j=1,sNy
./pkg/autodiff/active_file_control.F	311	ACTIVE_READ_3D_RS	active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F	341	ACTIVE_READ_3D_RS	DO j=1,sNy
./pkg/autodiff/active_file_control.F	343	ACTIVE_READ_3D_RS	active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	344	ACTIVE_READ_3D_RS	& + active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	363	ACTIVE_READ_3D_RS	DO j=1,sNy
./pkg/autodiff/active_file_control.F	365	ACTIVE_READ_3D_RS	active_var(i,j,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control.F	444	ACTIVE_WRITE_3D_RL	INTEGER i,j,k
./pkg/autodiff/active_file_control.F	476	ACTIVE_WRITE_3D_RL	DO j=1,sNy
./pkg/autodiff/active_file_control.F	478	ACTIVE_WRITE_3D_RL	active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	479	ACTIVE_WRITE_3D_RL	& + active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	480	ACTIVE_WRITE_3D_RL	active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F	563	ACTIVE_WRITE_3D_RS	INTEGER i,j,k
./pkg/autodiff/active_file_control.F	595	ACTIVE_WRITE_3D_RS	DO j=1,sNy
./pkg/autodiff/active_file_control.F	597	ACTIVE_WRITE_3D_RS	active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	598	ACTIVE_WRITE_3D_RS	& + active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F	599	ACTIVE_WRITE_3D_RS	active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F	94	ACTIVE_READ_3D_RL	INTEGER i,j,k
./pkg/autodiff/active_file_control_slice.F	1019	ACTIVE_WRITE_YZ_RL	INTEGER j,k
./pkg/autodiff/active_file_control_slice.F	1051	ACTIVE_WRITE_YZ_RL	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	1052	ACTIVE_WRITE_YZ_RL	active_var(j,k,bi,bj) = active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	1053	ACTIVE_WRITE_YZ_RL	& + active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	1054	ACTIVE_WRITE_YZ_RL	active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F	1136	ACTIVE_WRITE_YZ_RS	INTEGER j,k
./pkg/autodiff/active_file_control_slice.F	1168	ACTIVE_WRITE_YZ_RS	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	1169	ACTIVE_WRITE_YZ_RS	active_var(j,k,bi,bj) = active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	1170	ACTIVE_WRITE_YZ_RS	& + active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	1171	ACTIVE_WRITE_YZ_RS	active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F	447	ACTIVE_READ_YZ_RL	INTEGER j,k
./pkg/autodiff/active_file_control_slice.F	480	ACTIVE_READ_YZ_RL	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	481	ACTIVE_READ_YZ_RL	active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F	510	ACTIVE_READ_YZ_RL	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	511	ACTIVE_READ_YZ_RL	active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	512	ACTIVE_READ_YZ_RL	& + active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	530	ACTIVE_READ_YZ_RL	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	531	ACTIVE_READ_YZ_RL	active_var(j,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control_slice.F	623	ACTIVE_READ_YZ_RS	INTEGER j,k
./pkg/autodiff/active_file_control_slice.F	656	ACTIVE_READ_YZ_RS	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	657	ACTIVE_READ_YZ_RS	active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F	686	ACTIVE_READ_YZ_RS	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	687	ACTIVE_READ_YZ_RS	active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	688	ACTIVE_READ_YZ_RS	& + active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F	706	ACTIVE_READ_YZ_RS	DO j=1,sNy
./pkg/autodiff/active_file_control_slice.F	707	ACTIVE_READ_YZ_RS	active_var(j,k,bi,bj) = 0 _d 0
./pkg/autodiff/addamp_adj.F	35	ADDAMP_ADJ	INTEGER bi,bj,i,j,k
./pkg/autodiff/addamp_adj.F	42	ADDAMP_ADJ	DO j=1-OLy,sNy+OLy
./pkg/autodiff/addamp_adj.F	44	ADDAMP_ADJ	IF ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR.
./pkg/autodiff/addamp_adj.F	45	ADDAMP_ADJ	& (fieldRef(i,j,k,bi,bj).LE.minRef) ) THEN
./pkg/autodiff/addamp_adj.F	50	ADDAMP_ADJ	adfieldDamp(i,j,k,bi,bj)=facDamp*
./pkg/autodiff/addamp_adj.F	51	ADDAMP_ADJ	& adfieldDamp(i,j,k,bi,bj)
./pkg/autodiff/adzero_adj.F	112	ADZERO_ADJ	INTEGER i,j,k
./pkg/autodiff/adzero_adj.F	118	ADZERO_ADJ	DO j=1-OLy,sNy+OLy
./pkg/autodiff/adzero_adj.F	120	ADZERO_ADJ	adFieldFwd(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/adzero_adj.F	72	ADZERO_ADJ_LOC	INTEGER i,j,k
./pkg/autodiff/adzero_adj.F	76	ADZERO_ADJ_LOC	DO j=1-OLy,sNy+OLy
./pkg/autodiff/adzero_adj.F	78	ADZERO_ADJ_LOC	adFieldFwd(i,j,k) = 0. _d 0
./pkg/autodiff/autodiff_init_varia.F	38	AUTODIFF_INIT_VARIA	INTEGER i, j, k
./pkg/autodiff/autodiff_init_varia.F	52	AUTODIFF_INIT_VARIA	DO j=1-Oly,sNy+Oly
./pkg/autodiff/autodiff_init_varia.F	54	AUTODIFF_INIT_VARIA	EfluxY(i,j,k,bi,bj) = 0.
./pkg/autodiff/autodiff_init_varia.F	55	AUTODIFF_INIT_VARIA	EfluxP(i,j,k,bi,bj) = 0.
./pkg/autodiff/autodiff_init_varia.F	62	AUTODIFF_INIT_VARIA	DO j=1-Oly,sNy+Oly
./pkg/autodiff/autodiff_init_varia.F	65	AUTODIFF_INIT_VARIA	dEtaHdt(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/autodiff_init_varia.F	66	AUTODIFF_INIT_VARIA	PmEpR(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/autodiff_init_varia.F	70	AUTODIFF_INIT_VARIA	EmPmR(i,j,bi,bj) = 0. _d 0
./eesupp/src/lef_zero.F	24	LEF_ZERO	INTEGER i,j,bi,bj
./eesupp/src/lef_zero.F	29	LEF_ZERO	DO j=1-Oly,sNy+Oly
./eesupp/src/lef_zero.F	31	LEF_ZERO	arr(i,j,bi,bj)=0.
./pkg/autodiff/copy_ad_uv_outp.F	59	COPY_AD_UV_OUTP	INTEGER i,j,k,bi,bj
./pkg/autodiff/copy_ad_uv_outp.F	75	COPY_AD_UV_OUTP	DO j=1-OLy,sNy+OLy
./pkg/autodiff/copy_ad_uv_outp.F	77	COPY_AD_UV_OUTP	uFldOut(i,j,k,bi,bj) = uFldRS(i,j,k,bi,bj)
./pkg/autodiff/copy_ad_uv_outp.F	78	COPY_AD_UV_OUTP	vFldOut(i,j,k,bi,bj) = vFldRS(i,j,k,bi,bj)
./pkg/autodiff/copy_ad_uv_outp.F	88	COPY_AD_UV_OUTP	DO j=1-OLy,sNy+OLy
./pkg/autodiff/copy_ad_uv_outp.F	90	COPY_AD_UV_OUTP	uFldOut(i,j,k,bi,bj) = uFldRL(i,j,k,bi,bj)
./pkg/autodiff/copy_ad_uv_outp.F	91	COPY_AD_UV_OUTP	vFldOut(i,j,k,bi,bj) = vFldRL(i,j,k,bi,bj)
./pkg/autodiff/copy_advar_outp.F	52	COPY_ADVAR_OUTP	INTEGER i,j,k,bi,bj
./pkg/autodiff/copy_advar_outp.F	68	COPY_ADVAR_OUTP	DO j=1-OLy,sNy+OLy
./pkg/autodiff/copy_advar_outp.F	70	COPY_ADVAR_OUTP	outFld(i,j,k,bi,bj) = inpFldRS(i,j,k,bi,bj)
./pkg/autodiff/copy_advar_outp.F	80	COPY_ADVAR_OUTP	DO j=1-OLy,sNy+OLy
./pkg/autodiff/copy_advar_outp.F	82	COPY_ADVAR_OUTP	outFld(i,j,k,bi,bj) = inpFldRL(i,j,k,bi,bj)
./pkg/bbl/bbl_calc_rho.F	66	BBL_CALC_RHO	INTEGER i,j,kl
./pkg/bbl/bbl_calc_rho.F	88	BBL_CALC_RHO	DO j=1-OLy,sNy+OLy
./pkg/bbl/bbl_calc_rho.F	90	BBL_CALC_RHO	IF ( k .GT. kLowC(i,j,bi,bj) )
./pkg/bbl/bbl_calc_rho.F	91	BBL_CALC_RHO	& rhoLoc(i,j,k,bi,bj) = rBBL(i,j)
./pkg/bbl/bbl_calc_rhs.F	106	BBL_CALC_RHS	DO j=0,sNy+1
./pkg/bbl/bbl_calc_rhs.F	110	BBL_CALC_RHS	kBot = kLowC(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	113	BBL_CALC_RHS	IF ( rhoLoc(i,j) .LT. rhoBBL(i,j) )
./pkg/bbl/bbl_calc_rhs.F	114	BBL_CALC_RHS	& bbl_eta(i,j,bi,bj) = max ( 0. _d 0 ,
./pkg/bbl/bbl_calc_rhs.F	115	BBL_CALC_RHS	& bbl_eta(i,j,bi,bj) - bbl_wvel * dTtracerLev(kBot) )
./pkg/bbl/bbl_calc_rhs.F	117	BBL_CALC_RHS	IF ( rhoLoc(i,j) .GE. rhoBBL(i,j) .OR.
./pkg/bbl/bbl_calc_rhs.F	118	BBL_CALC_RHS	& bbl_eta(i,j,bi,bj) .EQ. 0. _d 0 ) THEN
./pkg/bbl/bbl_calc_rhs.F	119	BBL_CALC_RHS	bbl_theta(i,j,bi,bj) = tLoc(i,j)
./pkg/bbl/bbl_calc_rhs.F	120	BBL_CALC_RHS	bbl_salt (i,j,bi,bj) = sLoc(i,j)
./pkg/bbl/bbl_calc_rhs.F	121	BBL_CALC_RHS	bbl_eta (i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F	128	BBL_CALC_RHS	j=sNy
./pkg/bbl/bbl_calc_rhs.F	130	BBL_CALC_RHS	kLowC1 = kLowC(i,j ,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	131	BBL_CALC_RHS	kLowC2 = kLowC(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	138	BBL_CALC_RHS	deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	139	BBL_CALC_RHS	& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	142	BBL_CALC_RHS	bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	144	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	146	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	148	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	150	BBL_CALC_RHS	bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	152	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	162	BBL_CALC_RHS	d = j
./pkg/bbl/bbl_calc_rhs.F	163	BBL_CALC_RHS	r = j + 1
./pkg/bbl/bbl_calc_rhs.F	165	BBL_CALC_RHS	d = j + 1
./pkg/bbl/bbl_calc_rhs.F	166	BBL_CALC_RHS	r = j
./pkg/bbl/bbl_calc_rhs.F	195	BBL_CALC_RHS	& dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F	230	BBL_CALC_RHS	DO j=0,sNy-1
./pkg/bbl/bbl_calc_rhs.F	232	BBL_CALC_RHS	kLowC1 = kLowC(i,j ,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	233	BBL_CALC_RHS	kLowC2 = kLowC(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	240	BBL_CALC_RHS	deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	241	BBL_CALC_RHS	& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	244	BBL_CALC_RHS	bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	246	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	248	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	250	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	252	BBL_CALC_RHS	bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	254	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	264	BBL_CALC_RHS	d = j
./pkg/bbl/bbl_calc_rhs.F	265	BBL_CALC_RHS	r = j + 1
./pkg/bbl/bbl_calc_rhs.F	267	BBL_CALC_RHS	d = j + 1
./pkg/bbl/bbl_calc_rhs.F	268	BBL_CALC_RHS	r = j
./pkg/bbl/bbl_calc_rhs.F	297	BBL_CALC_RHS	& dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F	334	BBL_CALC_RHS	DO j=1,sNy
./pkg/bbl/bbl_calc_rhs.F	335	BBL_CALC_RHS	kLowC1 = kLowC(i ,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	336	BBL_CALC_RHS	kLowC2 = kLowC(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	343	BBL_CALC_RHS	deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	344	BBL_CALC_RHS	& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	347	BBL_CALC_RHS	bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	349	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	351	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	353	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	355	BBL_CALC_RHS	bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	357	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	375	BBL_CALC_RHS	thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F	376	BBL_CALC_RHS	& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F	377	BBL_CALC_RHS	IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F	378	BBL_CALC_RHS	& ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F	379	BBL_CALC_RHS	& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F	380	BBL_CALC_RHS	& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F	383	BBL_CALC_RHS	thk_r = drF(kLowC(r,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F	384	BBL_CALC_RHS	& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F	385	BBL_CALC_RHS	Theta_r = tLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F	386	BBL_CALC_RHS	Salt_r = sLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F	387	BBL_CALC_RHS	bblTheta_d = bbl_theta(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	388	BBL_CALC_RHS	bblTheta_r = bbl_theta(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	389	BBL_CALC_RHS	bblSalt_d = bbl_salt (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	390	BBL_CALC_RHS	bblSalt_r = bbl_salt (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	391	BBL_CALC_RHS	bblEta_d = bbl_eta (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	392	BBL_CALC_RHS	bblEta_r = bbl_eta (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	398	BBL_CALC_RHS	dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F	399	BBL_CALC_RHS	& resThk_r * rA(r,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F	400	BBL_CALC_RHS	& dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F	404	BBL_CALC_RHS	bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	405	BBL_CALC_RHS	& bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F	406	BBL_CALC_RHS	bbl_TendTheta(r,j,bi,bj) = bbl_TendTheta(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F	407	BBL_CALC_RHS	& bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F	411	BBL_CALC_RHS	bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	412	BBL_CALC_RHS	& bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F	413	BBL_CALC_RHS	bbl_TendSalt(r,j,bi,bj) = bbl_TendSalt(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F	414	BBL_CALC_RHS	& bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F	417	BBL_CALC_RHS	bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	418	BBL_CALC_RHS	IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F	419	BBL_CALC_RHS	bbl_eta(d,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F	420	BBL_CALC_RHS	bbl_theta(d,j,bi,bj) = tLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F	421	BBL_CALC_RHS	bbl_salt (d,j,bi,bj) = sLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F	423	BBL_CALC_RHS	bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	424	BBL_CALC_RHS	bbl_theta(r,j,bi,bj) = ( dVol * bblTheta_d +
./pkg/bbl/bbl_calc_rhs.F	425	BBL_CALC_RHS	& bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) /
./pkg/bbl/bbl_calc_rhs.F	426	BBL_CALC_RHS	& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F	427	BBL_CALC_RHS	bbl_salt(r,j,bi,bj) = ( dVol * bblSalt_d +
./pkg/bbl/bbl_calc_rhs.F	428	BBL_CALC_RHS	& bblEta_r * rA(r,j,bi,bj) * bblSalt_r ) /
./pkg/bbl/bbl_calc_rhs.F	429	BBL_CALC_RHS	& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F	435	BBL_CALC_RHS	DO j=1,sNy
./pkg/bbl/bbl_calc_rhs.F	437	BBL_CALC_RHS	kLowC1 = kLowC(i ,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	438	BBL_CALC_RHS	kLowC2 = kLowC(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	445	BBL_CALC_RHS	deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	446	BBL_CALC_RHS	& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	449	BBL_CALC_RHS	bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	451	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	453	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	455	BBL_CALC_RHS	bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	457	BBL_CALC_RHS	bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	459	BBL_CALC_RHS	bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	477	BBL_CALC_RHS	thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F	478	BBL_CALC_RHS	& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F	479	BBL_CALC_RHS	IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F	480	BBL_CALC_RHS	& ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F	481	BBL_CALC_RHS	& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F	482	BBL_CALC_RHS	& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F	485	BBL_CALC_RHS	thk_r = drF(kLowC(r,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F	486	BBL_CALC_RHS	& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F	487	BBL_CALC_RHS	Theta_r = tLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F	488	BBL_CALC_RHS	Salt_r = sLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F	489	BBL_CALC_RHS	bblTheta_d = bbl_theta(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	490	BBL_CALC_RHS	bblTheta_r = bbl_theta(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	491	BBL_CALC_RHS	bblSalt_d = bbl_salt (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	492	BBL_CALC_RHS	bblSalt_r = bbl_salt (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	493	BBL_CALC_RHS	bblEta_d = bbl_eta (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	494	BBL_CALC_RHS	bblEta_r = bbl_eta (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	500	BBL_CALC_RHS	dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F	501	BBL_CALC_RHS	& resThk_r * rA(r,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F	502	BBL_CALC_RHS	& dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F	506	BBL_CALC_RHS	bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	507	BBL_CALC_RHS	& bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F	508	BBL_CALC_RHS	bbl_TendTheta(r,j,bi,bj) = bbl_TendTheta(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F	509	BBL_CALC_RHS	& bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F	513	BBL_CALC_RHS	bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F	514	BBL_CALC_RHS	& bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F	515	BBL_CALC_RHS	bbl_TendSalt(r,j,bi,bj) = bbl_TendSalt(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F	516	BBL_CALC_RHS	& bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F	519	BBL_CALC_RHS	bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	520	BBL_CALC_RHS	IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F	521	BBL_CALC_RHS	bbl_eta(d,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F	522	BBL_CALC_RHS	bbl_theta(d,j,bi,bj) = tLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F	523	BBL_CALC_RHS	bbl_salt (d,j,bi,bj) = sLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F	525	BBL_CALC_RHS	bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	526	BBL_CALC_RHS	bbl_theta(r,j,bi,bj) = ( dVol * bblTheta_d +
./pkg/bbl/bbl_calc_rhs.F	527	BBL_CALC_RHS	& bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) /
./pkg/bbl/bbl_calc_rhs.F	528	BBL_CALC_RHS	& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F	529	BBL_CALC_RHS	bbl_salt(r,j,bi,bj) = ( dVol * bblSalt_d +
./pkg/bbl/bbl_calc_rhs.F	530	BBL_CALC_RHS	& bblEta_r * rA(r,j,bi,bj) * bblSalt_r ) /
./pkg/bbl/bbl_calc_rhs.F	531	BBL_CALC_RHS	& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F	66	BBL_CALC_RHS	INTEGER i, j, d, r, kBot, kLowC1, kLowC2, kl
./pkg/bbl/bbl_calc_rhs.F	85	BBL_CALC_RHS	DO j=0,sNy+1
./pkg/bbl/bbl_calc_rhs.F	87	BBL_CALC_RHS	bbl_TendTheta(i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F	88	BBL_CALC_RHS	bbl_TendSalt (i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F	89	BBL_CALC_RHS	kBot = max(1,kLowC(i,j,bi,bj))
./pkg/bbl/bbl_calc_rhs.F	90	BBL_CALC_RHS	tLoc(i,j) = theta(i,j,kBot,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	91	BBL_CALC_RHS	sLoc(i,j) = salt (i,j,kBot,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	92	BBL_CALC_RHS	rholoc(i,j) = rhoInSitu(i,j,kBot,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	94	BBL_CALC_RHS	rhoBBL(i,j) = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F	96	BBL_CALC_RHS	rhoBBL(i,j) = rhoInSitu(i,j,kBot+1,bi,bj)
./pkg/bbl/bbl_init_varia.F	34	BBL_INIT_VARIA	INTEGER i,j,bi,bj,kBot
./pkg/bbl/bbl_init_varia.F	39	BBL_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/bbl/bbl_init_varia.F	41	BBL_INIT_VARIA	kBot = max(1,kLowC(i,j,bi,bj))
./pkg/bbl/bbl_init_varia.F	42	BBL_INIT_VARIA	bbl_theta(i,j,bi,bj) = theta(i,j,kBot,bi,bj)
./pkg/bbl/bbl_init_varia.F	43	BBL_INIT_VARIA	bbl_salt (i,j,bi,bj) = salt (i,j,kBot,bi,bj)
./pkg/bbl/bbl_init_varia.F	44	BBL_INIT_VARIA	bbl_eta(i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_init_varia.F	45	BBL_INIT_VARIA	bbl_TendTheta(i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_init_varia.F	46	BBL_INIT_VARIA	bbl_TendSalt (i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_read_pickup.F	143	BBL_READ_PICKUP	DO j=1,nMissing
./pkg/bbl/bbl_read_pickup.F	46	BBL_READ_PICKUP	INTEGER j, nj, ioUnit
./pkg/bbl/bbl_tendency_apply.F	103	BBL_TENDENCY_APPLY_S	INTEGER i, j
./pkg/bbl/bbl_tendency_apply.F	105	BBL_TENDENCY_APPLY_S	DO j=jMin,jMax
./pkg/bbl/bbl_tendency_apply.F	107	BBL_TENDENCY_APPLY_S	IF ( k .EQ. kLowC(i,j,bi,bj) )
./pkg/bbl/bbl_tendency_apply.F	108	BBL_TENDENCY_APPLY_S	& gS_arr(i,j) = gS_arr(i,j)
./pkg/bbl/bbl_tendency_apply.F	109	BBL_TENDENCY_APPLY_S	& + maskC(i,j,k,bi,bj) * bbl_TendSalt(i,j,bi,bj)
./pkg/bbl/bbl_tendency_apply.F	50	BBL_TENDENCY_APPLY_T	INTEGER i, j
./pkg/bbl/bbl_tendency_apply.F	52	BBL_TENDENCY_APPLY_T	DO j=jMin,jMax
./pkg/bbl/bbl_tendency_apply.F	54	BBL_TENDENCY_APPLY_T	IF ( k .EQ. kLowC(i,j,bi,bj) )
./pkg/bbl/bbl_tendency_apply.F	55	BBL_TENDENCY_APPLY_T	& gT_arr(i,j) = gT_arr(i,j)
./pkg/bbl/bbl_tendency_apply.F	56	BBL_TENDENCY_APPLY_T	& + maskC(i,j,k,bi,bj) * bbl_TendTheta(i,j,bi,bj)
./pkg/bbl/bbl_write_pickup.F	109	BBL_WRITE_PICKUP	& j, myIter, myThid )
./pkg/bbl/bbl_write_pickup.F	53	BBL_WRITE_PICKUP	INTEGER j, fp, lChar
./pkg/bbl/bbl_write_pickup.F	70	BBL_WRITE_PICKUP	j = 0
./pkg/bbl/bbl_write_pickup.F	75	BBL_WRITE_PICKUP	j = j + 1
./pkg/bbl/bbl_write_pickup.F	77	BBL_WRITE_PICKUP	& bbl_theta, -j, myIter, myThid )
./pkg/bbl/bbl_write_pickup.F	78	BBL_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'bblTheta'
./pkg/bbl/bbl_write_pickup.F	80	BBL_WRITE_PICKUP	j = j + 1
./pkg/bbl/bbl_write_pickup.F	82	BBL_WRITE_PICKUP	& bbl_salt, -j, myIter, myThid )
./pkg/bbl/bbl_write_pickup.F	83	BBL_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'bblSalt '
./pkg/bbl/bbl_write_pickup.F	85	BBL_WRITE_PICKUP	j = j + 1
./pkg/bbl/bbl_write_pickup.F	87	BBL_WRITE_PICKUP	& bbl_eta, -j, myIter, myThid )
./pkg/bbl/bbl_write_pickup.F	88	BBL_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'bblEta '
./pkg/bbl/bbl_write_pickup.F	91	BBL_WRITE_PICKUP	nWrFlds = j
./pkg/bulk_force/bulkf_ave.F	38	BULKF_AVE	INTEGER i,j
./pkg/bulk_force/bulkf_ave.F	41	BULKF_AVE	DO j = 1,sNy
./pkg/bulk_force/bulkf_ave.F	43	BULKF_AVE	BULK_Qnet_Ave(i,j,bi,bj) = BULK_Qnet_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	44	BULKF_AVE	& +Qnet(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	48	BULKF_AVE	BULK_EmPmR_Ave(i,j,bi,bj) = BULK_EmPmR_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	49	BULKF_AVE	& +EmPmR(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	50	BULKF_AVE	BULK_fu_Ave(i,j,bi,bj) = BULK_fu_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	51	BULKF_AVE	& +fu(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	52	BULKF_AVE	BULK_fv_Ave(i,j,bi,bj) = BULK_fv_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	53	BULKF_AVE	& +fv(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	54	BULKF_AVE	BULK_latent_Ave(i,j,bi,bj) = BULK_latent_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	55	BULKF_AVE	& +flh(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	56	BULKF_AVE	BULK_sensible_Ave(i,j,bi,bj) = BULK_sensible_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	57	BULKF_AVE	& +fsh(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	58	BULKF_AVE	BULK_evap_Ave(i,j,bi,bj) = BULK_evap_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	59	BULKF_AVE	& +evap(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	60	BULKF_AVE	BULK_flwup_Ave(i,j,bi,bj) = BULK_flwup_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	61	BULKF_AVE	& +flwup(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	62	BULKF_AVE	BULK_flwupnet_Ave(i,j,bi,bj) = BULK_flwupnet_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	63	BULKF_AVE	& +flwupnet(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	64	BULKF_AVE	BULK_solar_Ave(i,j,bi,bj) = BULK_solar_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	65	BULKF_AVE	& +fswnet(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F	66	BULKF_AVE	BULK_ssq_Ave(i,j,bi,bj) = BULK_ssq_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F	67	BULKF_AVE	& +savssq(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_fields_load.F	123	BULKF_FIELDS_LOAD	INTEGER bi, bj, i, j
./pkg/bulk_force/bulkf_fields_load.F	133	BULKF_FIELDS_LOAD	DO j = 1-Oly,sNy+Oly
./pkg/bulk_force/bulkf_fields_load.F	135	BULKF_FIELDS_LOAD	tair0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	136	BULKF_FIELDS_LOAD	tair1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	137	BULKF_FIELDS_LOAD	qair0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	138	BULKF_FIELDS_LOAD	qair1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	139	BULKF_FIELDS_LOAD	rain0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	140	BULKF_FIELDS_LOAD	rain1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	141	BULKF_FIELDS_LOAD	solar0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	142	BULKF_FIELDS_LOAD	solar1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	143	BULKF_FIELDS_LOAD	flwdwn0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	144	BULKF_FIELDS_LOAD	flwdwn1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	145	BULKF_FIELDS_LOAD	cloud0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	146	BULKF_FIELDS_LOAD	cloud1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	147	BULKF_FIELDS_LOAD	wspeed0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	148	BULKF_FIELDS_LOAD	wspeed1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	149	BULKF_FIELDS_LOAD	uwind0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	150	BULKF_FIELDS_LOAD	uwind1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	151	BULKF_FIELDS_LOAD	vwind0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	152	BULKF_FIELDS_LOAD	vwind1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	153	BULKF_FIELDS_LOAD	runoff0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	154	BULKF_FIELDS_LOAD	runoff1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	155	BULKF_FIELDS_LOAD	snow0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	156	BULKF_FIELDS_LOAD	snow1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	158	BULKF_FIELDS_LOAD	thAir0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	159	BULKF_FIELDS_LOAD	thAir1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	161	BULKF_FIELDS_LOAD	qnetch0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	162	BULKF_FIELDS_LOAD	qnetch1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	163	BULKF_FIELDS_LOAD	empch0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	164	BULKF_FIELDS_LOAD	empch1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F	301	BULKF_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/bulk_force/bulkf_fields_load.F	303	BULKF_FIELDS_LOAD	empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F	304	BULKF_FIELDS_LOAD	empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F	363	BULKF_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/bulk_force/bulkf_fields_load.F	367	BULKF_FIELDS_LOAD	TAIR(i,j,bi,bj) = bWght*tair0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	368	BULKF_FIELDS_LOAD	& +aWght*tair1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	372	BULKF_FIELDS_LOAD	QAIR(i,j,bi,bj) =(bWght*qair0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	373	BULKF_FIELDS_LOAD	& +aWght*qair1(i,j,bi,bj) )
./pkg/bulk_force/bulkf_fields_load.F	374	BULKF_FIELDS_LOAD	SOLAR(i,j,bi,bj) = bWght*solar0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	375	BULKF_FIELDS_LOAD	& +aWght*solar1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	376	BULKF_FIELDS_LOAD	FLWDWN(i,j,bi,bj) = bWght*flwdwn0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	377	BULKF_FIELDS_LOAD	& +aWght*flwdwn1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	378	BULKF_FIELDS_LOAD	CLOUD(i,j,bi,bj) = bWght*cloud0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	379	BULKF_FIELDS_LOAD	& +aWght*cloud1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	380	BULKF_FIELDS_LOAD	WSPEED(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	381	BULKF_FIELDS_LOAD	& +aWght*wspeed1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	382	BULKF_FIELDS_LOAD	UWIND(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	383	BULKF_FIELDS_LOAD	& +aWght*uwind1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	384	BULKF_FIELDS_LOAD	VWIND(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	385	BULKF_FIELDS_LOAD	& +aWght*vwind1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	386	BULKF_FIELDS_LOAD	RAIN(i,j,bi,bj) = bWght*rain0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	387	BULKF_FIELDS_LOAD	& +aWght*rain1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	388	BULKF_FIELDS_LOAD	RUNOFF(i,j,bi,bj) = bWght*runoff0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	389	BULKF_FIELDS_LOAD	& +aWght*runoff1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	394	BULKF_FIELDS_LOAD	Qnetch(i,j,bi,bj) = bWght*qnetch0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	395	BULKF_FIELDS_LOAD	& +aWght*qnetch1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	396	BULKF_FIELDS_LOAD	EmPch(i,j,bi,bj) = bWght*empch0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	397	BULKF_FIELDS_LOAD	& +aWght*empch1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	402	BULKF_FIELDS_LOAD	DO j=1-Oly,sNy+Oly
./pkg/bulk_force/bulkf_fields_load.F	404	BULKF_FIELDS_LOAD	thAir(i,j,bi,bj) = bWght*thAir0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F	405	BULKF_FIELDS_LOAD	& + aWght*thAir1(i,j,bi,bj)
./pkg/bulk_force/bulkf_flux_adjust.F	53	BULKF_FLUX_ADJUST	INTEGER i,j
./pkg/bulk_force/bulkf_flux_adjust.F	56	BULKF_FLUX_ADJUST	DO j = jMin, jMax
./pkg/bulk_force/bulkf_flux_adjust.F	58	BULKF_FLUX_ADJUST	IF ( adjustMask(i,j) ) Qnet(i,j,bi,bj) = Qnetch(i,j,bi,bj)
./pkg/bulk_force/bulkf_flux_adjust.F	64	BULKF_FLUX_ADJUST	DO j = jMin, jMax
./pkg/bulk_force/bulkf_flux_adjust.F	66	BULKF_FLUX_ADJUST	IF ( adjustMask(i,j) ) EmPmR(i,j,bi,bj) = EmPch(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	100	BULKF_FORCING	evap(i,j,bi,bj) = EVPloc(1) * 1. _d -3 / rhoFW
./pkg/bulk_force/bulkf_forcing.F	109	BULKF_FORCING	I uwind(i,j,bi,bj),vwind(i,j,bi,bj),wspeed(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	110	BULKF_FORCING	I Tair(i,j,bi,bj), Qair(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	111	BULKF_FORCING	I cloud(i,j,bi,bj),theta(i,j,ks,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	112	BULKF_FORCING	O flwup(i,j,bi,bj), flh(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	113	BULKF_FORCING	O fsh(i,j,bi,bj), df0dT,
./pkg/bulk_force/bulkf_forcing.F	114	BULKF_FORCING	O ustress(i,j,bi,bj), vstress(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	115	BULKF_FORCING	O evp, savssq(i,j,bi,bj), dEvdT,
./pkg/bulk_force/bulkf_forcing.F	121	BULKF_FORCING	evap(i,j,bi,bj) = evp/rhoFW
./pkg/bulk_force/bulkf_forcing.F	125	BULKF_FORCING	I uwind(i,j,bi,bj), vwind(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	126	BULKF_FORCING	I wspeed(i,j,bi,bj), Tair(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	127	BULKF_FORCING	I Qair(i,j,bi,bj), theta(i,j,ks,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	128	BULKF_FORCING	O flwup(i,j,bi,bj), flh(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	129	BULKF_FORCING	O fsh(i,j,bi,bj), df0dT,
./pkg/bulk_force/bulkf_forcing.F	130	BULKF_FORCING	O ustress(i,j,bi,bj), vstress(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	131	BULKF_FORCING	O evp, savssq(i,j,bi,bj), dEvdT,
./pkg/bulk_force/bulkf_forcing.F	132	BULKF_FORCING	I iceornot, i,j,bi,bj,myThid )
./pkg/bulk_force/bulkf_forcing.F	135	BULKF_FORCING	evap(i,j,bi,bj) = evp/rhoFW
./pkg/bulk_force/bulkf_forcing.F	140	BULKF_FORCING	flwupnet(i,j,bi,bj)=flwup(i,j,bi,bj)-flwdwn(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	142	BULKF_FORCING	fswnet(i,j,bi,bj) = solar(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	145	BULKF_FORCING	ustress(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	146	BULKF_FORCING	vstress(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	147	BULKF_FORCING	fsh(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	148	BULKF_FORCING	flh(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	149	BULKF_FORCING	flwup(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	150	BULKF_FORCING	evap(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	151	BULKF_FORCING	fswnet(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	152	BULKF_FORCING	savssq(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	159	BULKF_FORCING	DO j = 1-OLy,sNy+OLy
./pkg/bulk_force/bulkf_forcing.F	161	BULKF_FORCING	fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	162	BULKF_FORCING	& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))0.5 _d 0
./pkg/bulk_force/bulkf_forcing.F	165	BULKF_FORCING	DO j = 1-OLy+1,sNy+OLy
./pkg/bulk_force/bulkf_forcing.F	167	BULKF_FORCING	fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	168	BULKF_FORCING	& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))0.5 _d 0
./pkg/bulk_force/bulkf_forcing.F	174	BULKF_FORCING	DO j = 1-OLy,sNy+OLy
./pkg/bulk_force/bulkf_forcing.F	176	BULKF_FORCING	IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_forcing.F	179	BULKF_FORCING	hfl = hfl + fsh(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	180	BULKF_FORCING	hfl = hfl + flh(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	181	BULKF_FORCING	hfl = hfl - flwupnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	182	BULKF_FORCING	hfl = hfl + fswnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	184	BULKF_FORCING	Qnet(i,j,bi,bj) = -hfl
./pkg/bulk_force/bulkf_forcing.F	185	BULKF_FORCING	Qsw (i,j,bi,bj) = -fswnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	187	BULKF_FORCING	dFdT(i,j,bi,bj) = df0dT
./pkg/bulk_force/bulkf_forcing.F	190	BULKF_FORCING	EmPmR(i,j,bi,bj) = (evap(i,j,bi,bj)-rain(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	191	BULKF_FORCING	& - runoff(i,j,bi,bj))*rhoConstFresh
./pkg/bulk_force/bulkf_forcing.F	197	BULKF_FORCING	Qnet(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	198	BULKF_FORCING	Qsw (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	199	BULKF_FORCING	EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	201	BULKF_FORCING	dFdT(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F	232	BULKF_FORCING	DO j = 1-OLy,sNy+OLy
./pkg/bulk_force/bulkf_forcing.F	234	BULKF_FORCING	IF ( Tair(i,j,bi,bj).LE.Tf0kel ) THEN
./pkg/bulk_force/bulkf_forcing.F	235	BULKF_FORCING	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	236	BULKF_FORCING	& + Lfreshrain(i,j,bi,bj)rhoConstFresh
./pkg/bulk_force/bulkf_forcing.F	239	BULKF_FORCING	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	241	BULKF_FORCING	& *( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn )
./pkg/bulk_force/bulkf_forcing.F	242	BULKF_FORCING	& rain(i,j,bi,bj)rhoConstFresh
./pkg/bulk_force/bulkf_forcing.F	248	BULKF_FORCING	DO j = 1-OLy,sNy+OLy
./pkg/bulk_force/bulkf_forcing.F	255	BULKF_FORCING	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	256	BULKF_FORCING	& + ( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/bulk_force/bulkf_forcing.F	257	BULKF_FORCING	& *( evap(i,j,bi,bj) - runoff(i,j,bi,bj) )
./pkg/bulk_force/bulkf_forcing.F	259	BULKF_FORCING	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj)
./pkg/bulk_force/bulkf_forcing.F	63	BULKF_FORCING	INTEGER i,j
./pkg/bulk_force/bulkf_forcing.F	81	BULKF_FORCING	DO j = 1-OLy,sNy+OLy
./pkg/bulk_force/bulkf_forcing.F	83	BULKF_FORCING	IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_forcing.F	88	BULKF_FORCING	I theta(i,j,ks,bi,bj), flwdwn(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	89	BULKF_FORCING	I thAir(i,j,bi,bj), Tair(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	90	BULKF_FORCING	I Qair(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F	95	BULKF_FORCING	flwup(i,j,bi,bj)= ocean_emissivity*SLRU(1)
./pkg/bulk_force/bulkf_forcing.F	97	BULKF_FORCING	fsh(i,j,bi,bj) = -SHF(1)
./pkg/bulk_force/bulkf_forcing.F	98	BULKF_FORCING	flh(i,j,bi,bj) = -Lvap*EVPloc(1)
./pkg/bulk_force/bulkf_formula_lay.F	13	BULKF_FORMULA_LAY	I iceornot, i,j,bi,bj,myThid )
./pkg/bulk_force/bulkf_formula_lay.F	57	BULKF_FORMULA_LAY	INTEGER i,j, bi,bj !current grid point indices
./pkg/bulk_force/bulkf_init_varia.F	39	BULKF_INIT_VARIA	INTEGER i, j
./pkg/bulk_force/bulkf_init_varia.F	44	BULKF_INIT_VARIA	DO j=1-Oly,sNy+Oly
./pkg/bulk_force/bulkf_init_varia.F	46	BULKF_INIT_VARIA	Tair (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	47	BULKF_INIT_VARIA	Qair (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	48	BULKF_INIT_VARIA	Solar (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	49	BULKF_INIT_VARIA	flwdwn(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	50	BULKF_INIT_VARIA	cloud (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	51	BULKF_INIT_VARIA	wspeed(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	52	BULKF_INIT_VARIA	uwind (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	53	BULKF_INIT_VARIA	vwind (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	54	BULKF_INIT_VARIA	runoff(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	56	BULKF_INIT_VARIA	thAir (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	58	BULKF_INIT_VARIA	qnetch(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	59	BULKF_INIT_VARIA	empch (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	64	BULKF_INIT_VARIA	DO j=1-Oly,sNy+Oly
./pkg/bulk_force/bulkf_init_varia.F	66	BULKF_INIT_VARIA	BULK_Qnet_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	67	BULKF_INIT_VARIA	BULK_EmPmR_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	68	BULKF_INIT_VARIA	BULK_fu_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	69	BULKF_INIT_VARIA	BULK_fv_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	70	BULKF_INIT_VARIA	BULK_latent_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	71	BULKF_INIT_VARIA	BULK_sensible_Ave(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	72	BULKF_INIT_VARIA	BULK_evap_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	73	BULKF_INIT_VARIA	BULK_flwup_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	74	BULKF_INIT_VARIA	BULK_flwupnet_Ave(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	75	BULKF_INIT_VARIA	BULK_solar_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	76	BULKF_INIT_VARIA	BULK_ssq_Ave (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	81	BULKF_INIT_VARIA	DO j=1-Oly,sNy+Oly
./pkg/bulk_force/bulkf_init_varia.F	83	BULKF_INIT_VARIA	CONS_Qnet (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F	84	BULKF_INIT_VARIA	CONS_EmPmR(i,j,bi,bj) = 0. _d 0
./pkg/cal/cal_set.F	145	CAL_SET	j = MOD(k,2)
./pkg/cal/cal_set.F	146	CAL_SET	k = (k-j)/2
./pkg/cal/cal_set.F	147	CAL_SET	nDayMonth(i,1) = 30+j
./pkg/cal/cal_set.F	148	CAL_SET	nDayMonth(i,2) = 30+j
./pkg/cal/cal_set.F	76	CAL_SET	INTEGER i,j,k
./pkg/cd_code/cd_code_scheme.F	102	CD_CODE_SCHEME	pf(i,j) =
./pkg/cd_code/cd_code_scheme.F	103	CD_CODE_SCHEME	& ab15( etaN(i,j,bi,bj)Bo_surf(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F	104	CD_CODE_SCHEME	& +ab05(etaNm1(i,j,bi,bj)Bo_surf(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F	106	CD_CODE_SCHEME	pf(i,j) = Bo_surf(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F	107	CD_CODE_SCHEME	& ( ab15etaN(i,j,bi,bj) + ab05*etaNm1(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F	116	CD_CODE_SCHEME	DO j=1-OLy+1,sNy+OLy
./pkg/cd_code/cd_code_scheme.F	118	CD_CODE_SCHEME	af(i,j) =
./pkg/cd_code/cd_code_scheme.F	119	CD_CODE_SCHEME	& ( gvFld(i,j)
./pkg/cd_code/cd_code_scheme.F	120	CD_CODE_SCHEME	& -( _recip_dyC(i,j,bi,bj)*(pf(i,j)-pf(i,j-1))
./pkg/cd_code/cd_code_scheme.F	121	CD_CODE_SCHEME	& +phyFac*dPhiHydY(i,j) )
./pkg/cd_code/cd_code_scheme.F	122	CD_CODE_SCHEME	& )*_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	124	CD_CODE_SCHEME	& maskInC(i,j-1,bi,bj)maskInC(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F	129	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	131	CD_CODE_SCHEME	vf(i,j) =
./pkg/cd_code/cd_code_scheme.F	132	CD_CODE_SCHEME	& ( (af(i,j)+af(i-1,j+1))
./pkg/cd_code/cd_code_scheme.F	133	CD_CODE_SCHEME	& +(af(i-1,j)+af(i,j+1)) )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F	134	CD_CODE_SCHEME	& *_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	135	CD_CODE_SCHEME	& -( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F	136	CD_CODE_SCHEME	& +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F	138	CD_CODE_SCHEME	& *uVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	140	CD_CODE_SCHEME	& ( ab15uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) )
./pkg/cd_code/cd_code_scheme.F	145	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	147	CD_CODE_SCHEME	vVelD(i,j,k,bi,bj) = vVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j)
./pkg/cd_code/cd_code_scheme.F	151	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	153	CD_CODE_SCHEME	vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	156	CD_CODE_SCHEME	& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	157	CD_CODE_SCHEME	& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	160	CD_CODE_SCHEME	& (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	161	CD_CODE_SCHEME	& +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	163	CD_CODE_SCHEME	& ) )*_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	167	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	169	CD_CODE_SCHEME	guCor(i,j) =
./pkg/cd_code/cd_code_scheme.F	170	CD_CODE_SCHEME	& ( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F	171	CD_CODE_SCHEME	& +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F	172	CD_CODE_SCHEME	& vVelD(i,j,k,bi,bj)cfFacMom
./pkg/cd_code/cd_code_scheme.F	178	CD_CODE_SCHEME	DO j=1-OLy,sNy+OLy
./pkg/cd_code/cd_code_scheme.F	180	CD_CODE_SCHEME	af(i,j) =
./pkg/cd_code/cd_code_scheme.F	181	CD_CODE_SCHEME	& ( guFld(i,j)
./pkg/cd_code/cd_code_scheme.F	182	CD_CODE_SCHEME	& -( _recip_dxC(i,j,bi,bj)*(pf(i,j)-pf(i-1,j))
./pkg/cd_code/cd_code_scheme.F	183	CD_CODE_SCHEME	& +phxFac*dPhiHydX(i,j) )
./pkg/cd_code/cd_code_scheme.F	184	CD_CODE_SCHEME	& )*_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	186	CD_CODE_SCHEME	& maskInC(i-1,j,bi,bj)maskInC(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F	191	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	193	CD_CODE_SCHEME	vf(i,j) =
./pkg/cd_code/cd_code_scheme.F	194	CD_CODE_SCHEME	& ( (af(i,j)+af(i+1,j-1))
./pkg/cd_code/cd_code_scheme.F	195	CD_CODE_SCHEME	& +(af(i+1,j)+af(i,j-1)) )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F	196	CD_CODE_SCHEME	& *_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	197	CD_CODE_SCHEME	& +( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F	198	CD_CODE_SCHEME	& +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F	200	CD_CODE_SCHEME	& *vVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	202	CD_CODE_SCHEME	& ( ab15vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) )
./pkg/cd_code/cd_code_scheme.F	207	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	209	CD_CODE_SCHEME	uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j)
./pkg/cd_code/cd_code_scheme.F	213	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	215	CD_CODE_SCHEME	uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	218	CD_CODE_SCHEME	& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	219	CD_CODE_SCHEME	& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	222	CD_CODE_SCHEME	& (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	223	CD_CODE_SCHEME	& +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F	225	CD_CODE_SCHEME	& ) )*_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	229	CD_CODE_SCHEME	DO j=jMin,jMax
./pkg/cd_code/cd_code_scheme.F	231	CD_CODE_SCHEME	gvCor(i,j) =
./pkg/cd_code/cd_code_scheme.F	232	CD_CODE_SCHEME	& -( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F	233	CD_CODE_SCHEME	& +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F	234	CD_CODE_SCHEME	& uVelD(i,j,k,bi,bj)cfFacMom
./pkg/cd_code/cd_code_scheme.F	239	CD_CODE_SCHEME	DO j=1-OLy,sNy+OLy
./pkg/cd_code/cd_code_scheme.F	241	CD_CODE_SCHEME	uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	242	CD_CODE_SCHEME	vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F	59	CD_CODE_SCHEME	INTEGER i,j
./pkg/cd_code/cd_code_scheme.F	98	CD_CODE_SCHEME	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc11_forcing.F	120	CFC11_FORCING	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc11_forcing.F	122	CFC11_FORCING	if ((j.gt.int(sNy/2)+3.and.j.le.sNy).or.j.lt.1) then
./pkg/cfc/cfc11_forcing.F	123	CFC11_FORCING	AtmosCFC11(i,j)=ACFC11north
./pkg/cfc/cfc11_forcing.F	125	CFC11_FORCING	if (j.ge.int(sNy/2)-3.and.j.le.int(sNy/2)+3) then
./pkg/cfc/cfc11_forcing.F	126	CFC11_FORCING	a1=(float(j-int(sNy/2)+3)+.5)/7
./pkg/cfc/cfc11_forcing.F	128	CFC11_FORCING	AtmosCFC11(i,j)=a1*ACFC11south +
./pkg/cfc/cfc11_forcing.F	131	CFC11_FORCING	if ((j.lt.int(sNy/2)-3.and.j.gt.0).or.j.gt.sNy) then
./pkg/cfc/cfc11_forcing.F	132	CFC11_FORCING	AtmosCFC11(i,j)=ACFC11south
./pkg/cfc/cfc11_forcing.F	142	CFC11_FORCING	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc11_forcing.F	144	CFC11_FORCING	weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat
./pkg/cfc/cfc11_forcing.F	146	CFC11_FORCING	AtmosCFC11(i,j)= weight * ACFC11north
./pkg/cfc/cfc11_forcing.F	161	CFC11_FORCING	DO j=jMin,jMax
./pkg/cfc/cfc11_forcing.F	163	CFC11_FORCING	gCFC11(i,j,1) = gCFC11(i,j,1)
./pkg/cfc/cfc11_forcing.F	165	CFC11_FORCING	& + fluxCFC11(i,j)recip_drF(1)recip_hFacC(i,j,1,bi,bj)
./pkg/cfc/cfc11_forcing.F	70	CFC11_FORCING	INTEGER i, j
./pkg/cfc/cfc11_surfforcing.F	101	CFC11_SURFFORCING	fluxCFC11(i,j) = 0. _d 0
./pkg/cfc/cfc11_surfforcing.F	56	CFC11_SURFFORCING	INTEGER i,j,k
./pkg/cfc/cfc11_surfforcing.F	68	CFC11_SURFFORCING	DO j=jMin,jMax
./pkg/cfc/cfc11_surfforcing.F	70	CFC11_SURFFORCING	IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN
./pkg/cfc/cfc11_surfforcing.F	72	CFC11_SURFFORCING	SchmidtNocfc11(i,j) =
./pkg/cfc/cfc11_surfforcing.F	74	CFC11_SURFFORCING	& + sca_11_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F	75	CFC11_SURFFORCING	& + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F	76	CFC11_SURFFORCING	& + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F	77	CFC11_SURFFORCING	& *theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F	79	CFC11_SURFFORCING	ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc11_surfforcing.F	81	CFC11_SURFFORCING	SolCFC11(i,j) =
./pkg/cfc/cfc11_surfforcing.F	86	CFC11_SURFFORCING	& + Salt(i,j,k,bi,bj)* ttemp2 )
./pkg/cfc/cfc11_surfforcing.F	88	CFC11_SURFFORCING	SolCFC11(i,j) = 1000. _d 0 * SolCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F	90	CFC11_SURFFORCING	SolCFC11(i,j) = 1. _d -12 * SolCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F	92	CFC11_SURFFORCING	Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj)
./pkg/cfc/cfc11_surfforcing.F	93	CFC11_SURFFORCING	& *AtmosCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F	94	CFC11_SURFFORCING	Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj))
./pkg/cfc/cfc11_surfforcing.F	95	CFC11_SURFFORCING	& * pisVel(i,j,bi,bj)
./pkg/cfc/cfc11_surfforcing.F	96	CFC11_SURFFORCING	& / SQRT(SchmidtNoCFC11(i,j)/660. _d 0)
./pkg/cfc/cfc11_surfforcing.F	97	CFC11_SURFFORCING	fluxCFC11(i,j) =
./pkg/cfc/cfc11_surfforcing.F	98	CFC11_SURFFORCING	& Kwexch(i,j)*(Csat(i,j) - pTr_CFC11(i,j,1))
./pkg/cfc/cfc12_forcing.F	121	CFC12_FORCING	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc12_forcing.F	123	CFC12_FORCING	if ((j.gt.int(sNy/2)+3.and.j.le.sNy).or.j.lt.1) then
./pkg/cfc/cfc12_forcing.F	124	CFC12_FORCING	AtmosCFC12(i,j)=ACFC12north
./pkg/cfc/cfc12_forcing.F	126	CFC12_FORCING	if (j.ge.int(sNy/2)-3.and.j.le.int(sNy/2)+3) then
./pkg/cfc/cfc12_forcing.F	127	CFC12_FORCING	a1=(float(j-int(sNy/2)+3)+.5)/7
./pkg/cfc/cfc12_forcing.F	129	CFC12_FORCING	AtmosCFC12(i,j)=a1*ACFC12south +
./pkg/cfc/cfc12_forcing.F	132	CFC12_FORCING	if ((j.lt.int(sNy/2)-3.and.j.gt.0).or.j.gt.sNy) then
./pkg/cfc/cfc12_forcing.F	133	CFC12_FORCING	AtmosCFC12(i,j)=ACFC12south
./pkg/cfc/cfc12_forcing.F	143	CFC12_FORCING	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc12_forcing.F	145	CFC12_FORCING	weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat
./pkg/cfc/cfc12_forcing.F	147	CFC12_FORCING	AtmosCFC12(i,j)= weight * ACFC12north
./pkg/cfc/cfc12_forcing.F	162	CFC12_FORCING	DO j=jMin,jMax
./pkg/cfc/cfc12_forcing.F	164	CFC12_FORCING	gCFC12(i,j,1) = gCFC12(i,j,1)
./pkg/cfc/cfc12_forcing.F	166	CFC12_FORCING	& + fluxCFC12(i,j)recip_drF(1)recip_hFacC(i,j,1,bi,bj)
./pkg/cfc/cfc12_forcing.F	71	CFC12_FORCING	INTEGER i, j
./pkg/cfc/cfc12_surfforcing.F	101	CFC12_SURFFORCING	fluxCFC12(i,j) = 0. _d 0
./pkg/cfc/cfc12_surfforcing.F	56	CFC12_SURFFORCING	INTEGER i,j,k
./pkg/cfc/cfc12_surfforcing.F	68	CFC12_SURFFORCING	DO j=jMin,jMax
./pkg/cfc/cfc12_surfforcing.F	70	CFC12_SURFFORCING	IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN
./pkg/cfc/cfc12_surfforcing.F	72	CFC12_SURFFORCING	SchmidtNocfc12(i,j) =
./pkg/cfc/cfc12_surfforcing.F	74	CFC12_SURFFORCING	& + sca_12_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F	75	CFC12_SURFFORCING	& + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F	76	CFC12_SURFFORCING	& + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F	77	CFC12_SURFFORCING	& *theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F	79	CFC12_SURFFORCING	ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc12_surfforcing.F	81	CFC12_SURFFORCING	SolCFC12(i,j) =
./pkg/cfc/cfc12_surfforcing.F	86	CFC12_SURFFORCING	& + Salt(i,j,k,bi,bj)* ttemp2 )
./pkg/cfc/cfc12_surfforcing.F	88	CFC12_SURFFORCING	SolCFC12(i,j) = 1000. _d 0 * SolCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F	90	CFC12_SURFFORCING	SolCFC12(i,j) = 1. _d -12 * SolCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F	92	CFC12_SURFFORCING	Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F	93	CFC12_SURFFORCING	& *AtmosCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F	94	CFC12_SURFFORCING	Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj))
./pkg/cfc/cfc12_surfforcing.F	95	CFC12_SURFFORCING	& * pisVel(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F	96	CFC12_SURFFORCING	& / SQRT(SchmidtNoCFC12(i,j)/660. _d 0)
./pkg/cfc/cfc12_surfforcing.F	97	CFC12_SURFFORCING	fluxCFC12(i,j) =
./pkg/cfc/cfc12_surfforcing.F	98	CFC12_SURFFORCING	& Kwexch(i,j)*(Csat(i,j) - pTr_CFC12(i,j,1))
./pkg/cfc/cfc_fields_load.F	170	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	174	CFC_FIELDS_LOAD	locWind(i,j) = sh(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	183	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	185	CFC_FIELDS_LOAD	locWind(i,j) = bWght*wind0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	186	CFC_FIELDS_LOAD	& + aWght*wind1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	190	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	192	CFC_FIELDS_LOAD	locWind(i,j) = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/cfc/cfc_fields_load.F	199	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	201	CFC_FIELDS_LOAD	pisVel(i,j,bi,bj)=(0.31 _d 0locWind(i,j)*2)/3.6 _d 5
./pkg/cfc/cfc_fields_load.F	207	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	209	CFC_FIELDS_LOAD	ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	210	CFC_FIELDS_LOAD	& + aWght*atmosp1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	214	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	216	CFC_FIELDS_LOAD	ATMOSP(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/cfc/cfc_fields_load.F	223	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	225	CFC_FIELDS_LOAD	FIce(I,J,bi,bj) = iceMask(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	231	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	239	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	241	CFC_FIELDS_LOAD	FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	242	CFC_FIELDS_LOAD	& + aWght*ice1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F	246	CFC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc_fields_load.F	248	CFC_FIELDS_LOAD	FIce(i,j,bi,bj) = 0. _d 0
./pkg/cfc/cfc_fields_load.F	53	CFC_FIELDS_LOAD	INTEGER bi, bj, i, j
./pkg/cheapaml/cheapaml.F	146	CHEAPAML	DO j = 1,sny
./pkg/cheapaml/cheapaml.F	149	CHEAPAML	lsm (i,j) = 1-maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	150	CHEAPAML	lsm(1,j) = 1.0
./pkg/cheapaml/cheapaml.F	151	CHEAPAML	lsm(snx,j) = 1.0
./pkg/cheapaml/cheapaml.F	156	CHEAPAML	dyd_htf(j) = delY(j)
./pkg/cheapaml/cheapaml.F	157	CHEAPAML	dxd_htf(i,j) = delX(i)
./pkg/cheapaml/cheapaml.F	158	CHEAPAML	sst_htf(i,j) = theta(i,j,1,bi,bj) + celsius2K
./pkg/cheapaml/cheapaml.F	159	CHEAPAML	cldfr_htf(i,j) = 0.0 _d 0
./pkg/cheapaml/cheapaml.F	160	CHEAPAML	u_htf(i,j) = uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	161	CHEAPAML	v_htf(i,j) = vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	162	CHEAPAML	q_htf(i,j) = qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	163	CHEAPAML	t_htf(i,j) = Tair(i,j,bi,bj) + celsius2K
./pkg/cheapaml/cheapaml.F	164	CHEAPAML	qisw(i,j) = solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	165	CHEAPAML	ppi(i,j) = 0.0 _d 0
./pkg/cheapaml/cheapaml.F	166	CHEAPAML	wspd_htf(i,j) = sqrt(uwind(i,j,bi,bj)**2
./pkg/cheapaml/cheapaml.F	167	CHEAPAML	& + vwind(i,j,bi,bj)**2)
./pkg/cheapaml/cheapaml.F	169	CHEAPAML	cice(i,j) = 0.0 _d 0
./pkg/cheapaml/cheapaml.F	171	CHEAPAML	tsnw(i,j) = 0.0 _d 0 + celsius2K
./pkg/cheapaml/cheapaml.F	207	CHEAPAML	DO j = 1,sny
./pkg/cheapaml/cheapaml.F	210	CHEAPAML	if (lsm(i,j).eq.0) then
./pkg/cheapaml/cheapaml.F	211	CHEAPAML	qair(i,j,bi,bj) = qa(i,j)
./pkg/cheapaml/cheapaml.F	212	CHEAPAML	Tair(i,j,bi,bj) = th(i,j) - celsius2K
./pkg/cheapaml/cheapaml.F	213	CHEAPAML	SH_sauv(i,j,bi,bj) = sh(i,j)
./pkg/cheapaml/cheapaml.F	214	CHEAPAML	LH_sauv(i,j,bi,bj) = rlh(i,j)
./pkg/cheapaml/cheapaml.F	216	CHEAPAML	qair(i,j,bi,bj) = qr(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	217	CHEAPAML	Tair(i,j,bi,bj) = tr(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	232	CHEAPAML	DO j = 1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	234	CHEAPAML	Qnet(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F	235	CHEAPAML	EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/cheapaml/cheapaml.F	255	CHEAPAML	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	257	CHEAPAML	gTair(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml.F	258	CHEAPAML	uTrans(i,j)=uWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	259	CHEAPAML	vTrans(i,j)=vWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	293	CHEAPAML	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	295	CHEAPAML	gqair(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml.F	296	CHEAPAML	uTrans(i,j)=uWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	297	CHEAPAML	vTrans(i,j)=vWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	332	CHEAPAML	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	334	CHEAPAML	gCheaptracer(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml.F	335	CHEAPAML	uTrans(i,j)=uWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	336	CHEAPAML	vTrans(i,j)=vWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	414	CHEAPAML	DO j = 1-OLy, sNy+OLy
./pkg/cheapaml/cheapaml.F	416	CHEAPAML	surfDrag(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml.F	417	CHEAPAML	uRelWind(i,j) = uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	418	CHEAPAML	vRelWind(i,j) = vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	421	CHEAPAML	DO j = jMin,jMax
./pkg/cheapaml/cheapaml.F	423	CHEAPAML	windSq(i,j) = ( uRelWind( i ,j)*uRelWind( i ,j)
./pkg/cheapaml/cheapaml.F	424	CHEAPAML	& + uRelWind(i+1,j)*uRelWind(i+1,j)
./pkg/cheapaml/cheapaml.F	425	CHEAPAML	& + vRelWind(i, j )*vRelWind(i, j )
./pkg/cheapaml/cheapaml.F	426	CHEAPAML	& + vRelWind(i,j+1)*vRelWind(i,j+1)
./pkg/cheapaml/cheapaml.F	429	CHEAPAML	windSq(i,j) = uRelWind(i,j)*uRelWind(i,j)
./pkg/cheapaml/cheapaml.F	430	CHEAPAML	& + vRelWind(i,j)*vRelWind(i,j)
./pkg/cheapaml/cheapaml.F	444	CHEAPAML	DO j = jMin,jMax
./pkg/cheapaml/cheapaml.F	447	CHEAPAML	I i, j, bi, bj, 0,
./pkg/cheapaml/cheapaml.F	451	CHEAPAML	O surfDrag(i,j,bi,bj),
./pkg/cheapaml/cheapaml.F	454	CHEAPAML	Qnet(i,j,bi,bj) = (
./pkg/cheapaml/cheapaml.F	455	CHEAPAML	& -solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	456	CHEAPAML	& +xolw0 - cheapdlongwave(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	459	CHEAPAML	& )*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	460	CHEAPAML	EmPmR(i,j,bi,bj) = evp_0
./pkg/cheapaml/cheapaml.F	461	CHEAPAML	icFrac = iceFrac(i,j)
./pkg/cheapaml/cheapaml.F	464	CHEAPAML	Qsw(i,j,bi,bj) = - ( icFrac*Qsw(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	465	CHEAPAML	& + opFrac*solar(i,j,bi,bj) )
./pkg/cheapaml/cheapaml.F	466	CHEAPAML	fsha(i,j) = icFracfsha(i,j) + opFracfsha0
./pkg/cheapaml/cheapaml.F	467	CHEAPAML	flha(i,j) = icFracflha(i,j) + opFracflha0
./pkg/cheapaml/cheapaml.F	468	CHEAPAML	evp(i,j) = icFracevp(i,j) + opFracevp_0
./pkg/cheapaml/cheapaml.F	469	CHEAPAML	xolw(i,j) = icFracxolw(i,j) + opFracxolw0
./pkg/cheapaml/cheapaml.F	470	CHEAPAML	ssqt(i,j) = icFracssqt(i,j) + opFracssqt0
./pkg/cheapaml/cheapaml.F	471	CHEAPAML	q100(i,j) = icFracq100(i,j) + opFracq100_0
./pkg/cheapaml/cheapaml.F	472	CHEAPAML	cdq(i,j) = icFraccdq(i,j) + opFraccdq_0
./pkg/cheapaml/cheapaml.F	476	CHEAPAML	DO j = jMin,jMax
./pkg/cheapaml/cheapaml.F	480	CHEAPAML	I i, j, bi, bj,
./pkg/cheapaml/cheapaml.F	481	CHEAPAML	O fsha(i,j), flha(i,j), evp(i,j),
./pkg/cheapaml/cheapaml.F	482	CHEAPAML	O xolw(i,j), ssqt(i,j), q100(i,j) )
./pkg/cheapaml/cheapaml.F	485	CHEAPAML	I i, j, bi, bj, 0,
./pkg/cheapaml/cheapaml.F	487	CHEAPAML	O fsha(i,j), flha(i,j), evp(i,j), xolw(i,j),
./pkg/cheapaml/cheapaml.F	488	CHEAPAML	O ssqt(i,j), q100(i,j), cdq(i,j),
./pkg/cheapaml/cheapaml.F	489	CHEAPAML	O surfDrag(i,j,bi,bj),
./pkg/cheapaml/cheapaml.F	494	CHEAPAML	EmPmR(i,j,bi,bj) = evp(i,j)
./pkg/cheapaml/cheapaml.F	500	CHEAPAML	DO j = jMin,jMax
./pkg/cheapaml/cheapaml.F	504	CHEAPAML	ttt = Tair(i,j,bi,bj)-gamma_blk*(CheapHgrid(i,j,bi,bj)-zt)
./pkg/cheapaml/cheapaml.F	506	CHEAPAML	xalwu = stefan(0.5Tair(i,j,bi,bj)+0.5ttt+celsius2K)*4
./pkg/cheapaml/cheapaml.F	509	CHEAPAML	xalwd = stefan(Tair(i,j,bi,bj)+celsius2K)40.5 _d 0
./pkg/cheapaml/cheapaml.F	511	CHEAPAML	xflu = ( -solar(i,j,bi,bj) + xalwu + flha(i,j)
./pkg/cheapaml/cheapaml.F	512	CHEAPAML	& )xefmaskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	514	CHEAPAML	xfld = ( -solar(i,j,bi,bj) - xalwd + xolw(i,j)
./pkg/cheapaml/cheapaml.F	515	CHEAPAML	& + fsha(i,j) + flha(i,j)
./pkg/cheapaml/cheapaml.F	516	CHEAPAML	& )xefmaskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	519	CHEAPAML	xlwnet = xolw(i,j)-cheapdlongwave(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	524	CHEAPAML	xlwnet = 0.98 _d 0stefan(theta(i,j,1,bi,bj)+celsius2K)**4
./pkg/cheapaml/cheapaml.F	525	CHEAPAML	& (0.39 _d 0 - 0.05 _d 0SQRT(qair(i,j,bi,bj)*1607.7 _d 0))
./pkg/cheapaml/cheapaml.F	526	CHEAPAML	& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0)
./pkg/cheapaml/cheapaml.F	527	CHEAPAML	& cheapclouds(i,j,bi,bj)*2 )
./pkg/cheapaml/cheapaml.F	528	CHEAPAML	& + 4.00.98 _d 0stefan(theta(i,j,1,bi,bj)+celsius2K)*3
./pkg/cheapaml/cheapaml.F	529	CHEAPAML	& *(theta(i,j,1,bi,bj)-Tair(i,j,bi,bj))
./pkg/cheapaml/cheapaml.F	541	CHEAPAML	gTair(i,j,bi,bj)= (xfld-xflu)/CheapHgrid(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	543	CHEAPAML	Qnet(i,j,bi,bj) = (
./pkg/cheapaml/cheapaml.F	544	CHEAPAML	& -solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	549	CHEAPAML	& +fsha(i,j)
./pkg/cheapaml/cheapaml.F	54	CHEAPAML	INTEGER i,j, nt, startAB
./pkg/cheapaml/cheapaml.F	550	CHEAPAML	& +flha(i,j)
./pkg/cheapaml/cheapaml.F	551	CHEAPAML	& )*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	552	CHEAPAML	Qsw(i,j,bi,bj) = -solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	557	CHEAPAML	q=q100(i,j)
./pkg/cheapaml/cheapaml.F	562	CHEAPAML	ts=Tair(i,j,bi,bj)+gamma_blk*zt+celsius2K
./pkg/cheapaml/cheapaml.F	563	CHEAPAML	pt=p0(1-gamma_blkCheapHgrid(i,j,bi,bj)/ts)
./pkg/cheapaml/cheapaml.F	570	CHEAPAML	IF ( wWind(i,j,bi,bj).GT.0. .AND.
./pkg/cheapaml/cheapaml.F	571	CHEAPAML	& q.GT.ssqt(i,j)*0.7 _d 0 ) THEN
./pkg/cheapaml/cheapaml.F	573	CHEAPAML	& + ( (q-ssqt(i,j)0.7 _d 0)dm/cheap_pr2 )
./pkg/cheapaml/cheapaml.F	574	CHEAPAML	& (wWind(i,j,bi,bj)/0.75 _d -5)*2
./pkg/cheapaml/cheapaml.F	578	CHEAPAML	IF (q.GT.0.0214 _d 0 .AND. q.GT.ssqt(i,j)*0.9 _d 0) THEN
./pkg/cheapaml/cheapaml.F	579	CHEAPAML	precip = precip + ((q-ssqt(i,j)0.9 _d 0)dm/cheap_pr1)
./pkg/cheapaml/cheapaml.F	582	CHEAPAML	cheapPrecip(i,j,bi,bj) = precip*1200/CheapHgrid(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	583	CHEAPAML	entrain = cdq(i,j)q0.25
./pkg/cheapaml/cheapaml.F	586	CHEAPAML	gqair(i,j,bi,bj) = (evp(i,j)-entrain)/CheapHgrid(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	587	CHEAPAML	& /rhoa*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	588	CHEAPAML	EmPmR(i,j,bi,bj) = ( EmPmR(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	589	CHEAPAML	& -cheapPrecip(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	590	CHEAPAML	& )*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F	605	CHEAPAML	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	607	CHEAPAML	dtemp=tr(i,j,bi,bj)-Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	608	CHEAPAML	Tair(i,j,bi,bj)=Tair(i,j,bi,bj)+dtemp*xrelf(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	620	CHEAPAML	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	622	CHEAPAML	dq=qr(i,j,bi,bj)-qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	623	CHEAPAML	qair(i,j,bi,bj)=qair(i,j,bi,bj)+dq*xrelf(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	624	CHEAPAML	IF (qair(i,j,bi,bj).LT.0.0) qair(i,j,bi,bj) = 0.0 _d 0
./pkg/cheapaml/cheapaml.F	632	CHEAPAML	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	634	CHEAPAML	dtr=CheaptracerR(i,j,bi,bj)-Cheaptracer(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	635	CHEAPAML	Cheaptracer(i,j,bi,bj) = Cheaptracer(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	636	CHEAPAML	& + dtr*xrelf(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	713	CHEAPAML	DO j = 1-OLy+1,sNy+OLy
./pkg/cheapaml/cheapaml.F	715	CHEAPAML	fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F	716	CHEAPAML	& *( surfDrag(i-1,j,bi,bj) + surfDrag(i,j,bi,bj) )
./pkg/cheapaml/cheapaml.F	717	CHEAPAML	& *( uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) )
./pkg/cheapaml/cheapaml.F	718	CHEAPAML	fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F	719	CHEAPAML	& *( surfDrag(i,j-1,bi,bj) + surfDrag(i,j,bi,bj) )
./pkg/cheapaml/cheapaml.F	720	CHEAPAML	& *( vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) )
./pkg/cheapaml/cheapaml.F	724	CHEAPAML	DO j = 1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	726	CHEAPAML	fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F	727	CHEAPAML	& *( surfDrag(i-1,j,bi,bj)
./pkg/cheapaml/cheapaml.F	728	CHEAPAML	& *( uWind(i-1,j,bi,bj)-uVel(i-1,j,1,bi,bj) )
./pkg/cheapaml/cheapaml.F	729	CHEAPAML	& + surfDrag(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	730	CHEAPAML	& *( uWind(i,j,bi,bj) - uVel(i,j,1,bi,bj) ) )
./pkg/cheapaml/cheapaml.F	733	CHEAPAML	DO j = 1-OLy+1,sNy+OLy
./pkg/cheapaml/cheapaml.F	735	CHEAPAML	fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F	736	CHEAPAML	& *( surfDrag(i,j-1,bi,bj)
./pkg/cheapaml/cheapaml.F	737	CHEAPAML	& *( vWind(i,j-1,bi,bj)-vVel(i,j-1,1,bi,bj) )
./pkg/cheapaml/cheapaml.F	738	CHEAPAML	& + surfDrag(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F	739	CHEAPAML	& *( vWind(i,j,bi,bj) - vVel(i,j,1,bi,bj) ) )
./pkg/cheapaml/cheapaml.F	745	CHEAPAML	DO j = 1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml.F	747	CHEAPAML	fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F	748	CHEAPAML	& *( ustress(i,j,bi,bj) + ustress(i-1,j,bi,bj) )
./pkg/cheapaml/cheapaml.F	751	CHEAPAML	DO j = 1-OLy+1,sNy+OLy
./pkg/cheapaml/cheapaml.F	753	CHEAPAML	fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F	754	CHEAPAML	& *( vstress(i,j,bi,bj) + vstress(i,j-1,bi,bj) )
./pkg/cheapaml/cheapaml_coare3_flux.F	107	CHEAPAML_COARE3_FLUX	q=qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_coare3_flux.F	113	CHEAPAML_COARE3_FLUX	cwave=gravity*wavesp(i,j,bi,bj)/twoPI
./pkg/cheapaml/cheapaml_coare3_flux.F	114	CHEAPAML_COARE3_FLUX	lwave=cwave*wavesp(i,j,bi,bj)
./pkg/cheapaml/cheapaml_coare3_flux.F	123	CHEAPAML_COARE3_FLUX	u = windSq(i,j)
./pkg/cheapaml/cheapaml_coare3_flux.F	182	CHEAPAML_COARE3_FLUX	zo=1200. _d 0wavesh(i,j,bi,bj)(wavesh(i,j,bi,bj)/lwave)**4.5
./pkg/cheapaml/cheapaml_coare3_flux.F	18	CHEAPAML_COARE3_FLUX	I i,j,bi,bj, iceOrNot,
./pkg/cheapaml/cheapaml_coare3_flux.F	192	CHEAPAML_COARE3_FLUX	& ' , in: i,j,bi,bj,thid=', i, j, bi, bj, myThid
./pkg/cheapaml/cheapaml_coare3_flux.F	42	CHEAPAML_COARE3_FLUX	INTEGER i,j,bi,bj
./pkg/cheapaml/cheapaml_coare3_flux.F	79	CHEAPAML_COARE3_FLUX	tsw = tSurf(i,j)
./pkg/cheapaml/cheapaml_coare3_flux.F	80	CHEAPAML_COARE3_FLUX	Tas = Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_copy_edges.F	45	CHEAPAML_COPY_EDGES	INTEGER i, j, iG, jG
./pkg/cheapaml/cheapaml_copy_edges.F	56	CHEAPAML_COPY_EDGES	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_copy_edges.F	58	CHEAPAML_COPY_EDGES	trcFld(i,j) = refFld(i,j)
./pkg/cheapaml/cheapaml_copy_edges.F	64	CHEAPAML_COPY_EDGES	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_copy_edges.F	66	CHEAPAML_COPY_EDGES	trcFld(i,j) = refFld(i,j)
./pkg/cheapaml/cheapaml_copy_edges.F	75	CHEAPAML_COPY_EDGES	DO j=1-OLy,1
./pkg/cheapaml/cheapaml_copy_edges.F	77	CHEAPAML_COPY_EDGES	trcFld(i,j) = refFld(i,j)
./pkg/cheapaml/cheapaml_copy_edges.F	83	CHEAPAML_COPY_EDGES	DO j=sNy,sNy+OLy
./pkg/cheapaml/cheapaml_copy_edges.F	85	CHEAPAML_COPY_EDGES	trcFld(i,j) = refFld(i,j)
./pkg/cheapaml/cheapaml_fields_load.F	101	CHEAPAML_FIELDS_LOAD	INTEGER i, j, iG, jG
./pkg/cheapaml/cheapaml_fields_load.F	132	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	134	CHEAPAML_FIELDS_LOAD	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F	137	CHEAPAML_FIELDS_LOAD	Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F	146	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	148	CHEAPAML_FIELDS_LOAD	local = solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	150	CHEAPAML_FIELDS_LOAD	TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F	159	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	161	CHEAPAML_FIELDS_LOAD	local = Tr(i,j,bi,bj)+celsius2K
./pkg/cheapaml/cheapaml_fields_load.F	163	CHEAPAML_FIELDS_LOAD	qr(i,j,bi,bj) = 0.8 _d 0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F	172	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	174	CHEAPAML_FIELDS_LOAD	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F	176	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F	179	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	181	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_fields_load.F	191	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	193	CHEAPAML_FIELDS_LOAD	CheaptracerR(i,j,bi,bj) = 290. _d 0
./pkg/cheapaml/cheapaml_fields_load.F	209	CHEAPAML_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_fields_load.F	211	CHEAPAML_FIELDS_LOAD	trair0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	212	CHEAPAML_FIELDS_LOAD	trair1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	213	CHEAPAML_FIELDS_LOAD	qrair0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	214	CHEAPAML_FIELDS_LOAD	qrair1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	215	CHEAPAML_FIELDS_LOAD	solar0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	216	CHEAPAML_FIELDS_LOAD	solar1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	217	CHEAPAML_FIELDS_LOAD	uWind0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	218	CHEAPAML_FIELDS_LOAD	uWind1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	219	CHEAPAML_FIELDS_LOAD	vWind0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	220	CHEAPAML_FIELDS_LOAD	vWind1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	221	CHEAPAML_FIELDS_LOAD	cheaph0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	222	CHEAPAML_FIELDS_LOAD	cheaph1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	223	CHEAPAML_FIELDS_LOAD	cheapcl0(i,j,bi,bj) = 0.5
./pkg/cheapaml/cheapaml_fields_load.F	224	CHEAPAML_FIELDS_LOAD	cheapcl1(i,j,bi,bj) = 0.5
./pkg/cheapaml/cheapaml_fields_load.F	225	CHEAPAML_FIELDS_LOAD	cheaplw0(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	226	CHEAPAML_FIELDS_LOAD	cheaplw1(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	227	CHEAPAML_FIELDS_LOAD	ustress0(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	228	CHEAPAML_FIELDS_LOAD	ustress1(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	229	CHEAPAML_FIELDS_LOAD	vstress0(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	230	CHEAPAML_FIELDS_LOAD	vstress1(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	231	CHEAPAML_FIELDS_LOAD	wavesh0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	232	CHEAPAML_FIELDS_LOAD	wavesh1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	233	CHEAPAML_FIELDS_LOAD	wavesp0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	234	CHEAPAML_FIELDS_LOAD	wavesp1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	237	CHEAPAML_FIELDS_LOAD	CheaptracerR0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	238	CHEAPAML_FIELDS_LOAD	CheaptracerR1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F	375	CHEAPAML_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_fields_load.F	377	CHEAPAML_FIELDS_LOAD	TR(i,j,bi,bj) = bWght*trair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	378	CHEAPAML_FIELDS_LOAD	& + aWght*trair1(i,j,bi,bj) !+273.15
./pkg/cheapaml/cheapaml_fields_load.F	379	CHEAPAML_FIELDS_LOAD	qr(i,j,bi,bj) = bWght*qrair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	380	CHEAPAML_FIELDS_LOAD	& + aWght*qrair1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	381	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj) = bWght*uWind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	382	CHEAPAML_FIELDS_LOAD	& + aWght*uWind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	383	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj) = bWght*vWind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	384	CHEAPAML_FIELDS_LOAD	& + aWght*vWind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	385	CHEAPAML_FIELDS_LOAD	solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	386	CHEAPAML_FIELDS_LOAD	& + aWght*solar1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	388	CHEAPAML_FIELDS_LOAD	ustress(i,j,bi,bj) = bWght*ustress0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	389	CHEAPAML_FIELDS_LOAD	& + aWght*ustress1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	390	CHEAPAML_FIELDS_LOAD	vstress(i,j,bi,bj) = bWght*vstress0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	391	CHEAPAML_FIELDS_LOAD	& + aWght*vstress1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	394	CHEAPAML_FIELDS_LOAD	CheapHgrid(i,j,bi,bj) = bWght*cheaph0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	395	CHEAPAML_FIELDS_LOAD	& + aWght*cheaph1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	398	CHEAPAML_FIELDS_LOAD	cheapclouds(i,j,bi,bj) = bWght*cheapcl0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	399	CHEAPAML_FIELDS_LOAD	& + aWght*cheapcl1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	402	CHEAPAML_FIELDS_LOAD	cheapdlongwave(i,j,bi,bj) = bWght*cheaplw0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	403	CHEAPAML_FIELDS_LOAD	& + aWght*cheaplw1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	406	CHEAPAML_FIELDS_LOAD	CheaptracerR(i,j,bi,bj) = bWght*CheaptracerR0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	407	CHEAPAML_FIELDS_LOAD	& + aWght*CheaptracerR1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	411	CHEAPAML_FIELDS_LOAD	wavesh(i,j,bi,bj) = bWght*wavesh0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	412	CHEAPAML_FIELDS_LOAD	& + aWght*wavesh1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	415	CHEAPAML_FIELDS_LOAD	wavesp(i,j,bi,bj) = bWght*wavesp0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	416	CHEAPAML_FIELDS_LOAD	& + aWght*wavesp1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	419	CHEAPAML_FIELDS_LOAD	u = uWind(i,j,bi,bj)2 + vWind(i,j,bi,bj)2
./pkg/cheapaml/cheapaml_fields_load.F	421	CHEAPAML_FIELDS_LOAD	wavesp(i,j,bi,bj) = 0.729 _d 0 * u
./pkg/cheapaml/cheapaml_fields_load.F	422	CHEAPAML_FIELDS_LOAD	wavesh(i,j,bi,bj) = 0.018 _d 0 * uu(1. + .015 _d 0 *u)
./pkg/cheapaml/cheapaml_fields_load.F	442	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	444	CHEAPAML_FIELDS_LOAD	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F	446	CHEAPAML_FIELDS_LOAD	Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F	459	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	461	CHEAPAML_FIELDS_LOAD	local = solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	463	CHEAPAML_FIELDS_LOAD	TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F	478	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	480	CHEAPAML_FIELDS_LOAD	local = Tr(i,j,bi,bj) + celsius2K
./pkg/cheapaml/cheapaml_fields_load.F	482	CHEAPAML_FIELDS_LOAD	qr(i,j,bi,bj) = 0.8 _d 0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F	495	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	497	CHEAPAML_FIELDS_LOAD	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F	503	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F	515	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	517	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_fields_load.F	546	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	548	CHEAPAML_FIELDS_LOAD	CheaptracerR(i,j,bi,bj)=290. _d 0
./pkg/cheapaml/cheapaml_fields_load.F	565	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	567	CHEAPAML_FIELDS_LOAD	u = uWind(i,j,bi,bj)2 + vWind(i,j,bi,bj)2
./pkg/cheapaml/cheapaml_fields_load.F	569	CHEAPAML_FIELDS_LOAD	wavesp(i,j,bi,bj)=0.729 _d 0 * u
./pkg/cheapaml/cheapaml_fields_load.F	570	CHEAPAML_FIELDS_LOAD	wavesh(i,j,bi,bj)=0.018 _d 0 * uu(1. + .015 _d 0 *u)
./pkg/cheapaml/cheapaml_fields_load.F	588	CHEAPAML_FIELDS_LOAD	DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F	590	CHEAPAML_FIELDS_LOAD	Cheapclouds(i,j,bi,bj)=0.5
./pkg/cheapaml/cheapaml_fields_load.F	620	CHEAPAML_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_fields_load.F	621	CHEAPAML_FIELDS_LOAD	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F	627	CHEAPAML_FIELDS_LOAD	Tr(i,j,bi,bj)=Tr(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	628	CHEAPAML_FIELDS_LOAD	qr(i,j,bi,bj)=qr(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	629	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj)=uWind(2,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	630	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj)=vWind(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	631	CHEAPAML_FIELDS_LOAD	Solar(i,j,bi,bj)=Solar(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	633	CHEAPAML_FIELDS_LOAD	ustress(i,j,bi,bj)=ustress(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	634	CHEAPAML_FIELDS_LOAD	vstress(i,j,bi,bj)=vstress(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	637	CHEAPAML_FIELDS_LOAD	CheaptracerR(i,j,bi,bj)=CheaptracerR(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	640	CHEAPAML_FIELDS_LOAD	wavesp(i,j,bi,bj)=wavesp(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	641	CHEAPAML_FIELDS_LOAD	wavesh(i,j,bi,bj)=wavesh(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	644	CHEAPAML_FIELDS_LOAD	Cheapclouds(i,j,bi,bj)=Cheapclouds(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	647	CHEAPAML_FIELDS_LOAD	Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	652	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj)=uWind(2,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	656	CHEAPAML_FIELDS_LOAD	Tr(i,j,bi,bj)=Tr(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	657	CHEAPAML_FIELDS_LOAD	qr(i,j,bi,bj)=qr(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	658	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj)=uWind(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	659	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj)=vWind(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	660	CHEAPAML_FIELDS_LOAD	Solar(i,j,bi,bj)=Solar(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	662	CHEAPAML_FIELDS_LOAD	ustress(i,j,bi,bj)=ustress(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	663	CHEAPAML_FIELDS_LOAD	vstress(i,j,bi,bj)=vstress(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	666	CHEAPAML_FIELDS_LOAD	CheaptracerR(i,j,bi,bj)=CheaptracerR(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	669	CHEAPAML_FIELDS_LOAD	wavesp(i,j,bi,bj)=wavesp(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	670	CHEAPAML_FIELDS_LOAD	wavesh(i,j,bi,bj)=wavesh(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	673	CHEAPAML_FIELDS_LOAD	Cheapclouds(i,j,bi,bj)=Cheapclouds(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	676	CHEAPAML_FIELDS_LOAD	Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	681	CHEAPAML_FIELDS_LOAD	Tr(i,j,bi,bj)=Tr(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	682	CHEAPAML_FIELDS_LOAD	qr(i,j,bi,bj)=qr(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	683	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj)=uWind(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	684	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj)=vWind(i,2,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	685	CHEAPAML_FIELDS_LOAD	Solar(i,j,bi,bj)=Solar(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	687	CHEAPAML_FIELDS_LOAD	ustress(i,j,bi,bj)=ustress(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	688	CHEAPAML_FIELDS_LOAD	vstress(i,j,bi,bj)=vstress(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	691	CHEAPAML_FIELDS_LOAD	CheaptracerR(i,j,bi,bj)=CheaptracerR(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	694	CHEAPAML_FIELDS_LOAD	Cheapclouds(i,j,bi,bj)=Cheapclouds(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	697	CHEAPAML_FIELDS_LOAD	Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	700	CHEAPAML_FIELDS_LOAD	wavesp(i,j,bi,bj)=wavesp(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	701	CHEAPAML_FIELDS_LOAD	wavesh(i,j,bi,bj)=wavesh(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	706	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj)=vWind(i,2,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	710	CHEAPAML_FIELDS_LOAD	Tr(i,j,bi,bj)=Tr(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	711	CHEAPAML_FIELDS_LOAD	qr(i,j,bi,bj)=qr(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	712	CHEAPAML_FIELDS_LOAD	uWind(i,j,bi,bj)=uWind(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	713	CHEAPAML_FIELDS_LOAD	vWind(i,j,bi,bj)=vWind(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	714	CHEAPAML_FIELDS_LOAD	Solar(i,j,bi,bj)=Solar(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	716	CHEAPAML_FIELDS_LOAD	ustress(i,j,bi,bj)=ustress(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	717	CHEAPAML_FIELDS_LOAD	vstress(i,j,bi,bj)=vstress(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	720	CHEAPAML_FIELDS_LOAD	CheaptracerR(i,j,bi,bj)=CheaptracerR(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	723	CHEAPAML_FIELDS_LOAD	wavesp(i,j,bi,bj)=wavesp(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	724	CHEAPAML_FIELDS_LOAD	wavesh(i,j,bi,bj)=wavesh(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	727	CHEAPAML_FIELDS_LOAD	Cheapclouds(i,j,bi,bj)=Cheapclouds(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F	730	CHEAPAML_FIELDS_LOAD	Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F	48	CHEAPAML_GAD_C2_ADV_R	INTEGER i,j
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F	53	CHEAPAML_GAD_C2_ADV_R	DO j=1,sNy
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F	55	CHEAPAML_GAD_C2_ADV_R	wT(i,j) = rTrans(i,j)*
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F	56	CHEAPAML_GAD_C2_ADV_R	& (Tracer(i,j)+Tracer(i,j))*0.5 _d 0
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	53	CHEAPAML_GAD_DST3FL_ADV_R	INTEGER i,j
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	66	CHEAPAML_GAD_DST3FL_ADV_R	DO j=1,sNy
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	69	CHEAPAML_GAD_DST3FL_ADV_R	wLoc = rTrans(i,j)
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	85	CHEAPAML_GAD_DST3FL_ADV_R	wT(i,j)=
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	86	CHEAPAML_GAD_DST3FL_ADV_R	& 0.5*(rTrans(i,j)+ABS(rTrans(i,j)))
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	87	CHEAPAML_GAD_DST3FL_ADV_R	& ( tracer(i,j ) + psiMRj )
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	88	CHEAPAML_GAD_DST3FL_ADV_R	& +0.5*(rTrans(i,j)-ABS(rTrans(i,j)))
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F	89	CHEAPAML_GAD_DST3FL_ADV_R	& ( tracer(i,j) - psiPRj )
./pkg/cheapaml/cheapaml_init_varia.F	106	CHEAPAML_INIT_VARIA	DO j=1,sNy
./pkg/cheapaml/cheapaml_init_varia.F	108	CHEAPAML_INIT_VARIA	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_init_varia.F	113	CHEAPAML_INIT_VARIA	Tair(i,j,bi,bj) = localt
./pkg/cheapaml/cheapaml_init_varia.F	135	CHEAPAML_INIT_VARIA	DO j=1,sNy
./pkg/cheapaml/cheapaml_init_varia.F	137	CHEAPAML_INIT_VARIA	local= Tair(i,j,bi,bj)+celsius2K
./pkg/cheapaml/cheapaml_init_varia.F	139	CHEAPAML_INIT_VARIA	qair(i,j,bi,bj)=0.8 _d 0*ssqa
./pkg/cheapaml/cheapaml_init_varia.F	161	CHEAPAML_INIT_VARIA	DO j=1,sNy
./pkg/cheapaml/cheapaml_init_varia.F	163	CHEAPAML_INIT_VARIA	Cheaptracer(i,j,bi,bj)=290.0 _d 0
./pkg/cheapaml/cheapaml_init_varia.F	193	CHEAPAML_INIT_VARIA	DO j=1,sNy
./pkg/cheapaml/cheapaml_init_varia.F	197	CHEAPAML_INIT_VARIA	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_init_varia.F	218	CHEAPAML_INIT_VARIA	Cheapmask(i,j,bi,bj) = xmf*cheapaml_taurelax
./pkg/cheapaml/cheapaml_init_varia.F	228	CHEAPAML_INIT_VARIA	DO j=1,sNy
./pkg/cheapaml/cheapaml_init_varia.F	230	CHEAPAML_INIT_VARIA	IF( maskC(i,j,1,bi,bj).EQ.0. _d 0) THEN
./pkg/cheapaml/cheapaml_init_varia.F	231	CHEAPAML_INIT_VARIA	Cheapmask(i,j,bi,bj)=cheapaml_taurelax
./pkg/cheapaml/cheapaml_init_varia.F	233	CHEAPAML_INIT_VARIA	ELSEIF( Cheapmask(i,j,bi,bj).EQ.0. _d 0) THEN
./pkg/cheapaml/cheapaml_init_varia.F	234	CHEAPAML_INIT_VARIA	Cheapmask(i,j,bi,bj)=cheapaml_taurelaxocean
./pkg/cheapaml/cheapaml_init_varia.F	245	CHEAPAML_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_init_varia.F	247	CHEAPAML_INIT_VARIA	IF (Cheapmask(i,j,bi,bj).NE.0.) THEN
./pkg/cheapaml/cheapaml_init_varia.F	248	CHEAPAML_INIT_VARIA	xgs(i,j,bi,bj)=1. _d 0/Cheapmask(i,j,bi,bj)/8.64 _d 4
./pkg/cheapaml/cheapaml_init_varia.F	250	CHEAPAML_INIT_VARIA	xgs(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	252	CHEAPAML_INIT_VARIA	xrelf(i,j,bi,bj)= xgs(i,j,bi,bj)*deltaT
./pkg/cheapaml/cheapaml_init_varia.F	253	CHEAPAML_INIT_VARIA	& /(1. _d 0+xgs(i,j,bi,bj)*deltaT)
./pkg/cheapaml/cheapaml_init_varia.F	272	CHEAPAML_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_init_varia.F	274	CHEAPAML_INIT_VARIA	cheapHgrid(i,j,bi,bj) = cheapaml_h
./pkg/cheapaml/cheapaml_init_varia.F	301	CHEAPAML_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_init_varia.F	302	CHEAPAML_INIT_VARIA	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_init_varia.F	306	CHEAPAML_INIT_VARIA	Tair(i,j,bi,bj)=Tair(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	307	CHEAPAML_INIT_VARIA	qair(i,j,bi,bj)=qair(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	308	CHEAPAML_INIT_VARIA	Cheaptracer(i,j,bi,bj)=Cheaptracer(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	309	CHEAPAML_INIT_VARIA	Cheapmask(i,j,bi,bj)=Cheapmask(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	310	CHEAPAML_INIT_VARIA	CheapHgrid(i,j,bi,bj)=CheapHgrid(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	312	CHEAPAML_INIT_VARIA	Tair(i,j,bi,bj)=Tair(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	313	CHEAPAML_INIT_VARIA	qair(i,j,bi,bj)=qair(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	314	CHEAPAML_INIT_VARIA	Cheaptracer(i,j,bi,bj)=Cheaptracer(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	315	CHEAPAML_INIT_VARIA	Cheapmask(i,j,bi,bj)=Cheapmask(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	316	CHEAPAML_INIT_VARIA	CheapHgrid(i,j,bi,bj)=CheapHgrid(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	318	CHEAPAML_INIT_VARIA	Tair(i,j,bi,bj)=Tair(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	319	CHEAPAML_INIT_VARIA	qair(i,j,bi,bj)=qair(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	320	CHEAPAML_INIT_VARIA	Cheaptracer(i,j,bi,bj)=Cheaptracer(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	321	CHEAPAML_INIT_VARIA	CheapHgrid(i,j,bi,bj)=CheapHgrid(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	323	CHEAPAML_INIT_VARIA	Tair(i,j,bi,bj)=Tair(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	324	CHEAPAML_INIT_VARIA	qair(i,j,bi,bj)=qair(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	325	CHEAPAML_INIT_VARIA	Cheaptracer(i,j,bi,bj)=Cheaptracer(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	326	CHEAPAML_INIT_VARIA	CheapHgrid(i,j,bi,bj)=CheapHgrid(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F	41	CHEAPAML_INIT_VARIA	INTEGER i, j
./pkg/cheapaml/cheapaml_init_varia.F	59	CHEAPAML_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/cheapaml_init_varia.F	61	CHEAPAML_INIT_VARIA	Tr (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	62	CHEAPAML_INIT_VARIA	qr (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	63	CHEAPAML_INIT_VARIA	Tair (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	64	CHEAPAML_INIT_VARIA	gTairm (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	65	CHEAPAML_INIT_VARIA	qair (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	66	CHEAPAML_INIT_VARIA	gqairm (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	67	CHEAPAML_INIT_VARIA	uWind (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	68	CHEAPAML_INIT_VARIA	vWind (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	69	CHEAPAML_INIT_VARIA	wWind (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	70	CHEAPAML_INIT_VARIA	solar (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	71	CHEAPAML_INIT_VARIA	ustress (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	72	CHEAPAML_INIT_VARIA	vstress (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	73	CHEAPAML_INIT_VARIA	wavesh (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	74	CHEAPAML_INIT_VARIA	wavesp (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	75	CHEAPAML_INIT_VARIA	Cheapmask (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	76	CHEAPAML_INIT_VARIA	xgs (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	77	CHEAPAML_INIT_VARIA	xrelf (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	78	CHEAPAML_INIT_VARIA	cheapPrecip (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	79	CHEAPAML_INIT_VARIA	CheapHgrid (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	81	CHEAPAML_INIT_VARIA	Cheapclouds (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	82	CHEAPAML_INIT_VARIA	Cheapdlongwave(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	83	CHEAPAML_INIT_VARIA	Cheaptracer (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	84	CHEAPAML_INIT_VARIA	CheaptracerR (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F	85	CHEAPAML_INIT_VARIA	gCheaptracerm (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_lanl_flux.F	100	CHEAPAML_LANL_FLUX	if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then
./pkg/cheapaml/cheapaml_lanl_flux.F	101	CHEAPAML_LANL_FLUX	if (snowheight(i,j,bi,bj).gt.3. _d -1) then
./pkg/cheapaml/cheapaml_lanl_flux.F	112	CHEAPAML_LANL_FLUX	uw=uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F	113	CHEAPAML_LANL_FLUX	vw=vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F	117	CHEAPAML_LANL_FLUX	ustress(i,j,bi,bj)= rhoacheapaml_BulkCdnuss*uw
./pkg/cheapaml/cheapaml_lanl_flux.F	118	CHEAPAML_LANL_FLUX	vstress(i,j,bi,bj)= rhoacheapaml_BulkCdnuss*vw
./pkg/cheapaml/cheapaml_lanl_flux.F	11	CHEAPAML_LANL_FLUX	I i,j,bi,bj,
./pkg/cheapaml/cheapaml_lanl_flux.F	121	CHEAPAML_LANL_FLUX	ustress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_lanl_flux.F	122	CHEAPAML_LANL_FLUX	vstress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_lanl_flux.F	127	CHEAPAML_LANL_FLUX	to=theta(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F	128	CHEAPAML_LANL_FLUX	t=Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F	132	CHEAPAML_LANL_FLUX	ttt=tta-( cheaphgrid(i,j,bi,bj)- zref)*gamma_blk
./pkg/cheapaml/cheapaml_lanl_flux.F	133	CHEAPAML_LANL_FLUX	pt=p0(1-gamma_blkcheaphgrid(i,j,bi,bj)/ttas)
./pkg/cheapaml/cheapaml_lanl_flux.F	143	CHEAPAML_LANL_FLUX	q=qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F	35	CHEAPAML_LANL_FLUX	INTEGER i,j,bi,bj
./pkg/cheapaml/cheapaml_lanl_flux.F	98	CHEAPAML_LANL_FLUX	if (maskC(i,j,1,bi,bj).ne.0. _d 0) then
./pkg/cheapaml/cheapaml_read_pickup.F	167	CHEAPAML_READ_PICKUP	DO j=1,nMissing
./pkg/cheapaml/cheapaml_read_pickup.F	168	CHEAPAML_READ_PICKUP	IF ( missFldList(j).EQ.'gTairNm1' ) THEN
./pkg/cheapaml/cheapaml_read_pickup.F	170	CHEAPAML_READ_PICKUP	ELSEIF ( missFldList(j).EQ.'gQairNm1' ) THEN
./pkg/cheapaml/cheapaml_read_pickup.F	172	CHEAPAML_READ_PICKUP	ELSEIF ( missFldList(j).EQ.'gTracNm1' ) THEN
./pkg/cheapaml/cheapaml_read_pickup.F	47	CHEAPAML_READ_PICKUP	INTEGER j, nj, ioUnit
./pkg/cheapaml/cheapaml_seaice.F	136	CHEAPAML_SEAICE	DO j = 1-OLy, sNy+OLy
./pkg/cheapaml/cheapaml_seaice.F	138	CHEAPAML_SEAICE	uRelWind(i,j) = uWind(i,j)
./pkg/cheapaml/cheapaml_seaice.F	139	CHEAPAML_SEAICE	vRelWind(i,j) = vWind(i,j)
./pkg/cheapaml/cheapaml_seaice.F	144	CHEAPAML_SEAICE	DO j = 1-OLy, sNy+OLy
./pkg/cheapaml/cheapaml_seaice.F	146	CHEAPAML_SEAICE	uRelWind(i,j) = uRelWind(i,j)-uIce(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F	147	CHEAPAML_SEAICE	vRelWind(i,j) = vRelWind(i,j)-vIce(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F	152	CHEAPAML_SEAICE	DO j = jMin,jMax
./pkg/cheapaml/cheapaml_seaice.F	154	CHEAPAML_SEAICE	windSq(i,j) = ( uRelWind( i ,j)*uRelWind( i ,j)
./pkg/cheapaml/cheapaml_seaice.F	155	CHEAPAML_SEAICE	& + uRelWind(i+1,j)*uRelWind(i+1,j)
./pkg/cheapaml/cheapaml_seaice.F	156	CHEAPAML_SEAICE	& + vRelWind(i, j )*vRelWind(i, j )
./pkg/cheapaml/cheapaml_seaice.F	157	CHEAPAML_SEAICE	& + vRelWind(i,j+1)*vRelWind(i,j+1)
./pkg/cheapaml/cheapaml_seaice.F	172	CHEAPAML_SEAICE	DO j = jMin, jMax
./pkg/cheapaml/cheapaml_seaice.F	174	CHEAPAML_SEAICE	IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/cheapaml_seaice.F	176	CHEAPAML_SEAICE	netSW(i,j) = swDown(i,j)
./pkg/cheapaml/cheapaml_seaice.F	177	CHEAPAML_SEAICE	& *(1. _d 0 - siceAlb(i,j,bi,bj))
./pkg/cheapaml/cheapaml_seaice.F	179	CHEAPAML_SEAICE	netSW(i,j) = swDown(i,j)
./pkg/cheapaml/cheapaml_seaice.F	187	CHEAPAML_SEAICE	DO j = jMin, jMax
./pkg/cheapaml/cheapaml_seaice.F	190	CHEAPAML_SEAICE	IF ( snowHeight(i,j,bi,bj).GT.3. _d -1 ) THEN
./pkg/cheapaml/cheapaml_seaice.F	195	CHEAPAML_SEAICE	Tsurf(i,j) = 0.
./pkg/cheapaml/cheapaml_seaice.F	197	CHEAPAML_SEAICE	I i, j, bi, bj, iceOrNot,
./pkg/cheapaml/cheapaml_seaice.F	199	CHEAPAML_SEAICE	O fsha0(i,j), flha(i,j), evp_0(i,j), xolw0(i,j),
./pkg/cheapaml/cheapaml_seaice.F	200	CHEAPAML_SEAICE	O ssqt(i,j), q100(i,j), cdq(i,j), cdu,
./pkg/cheapaml/cheapaml_seaice.F	203	CHEAPAML_SEAICE	sFlx(i,j,0) = lwDown(i,j)- xolw0(i,j)
./pkg/cheapaml/cheapaml_seaice.F	204	CHEAPAML_SEAICE	& - fsha0(i,j) - evp_0(i,j)*LatentHeat
./pkg/cheapaml/cheapaml_seaice.F	206	CHEAPAML_SEAICE	Tsurf(i,j) = Tsrf(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F	208	CHEAPAML_SEAICE	I i, j, bi, bj, iceOrNot,
./pkg/cheapaml/cheapaml_seaice.F	210	CHEAPAML_SEAICE	O fsha(i,j), flha(i,j), evp(i,j), xolw(i,j),
./pkg/cheapaml/cheapaml_seaice.F	211	CHEAPAML_SEAICE	O ssqt(i,j), q100(i,j), cdq(i,j), cdu,
./pkg/cheapaml/cheapaml_seaice.F	212	CHEAPAML_SEAICE	O dShdTs(i,j), dEvdTs(i,j), dLwdTs(i,j), dumArg(4),
./pkg/cheapaml/cheapaml_seaice.F	214	CHEAPAML_SEAICE	sFlx(i,j,1) = lwDown(i,j)- xolw(i,j)
./pkg/cheapaml/cheapaml_seaice.F	215	CHEAPAML_SEAICE	& - fsha(i,j) - evp(i,j)*LatentHeat
./pkg/cheapaml/cheapaml_seaice.F	216	CHEAPAML_SEAICE	sFlx(i,j,2) = -dLwdTs(i,j)
./pkg/cheapaml/cheapaml_seaice.F	217	CHEAPAML_SEAICE	& - dShdTs(i,j) - dEvdTs(i,j)*LatentHeat
./pkg/cheapaml/cheapaml_seaice.F	230	CHEAPAML_SEAICE	DO j = jMin, jMax
./pkg/cheapaml/cheapaml_seaice.F	232	CHEAPAML_SEAICE	iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F	233	CHEAPAML_SEAICE	sw2oce (i,j) = icFlxSW(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F	234	CHEAPAML_SEAICE	IF ( dTsurf(i,j) .GT. 999. ) THEN
./pkg/cheapaml/cheapaml_seaice.F	236	CHEAPAML_SEAICE	Tsurf(i,j)= 0.
./pkg/cheapaml/cheapaml_seaice.F	237	CHEAPAML_SEAICE	fsha(i,j) = fsha0(i,j)
./pkg/cheapaml/cheapaml_seaice.F	238	CHEAPAML_SEAICE	flha(i,j) = evp_0(i,j)*LatentHeat
./pkg/cheapaml/cheapaml_seaice.F	239	CHEAPAML_SEAICE	evp(i,j) = evp_0(i,j)
./pkg/cheapaml/cheapaml_seaice.F	240	CHEAPAML_SEAICE	xolw(i,j) = xolw0(i,j)
./pkg/cheapaml/cheapaml_seaice.F	242	CHEAPAML_SEAICE	Tsurf(i,j)= Tsurf(i,j)+ dTsurf(i,j)
./pkg/cheapaml/cheapaml_seaice.F	243	CHEAPAML_SEAICE	fsha(i,j) = fsha(i,j) + dTsurf(i,j)*dShdTs(i,j)
./pkg/cheapaml/cheapaml_seaice.F	244	CHEAPAML_SEAICE	evp(i,j) = evp(i,j) + dTsurf(i,j)*dEvdTs(i,j)
./pkg/cheapaml/cheapaml_seaice.F	245	CHEAPAML_SEAICE	flha(i,j) = evp(i,j)*LatentHeat
./pkg/cheapaml/cheapaml_seaice.F	246	CHEAPAML_SEAICE	xolw(i,j) = xolw(i,j) + dTsurf(i,j)*dLwdTs(i,j)
./pkg/cheapaml/cheapaml_seaice.F	251	CHEAPAML_SEAICE	DO j = jMin, jMax
./pkg/cheapaml/cheapaml_seaice.F	254	CHEAPAML_SEAICE	icFrac = iceMask(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F	257	CHEAPAML_SEAICE	icFlxAtm(i,j,bi,bj) = netSW(i,j)
./pkg/cheapaml/cheapaml_seaice.F	258	CHEAPAML_SEAICE	& + lwDown(i,j)- xolw(i,j)
./pkg/cheapaml/cheapaml_seaice.F	259	CHEAPAML_SEAICE	& - fsha(i,j) - evp(i,j)*LVapor
./pkg/cheapaml/cheapaml_seaice.F	260	CHEAPAML_SEAICE	icFrwAtm(i,j,bi,bj) = evp(i,j)
./pkg/cheapaml/cheapaml_seaice.F	96	CHEAPAML_SEAICE	INTEGER i, j
./pkg/cheapaml/cheapaml_timestep.F	39	CHEAPAML_TIMESTEP	INTEGER i,j
./pkg/cheapaml/cheapaml_timestep.F	45	CHEAPAML_TIMESTEP	DO j=jMin,jMax
./pkg/cheapaml/cheapaml_timestep.F	47	CHEAPAML_TIMESTEP	tracer(i,j,bi,bj) = tracer(i,j,bi,bj)
./pkg/cheapaml/cheapaml_timestep.F	48	CHEAPAML_TIMESTEP	& + deltaTloc*gTracer(i,j,bi,bj)
./pkg/cheapaml/cheapaml_write_pickup.F	102	CHEAPAML_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'gQairNm1'
./pkg/cheapaml/cheapaml_write_pickup.F	106	CHEAPAML_WRITE_PICKUP	j = j + 1
./pkg/cheapaml/cheapaml_write_pickup.F	110	CHEAPAML_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'cTracer '
./pkg/cheapaml/cheapaml_write_pickup.F	111	CHEAPAML_WRITE_PICKUP	j = j + 1
./pkg/cheapaml/cheapaml_write_pickup.F	115	CHEAPAML_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'gTracNm1'
./pkg/cheapaml/cheapaml_write_pickup.F	119	CHEAPAML_WRITE_PICKUP	nWrFlds = j
./pkg/cheapaml/cheapaml_write_pickup.F	131	CHEAPAML_WRITE_PICKUP	j = 1
./pkg/cheapaml/cheapaml_write_pickup.F	134	CHEAPAML_WRITE_PICKUP	j = Nr
./pkg/cheapaml/cheapaml_write_pickup.F	140	CHEAPAML_WRITE_PICKUP	& 0, 0, j, ' ',
./pkg/cheapaml/cheapaml_write_pickup.F	55	CHEAPAML_WRITE_PICKUP	INTEGER j, nj, fp, lChar
./pkg/cheapaml/cheapaml_write_pickup.F	72	CHEAPAML_WRITE_PICKUP	j = 0
./pkg/cheapaml/cheapaml_write_pickup.F	79	CHEAPAML_WRITE_PICKUP	nj = -j*Nr
./pkg/cheapaml/cheapaml_write_pickup.F	81	CHEAPAML_WRITE_PICKUP	j = j + 1
./pkg/cheapaml/cheapaml_write_pickup.F	85	CHEAPAML_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Tair '
./pkg/cheapaml/cheapaml_write_pickup.F	86	CHEAPAML_WRITE_PICKUP	j = j + 1
./pkg/cheapaml/cheapaml_write_pickup.F	90	CHEAPAML_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'gTairNm1'
./pkg/cheapaml/cheapaml_write_pickup.F	93	CHEAPAML_WRITE_PICKUP	j = j + 1
./pkg/cheapaml/cheapaml_write_pickup.F	97	CHEAPAML_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'Qair '
./pkg/cheapaml/cheapaml_write_pickup.F	98	CHEAPAML_WRITE_PICKUP	j = j + 1
./pkg/cheapaml/gad_2d_calc_rhs.F	110	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	112	GAD_2D_CALC_RHS	df(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	118	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	120	GAD_2D_CALC_RHS	localT(i,j)=tracer(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F	123	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy-1
./pkg/cheapaml/gad_2d_calc_rhs.F	125	GAD_2D_CALC_RHS	localW(i,j)=-(recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F	126	GAD_2D_CALC_RHS	& *(uVel(i+1,j,bi,bj)-uVel(i,j,bi,bj))
./pkg/cheapaml/gad_2d_calc_rhs.F	127	GAD_2D_CALC_RHS	& + (vVel(i,j+1,bi,bj)-vVel(i,j,bi,bj))*recip_dyC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F	129	GAD_2D_CALC_RHS	wvel(i,j,bi,bj) = localW(i,j)/2. _d 0 /zu
./pkg/cheapaml/gad_2d_calc_rhs.F	134	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	136	GAD_2D_CALC_RHS	fZon(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	137	GAD_2D_CALC_RHS	af(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	143	GAD_2D_CALC_RHS	DO j=1,sNy
./pkg/cheapaml/gad_2d_calc_rhs.F	147	GAD_2D_CALC_RHS	IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F	149	GAD_2D_CALC_RHS	localT(ii,j)=localT(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	153	GAD_2D_CALC_RHS	IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F	155	GAD_2D_CALC_RHS	localT(ii,j)=localT(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	165	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	169	GAD_2D_CALC_RHS	maskLocW(i,j)=1. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	182	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	184	GAD_2D_CALC_RHS	fZon(i,j)=fZon(i,j)+af(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	192	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	194	GAD_2D_CALC_RHS	df(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	199	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	201	GAD_2D_CALC_RHS	fZon(i,j) = fZon(i,j) + df(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	207	GAD_2D_CALC_RHS	DO j=1,sNy
./pkg/cheapaml/gad_2d_calc_rhs.F	211	GAD_2D_CALC_RHS	IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F	213	GAD_2D_CALC_RHS	localT(ii,j)=tracer(ii,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F	217	GAD_2D_CALC_RHS	IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F	219	GAD_2D_CALC_RHS	localT(ii,j)=tracer(ii,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F	228	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	230	GAD_2D_CALC_RHS	fMer(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	231	GAD_2D_CALC_RHS	af(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	232	GAD_2D_CALC_RHS	df(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	240	GAD_2D_CALC_RHS	DO j=1,sNy
./pkg/cheapaml/gad_2d_calc_rhs.F	241	GAD_2D_CALC_RHS	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/gad_2d_calc_rhs.F	244	GAD_2D_CALC_RHS	IF (vVel(i,j,bi,bj).LT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F	246	GAD_2D_CALC_RHS	localT(i,jj)=localT(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	250	GAD_2D_CALC_RHS	IF (vVel(i,j+1,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F	252	GAD_2D_CALC_RHS	localT(i,jj)=localT(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	262	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	266	GAD_2D_CALC_RHS	maskLocS(i,j)= 1. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	279	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	281	GAD_2D_CALC_RHS	fMer(i,j) = fMer(i,j) + af(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	289	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	291	GAD_2D_CALC_RHS	df(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	296	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	298	GAD_2D_CALC_RHS	fMer(i,j) = fMer(i,j) + df(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	303	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F	305	GAD_2D_CALC_RHS	fVer(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	306	GAD_2D_CALC_RHS	af(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F	329	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy-1
./pkg/cheapaml/gad_2d_calc_rhs.F	331	GAD_2D_CALC_RHS	fVer(i,j) = fVer(i,j) + af(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	338	GAD_2D_CALC_RHS	DO j=1-OLy,sNy+OLy-1
./pkg/cheapaml/gad_2d_calc_rhs.F	340	GAD_2D_CALC_RHS	gTracer(i,j,bi,bj)=
./pkg/cheapaml/gad_2d_calc_rhs.F	341	GAD_2D_CALC_RHS	& -(recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F	342	GAD_2D_CALC_RHS	& *(fZon(i+1,j)-fZon(i,j))
./pkg/cheapaml/gad_2d_calc_rhs.F	343	GAD_2D_CALC_RHS	& +recip_dyC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F	344	GAD_2D_CALC_RHS	& *(fMer(i,j+1)-fMer(i,j))
./pkg/cheapaml/gad_2d_calc_rhs.F	345	GAD_2D_CALC_RHS	& +1. _d 0/2. _d 0/zu*fVer(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F	98	GAD_2D_CALC_RHS	INTEGER i,j,iG,jG, ii, jj
./pkg/cheapaml/gad_c2_2d_adv_x.F	45	GAD_C2_2D_ADV_X	INTEGER i,j
./pkg/cheapaml/gad_c2_2d_adv_x.F	48	GAD_C2_2D_ADV_X	DO j=1-Oly,sNy+Oly
./pkg/cheapaml/gad_c2_2d_adv_x.F	49	GAD_C2_2D_ADV_X	uT(1-Olx,j)=0.
./pkg/cheapaml/gad_c2_2d_adv_x.F	51	GAD_C2_2D_ADV_X	uT(i,j) =
./pkg/cheapaml/gad_c2_2d_adv_x.F	52	GAD_C2_2D_ADV_X	& uVel(i,j,bi,bj)(Tracer(i,j)+Tracer(i-1,j))0.5 _d 0
./pkg/cheapaml/gad_c2_2d_adv_y.F	45	GAD_C2_2D_ADV_Y	INTEGER i,j
./pkg/cheapaml/gad_c2_2d_adv_y.F	51	GAD_C2_2D_ADV_Y	DO j=1-Oly+1,sNy+Oly
./pkg/cheapaml/gad_c2_2d_adv_y.F	53	GAD_C2_2D_ADV_Y	vT(i,j) =
./pkg/cheapaml/gad_c2_2d_adv_y.F	54	GAD_C2_2D_ADV_Y	& vVel(i,j,bi,bj)(Tracer(i,j)+Tracer(i,j-1))0.5 _d 0
./pkg/cheapaml/gad_diff_2d_x.F	45	GAD_DIFF_2D_X	INTEGER i,j
./pkg/cheapaml/gad_diff_2d_x.F	48	GAD_DIFF_2D_X	DO j=1-Oly,sNy+Oly
./pkg/cheapaml/gad_diff_2d_x.F	49	GAD_DIFF_2D_X	dfx(1-Olx,j)=0.
./pkg/cheapaml/gad_diff_2d_x.F	51	GAD_DIFF_2D_X	dfx(i,j) = -diffKh
./pkg/cheapaml/gad_diff_2d_x.F	52	GAD_DIFF_2D_X	& *_recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_diff_2d_x.F	53	GAD_DIFF_2D_X	& *(Tracer(i,j)-Tracer(i-1,j))
./pkg/cheapaml/gad_diff_2d_x.F	54	GAD_DIFF_2D_X	& *CosFacU(j,bi,bj)
./pkg/cheapaml/gad_diff_2d_y.F	46	GAD_DIFF_2D_Y	INTEGER i,j,jG
./pkg/cheapaml/gad_diff_2d_y.F	52	GAD_DIFF_2D_Y	DO j=1-Oly+1,sNy+Oly
./pkg/cheapaml/gad_diff_2d_y.F	54	GAD_DIFF_2D_Y	dfy(i,j) = -diffKh
./pkg/cheapaml/gad_diff_2d_y.F	55	GAD_DIFF_2D_Y	$ *_recip_dyC(i,j,bi,bj)
./pkg/cheapaml/gad_diff_2d_y.F	56	GAD_DIFF_2D_Y	$ *(Tracer(i,j)-Tracer(i,j-1))
./pkg/cheapaml/gad_diff_2d_y.F	58	GAD_DIFF_2D_Y	$ *CosFacV(j,bi,bj)
./pkg/cheapaml/gad_diff_2d_y.F	60	GAD_DIFF_2D_Y	jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/gad_diff_2d_y.F	61	GAD_DIFF_2D_Y	if(jG.eq.ny.or.jG.eq.1)dfy(i,j)=0.d0
./pkg/compon_communic/comprecv_r4.F	20	COMPRECV_R4	integer i,j,ij,nx,ny
./pkg/compon_communic/comprecv_r4.F	70	COMPRECV_R4	do j=1,Nj
./pkg/compon_communic/comprecv_r4.F	72	COMPRECV_R4	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r4.F	73	COMPRECV_R4	arr(i,j)=r4buf(ij)
./pkg/compon_communic/comprecv_r4tiles.F	20	COMPRECV_R4TILES	integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r4tiles.F	77	COMPRECV_R4TILES	do j=1,Nj
./pkg/compon_communic/comprecv_r4tiles.F	79	COMPRECV_R4TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r4tiles.F	80	COMPRECV_R4TILES	arr(i,j,k,bi,bj)=r4buf(ij)
./pkg/compon_communic/comprecv_r8.F	20	COMPRECV_R8	integer i,j,ij,nx,ny
./pkg/compon_communic/comprecv_r8.F	70	COMPRECV_R8	do j=1,Nj
./pkg/compon_communic/comprecv_r8.F	72	COMPRECV_R8	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r8.F	73	COMPRECV_R8	arr(i,j)=r8buf(ij)
./pkg/compon_communic/comprecv_r8tiles.F	20	COMPRECV_R8TILES	integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r8tiles.F	77	COMPRECV_R8TILES	do j=1,Nj
./pkg/compon_communic/comprecv_r8tiles.F	79	COMPRECV_R8TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r8tiles.F	80	COMPRECV_R8TILES	arr(i,j,k,bi,bj)=r8buf(ij)
./pkg/compon_communic/compsend_r4.F	19	COMPSEND_R4	integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r4.F	35	COMPSEND_R4	do j=1,Nj
./pkg/compon_communic/compsend_r4.F	37	COMPSEND_R4	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4.F	38	COMPSEND_R4	r4buf(ij)=arr(i,j)
./pkg/compon_communic/compsend_r4tiles.F	19	COMPSEND_R4TILES	integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r4tiles.F	45	COMPSEND_R4TILES	do j=1,Nj
./pkg/compon_communic/compsend_r4tiles.F	47	COMPSEND_R4TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4tiles.F	48	COMPSEND_R4TILES	r4buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/compsend_r8.F	19	COMPSEND_R8	integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r8.F	35	COMPSEND_R8	do j=1,Nj
./pkg/compon_communic/compsend_r8.F	37	COMPSEND_R8	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8.F	38	COMPSEND_R8	r8buf(ij)=arr(i,j)
./pkg/compon_communic/compsend_r8tiles.F	19	COMPSEND_R8TILES	integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r8tiles.F	45	COMPSEND_R8TILES	do j=1,Nj
./pkg/compon_communic/compsend_r8tiles.F	47	COMPSEND_R8TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8tiles.F	48	COMPSEND_R8TILES	r8buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/couprecv_i4vec.F	25	COUPRECV_I4VEC	integer i, j, n, ndiff
./pkg/compon_communic/couprecv_i4vec.F	75	COUPRECV_I4VEC	j = ibuf(1)
./pkg/compon_communic/couprecv_i4vec.F	77	COUPRECV_I4VEC	if ( j.ne.length ) then
./pkg/compon_communic/couprecv_i4vec.F	78	COUPRECV_I4VEC	write(LogUnit,*) 'couprecv_i4vec: length,header=', length, j
./pkg/compon_communic/couprecv_r4.F	23	COUPRECV_R4	integer i,j,ij,n
./pkg/compon_communic/couprecv_r4.F	91	COUPRECV_R4	do j=1,Nj
./pkg/compon_communic/couprecv_r4.F	93	COUPRECV_R4	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r4.F	94	COUPRECV_R4	arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F	104	COUPRECV_R4TILES	do j=1,Nj
./pkg/compon_communic/couprecv_r4tiles.F	106	COUPRECV_R4TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r4tiles.F	107	COUPRECV_R4TILES	arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F	23	COUPRECV_R4TILES	integer i,j,ij,n,bibj
./pkg/compon_communic/couprecv_r8.F	23	COUPRECV_R8	integer i,j,ij,n
./pkg/compon_communic/couprecv_r8.F	91	COUPRECV_R8	do j=1,Nj
./pkg/compon_communic/couprecv_r8.F	93	COUPRECV_R8	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r8.F	94	COUPRECV_R8	arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F	104	COUPRECV_R8TILES	do j=1,Nj
./pkg/compon_communic/couprecv_r8tiles.F	106	COUPRECV_R8TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r8tiles.F	107	COUPRECV_R8TILES	arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F	23	COUPRECV_R8TILES	integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r4.F	22	COUPSEND_R4	integer i,j,ij,n
./pkg/compon_communic/coupsend_r4.F	55	COUPSEND_R4	do j=1,Nj
./pkg/compon_communic/coupsend_r4.F	57	COUPSEND_R4	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4.F	58	COUPSEND_R4	r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r4tiles.F	22	COUPSEND_R4TILES	integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r4tiles.F	58	COUPSEND_R4TILES	do j=1,Nj
./pkg/compon_communic/coupsend_r4tiles.F	60	COUPSEND_R4TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4tiles.F	61	COUPSEND_R4TILES	r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8.F	22	COUPSEND_R8	integer i,j,ij,n
./pkg/compon_communic/coupsend_r8.F	55	COUPSEND_R8	do j=1,Nj
./pkg/compon_communic/coupsend_r8.F	57	COUPSEND_R8	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8.F	58	COUPSEND_R8	r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8tiles.F	22	COUPSEND_R8TILES	integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r8tiles.F	58	COUPSEND_R8TILES	do j=1,Nj
./pkg/compon_communic/coupsend_r8tiles.F	60	COUPSEND_R8TILES	ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8tiles.F	61	COUPSEND_R8TILES	r8buf(ij)=arr(Io+i-1,Jo+j-1)
./eesupp/src/reset_halo.F	114	RESET_HALO_RS	INTEGER ii, i, j
./eesupp/src/reset_halo.F	122	RESET_HALO_RS	DO j=1-OLy,sNy+OLy
./eesupp/src/reset_halo.F	123	RESET_HALO_RS	IF ( j.LT.1 .OR. j.GT.sNy ) THEN
./eesupp/src/reset_halo.F	125	RESET_HALO_RS	glFld(i,j,k,bi,bj) = fixVal
./eesupp/src/reset_halo.F	131	RESET_HALO_RS	glFld(i,j,k,bi,bj) = fixVal
./eesupp/src/reset_halo.F	47	RESET_HALO_RL	INTEGER ii, i, j
./eesupp/src/reset_halo.F	55	RESET_HALO_RL	DO j=1-OLy,sNy+OLy
./eesupp/src/reset_halo.F	56	RESET_HALO_RL	IF ( j.LT.1 .OR. j.GT.sNy ) THEN
./eesupp/src/reset_halo.F	58	RESET_HALO_RL	glFld(i,j,k,bi,bj) = fixVal
./eesupp/src/reset_halo.F	64	RESET_HALO_RL	glFld(i,j,k,bi,bj) = fixVal
./pkg/compon_communic/generate_tag.F	14	NO PROCEDURE	integer j,hash,pow
./pkg/compon_communic/generate_tag.F	24	NO PROCEDURE	do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/generate_tag.F	25	NO PROCEDURE	hash=abs(hash+itrans(j)*pow)
./pkg/compon_communic/mitcoupler_tile_register.F	100	MITCOUPLER_TILE_REGISTER	component_tile_nx(j,n,compind) = nx
./pkg/compon_communic/mitcoupler_tile_register.F	101	MITCOUPLER_TILE_REGISTER	component_tile_ny(j,n,compind) = ny
./pkg/compon_communic/mitcoupler_tile_register.F	102	MITCOUPLER_TILE_REGISTER	component_tile_i0(j,n,compind) = i0
./pkg/compon_communic/mitcoupler_tile_register.F	103	MITCOUPLER_TILE_REGISTER	component_tile_j0(j,n,compind) = j0
./pkg/compon_communic/mitcoupler_tile_register.F	106	MITCOUPLER_TILE_REGISTER	write(LogUnit,'(A,I5,A,2I5,A,2I8)') ' tile #:', j,
./pkg/compon_communic/mitcoupler_tile_register.F	30	MITCOUPLER_TILE_REGISTER	integer j, numtiles
./pkg/compon_communic/mitcoupler_tile_register.F	78	MITCOUPLER_TILE_REGISTER	do j=1,numtiles
./pkg/compon_communic/mitcoupler_tile_register.F	83	MITCOUPLER_TILE_REGISTER	tag=generate_tag(113,j,'Register each tile')
./pkg/compon_communic/mitcplr_char2dbl.F	13	MITCPLR_CHAR2DBL	integer j
./pkg/compon_communic/mitcplr_char2dbl.F	21	MITCPLR_CHAR2DBL	do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_char2dbl.F	22	MITCPLR_CHAR2DBL	rarg(j)= ichar( cbuftmp(j:j) )
./pkg/compon_communic/mitcplr_char2int.F	13	MITCPLR_CHAR2INT	integer j
./pkg/compon_communic/mitcplr_char2int.F	21	MITCPLR_CHAR2INT	do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_char2int.F	22	MITCPLR_CHAR2INT	iarg(j)=ichar( cbuftmp(j:j) )
./pkg/compon_communic/mitcplr_char2real.F	13	MITCPLR_CHAR2REAL	integer j
./pkg/compon_communic/mitcplr_char2real.F	21	MITCPLR_CHAR2REAL	do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_char2real.F	22	MITCPLR_CHAR2REAL	rarg(j)=float( ichar( cbuftmp(j:j) ) )
./pkg/compon_communic/mitcplr_dbl2char.F	13	MITCPLR_DBL2CHAR	integer j
./pkg/compon_communic/mitcplr_dbl2char.F	17	MITCPLR_DBL2CHAR	do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_dbl2char.F	18	MITCPLR_DBL2CHAR	carg(j:j) = char( nint( rarg(j) ) )
./pkg/compon_communic/mitcplr_init1.F	101	MITCPLR_INIT1	j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F	102	MITCPLR_INIT1	rank_compcplr_procs(j,compind)=rank_coupler_procs(1)
./pkg/compon_communic/mitcplr_init1.F	103	MITCPLR_INIT1	call MITCPLR_SORTRANKS( j, rank_compcplr_procs(1,compind) )
./pkg/compon_communic/mitcplr_init1.F	108	MITCPLR_INIT1	& ( rank_coupler_procs(j),j=1,num_coupler_procs )
./pkg/compon_communic/mitcplr_init1.F	112	MITCPLR_INIT1	& ( rank_component_procs(j,n),j=1,num_component_procs(n) )
./pkg/compon_communic/mitcplr_init1.F	115	MITCPLR_INIT1	& ( rank_compcplr_procs(j,n),j=1,num_compcplr_procs(n) )
./pkg/compon_communic/mitcplr_init1.F	196	MITCPLR_INIT1	call MPI_COMM_RANK( MPI_COMM_compcplr(n), j, ierr )
./pkg/compon_communic/mitcplr_init1.F	198	MITCPLR_INIT1	& ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F	204	MITCPLR_INIT1	& ' Rank/Size = ',j,' /',numprocs,
./pkg/compon_communic/mitcplr_init1.F	209	MITCPLR_INIT1	call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr )
./pkg/compon_communic/mitcplr_init1.F	211	MITCPLR_INIT1	& ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F	217	MITCPLR_INIT1	& ' Rank/Size = ',j,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F	221	MITCPLR_INIT1	if ( couplerFlag ) j=myid
./pkg/compon_communic/mitcplr_init1.F	223	MITCPLR_INIT1	& myTypeStr,'.',j,'.clog'
./pkg/compon_communic/mitcplr_init1.F	230	MITCPLR_INIT1	& write(LogUnit,*) 'myid in MPI_COMM_Global = ',j
./pkg/compon_communic/mitcplr_init1.F	24	MITCPLR_INIT1	integer n,j
./pkg/compon_communic/mitcplr_init1.F	86	MITCPLR_INIT1	j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init1.F	87	MITCPLR_INIT1	rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init1.F	98	MITCPLR_INIT1	do j=1,num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F	99	MITCPLR_INIT1	rank_compcplr_procs(j,compind)=rank_component_procs(j,compind)
./pkg/compon_communic/mitcplr_init2a.F	17	MITCPLR_INIT2A	integer n,j,lenbuf
./pkg/compon_communic/mitcplr_init2a.F	83	MITCPLR_INIT2A	call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr )
./pkg/compon_communic/mitcplr_init2a.F	91	MITCPLR_INIT2A	my_rank_in_local=j
./pkg/compon_communic/mitcplr_init2b.F	101	MITCPLR_INIT2B	& ' c+c ranks = ',(rank_compcplr_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F	102	MITCPLR_INIT2B	& j=1,num_compcplr_procs(compind) )
./pkg/compon_communic/mitcplr_init2b.F	18	MITCPLR_INIT2B	integer n,j,lenbuf,compind
./pkg/compon_communic/mitcplr_init2b.F	72	MITCPLR_INIT2B	j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F	73	MITCPLR_INIT2B	rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F	77	MITCPLR_INIT2B	j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F	78	MITCPLR_INIT2B	rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F	80	MITCPLR_INIT2B	j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F	81	MITCPLR_INIT2B	rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F	97	MITCPLR_INIT2B	& ' comp. ranks = ',(rank_component_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F	98	MITCPLR_INIT2B	& j=1,num_component_procs(compind) )
./pkg/compon_communic/mitcplr_int2char.F	13	MITCPLR_INT2CHAR	integer j
./pkg/compon_communic/mitcplr_int2char.F	17	MITCPLR_INT2CHAR	do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_int2char.F	18	MITCPLR_INT2CHAR	carg(j:j) = char( iarg(j) )
./pkg/compon_communic/mitcplr_match_comp.F	12	NO PROCEDURE	integer j,jmatch
./pkg/compon_communic/mitcplr_match_comp.F	22	NO PROCEDURE	do j=1,num_components
./pkg/compon_communic/mitcplr_match_comp.F	23	NO PROCEDURE	if ( carg .EQ. component_List(j) ) then
./pkg/compon_communic/mitcplr_match_comp.F	28	NO PROCEDURE	jmatch=j
./pkg/compon_communic/mitcplr_real2char.F	13	MITCPLR_REAL2CHAR	integer j
./pkg/compon_communic/mitcplr_real2char.F	17	MITCPLR_REAL2CHAR	do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_real2char.F	18	MITCPLR_REAL2CHAR	carg(j:j) = char( nint( rarg(j) ) )
./pkg/compon_communic/mitcplr_sortranks.F	11	MITCPLR_SORTRANKS	integer j,k,itmp
./pkg/compon_communic/mitcplr_sortranks.F	14	MITCPLR_SORTRANKS	do j=1,nranks-1
./pkg/compon_communic/mitcplr_sortranks.F	15	MITCPLR_SORTRANKS	do k=j+1,nranks
./pkg/compon_communic/mitcplr_sortranks.F	16	MITCPLR_SORTRANKS	if ( ranks(k) .lt. ranks(j) ) then
./pkg/compon_communic/mitcplr_sortranks.F	18	MITCPLR_SORTRANKS	ranks(k)=ranks(j)
./pkg/compon_communic/mitcplr_sortranks.F	19	MITCPLR_SORTRANKS	ranks(j)=itmp
./eesupp/src/scatter_yz.F	18	SCATTER_YZ	INTEGER jG, j, bi, bj
./eesupp/src/scatter_yz.F	36	SCATTER_YZ	DO j=1,sNy
./eesupp/src/scatter_yz.F	37	SCATTER_YZ	jG = myYGlobalLo-1+(bi-1)*sNy+j
./eesupp/src/scatter_yz.F	38	SCATTER_YZ	local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F	55	SCATTER_YZ	DO j=1,sNy
./eesupp/src/scatter_yz.F	56	SCATTER_YZ	jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/scatter_yz.F	57	SCATTER_YZ	local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F	66	SCATTER_YZ	DO j=1,sNy
./eesupp/src/scatter_yz.F	67	SCATTER_YZ	jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/scatter_yz.F	68	SCATTER_YZ	temp(j,bi,bj) = global(jG)
./pkg/cost/cost_accumulate_mean.F	33	COST_ACCUMULATE_MEAN	integer i, j, k
./pkg/cost/cost_accumulate_mean.F	47	COST_ACCUMULATE_MEAN	do j=1,sNy
./pkg/cost/cost_accumulate_mean.F	49	COST_ACCUMULATE_MEAN	cMeanTheta(i,j,k,bi,bj) = cMeanTheta(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	50	COST_ACCUMULATE_MEAN	& + theta(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	52	COST_ACCUMULATE_MEAN	cMeanUVel(i,j,k,bi,bj) = cMeanUVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	53	COST_ACCUMULATE_MEAN	& + uVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	55	COST_ACCUMULATE_MEAN	cMeanVVel(i,j,k,bi,bj) = cMeanVVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	56	COST_ACCUMULATE_MEAN	& + vVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	59	COST_ACCUMULATE_MEAN	cMeanThetaUVel(i,j,k,bi,bj) =
./pkg/cost/cost_accumulate_mean.F	60	COST_ACCUMULATE_MEAN	& cMeanThetaUVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	61	COST_ACCUMULATE_MEAN	& + (theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))
./pkg/cost/cost_accumulate_mean.F	62	COST_ACCUMULATE_MEAN	& /2.*uvel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	63	COST_ACCUMULATE_MEAN	& maskW(i,j,k,bi,bj)maskC(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	65	COST_ACCUMULATE_MEAN	cMeanThetaVVel(i,j,k,bi,bj) =
./pkg/cost/cost_accumulate_mean.F	66	COST_ACCUMULATE_MEAN	& cMeanThetaVVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	67	COST_ACCUMULATE_MEAN	& + (theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))
./pkg/cost/cost_accumulate_mean.F	68	COST_ACCUMULATE_MEAN	& /2.*vvel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F	69	COST_ACCUMULATE_MEAN	& maskS(i,j,k,bi,bj)maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	102	COST_ATLANTIC_HEAT	& + cMeanVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F	103	COST_ATLANTIC_HEAT	& *maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	106	COST_ATLANTIC_HEAT	& + cMeanThetaVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F	107	COST_ATLANTIC_HEAT	& maskS(i,j,k,bi,bj)maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	110	COST_ATLANTIC_HEAT	& maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	112	COST_ATLANTIC_HEAT	& maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	149	COST_ATLANTIC_HEAT	do j=1,sNy
./pkg/cost/cost_atlantic_heat.F	150	COST_ATLANTIC_HEAT	jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_atlantic_heat.F	154	COST_ATLANTIC_HEAT	& + cMeanUVel(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	155	COST_ATLANTIC_HEAT	& *maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	156	COST_ATLANTIC_HEAT	& maskC(i,j,k,bi,bj)maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	158	COST_ATLANTIC_HEAT	& 0.5*( cMeanTheta(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	159	COST_ATLANTIC_HEAT	& +cMeanTheta(i-,j,k,bi,bj) )
./pkg/cost/cost_atlantic_heat.F	160	COST_ATLANTIC_HEAT	& maskW(i,j,k,bi,bj)dyG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F	161	COST_ATLANTIC_HEAT	& maskC(i,j,k,bi,bj)maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	162	COST_ATLANTIC_HEAT	countT(k) = countT(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	163	COST_ATLANTIC_HEAT	& maskC(i,j,k,bi,bj)maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	164	COST_ATLANTIC_HEAT	countU(k) = countU(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	165	COST_ATLANTIC_HEAT	& maskC(i,j,k,bi,bj)maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	32	COST_ATLANTIC_HEAT	integer i, j, k
./pkg/cost/cost_atlantic_heat.F	79	COST_ATLANTIC_HEAT	& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F	82	COST_ATLANTIC_HEAT	locfc = locfc + sum*dxG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F	88	COST_ATLANTIC_HEAT	do j=1,sNy
./pkg/cost/cost_atlantic_heat.F	89	COST_ATLANTIC_HEAT	jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_dependent_init.F	36	COST_DEPENDENT_INIT	integer i,j,k
./pkg/cost/cost_dependent_init.F	74	COST_DEPENDENT_INIT	do j=1,sNy
./pkg/cost/cost_dependent_init.F	77	COST_DEPENDENT_INIT	objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_dependent_init.F	79	COST_DEPENDENT_INIT	objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_init_varia.F	40	COST_INIT_VARIA	integer i,j,k
./pkg/cost/cost_init_varia.F	76	COST_INIT_VARIA	do j=1,sNy
./pkg/cost/cost_init_varia.F	78	COST_INIT_VARIA	cMeanTheta(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F	79	COST_INIT_VARIA	cMeanUVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F	80	COST_INIT_VARIA	cMeanVVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F	81	COST_INIT_VARIA	cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F	82	COST_INIT_VARIA	cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F	89	COST_INIT_VARIA	do j=1,sNy
./pkg/cost/cost_init_varia.F	92	COST_INIT_VARIA	objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_init_varia.F	94	COST_INIT_VARIA	objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_state_final.F	28	COST_STATE_FINAL	integer i, j, k
./pkg/cost/cost_state_final.F	33	COST_STATE_FINAL	DO j=1,sNy
./pkg/cost/cost_state_final.F	36	COST_STATE_FINAL	objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F	37	COST_STATE_FINAL	objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F	38	COST_STATE_FINAL	objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F	39	COST_STATE_FINAL	objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F	41	COST_STATE_FINAL	objf_state_final(i,j,bi,bj,4*Nr+1) = etan(i,j,bi,bj)
./pkg/cost/cost_test.F	33	COST_TEST	integer i, j, k
./pkg/cost/cost_test.F	62	COST_TEST	do j=1,sNy
./pkg/cost/cost_test.F	63	COST_TEST	jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_test.F	70	COST_TEST	& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./pkg/cost/cost_test.F	71	COST_TEST	objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_test.F	74	COST_TEST	& theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_test.F	79	COST_TEST	& theta(i,j,kLocOut,bi,bj)**2
./pkg/cost/cost_tracer.F	43	COST_TRACER	integer i, j, k
./pkg/cost/cost_tracer.F	52	COST_TRACER	DO j=1,sNy
./pkg/cost/cost_tracer.F	55	COST_TRACER	locfc = locfc + hFacC(i,j,k,bi,bj)*
./pkg/cost/cost_tracer.F	56	COST_TRACER	& lambdaTr1ClimRelaxptracer(i,j,k,bi,bj,1)
./pkg/cost/cost_tracer.F	57	COST_TRACER	& rA(i,j,bi,bj)drF(k)dTtracerLev(k)
./pkg/cost/cost_vector.F	32	COST_VECTOR	integer i, j, k
./pkg/cost/cost_vector.F	60	COST_VECTOR	do j=1,sNy
./pkg/cost/cost_vector.F	61	COST_VECTOR	jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_vector.F	70	COST_VECTOR	& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj)
./pkg/cost/cost_vector.F	74	COST_VECTOR	objf_vector(i,bi,bj) = sum*dxG(i,j,bi,bj)
./eesupp/src/timers.F	188	TIMER_CONTROL	INTEGER j
./eesupp/src/timers.F	203	TIMER_CONTROL	INTEGER j
./eesupp/src/timers.F	567	TIMER_CONTROL	do j = 1,nevents
./eesupp/src/timers.F	568	TIMER_CONTROL	call PAPIF_EVENT_CODE_TO_NAME(EventCode(j), EventName, Check)
./eesupp/src/timers.F	570	TIMER_CONTROL	$ values(j,I,myThreadId)/timerUser(I,myThreadId),
./eesupp/src/timers.F	571	TIMER_CONTROL	$ values(j,I,myThreadId)/timerWall(I,myThreadId),
./eesupp/src/timers.F	572	TIMER_CONTROL	$ 1.D0*values(j,I,myThreadId)
./eesupp/src/timers.F	578	TIMER_CONTROL	do j = 1,nevents
./eesupp/src/timers.F	579	TIMER_CONTROL	WRITE(msgBuffer,71) pcl_counter_name(pcl_counter_list(j)),
./eesupp/src/timers.F	580	TIMER_CONTROL	$ i_result(j,I,myThreadId)/timerUser(I,myThreadId)
./eesupp/src/timers.F	581	TIMER_CONTROL	$ ,i_result(j,I,myThreadId)/timerWall(I,myThreadId),1.D0
./eesupp/src/timers.F	582	TIMER_CONTROL	$ *i_result(j,I,myThreadId)
./pkg/ctrl/adctrl_bound.F	132	ADCTRL_BOUND_2D	INTEGER bi,bj,i,j
./pkg/ctrl/adctrl_bound.F	156	ADCTRL_BOUND_2D	DO j = 1,sNy
./pkg/ctrl/adctrl_bound.F	158	ADCTRL_BOUND_2D	IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN
./pkg/ctrl/adctrl_bound.F	159	ADCTRL_BOUND_2D	xCur=fieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F	160	ADCTRL_BOUND_2D	adxCur=adjFieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F	163	ADCTRL_BOUND_2D	adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F	168	ADCTRL_BOUND_2D	adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F	42	ADCTRL_BOUND_3D	INTEGER bi,bj,i,j,k
./pkg/ctrl/adctrl_bound.F	67	ADCTRL_BOUND_3D	DO j = 1,sNy
./pkg/ctrl/adctrl_bound.F	69	ADCTRL_BOUND_3D	IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN
./pkg/ctrl/adctrl_bound.F	70	ADCTRL_BOUND_3D	xCur=fieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F	71	ADCTRL_BOUND_3D	adxCur=adjFieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F	74	ADCTRL_BOUND_3D	adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F	79	ADCTRL_BOUND_3D	adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./pkg/ctrl/ctrl_bound.F	101	CTRL_BOUND_2D	INTEGER bi,bj,i,j
./pkg/ctrl/ctrl_bound.F	109	CTRL_BOUND_2D	DO j = 1-OLy,sNy+OLy
./pkg/ctrl/ctrl_bound.F	111	CTRL_BOUND_2D	IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN
./pkg/ctrl/ctrl_bound.F	112	CTRL_BOUND_2D	IF (fieldCur(i,j,bi,bj).GT.boundsVec(4)) THEN
./pkg/ctrl/ctrl_bound.F	113	CTRL_BOUND_2D	fieldCur(i,j,bi,bj)=boundsVec(4)
./pkg/ctrl/ctrl_bound.F	115	CTRL_BOUND_2D	IF (fieldCur(i,j,bi,bj).LT.boundsVec(1)) THEN
./pkg/ctrl/ctrl_bound.F	116	CTRL_BOUND_2D	fieldCur(i,j,bi,bj)=boundsVec(1)
./pkg/ctrl/ctrl_bound.F	41	CTRL_BOUND_3D	INTEGER bi,bj,i,j,k
./pkg/ctrl/ctrl_bound.F	50	CTRL_BOUND_3D	DO j = 1,sNy
./pkg/ctrl/ctrl_bound.F	52	CTRL_BOUND_3D	IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN
./pkg/ctrl/ctrl_bound.F	53	CTRL_BOUND_3D	IF (fieldCur(i,j,k,bi,bj).GT.boundsVec(4)) THEN
./pkg/ctrl/ctrl_bound.F	54	CTRL_BOUND_3D	fieldCur(i,j,k,bi,bj)=boundsVec(4)
./pkg/ctrl/ctrl_bound.F	56	CTRL_BOUND_3D	IF (fieldCur(i,j,k,bi,bj).LT.boundsVec(1)) THEN
./pkg/ctrl/ctrl_bound.F	57	CTRL_BOUND_3D	fieldCur(i,j,k,bi,bj)=boundsVec(1)
./pkg/ctrl/ctrl_depth_ini.F	105	CTRL_DEPTH_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_depth_ini.F	107	CTRL_DEPTH_INI	xx_r_low(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_depth_ini.F	121	CTRL_DEPTH_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_depth_ini.F	123	CTRL_DEPTH_INI	xx_r_low(i,j,bi,bj) = r_low(i,j,bi,bj)
./pkg/ctrl/ctrl_depth_ini.F	124	CTRL_DEPTH_INI	& + fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_depth_ini.F	41	CTRL_DEPTH_INI	integer i,j,k
./pkg/ctrl/ctrl_depth_ini.F	94	CTRL_DEPTH_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_depth_ini.F	96	CTRL_DEPTH_INI	tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_get_gen.F	247	CTRL_GET_GEN	do j = 1,sny
./pkg/ctrl/ctrl_get_gen.F	249	CTRL_GET_GEN	genfld(i,j,bi,bj) = genfld (i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F	250	CTRL_GET_GEN	& + gensigngenfac xx_gen0(i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F	251	CTRL_GET_GEN	& + gensign(1. _d 0 - genfac)xx_gen1(i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F	252	CTRL_GET_GEN	genfld(i,j,bi,bj) =
./pkg/ctrl/ctrl_get_gen.F	253	CTRL_GET_GEN	& genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) -
./pkg/ctrl/ctrl_get_gen.F	62	CTRL_GET_GEN	integer i,j,k
./pkg/ctrl/ctrl_getobcse.F	131	CTRL_GETOBCSE	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F	132	CTRL_GETOBCSE	i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	138	CTRL_GETOBCSE	nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	140	CTRL_GETOBCSE	nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	149	CTRL_GETOBCSE	& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	158	CTRL_GETOBCSE	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	159	CTRL_GETOBCSE	& *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	161	CTRL_GETOBCSE	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	162	CTRL_GETOBCSE	& *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	169	CTRL_GETOBCSE	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F	170	CTRL_GETOBCSE	xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	182	CTRL_GETOBCSE	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F	184	CTRL_GETOBCSE	xx_obcse0(j,k,bi,bj,iobcs) = xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	185	CTRL_GETOBCSE	tmpfldyz (j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_getobcse.F	200	CTRL_GETOBCSE	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F	201	CTRL_GETOBCSE	i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	207	CTRL_GETOBCSE	nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	209	CTRL_GETOBCSE	nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	218	CTRL_GETOBCSE	& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	227	CTRL_GETOBCSE	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	228	CTRL_GETOBCSE	& *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	230	CTRL_GETOBCSE	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	231	CTRL_GETOBCSE	& *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	238	CTRL_GETOBCSE	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F	239	CTRL_GETOBCSE	xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	252	CTRL_GETOBCSE	do j = 1,sny
./pkg/ctrl/ctrl_getobcse.F	253	CTRL_GETOBCSE	i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	256	CTRL_GETOBCSE	OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	257	CTRL_GETOBCSE	& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	258	CTRL_GETOBCSE	& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	259	CTRL_GETOBCSE	OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	260	CTRL_GETOBCSE	& *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	262	CTRL_GETOBCSE	OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	263	CTRL_GETOBCSE	& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	264	CTRL_GETOBCSE	& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	265	CTRL_GETOBCSE	OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	266	CTRL_GETOBCSE	& *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	268	CTRL_GETOBCSE	OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	269	CTRL_GETOBCSE	& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	270	CTRL_GETOBCSE	& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	271	CTRL_GETOBCSE	OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	272	CTRL_GETOBCSE	& *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	274	CTRL_GETOBCSE	OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	275	CTRL_GETOBCSE	& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	276	CTRL_GETOBCSE	& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F	277	CTRL_GETOBCSE	OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	278	CTRL_GETOBCSE	& *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F	54	CTRL_GETOBCSE	integer i,j,k
./pkg/ctrl/ctrl_getobcsn.F	137	CTRL_GETOBCSN	j = OB_Jn(i,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	138	CTRL_GETOBCSN	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ctrl/ctrl_getobcsn.F	143	CTRL_GETOBCSN	nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	145	CTRL_GETOBCSN	nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	164	CTRL_GETOBCSN	& *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	167	CTRL_GETOBCSN	& *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	206	CTRL_GETOBCSN	j = OB_Jn(i,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	207	CTRL_GETOBCSN	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ctrl/ctrl_getobcsn.F	212	CTRL_GETOBCSN	nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	214	CTRL_GETOBCSN	nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	233	CTRL_GETOBCSN	& *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	236	CTRL_GETOBCSN	& *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	259	CTRL_GETOBCSN	j = OB_Jn(I,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	260	CTRL_GETOBCSN	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ctrl/ctrl_getobcsn.F	266	CTRL_GETOBCSN	& *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	272	CTRL_GETOBCSN	& *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	278	CTRL_GETOBCSN	& *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	284	CTRL_GETOBCSN	& *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F	55	CTRL_GETOBCSN	integer i,j,k
./pkg/ctrl/ctrl_getobcss.F	133	CTRL_GETOBCSS	j = OB_Js(i,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	134	CTRL_GETOBCSS	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ctrl/ctrl_getobcss.F	139	CTRL_GETOBCSS	nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	141	CTRL_GETOBCSS	nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	160	CTRL_GETOBCSS	& *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	163	CTRL_GETOBCSS	& *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	202	CTRL_GETOBCSS	j = OB_Js(i,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	203	CTRL_GETOBCSS	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ctrl/ctrl_getobcss.F	208	CTRL_GETOBCSS	nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	210	CTRL_GETOBCSS	nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	229	CTRL_GETOBCSS	& *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	232	CTRL_GETOBCSS	& *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	254	CTRL_GETOBCSS	j = OB_Js(I,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	255	CTRL_GETOBCSS	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ctrl/ctrl_getobcss.F	261	CTRL_GETOBCSS	& *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	267	CTRL_GETOBCSS	& *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	273	CTRL_GETOBCSS	& *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	279	CTRL_GETOBCSS	& *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F	56	CTRL_GETOBCSS	integer i,j,k
./pkg/ctrl/ctrl_getobcsw.F	131	CTRL_GETOBCSW	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F	132	CTRL_GETOBCSW	i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	138	CTRL_GETOBCSW	nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	140	CTRL_GETOBCSW	nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	149	CTRL_GETOBCSW	& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	158	CTRL_GETOBCSW	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	159	CTRL_GETOBCSW	& *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	161	CTRL_GETOBCSW	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	162	CTRL_GETOBCSW	& *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	169	CTRL_GETOBCSW	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F	170	CTRL_GETOBCSW	xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	183	CTRL_GETOBCSW	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F	184	CTRL_GETOBCSW	xx_obcsw0(j,k,bi,bj,iobcs) = xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	185	CTRL_GETOBCSW	tmpfldyz (j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_getobcsw.F	200	CTRL_GETOBCSW	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F	201	CTRL_GETOBCSW	i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	207	CTRL_GETOBCSW	nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	209	CTRL_GETOBCSW	nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	218	CTRL_GETOBCSW	& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	227	CTRL_GETOBCSW	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	228	CTRL_GETOBCSW	& *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	230	CTRL_GETOBCSW	tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	231	CTRL_GETOBCSW	& *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	238	CTRL_GETOBCSW	do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F	239	CTRL_GETOBCSW	xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	252	CTRL_GETOBCSW	do j = 1,sny
./pkg/ctrl/ctrl_getobcsw.F	253	CTRL_GETOBCSW	i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	256	CTRL_GETOBCSW	OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	257	CTRL_GETOBCSW	& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	258	CTRL_GETOBCSW	& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	259	CTRL_GETOBCSW	OBWt(j,k,bi,bj) = OBWt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	260	CTRL_GETOBCSW	& *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	262	CTRL_GETOBCSW	OBWs(j,k,bi,bj) = OBWs (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	263	CTRL_GETOBCSW	& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	264	CTRL_GETOBCSW	& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	265	CTRL_GETOBCSW	OBWs(j,k,bi,bj) = OBWs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	266	CTRL_GETOBCSW	& *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	268	CTRL_GETOBCSW	OBWu(j,k,bi,bj) = OBWu (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	269	CTRL_GETOBCSW	& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	270	CTRL_GETOBCSW	& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	271	CTRL_GETOBCSW	OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	272	CTRL_GETOBCSW	& *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	274	CTRL_GETOBCSW	OBWv(j,k,bi,bj) = OBWv (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	275	CTRL_GETOBCSW	& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	276	CTRL_GETOBCSW	& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F	277	CTRL_GETOBCSW	OBWv(j,k,bi,bj) = OBWv(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	278	CTRL_GETOBCSW	& *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F	55	CTRL_GETOBCSW	integer i,j,k
./eesupp/src/write_utils.F	181	WRITE_1D_RL	INTEGER i, j, ic, i1, i2, nCount
./eesupp/src/write_utils.F	210	WRITE_1D_RL	DO j=1,4
./eesupp/src/write_utils.F	213	WRITE_1D_RL	ic = (lFld-1)*(j-1)/4
./eesupp/src/write_utils.F	216	WRITE_1D_RL	IF ( ic4 .LT. (lFld-1)(j-1) ) i2=i2+1
./eesupp/src/write_utils.F	876	WRITE_XY_XLINE_RS	INTEGER bi, bj, i, j
./eesupp/src/write_utils.F	956	WRITE_XY_YLINE_RS	INTEGER bi, bj, i, j
./pkg/ctrl/ctrl_hfacc_ini.F	103	CTRL_HFACC_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_hfacc_ini.F	105	CTRL_HFACC_INI	hFacC(i,j,k,bi,bj) = 0.
./pkg/ctrl/ctrl_hfacc_ini.F	106	CTRL_HFACC_INI	tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_hfacc_ini.F	128	CTRL_HFACC_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_hfacc_ini.F	130	CTRL_HFACC_INI	hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_hfacc_ini.F	131	CTRL_HFACC_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F	143	CTRL_HFACC_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_hfacc_ini.F	145	CTRL_HFACC_INI	k = k_lowC(i,j,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F	147	CTRL_HFACC_INI	hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F	148	CTRL_HFACC_INI	& + fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F	41	CTRL_HFACC_INI	integer i,j,k
./pkg/ctrl/ctrl_init.F	371	CTRL_INIT	do j = 1,Nr
./pkg/ctrl/ctrl_init.F	372	CTRL_INIT	read(dUnit,rec=j) ((modesv(k,i,j), k=1,Nr), i=1,Nr)
./pkg/ctrl/ctrl_init.F	49	CTRL_INIT	integer i,j
./pkg/ctrl/ctrl_init.F	844	CTRL_INIT	do j = jmin,jmax
./pkg/ctrl/ctrl_init.F	846	CTRL_INIT	wareaunit (i,j,bi,bj) = 1.0
./pkg/ctrl/ctrl_init.F	848	CTRL_INIT	whflux (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	849	CTRL_INIT	wsflux (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	850	CTRL_INIT	wtauu (i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	851	CTRL_INIT	wtauv (i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	852	CTRL_INIT	watemp (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	853	CTRL_INIT	waqh (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	854	CTRL_INIT	wprecip (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	855	CTRL_INIT	wswflux (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	856	CTRL_INIT	wswdown (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	857	CTRL_INIT	wuwind (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	858	CTRL_INIT	wvwind (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	859	CTRL_INIT	wlwflux (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	860	CTRL_INIT	wlwdown (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	861	CTRL_INIT	wevap (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	862	CTRL_INIT	wsnowprecip(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	863	CTRL_INIT	wapressure(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	864	CTRL_INIT	wrunoff (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	865	CTRL_INIT	wsst (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F	866	CTRL_INIT	wsss (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init_obcs_variables.F	109	CTRL_INIT_OBCS_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_obcs_variables.F	110	CTRL_INIT_OBCS_VARIABLES	xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F	111	CTRL_INIT_OBCS_VARIABLES	xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F	39	CTRL_INIT_OBCS_VARIABLES	integer i,j,k
./pkg/ctrl/ctrl_init_obcs_variables.F	94	CTRL_INIT_OBCS_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_obcs_variables.F	95	CTRL_INIT_OBCS_VARIABLES	xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F	96	CTRL_INIT_OBCS_VARIABLES	xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	101	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	103	CTRL_INIT_VARIABLES	xx_tauv0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	104	CTRL_INIT_VARIABLES	xx_tauv1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	114	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	116	CTRL_INIT_VARIABLES	xx_uwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	117	CTRL_INIT_VARIABLES	xx_uwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	127	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	129	CTRL_INIT_VARIABLES	xx_vwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	130	CTRL_INIT_VARIABLES	xx_vwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	140	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	142	CTRL_INIT_VARIABLES	xx_atemp0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	143	CTRL_INIT_VARIABLES	xx_atemp1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	153	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	155	CTRL_INIT_VARIABLES	xx_aqh0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	156	CTRL_INIT_VARIABLES	xx_aqh1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	166	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	168	CTRL_INIT_VARIABLES	xx_precip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	169	CTRL_INIT_VARIABLES	xx_precip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	179	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	181	CTRL_INIT_VARIABLES	xx_swflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	182	CTRL_INIT_VARIABLES	xx_swflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	192	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	194	CTRL_INIT_VARIABLES	xx_swdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	195	CTRL_INIT_VARIABLES	xx_swdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	205	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	207	CTRL_INIT_VARIABLES	xx_lwflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	208	CTRL_INIT_VARIABLES	xx_lwflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	218	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	220	CTRL_INIT_VARIABLES	xx_lwdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	221	CTRL_INIT_VARIABLES	xx_lwdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	231	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	233	CTRL_INIT_VARIABLES	xx_evap0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	234	CTRL_INIT_VARIABLES	xx_evap1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	244	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	246	CTRL_INIT_VARIABLES	xx_snowprecip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	247	CTRL_INIT_VARIABLES	xx_snowprecip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	257	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	259	CTRL_INIT_VARIABLES	xx_apressure0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	260	CTRL_INIT_VARIABLES	xx_apressure1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	270	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	272	CTRL_INIT_VARIABLES	xx_runoff0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	273	CTRL_INIT_VARIABLES	xx_runoff1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	283	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	285	CTRL_INIT_VARIABLES	xx_sst0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	286	CTRL_INIT_VARIABLES	xx_sst1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	296	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	298	CTRL_INIT_VARIABLES	xx_sss0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	299	CTRL_INIT_VARIABLES	xx_sss1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	309	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	311	CTRL_INIT_VARIABLES	xx_shifwflx0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	312	CTRL_INIT_VARIABLES	xx_shifwflx1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	322	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	324	CTRL_INIT_VARIABLES	bottomDragFld(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	334	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	337	CTRL_INIT_VARIABLES	xx_atemp_mean (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	340	CTRL_INIT_VARIABLES	xx_aqh_mean (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	343	CTRL_INIT_VARIABLES	xx_uwind_mean (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	346	CTRL_INIT_VARIABLES	xx_vwind_mean (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	349	CTRL_INIT_VARIABLES	xx_precip_mean(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	352	CTRL_INIT_VARIABLES	xx_swdown_mean(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	40	CTRL_INIT_VARIABLES	integer i,j,k
./pkg/ctrl/ctrl_init_variables.F	62	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	64	CTRL_INIT_VARIABLES	xx_hflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	65	CTRL_INIT_VARIABLES	xx_hflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	75	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	77	CTRL_INIT_VARIABLES	xx_sflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	78	CTRL_INIT_VARIABLES	xx_sflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	88	CTRL_INIT_VARIABLES	do j = jmin,jmax
./pkg/ctrl/ctrl_init_variables.F	90	CTRL_INIT_VARIABLES	xx_tauu0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F	91	CTRL_INIT_VARIABLES	xx_tauu1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_wet.F	113	CTRL_INIT_WET	do j = jmin,jmax
./pkg/ctrl/ctrl_init_wet.F	116	CTRL_INIT_WET	if (maskC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init_wet.F	120	CTRL_INIT_WET	if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F	124	CTRL_INIT_WET	if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F	129	CTRL_INIT_WET	if (hFacV(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init_wet.F	135	CTRL_INIT_WET	if (maskSHI(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F	36	CTRL_INIT_WET	integer i,j,k
./pkg/ctrl/ctrl_init_wet.F	601	CTRL_INIT_WET	do j=1-oly,sNy+oly
./pkg/ctrl/ctrl_init_wet.F	603	CTRL_INIT_WET	tmpfld3d(i,j,k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_map_forcing.F	100	CTRL_MAP_FORCING	fu(i,j,bi,bj) = fu(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	101	CTRL_MAP_FORCING	& xx_tauu0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	102	CTRL_MAP_FORCING	& tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	104	CTRL_MAP_FORCING	fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	122	CTRL_MAP_FORCING	do j = jmin,jmax
./pkg/ctrl/ctrl_map_forcing.F	125	CTRL_MAP_FORCING	fv(i,j,bi,bj) = fv(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	126	CTRL_MAP_FORCING	& xx_tauv0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	127	CTRL_MAP_FORCING	& tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	129	CTRL_MAP_FORCING	fv(i,j,bi,bj) = fv(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	147	CTRL_MAP_FORCING	do j = jmin,jmax
./pkg/ctrl/ctrl_map_forcing.F	150	CTRL_MAP_FORCING	empmr(i,j,bi,bj) = empmr(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	151	CTRL_MAP_FORCING	& xx_sflux0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	152	CTRL_MAP_FORCING	& tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	154	CTRL_MAP_FORCING	empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	172	CTRL_MAP_FORCING	do j = jmin,jmax
./pkg/ctrl/ctrl_map_forcing.F	175	CTRL_MAP_FORCING	qnet(i,j,bi,bj) = qnet(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	176	CTRL_MAP_FORCING	& xx_hflux0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	177	CTRL_MAP_FORCING	& tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	179	CTRL_MAP_FORCING	qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	197	CTRL_MAP_FORCING	do j = jmin,jmax
./pkg/ctrl/ctrl_map_forcing.F	199	CTRL_MAP_FORCING	sss(i,j,bi,bj) = sss(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	216	CTRL_MAP_FORCING	do j = jmin,jmax
./pkg/ctrl/ctrl_map_forcing.F	218	CTRL_MAP_FORCING	sst(i,j,bi,bj) = sst(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	235	CTRL_MAP_FORCING	do j = jmin,jmax
./pkg/ctrl/ctrl_map_forcing.F	238	CTRL_MAP_FORCING	Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	239	CTRL_MAP_FORCING	& xx_hfluxm(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F	240	CTRL_MAP_FORCING	& tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	242	CTRL_MAP_FORCING	Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F	47	CTRL_MAP_FORCING	integer i,j,k
./pkg/ctrl/ctrl_map_forcing.F	97	CTRL_MAP_FORCING	do j = jmin,jmax
./pkg/ctrl/ctrl_map_gentim2d.F	106	CTRL_MAP_GENTIM2D	do j = 1,sNy
./pkg/ctrl/ctrl_map_gentim2d.F	109	CTRL_MAP_GENTIM2D	xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr)
./pkg/ctrl/ctrl_map_gentim2d.F	110	CTRL_MAP_GENTIM2D	& +xx_gentim2d_loc(i,j,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F	112	CTRL_MAP_GENTIM2D	xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F	125	CTRL_MAP_GENTIM2D	do j = 1,sNy
./pkg/ctrl/ctrl_map_gentim2d.F	128	CTRL_MAP_GENTIM2D	& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F	129	CTRL_MAP_GENTIM2D	& *xx_gentim2d(i,j,bi,bj,iarr)
./pkg/ctrl/ctrl_map_gentim2d.F	142	CTRL_MAP_GENTIM2D	& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F	47	CTRL_MAP_GENTIM2D	integer i,j,k
./pkg/ctrl/ctrl_map_ini.F	111	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	114	CTRL_MAP_INI	IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F	116	CTRL_MAP_INI	$ tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F	117	CTRL_MAP_INI	$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F	120	CTRL_MAP_INI	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	121	CTRL_MAP_INI	& fac*xx_theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	122	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	124	CTRL_MAP_INI	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	125	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	128	CTRL_MAP_INI	if(theta(i,j,k,bi,bj).lt.-2.0)
./pkg/ctrl/ctrl_map_ini.F	129	CTRL_MAP_INI	& theta(i,j,k,bi,bj)= -2.0
./pkg/ctrl/ctrl_map_ini.F	151	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	154	CTRL_MAP_INI	IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F	156	CTRL_MAP_INI	$ tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F	157	CTRL_MAP_INI	$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F	160	CTRL_MAP_INI	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	161	CTRL_MAP_INI	& fac*xx_salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	162	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	164	CTRL_MAP_INI	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	165	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	188	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	191	CTRL_MAP_INI	ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) +
./pkg/ctrl/ctrl_map_ini.F	192	CTRL_MAP_INI	& fac*xx_tr1(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	193	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	195	CTRL_MAP_INI	ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) +
./pkg/ctrl/ctrl_map_ini.F	196	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	216	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	219	CTRL_MAP_INI	theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	220	CTRL_MAP_INI	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	237	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	240	CTRL_MAP_INI	salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	241	CTRL_MAP_INI	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	260	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	263	CTRL_MAP_INI	diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	264	CTRL_MAP_INI	& xx_diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	265	CTRL_MAP_INI	& tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	267	CTRL_MAP_INI	diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	268	CTRL_MAP_INI	& tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	290	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	293	CTRL_MAP_INI	kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	294	CTRL_MAP_INI	& xx_kapgm(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	295	CTRL_MAP_INI	& tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	297	CTRL_MAP_INI	kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	298	CTRL_MAP_INI	& tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	320	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	322	CTRL_MAP_INI	kapRedi(i,j,k,bi,bj) = kapRedi(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	323	CTRL_MAP_INI	& tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	344	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	346	CTRL_MAP_INI	EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	347	CTRL_MAP_INI	& - fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	348	CTRL_MAP_INI	& *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	371	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	373	CTRL_MAP_INI	EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	374	CTRL_MAP_INI	& + fCori(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	375	CTRL_MAP_INI	& factmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	376	CTRL_MAP_INI	& *hFacV(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	398	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	400	CTRL_MAP_INI	bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	401	CTRL_MAP_INI	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	419	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	421	CTRL_MAP_INI	eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	422	CTRL_MAP_INI	& tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	438	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	440	CTRL_MAP_INI	eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	441	CTRL_MAP_INI	& tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	460	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	463	CTRL_MAP_INI	uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	464	CTRL_MAP_INI	& fac*xx_uvel(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	466	CTRL_MAP_INI	uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	467	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	487	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	490	CTRL_MAP_INI	vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	491	CTRL_MAP_INI	& fac*xx_vvel(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	493	CTRL_MAP_INI	vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	494	CTRL_MAP_INI	& fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	513	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	516	CTRL_MAP_INI	etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	517	CTRL_MAP_INI	& fac*xx_etan(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	519	CTRL_MAP_INI	etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	520	CTRL_MAP_INI	& fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	521	CTRL_MAP_INI	etaH(i,j,bi,bj) = etaH(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F	522	CTRL_MAP_INI	& fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	540	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	542	CTRL_MAP_INI	lambdaThetaClimRelax(i,j,bi,bj) =
./pkg/ctrl/ctrl_map_ini.F	543	CTRL_MAP_INI	& lambdaThetaClimRelax(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	544	CTRL_MAP_INI	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	561	CTRL_MAP_INI	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini.F	563	CTRL_MAP_INI	lambdaSaltClimRelax(i,j,bi,bj) =
./pkg/ctrl/ctrl_map_ini.F	564	CTRL_MAP_INI	& lambdaSaltClimRelax(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	565	CTRL_MAP_INI	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F	56	CTRL_MAP_INI	integer i,j,k
./pkg/ctrl/ctrl_map_ini_ecco.F	112	CTRL_MAP_INI_ECCO	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_ecco.F	114	CTRL_MAP_INI_ECCO	tmpfld2d(i,j,bi,bj) = 1.
./pkg/ctrl/ctrl_map_ini_ecco.F	124	CTRL_MAP_INI_ECCO	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_ecco.F	126	CTRL_MAP_INI_ECCO	tmpfld3d(i,j,k,bi,bj)=1.
./pkg/ctrl/ctrl_map_ini_ecco.F	302	CTRL_MAP_INI_ECCO	do j = 1,sNy
./pkg/ctrl/ctrl_map_ini_ecco.F	304	CTRL_MAP_INI_ECCO	xx_gentim2d(i,j,bi,bj,k)=0. _d 0
./pkg/ctrl/ctrl_map_ini_ecco.F	66	CTRL_MAP_INI_ECCO	integer i,j,k
./pkg/ctrl/ctrl_map_ini_gen.F	119	CTRL_MAP_INI_GEN3D	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_gen.F	121	CTRL_MAP_INI_GEN3D	if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND.
./pkg/ctrl/ctrl_map_ini_gen.F	122	CTRL_MAP_INI_GEN3D	& (wFld3d(i,j,k,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F	123	CTRL_MAP_INI_GEN3D	tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F	124	CTRL_MAP_INI_GEN3D	if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then
./pkg/ctrl/ctrl_map_ini_gen.F	125	CTRL_MAP_INI_GEN3D	xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F	127	CTRL_MAP_INI_GEN3D	xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	150	CTRL_MAP_INI_GEN3D	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_gen.F	152	CTRL_MAP_INI_GEN3D	paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	153	CTRL_MAP_INI_GEN3D	& + xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	172	CTRL_MAP_INI_GEN3D	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_gen.F	175	CTRL_MAP_INI_GEN3D	if ( (maskFld3d(i,j,k,bi,bj).NE.0.)
./pkg/ctrl/ctrl_map_ini_gen.F	176	CTRL_MAP_INI_GEN3D	& .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F	177	CTRL_MAP_INI_GEN3D	xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	178	CTRL_MAP_INI_GEN3D	& /sqrt( wFld3d(i,j,k,bi,bj) )
./pkg/ctrl/ctrl_map_ini_gen.F	180	CTRL_MAP_INI_GEN3D	xxFld3d(i,j,k,bi,bj)=0.
./pkg/ctrl/ctrl_map_ini_gen.F	182	CTRL_MAP_INI_GEN3D	paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	183	CTRL_MAP_INI_GEN3D	& + xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	261	CTRL_MAP_INI_GEN2D	integer i,j,k
./pkg/ctrl/ctrl_map_ini_gen.F	315	CTRL_MAP_INI_GEN2D	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_gen.F	317	CTRL_MAP_INI_GEN2D	if ( (maskFld3d(i,j,1,bi,bj).NE.0.).AND.
./pkg/ctrl/ctrl_map_ini_gen.F	318	CTRL_MAP_INI_GEN2D	& (wFld2d(i,j,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F	319	CTRL_MAP_INI_GEN2D	tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F	320	CTRL_MAP_INI_GEN2D	if ( abs(xxFld2d(i,j,bi,bj)).GT.tmpMax ) then
./pkg/ctrl/ctrl_map_ini_gen.F	321	CTRL_MAP_INI_GEN2D	xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F	323	CTRL_MAP_INI_GEN2D	xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	344	CTRL_MAP_INI_GEN2D	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_gen.F	346	CTRL_MAP_INI_GEN2D	paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	347	CTRL_MAP_INI_GEN2D	& + xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	364	CTRL_MAP_INI_GEN2D	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_gen.F	367	CTRL_MAP_INI_GEN2D	if ( (maskFld3d(i,j,1,bi,bj).NE.0.)
./pkg/ctrl/ctrl_map_ini_gen.F	368	CTRL_MAP_INI_GEN2D	& .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F	369	CTRL_MAP_INI_GEN2D	xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	370	CTRL_MAP_INI_GEN2D	& /sqrt( wFld2d(i,j,bi,bj) )
./pkg/ctrl/ctrl_map_ini_gen.F	372	CTRL_MAP_INI_GEN2D	xxFld2d(i,j,bi,bj)=0.
./pkg/ctrl/ctrl_map_ini_gen.F	374	CTRL_MAP_INI_GEN2D	paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	375	CTRL_MAP_INI_GEN2D	& + xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F	64	CTRL_MAP_INI_GEN3D	integer i,j,k
./pkg/ctrl/ctrl_map_ini_genarr.F	100	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	102	CTRL_MAP_INI_GENARR	salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	103	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	138	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_genarr.F	141	CTRL_MAP_INI_GENARR	theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	142	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	144	CTRL_MAP_INI_GENARR	salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	145	CTRL_MAP_INI_GENARR	& + fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	148	CTRL_MAP_INI_GENARR	diffKr(i,j,k,bi,bj) = diffKr(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	149	CTRL_MAP_INI_GENARR	& + tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	52	CTRL_MAP_INI_GENARR	integer i,j,k
./pkg/ctrl/ctrl_map_ini_genarr.F	91	CTRL_MAP_INI_GENARR	do j = jmin,jmax
./pkg/ctrl/ctrl_map_ini_genarr.F	95	CTRL_MAP_INI_GENARR	bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	96	CTRL_MAP_INI_GENARR	& + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F	99	CTRL_MAP_INI_GENARR	theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ctrl/ctrl_mask_set_xz.F	100	CTRL_MASK_SET_XZ	if ( j .NE. jNone ) then
./pkg/ctrl/ctrl_mask_set_xz.F	103	CTRL_MASK_SET_XZ	if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_mask_set_xz.F	110	CTRL_MASK_SET_XZ	if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_xz.F	41	CTRL_MASK_SET_XZ	integer i,j,k
./pkg/ctrl/ctrl_mask_set_xz.F	99	CTRL_MASK_SET_XZ	j = OB_J(i,bi,bj)
./pkg/ctrl/ctrl_mask_set_yz.F	100	CTRL_MASK_SET_YZ	i = OB_I(j,bi,bj)
./pkg/ctrl/ctrl_mask_set_yz.F	104	CTRL_MASK_SET_YZ	if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_mask_set_yz.F	106	CTRL_MASK_SET_YZ	maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F	111	CTRL_MASK_SET_YZ	if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_yz.F	113	CTRL_MASK_SET_YZ	maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F	131	CTRL_MASK_SET_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_mask_set_yz.F	132	CTRL_MASK_SET_YZ	gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_yz.F	41	CTRL_MASK_SET_YZ	integer i,j,k
./pkg/ctrl/ctrl_mask_set_yz.F	87	CTRL_MASK_SET_YZ	do j = 1-oly,sny+oly
./pkg/ctrl/ctrl_mask_set_yz.F	88	CTRL_MASK_SET_YZ	maskyz(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_yz.F	99	CTRL_MASK_SET_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_pack.F	79	CTRL_PACK	integer i, j, k
./pkg/ctrl/ctrl_readparms.F	40	CTRL_READPARMS	integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xy.F	47	CTRL_SET_GLOBFLD_XY	integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xy.F	73	CTRL_SET_GLOBFLD_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_globfld_xy.F	75	CTRL_SET_GLOBFLD_XY	globfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xy.F	84	CTRL_SET_GLOBFLD_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_globfld_xy.F	86	CTRL_SET_GLOBFLD_XY	globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xyz.F	42	CTRL_SET_GLOBFLD_XYZ	integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xyz.F	68	CTRL_SET_GLOBFLD_XYZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_globfld_xyz.F	70	CTRL_SET_GLOBFLD_XYZ	globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xz.F	47	CTRL_SET_GLOBFLD_XZ	integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xz.F	84	CTRL_SET_GLOBFLD_XZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_globfld_xz.F	86	CTRL_SET_GLOBFLD_XZ	globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F	47	CTRL_SET_GLOBFLD_YZ	integer i,j,k
./pkg/ctrl/ctrl_set_globfld_yz.F	75	CTRL_SET_GLOBFLD_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_globfld_yz.F	76	CTRL_SET_GLOBFLD_YZ	globfldyz(j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F	85	CTRL_SET_GLOBFLD_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_globfld_yz.F	87	CTRL_SET_GLOBFLD_YZ	globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	101	CTRL_SET_PACK_XY	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	102	CTRL_SET_PACK_XY	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	103	CTRL_SET_PACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	104	CTRL_SET_PACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	155	CTRL_SET_PACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xy.F	159	CTRL_SET_PACK_XY	weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	188	CTRL_SET_PACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xy.F	192	CTRL_SET_PACK_XY	if (globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F	195	CTRL_SET_PACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F	196	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	202	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F	203	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	207	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F	208	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	214	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	218	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	225	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	229	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	234	CTRL_SET_PACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F	282	CTRL_SET_PACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xy.F	286	CTRL_SET_PACK_XY	if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F	289	CTRL_SET_PACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F	290	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	296	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F	297	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	301	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F	302	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	308	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	312	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	319	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	323	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	328	CTRL_SET_PACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F	373	CTRL_SET_PACK_XY	integer i,j,k
./pkg/ctrl/ctrl_set_pack_xy.F	443	CTRL_SET_PACK_XY	DO j=1,sNy
./pkg/ctrl/ctrl_set_pack_xy.F	445	CTRL_SET_PACK_XY	if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xy.F	446	CTRL_SET_PACK_XY	fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	447	CTRL_SET_PACK_XY	fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	451	CTRL_SET_PACK_XY	fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F	452	CTRL_SET_PACK_XY	& fld2dDim(i,j,bi,bj) / PrecondScalar
./pkg/ctrl/ctrl_set_pack_xy.F	454	CTRL_SET_PACK_XY	fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F	455	CTRL_SET_PACK_XY	& fld2dDim(i,j,bi,bj) * PrecondScalar
./pkg/ctrl/ctrl_set_pack_xy.F	460	CTRL_SET_PACK_XY	fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_pack_xy.F	463	CTRL_SET_PACK_XY	fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_pack_xy.F	468	CTRL_SET_PACK_XY	fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F	469	CTRL_SET_PACK_XY	& fld2dDim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_pack_xy.F	472	CTRL_SET_PACK_XY	fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F	473	CTRL_SET_PACK_XY	& fld2dDim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_pack_xy.F	49	CTRL_SET_PACK_XY	integer i,j,k
./pkg/ctrl/ctrl_set_pack_xy.F	525	CTRL_SET_PACK_XY	DO j=1,Ny
./pkg/ctrl/ctrl_set_pack_xy.F	527	CTRL_SET_PACK_XY	if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F	529	CTRL_SET_PACK_XY	cbuff(cbuffindex) = fld2d_buf_glo(i,j)
./pkg/ctrl/ctrl_set_pack_xy.F	97	CTRL_SET_PACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xyz.F	106	CTRL_SET_PACK_XYZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xyz.F	110	CTRL_SET_PACK_XYZ	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	111	CTRL_SET_PACK_XYZ	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	112	CTRL_SET_PACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	113	CTRL_SET_PACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	165	CTRL_SET_PACK_XYZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xyz.F	169	CTRL_SET_PACK_XYZ	weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	204	CTRL_SET_PACK_XYZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xyz.F	208	CTRL_SET_PACK_XYZ	if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F	211	CTRL_SET_PACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xyz.F	212	CTRL_SET_PACK_XYZ	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	218	CTRL_SET_PACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	220	CTRL_SET_PACK_XYZ	& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F	226	CTRL_SET_PACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	228	CTRL_SET_PACK_XYZ	& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F	234	CTRL_SET_PACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F	237	CTRL_SET_PACK_XYZ	cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	240	CTRL_SET_PACK_XYZ	cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	285	CTRL_SET_PACK_XYZ	integer i,j,k
./pkg/ctrl/ctrl_set_pack_xyz.F	363	CTRL_SET_PACK_XYZ	DO j=1,sNy
./pkg/ctrl/ctrl_set_pack_xyz.F	365	CTRL_SET_PACK_XYZ	if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xyz.F	366	CTRL_SET_PACK_XYZ	fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	367	CTRL_SET_PACK_XYZ	fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	370	CTRL_SET_PACK_XYZ	fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_pack_xyz.F	373	CTRL_SET_PACK_XYZ	fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_pack_xyz.F	376	CTRL_SET_PACK_XYZ	fld3dNodim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xyz.F	377	CTRL_SET_PACK_XYZ	& fld3dDim(i,j,k,bi,bj) / delZnorm
./pkg/ctrl/ctrl_set_pack_xyz.F	379	CTRL_SET_PACK_XYZ	& * sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F	384	CTRL_SET_PACK_XYZ	fld3dNodim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xyz.F	385	CTRL_SET_PACK_XYZ	& fld3dDim(i,j,k,bi,bj) * delZnorm
./pkg/ctrl/ctrl_set_pack_xyz.F	387	CTRL_SET_PACK_XYZ	& / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F	443	CTRL_SET_PACK_XYZ	DO j=1,Ny
./pkg/ctrl/ctrl_set_pack_xyz.F	445	CTRL_SET_PACK_XYZ	if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F	447	CTRL_SET_PACK_XYZ	cbuff(cbuffindex) = fld2d_buf_glo(i,j)
./pkg/ctrl/ctrl_set_pack_xyz.F	53	CTRL_SET_PACK_XYZ	integer i,j,k
./pkg/ctrl/ctrl_set_pack_xz.F	119	CTRL_SET_PACK_XZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xz.F	123	CTRL_SET_PACK_XZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F	187	CTRL_SET_PACK_XZ	do j=1,sny
./pkg/ctrl/ctrl_set_pack_xz.F	188	CTRL_SET_PACK_XZ	iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_xz.F	201	CTRL_SET_PACK_XZ	jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_pack_xz.F	202	CTRL_SET_PACK_XZ	kk=int((j-1)*nr+K-1)/sny+1
./pkg/ctrl/ctrl_set_pack_xz.F	55	CTRL_SET_PACK_XZ	integer i,j,k
./pkg/ctrl/ctrl_set_pack_yz.F	100	CTRL_SET_PACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F	103	CTRL_SET_PACK_YZ	globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F	104	CTRL_SET_PACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F	105	CTRL_SET_PACK_YZ	globfldtmp3(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F	107	CTRL_SET_PACK_YZ	globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F	119	CTRL_SET_PACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F	123	CTRL_SET_PACK_YZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F	203	CTRL_SET_PACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F	204	CTRL_SET_PACK_YZ	ii=mod ( (i-1)nrsny+(k-1)*sny+j-1 , snx ) + 1
./pkg/ctrl/ctrl_set_pack_yz.F	205	CTRL_SET_PACK_YZ	jj=mod( ((i-1)nrsny+(k-1)*sny+j-1)/snx , sny ) + 1
./pkg/ctrl/ctrl_set_pack_yz.F	206	CTRL_SET_PACK_YZ	kk=int((i-1)nrsny+(k-1)sny+j-1)/(snxsny) + 1
./pkg/ctrl/ctrl_set_pack_yz.F	207	CTRL_SET_PACK_YZ	if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F	210	CTRL_SET_PACK_YZ	globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F	218	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	226	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	232	CTRL_SET_PACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F	279	CTRL_SET_PACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F	280	CTRL_SET_PACK_YZ	if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F	283	CTRL_SET_PACK_YZ	globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F	284	CTRL_SET_PACK_YZ	& globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F	289	CTRL_SET_PACK_YZ	& globfldyz(bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_yz.F	291	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	297	CTRL_SET_PACK_YZ	& globfldyz(bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_yz.F	299	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	305	CTRL_SET_PACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F	308	CTRL_SET_PACK_YZ	cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F	55	CTRL_SET_PACK_YZ	integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xy.F	102	CTRL_SET_UNPACK_XY	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	103	CTRL_SET_UNPACK_XY	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	104	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	105	CTRL_SET_UNPACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	156	CTRL_SET_UNPACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xy.F	160	CTRL_SET_UNPACK_XY	weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	212	CTRL_SET_UNPACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xy.F	216	CTRL_SET_UNPACK_XY	if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F	218	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	220	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	224	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	227	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	233	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	234	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	236	CTRL_SET_UNPACK_XY	& / sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	240	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	241	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	243	CTRL_SET_UNPACK_XY	& * sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	249	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	250	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	253	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	254	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	259	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	262	CTRL_SET_UNPACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	263	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	322	CTRL_SET_UNPACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xy.F	326	CTRL_SET_UNPACK_XY	if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F	328	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	330	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	334	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	337	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	343	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	344	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	346	CTRL_SET_UNPACK_XY	& / sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	350	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	351	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	353	CTRL_SET_UNPACK_XY	& * sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	359	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	360	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	363	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	364	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	369	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	372	CTRL_SET_UNPACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	373	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	407	CTRL_SET_UNPACK_XY	integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xy.F	50	CTRL_SET_UNPACK_XY	integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xy.F	521	CTRL_SET_UNPACK_XY	DO j=1,Ny
./pkg/ctrl/ctrl_set_unpack_xy.F	523	CTRL_SET_UNPACK_XY	if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F	525	CTRL_SET_UNPACK_XY	fld2d_buf_glo(i,j) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	547	CTRL_SET_UNPACK_XY	DO j=1,sNy
./pkg/ctrl/ctrl_set_unpack_xy.F	549	CTRL_SET_UNPACK_XY	if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xy.F	550	CTRL_SET_UNPACK_XY	fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	551	CTRL_SET_UNPACK_XY	fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	555	CTRL_SET_UNPACK_XY	fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount)
./pkg/ctrl/ctrl_set_unpack_xy.F	559	CTRL_SET_UNPACK_XY	fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F	560	CTRL_SET_UNPACK_XY	& fld2dNodim(i,j,bi,bj) * precondScalar
./pkg/ctrl/ctrl_set_unpack_xy.F	562	CTRL_SET_UNPACK_XY	fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F	563	CTRL_SET_UNPACK_XY	& fld2dNodim(i,j,bi,bj) / precondScalar
./pkg/ctrl/ctrl_set_unpack_xy.F	568	CTRL_SET_UNPACK_XY	fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xy.F	571	CTRL_SET_UNPACK_XY	fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xy.F	576	CTRL_SET_UNPACK_XY	fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F	577	CTRL_SET_UNPACK_XY	& fld2dNodim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xy.F	580	CTRL_SET_UNPACK_XY	fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F	581	CTRL_SET_UNPACK_XY	& fld2dNodim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xy.F	98	CTRL_SET_UNPACK_XY	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xyz.F	108	CTRL_SET_UNPACK_XYZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xyz.F	112	CTRL_SET_UNPACK_XYZ	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	113	CTRL_SET_UNPACK_XYZ	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	114	CTRL_SET_UNPACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	115	CTRL_SET_UNPACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	174	CTRL_SET_UNPACK_XYZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xyz.F	178	CTRL_SET_UNPACK_XYZ	weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	235	CTRL_SET_UNPACK_XYZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xyz.F	239	CTRL_SET_UNPACK_XYZ	if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F	241	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F	243	CTRL_SET_UNPACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F	247	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	250	CTRL_SET_UNPACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	257	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F	258	CTRL_SET_UNPACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F	260	CTRL_SET_UNPACK_XYZ	& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F	265	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F	266	CTRL_SET_UNPACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F	268	CTRL_SET_UNPACK_XYZ	& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F	276	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	279	CTRL_SET_UNPACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	280	CTRL_SET_UNPACK_XYZ	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F	314	CTRL_SET_UNPACK_XYZ	integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xyz.F	430	CTRL_SET_UNPACK_XYZ	DO j=1,Ny
./pkg/ctrl/ctrl_set_unpack_xyz.F	432	CTRL_SET_UNPACK_XYZ	if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F	434	CTRL_SET_UNPACK_XYZ	fld2d_buf_glo(i,j) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F	461	CTRL_SET_UNPACK_XYZ	DO j=1,sNy
./pkg/ctrl/ctrl_set_unpack_xyz.F	463	CTRL_SET_UNPACK_XYZ	if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xyz.F	464	CTRL_SET_UNPACK_XYZ	fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	465	CTRL_SET_UNPACK_XYZ	fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	469	CTRL_SET_UNPACK_XYZ	fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount)
./pkg/ctrl/ctrl_set_unpack_xyz.F	472	CTRL_SET_UNPACK_XYZ	fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xyz.F	475	CTRL_SET_UNPACK_XYZ	fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xyz.F	478	CTRL_SET_UNPACK_XYZ	fld3dDim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	479	CTRL_SET_UNPACK_XYZ	& fld3dNodim(i,j,k,bi,bj) * delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F	481	CTRL_SET_UNPACK_XYZ	& / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F	486	CTRL_SET_UNPACK_XYZ	fld3dDim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	487	CTRL_SET_UNPACK_XYZ	& fld3dNodim(i,j,k,bi,bj) / delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F	489	CTRL_SET_UNPACK_XYZ	& * sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F	53	CTRL_SET_UNPACK_XYZ	integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xz.F	124	CTRL_SET_UNPACK_XZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xz.F	128	CTRL_SET_UNPACK_XZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F	191	CTRL_SET_UNPACK_XZ	do j=1,sny
./pkg/ctrl/ctrl_set_unpack_xz.F	192	CTRL_SET_UNPACK_XZ	iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F	223	CTRL_SET_UNPACK_XZ	jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_unpack_xz.F	224	CTRL_SET_UNPACK_XZ	kk=int((j-1)*nr+k-1)/sny+1
./pkg/ctrl/ctrl_set_unpack_xz.F	56	CTRL_SET_UNPACK_XZ	integer i,j,k
./pkg/ctrl/ctrl_set_unpack_yz.F	105	CTRL_SET_UNPACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_yz.F	108	CTRL_SET_UNPACK_YZ	globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	109	CTRL_SET_UNPACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F	110	CTRL_SET_UNPACK_YZ	globfldtmp3(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F	112	CTRL_SET_UNPACK_YZ	globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	124	CTRL_SET_UNPACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_yz.F	128	CTRL_SET_UNPACK_YZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	224	CTRL_SET_UNPACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_yz.F	227	CTRL_SET_UNPACK_YZ	ii=mod((i-1)nrsny+(k-1)*sny+j-1,snx)+1
./pkg/ctrl/ctrl_set_unpack_yz.F	228	CTRL_SET_UNPACK_YZ	jj=mod(((i-1)nrsny+(k-1)*sny+j-1)/snx,sny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F	229	CTRL_SET_UNPACK_YZ	kk=int((i-1)nrsny+(k-1)sny+j-1)/(snxsny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F	230	CTRL_SET_UNPACK_YZ	if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F	242	CTRL_SET_UNPACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F	311	CTRL_SET_UNPACK_YZ	do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_yz.F	314	CTRL_SET_UNPACK_YZ	if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F	316	CTRL_SET_UNPACK_YZ	globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F	318	CTRL_SET_UNPACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F	321	CTRL_SET_UNPACK_YZ	globfldyz(bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_yz.F	322	CTRL_SET_UNPACK_YZ	& globfldyz(bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_yz.F	324	CTRL_SET_UNPACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F	330	CTRL_SET_UNPACK_YZ	globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	333	CTRL_SET_UNPACK_YZ	globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F	334	CTRL_SET_UNPACK_YZ	& globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_yz.F	56	CTRL_SET_UNPACK_YZ	integer i,j,k
./pkg/ctrl/ctrl_smooth.F	27	CTRL_SMOOTH	integer i, j, im1, ip1, jm1, jp1
./pkg/ctrl/ctrl_smooth.F	41	CTRL_SMOOTH	DO j = jmin, jmax
./pkg/ctrl/ctrl_smooth.F	42	CTRL_SMOOTH	jm1 = j-1
./pkg/ctrl/ctrl_smooth.F	43	CTRL_SMOOTH	jp1 = j+1
./pkg/ctrl/ctrl_smooth.F	48	CTRL_SMOOTH	& p25 * mask(i ,j ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F	49	CTRL_SMOOTH	& p125 * ( mask(im1,j ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F	50	CTRL_SMOOTH	& mask(ip1,j ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F	58	CTRL_SMOOTH	fld_tmp(i,j) = (
./pkg/ctrl/ctrl_smooth.F	59	CTRL_SMOOTH	& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F	60	CTRL_SMOOTH	& p125 (fld(im1,j ,bi,bj )mask(im1,j ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F	61	CTRL_SMOOTH	& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F	70	CTRL_SMOOTH	fld_tmp(i,j) = fld(i,j,bi,bj)
./pkg/ctrl/ctrl_smooth.F	76	CTRL_SMOOTH	DO j = jmin, jmax
./pkg/ctrl/ctrl_smooth.F	78	CTRL_SMOOTH	fld(i,j,bi,bj) = fld_tmp(i,j)
./pkg/ctrl/ctrl_swapffields.F	104	CTRL_SWAPFFIELDS_3D	INTEGER i, j, k
./pkg/ctrl/ctrl_swapffields.F	111	CTRL_SWAPFFIELDS_3D	DO j = 1,sNy
./pkg/ctrl/ctrl_swapffields.F	113	CTRL_SWAPFFIELDS_3D	ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj)
./pkg/ctrl/ctrl_swapffields.F	114	CTRL_SWAPFFIELDS_3D	ffld1(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_swapffields.F	210	CTRL_SWAPFFIELDS_YZ	INTEGER j, k
./pkg/ctrl/ctrl_swapffields.F	217	CTRL_SWAPFFIELDS_YZ	DO j = 1,sNy
./pkg/ctrl/ctrl_swapffields.F	218	CTRL_SWAPFFIELDS_YZ	ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj)
./pkg/ctrl/ctrl_swapffields.F	219	CTRL_SWAPFFIELDS_YZ	ffld1(j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_swapffields.F	54	CTRL_SWAPFFIELDS	INTEGER i, j
./pkg/ctrl/ctrl_swapffields.F	60	CTRL_SWAPFFIELDS	DO j = 1,sNy
./pkg/ctrl/ctrl_swapffields.F	62	CTRL_SWAPFFIELDS	ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj)
./pkg/ctrl/ctrl_swapffields.F	63	CTRL_SWAPFFIELDS	ffld1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_unpack.F	82	CTRL_UNPACK	integer i, j, k
./lsopt/dostore.F	1	DOSTORE	subroutine DOSTORE( n, x, store, j )
./lsopt/dostore.F	22	DOSTORE	write( ntape, rec=j ) tmpx
./lsopt/dostore.F	24	DOSTORE	read( ntape, rec=j ) tmpx
./lsopt/dostore.F	5	DOSTORE	integer n, i, j
./pkg/debug/debug_cs_corner_uv.F	102	DEBUG_CS_CORNER_UV	& word2print(1:ic), ' , index=', j
./pkg/debug/debug_cs_corner_uv.F	107	DEBUG_CS_CORNER_UV	DO j=1,nSy
./pkg/debug/debug_cs_corner_uv.F	110	DEBUG_CS_CORNER_UV	n1 = i + (j-1)*nSx
./pkg/debug/debug_cs_corner_uv.F	113	DEBUG_CS_CORNER_UV	t1 = W2_myTileList(i,j)
./pkg/debug/debug_cs_corner_uv.F	71	DEBUG_CS_CORNER_UV	INTEGER ic, i, j
./pkg/debug/debug_cs_corner_uv.F	80	DEBUG_CS_CORNER_UV	j = MIN(MAX(1-Olx,edgeIndex),Olx)
./pkg/debug/debug_cs_corner_uv.F	84	DEBUG_CS_CORNER_UV	tmpU(1,k,n1)= uFld(1,j)
./pkg/debug/debug_cs_corner_uv.F	85	DEBUG_CS_CORNER_UV	tmpU(2,k,n1)= uFld(1,sNy+1-j)
./pkg/debug/debug_cs_corner_uv.F	86	DEBUG_CS_CORNER_UV	tmpU(3,k,n1)= uFld(sNx+1,j)
./pkg/debug/debug_cs_corner_uv.F	87	DEBUG_CS_CORNER_UV	tmpU(4,k,n1)= uFld(sNx+1,sNy+1-j)
./pkg/debug/debug_cs_corner_uv.F	88	DEBUG_CS_CORNER_UV	tmpV(1,k,n1)= vFld(j,1)
./pkg/debug/debug_cs_corner_uv.F	89	DEBUG_CS_CORNER_UV	tmpV(2,k,n1)= vFld(sNx+1-j,1)
./pkg/debug/debug_cs_corner_uv.F	90	DEBUG_CS_CORNER_UV	tmpV(3,k,n1)= vFld(j,sNy+1)
./pkg/debug/debug_cs_corner_uv.F	91	DEBUG_CS_CORNER_UV	tmpV(4,k,n1)= vFld(sNx+1-j,sNy+1)
./pkg/debug/fill_in_corners_rl.F	37	FILL_IN_CORNERS_RL	INTEGER i, j, k
./pkg/debug/fill_in_corners_rl.F	44	FILL_IN_CORNERS_RL	DO j=1-Oly,0
./pkg/debug/fill_in_corners_rl.F	45	FILL_IN_CORNERS_RL	jj = j + sNy+Oly
./pkg/debug/fill_in_corners_rl.F	48	FILL_IN_CORNERS_RL	fld(i,j,k,bi,bj) = spvFld
./pkg/debug/fill_in_corners_rl.F	49	FILL_IN_CORNERS_RL	fld(ii,j,k,bi,bj) = spvFld
./pkg/debug/write_fullarray_rl.F	101	WRITE_FULLARRAY_RL	& j=1-Oly,sNy+Oly )
./pkg/debug/write_fullarray_rl.F	133	WRITE_FULLARRAY_RL	WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1),
./pkg/debug/write_fullarray_rl.F	135	WRITE_FULLARRAY_RL	& j=1-Oly,sNy+Oly )
./pkg/debug/write_fullarray_rl.F	50	WRITE_FULLARRAY_RL	INTEGER i,j,k,bi,bj,iG,jG
./pkg/debug/write_fullarray_rl.F	99	WRITE_FULLARRAY_RL	WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj),
./lsopt/hessupd.F	47	HESSUPD	integer jfin, i, j, jp
./lsopt/hessupd.F	64	HESSUPD	do j = jfin,jmin,-1
./lsopt/hessupd.F	68	HESSUPD	& 'j,jfin,jmin = ', j,jfin,jmin
./lsopt/hessupd.F	70	HESSUPD	jp = j
./lsopt/hessupd.F	94	HESSUPD	do j = jmin,jfin
./lsopt/hessupd.F	95	HESSUPD	jp = j
./pkg/debug/write_fullarray_rs.F	101	WRITE_FULLARRAY_RS	& j=1-Oly,sNy+Oly )
./pkg/debug/write_fullarray_rs.F	133	WRITE_FULLARRAY_RS	WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1),
./pkg/debug/write_fullarray_rs.F	135	WRITE_FULLARRAY_RS	& j=1-Oly,sNy+Oly )
./pkg/debug/write_fullarray_rs.F	50	WRITE_FULLARRAY_RS	INTEGER i,j,k,bi,bj,iG,jG
./pkg/debug/write_fullarray_rs.F	99	WRITE_FULLARRAY_RS	WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj),
./pkg/diagnostics/diag_calc_psivel.F	105	DIAG_CALC_PSIVEL	DO j=1,sNy+1
./pkg/diagnostics/diag_calc_psivel.F	107	DIAG_CALC_PSIVEL	kPsi(i,j) = .FALSE.
./pkg/diagnostics/diag_calc_psivel.F	108	DIAG_CALC_PSIVEL	psiVel(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_calc_psivel.F	115	DIAG_CALC_PSIVEL	DO j=1,sNy
./pkg/diagnostics/diag_calc_psivel.F	117	DIAG_CALC_PSIVEL	IF ( OBCS_insideMask(i,j,bi,bj).EQ.1.
./pkg/diagnostics/diag_calc_psivel.F	118	DIAG_CALC_PSIVEL	& .AND. (i+j).LE.ijCnt ) THEN
./pkg/diagnostics/diag_calc_psivel.F	120	DIAG_CALC_PSIVEL	js = j
./pkg/diagnostics/diag_calc_psivel.F	121	DIAG_CALC_PSIVEL	ijCnt = i+j
./pkg/diagnostics/diag_calc_psivel.F	136	DIAG_CALC_PSIVEL	DO j=1,sNy+1
./pkg/diagnostics/diag_calc_psivel.F	138	DIAG_CALC_PSIVEL	IF ( OBCS_insideMask(i,j-1,bi,bj).EQ.1. .OR.
./pkg/diagnostics/diag_calc_psivel.F	139	DIAG_CALC_PSIVEL	& OBCS_insideMask(i, j ,bi,bj).EQ.1. ) THEN
./pkg/diagnostics/diag_calc_psivel.F	140	DIAG_CALC_PSIVEL	IF ( kPsi(i,j) .AND. .NOT.kPsi(i+1,j) ) THEN
./pkg/diagnostics/diag_calc_psivel.F	142	DIAG_CALC_PSIVEL	kPsi(i+1,j) = .TRUE.
./pkg/diagnostics/diag_calc_psivel.F	143	DIAG_CALC_PSIVEL	psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	144	DIAG_CALC_PSIVEL	& + vTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	146	DIAG_CALC_PSIVEL	IF ( .NOT.kPsi(i,j) .AND. kPsi(i+1,j) ) THEN
./pkg/diagnostics/diag_calc_psivel.F	148	DIAG_CALC_PSIVEL	kPsi(i,j) = .TRUE.
./pkg/diagnostics/diag_calc_psivel.F	149	DIAG_CALC_PSIVEL	psiVel(i,j,bi,bj) = psiVel(i+1,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	150	DIAG_CALC_PSIVEL	& - vTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	155	DIAG_CALC_PSIVEL	DO j=1,sNy
./pkg/diagnostics/diag_calc_psivel.F	157	DIAG_CALC_PSIVEL	IF ( OBCS_insideMask(i-1,j,bi,bj).EQ.1. .OR.
./pkg/diagnostics/diag_calc_psivel.F	158	DIAG_CALC_PSIVEL	& OBCS_insideMask( i ,j,bi,bj).EQ.1. ) THEN
./pkg/diagnostics/diag_calc_psivel.F	159	DIAG_CALC_PSIVEL	IF ( kPsi(i,j) .AND. .NOT.kPsi(i,j+1) ) THEN
./pkg/diagnostics/diag_calc_psivel.F	161	DIAG_CALC_PSIVEL	kPsi(i,j+1) = .TRUE.
./pkg/diagnostics/diag_calc_psivel.F	162	DIAG_CALC_PSIVEL	psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	163	DIAG_CALC_PSIVEL	& - uTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	165	DIAG_CALC_PSIVEL	IF ( .NOT.kPsi(i,j) .AND. kPsi(i,j+1) ) THEN
./pkg/diagnostics/diag_calc_psivel.F	167	DIAG_CALC_PSIVEL	kPsi(i,j) = .TRUE.
./pkg/diagnostics/diag_calc_psivel.F	168	DIAG_CALC_PSIVEL	psiVel(i,j,bi,bj) = psiVel(i,j+1,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	169	DIAG_CALC_PSIVEL	& + uTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	187	DIAG_CALC_PSIVEL	DO j=1,sNy
./pkg/diagnostics/diag_calc_psivel.F	188	DIAG_CALC_PSIVEL	IF ( kPsi(i,j) .AND. jx.EQ.0 ) THEN
./pkg/diagnostics/diag_calc_psivel.F	190	DIAG_CALC_PSIVEL	jx = j
./pkg/diagnostics/diag_calc_psivel.F	197	DIAG_CALC_PSIVEL	DO j=sNy+1,1,-1
./pkg/diagnostics/diag_calc_psivel.F	199	DIAG_CALC_PSIVEL	IF ( kPsi(i,j) .AND. iy.EQ.0 ) THEN
./pkg/diagnostics/diag_calc_psivel.F	201	DIAG_CALC_PSIVEL	jy = j
./pkg/diagnostics/diag_calc_psivel.F	217	DIAG_CALC_PSIVEL	j = 1
./pkg/diagnostics/diag_calc_psivel.F	219	DIAG_CALC_PSIVEL	psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	220	DIAG_CALC_PSIVEL	& + vTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	223	DIAG_CALC_PSIVEL	DO j=1,sNy
./pkg/diagnostics/diag_calc_psivel.F	225	DIAG_CALC_PSIVEL	psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	226	DIAG_CALC_PSIVEL	& - uTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	244	DIAG_CALC_PSIVEL	DO j=1,sNy+1
./pkg/diagnostics/diag_calc_psivel.F	246	DIAG_CALC_PSIVEL	psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + psiOri(bi,bj)
./pkg/diagnostics/diag_calc_psivel.F	261	DIAG_CALC_PSIVEL	DO j=1,sNy+1
./pkg/diagnostics/diag_calc_psivel.F	263	DIAG_CALC_PSIVEL	psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + offSet
./pkg/diagnostics/diag_calc_psivel.F	65	DIAG_CALC_PSIVEL	INTEGER i, j
./pkg/diagnostics/diag_cg2d.F	112	DIAG_CG2D	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diag_cg2d.F	114	DIAG_CG2D	aC2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F	117	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	119	DIAG_CG2D	aC2d(i,j,bi,bj) = -( ( aW2d(i,j,bi,bj)+aW2d(i+1,j,bi,bj) )
./pkg/diagnostics/diag_cg2d.F	120	DIAG_CG2D	& +( aS2d(i,j,bi,bj)+aS2d(i,j+1,bi,bj) )
./pkg/diagnostics/diag_cg2d.F	132	DIAG_CG2D	DO j=1,sNy+1
./pkg/diagnostics/diag_cg2d.F	134	DIAG_CG2D	IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN
./pkg/diagnostics/diag_cg2d.F	135	DIAG_CG2D	pC(i,j,bi,bj) = 1. _d 0
./pkg/diagnostics/diag_cg2d.F	137	DIAG_CG2D	pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	139	DIAG_CG2D	pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	141	DIAG_CG2D	pW(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F	143	DIAG_CG2D	pW(i,j,bi,bj) = -aW2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	146	DIAG_CG2D	pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F	148	DIAG_CG2D	pS(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F	150	DIAG_CG2D	pS(i,j,bi,bj) = -aS2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	169	DIAG_CG2D	DO j=0,sNy+1
./pkg/diagnostics/diag_cg2d.F	171	DIAG_CG2D	r2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F	172	DIAG_CG2D	s2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F	173	DIAG_CG2D	x2dm(i,j,bi,bj) = x2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	178	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	180	DIAG_CG2D	r2d(i,j,bi,bj) = b2d(i,j,bi,bj) -
./pkg/diagnostics/diag_cg2d.F	181	DIAG_CG2D	& (aW2d(i ,j ,bi,bj)*x2d(i-1,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	182	DIAG_CG2D	& +aW2d(i+1,j ,bi,bj)*x2d(i+1,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	183	DIAG_CG2D	& +aS2d(i ,j ,bi,bj)*x2d(i ,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F	184	DIAG_CG2D	& +aS2d(i ,j+1,bi,bj)*x2d(i ,j+1,bi,bj)
./pkg/diagnostics/diag_cg2d.F	185	DIAG_CG2D	& +aC2d(i ,j ,bi,bj)*x2d(i ,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	188	DIAG_CG2D	& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	189	DIAG_CG2D	sumRHStile(bi,bj) = sumRHStile(bi,bj) + b2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	237	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	239	DIAG_CG2D	q2d(i,j,bi,bj) =
./pkg/diagnostics/diag_cg2d.F	240	DIAG_CG2D	& pC(i ,j ,bi,bj)*r2d(i ,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	241	DIAG_CG2D	& +pW(i ,j ,bi,bj)*r2d(i-1,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	242	DIAG_CG2D	& +pW(i+1,j ,bi,bj)*r2d(i+1,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	243	DIAG_CG2D	& +pS(i ,j ,bi,bj)*r2d(i ,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F	244	DIAG_CG2D	& +pS(i ,j+1,bi,bj)*r2d(i ,j+1,bi,bj)
./pkg/diagnostics/diag_cg2d.F	246	DIAG_CG2D	& +q2d(i,j,bi,bj)*r2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	258	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	260	DIAG_CG2D	s2d(i,j,bi,bj) = q2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	261	DIAG_CG2D	& + cgBeta*s2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	275	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	277	DIAG_CG2D	q2d(i,j,bi,bj) =
./pkg/diagnostics/diag_cg2d.F	278	DIAG_CG2D	& aW2d(i ,j ,bi,bj)*s2d(i-1,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	279	DIAG_CG2D	& +aW2d(i+1,j ,bi,bj)*s2d(i+1,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	280	DIAG_CG2D	& +aS2d(i ,j ,bi,bj)*s2d(i ,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F	281	DIAG_CG2D	& +aS2d(i ,j+1,bi,bj)*s2d(i ,j+1,bi,bj)
./pkg/diagnostics/diag_cg2d.F	282	DIAG_CG2D	& +aC2d(i ,j ,bi,bj)*s2d(i ,j ,bi,bj)
./pkg/diagnostics/diag_cg2d.F	284	DIAG_CG2D	& + s2d(i,j,bi,bj)*q2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	297	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	299	DIAG_CG2D	x2d(i,j,bi,bj)=x2d(i,j,bi,bj)+alpha*s2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	300	DIAG_CG2D	r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	302	DIAG_CG2D	& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	325	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	327	DIAG_CG2D	x2dm(i,j,bi,bj) = x2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	357	DIAG_CG2D	DO j=1,sNy
./pkg/diagnostics/diag_cg2d.F	359	DIAG_CG2D	x2d(i,j,bi,bj) = x2dm(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F	78	DIAG_CG2D	INTEGER i, j, it2d
./pkg/diagnostics/diag_vegtile_fill.F	156	DIAG_VEGTILE_FILL	j = 1 + INT(ij/sNx)
./pkg/diagnostics/diag_vegtile_fill.F	159	DIAG_VEGTILE_FILL	qdiag(i,j,kd,bi,bj) = undef
./pkg/diagnostics/diag_vegtile_fill.F	160	DIAG_VEGTILE_FILL	ELSEIF ( qdiag(i,j,kd,bi,bj).NE.undef ) THEN
./pkg/diagnostics/diag_vegtile_fill.F	161	DIAG_VEGTILE_FILL	qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj)
./pkg/diagnostics/diag_vegtile_fill.F	168	DIAG_VEGTILE_FILL	j = 1 + INT(ij/sNx)
./pkg/diagnostics/diag_vegtile_fill.F	170	DIAG_VEGTILE_FILL	qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj)
./pkg/diagnostics/diag_vegtile_fill.F	196	DIAG_VEGTILE_FILL	DO j=0,nRegions
./pkg/diagnostics/diag_vegtile_fill.F	197	DIAG_VEGTILE_FILL	region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diag_vegtile_fill.F	204	DIAG_VEGTILE_FILL	DO j=0,nRegions
./pkg/diagnostics/diag_vegtile_fill.F	205	DIAG_VEGTILE_FILL	region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diag_vegtile_fill.F	66	DIAG_VEGTILE_FILL	INTEGER iSp, ndId, j,l
./pkg/diagnostics/diagnostics_calc_phivel.F	102	DIAGNOSTICS_CALC_PHIVEL	DO j = 1-Oly,sNy+Oly
./pkg/diagnostics/diagnostics_calc_phivel.F	104	DIAGNOSTICS_CALC_PHIVEL	b2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diagnostics_calc_phivel.F	105	DIAGNOSTICS_CALC_PHIVEL	x2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diagnostics_calc_phivel.F	109	DIAGNOSTICS_CALC_PHIVEL	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_calc_phivel.F	111	DIAGNOSTICS_CALC_PHIVEL	aW2d(i,j,bi,bj) = dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	112	DIAGNOSTICS_CALC_PHIVEL	& drF(k)hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	113	DIAGNOSTICS_CALC_PHIVEL	& maskInC(i-1,j,bi,bj)maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	114	DIAGNOSTICS_CALC_PHIVEL	aS2d(i,j,bi,bj) = dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	115	DIAGNOSTICS_CALC_PHIVEL	& drF(k)hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	116	DIAGNOSTICS_CALC_PHIVEL	& maskInC(i,j-1,bi,bj)maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	117	DIAGNOSTICS_CALC_PHIVEL	a2dMax = MAX(a2dMax,aW2d(i,j,bi,bj))
./pkg/diagnostics/diagnostics_calc_phivel.F	118	DIAGNOSTICS_CALC_PHIVEL	a2dMax = MAX(a2dMax,aS2d(i,j,bi,bj))
./pkg/diagnostics/diagnostics_calc_phivel.F	123	DIAGNOSTICS_CALC_PHIVEL	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_calc_phivel.F	125	DIAGNOSTICS_CALC_PHIVEL	uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k)
./pkg/diagnostics/diagnostics_calc_phivel.F	126	DIAGNOSTICS_CALC_PHIVEL	& qtmp1(i,j,ks,bi,bj)maskInW(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	127	DIAGNOSTICS_CALC_PHIVEL	vTrans(i,j,bi,bj) = dxG(i,j,bi,bj)*drF(k)
./pkg/diagnostics/diagnostics_calc_phivel.F	128	DIAGNOSTICS_CALC_PHIVEL	& qtmp2(i,j,ks,bi,bj)maskInS(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	147	DIAGNOSTICS_CALC_PHIVEL	DO j = 1,sNy
./pkg/diagnostics/diagnostics_calc_phivel.F	149	DIAGNOSTICS_CALC_PHIVEL	b2d(i,j,bi,bj) = (
./pkg/diagnostics/diagnostics_calc_phivel.F	150	DIAGNOSTICS_CALC_PHIVEL	& ( uTrans(i+1,j,bi,bj) - uTrans(i,j,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F	151	DIAGNOSTICS_CALC_PHIVEL	& + ( vTrans(i,j+1,bi,bj) - vTrans(i,j,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F	152	DIAGNOSTICS_CALC_PHIVEL	& )*maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	185	DIAGNOSTICS_CALC_PHIVEL	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_calc_phivel.F	187	DIAGNOSTICS_CALC_PHIVEL	aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*a2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F	188	DIAGNOSTICS_CALC_PHIVEL	aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*a2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F	189	DIAGNOSTICS_CALC_PHIVEL	b2d(i,j,bi,bj) = b2d(i,j,bi,bj) *b2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F	228	DIAGNOSTICS_CALC_PHIVEL	DO j = 1-Oly,sNy+Oly
./pkg/diagnostics/diagnostics_calc_phivel.F	230	DIAGNOSTICS_CALC_PHIVEL	x2d(i,j,bi,bj) = x2d(i,j,bi,bj)*x2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F	240	DIAGNOSTICS_CALC_PHIVEL	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_calc_phivel.F	242	DIAGNOSTICS_CALC_PHIVEL	uTrans(i,j,bi,bj) = uTrans(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	243	DIAGNOSTICS_CALC_PHIVEL	& - ( x2d(i,j,bi,bj) - x2d(i-1,j,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F	244	DIAGNOSTICS_CALC_PHIVEL	& recip_dxC(i,j,bi,bj)dyG(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	245	DIAGNOSTICS_CALC_PHIVEL	& drF(k)hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	246	DIAGNOSTICS_CALC_PHIVEL	& maskInC(i-1,j,bi,bj)maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	247	DIAGNOSTICS_CALC_PHIVEL	vTrans(i,j,bi,bj) = vTrans(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	248	DIAGNOSTICS_CALC_PHIVEL	& - ( x2d(i,j,bi,bj) - x2d(i,j-1,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F	249	DIAGNOSTICS_CALC_PHIVEL	& recip_dyC(i,j,bi,bj)dxG(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	250	DIAGNOSTICS_CALC_PHIVEL	& drF(k)hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	251	DIAGNOSTICS_CALC_PHIVEL	& maskInC(i,j-1,bi,bj)maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	294	DIAGNOSTICS_CALC_PHIVEL	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_calc_phivel.F	296	DIAGNOSTICS_CALC_PHIVEL	qtmp1(i,j,ks,bi,bj) = x2d(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	297	DIAGNOSTICS_CALC_PHIVEL	qtmp2(i,j,ks,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F	67	DIAGNOSTICS_CALC_PHIVEL	INTEGER i, j, k
./pkg/diagnostics/diagnostics_clear.F	80	DIAGNOSTICS_CLRDIAG	INTEGER i,j,k
./pkg/diagnostics/diagnostics_clear.F	92	DIAGNOSTICS_CLRDIAG	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_clear.F	94	DIAGNOSTICS_CLRDIAG	qdiag(i,j,kl,bi,bj) = 0.0
./pkg/diagnostics/diagnostics_fill.F	124	DIAGNOSTICS_FILL	DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill.F	125	DIAGNOSTICS_FILL	region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_fill.F	132	DIAGNOSTICS_FILL	DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill.F	133	DIAGNOSTICS_FILL	region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fill.F	65	DIAGNOSTICS_FILL	INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fill_field.F	318	DIAGNOSTICS_CUMULATE	INTEGER i, j, l
./pkg/diagnostics/diagnostics_fill_field.F	330	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	332	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	333	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	334	DIAGNOSTICS_CUMULATE	& *inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	335	DIAGNOSTICS_CUMULATE	& *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	339	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	341	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	342	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	343	DIAGNOSTICS_CUMULATE	& *inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	344	DIAGNOSTICS_CUMULATE	& *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	348	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	350	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	351	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	352	DIAGNOSTICS_CUMULATE	& *inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	353	DIAGNOSTICS_CUMULATE	& *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	357	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	359	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	360	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	361	DIAGNOSTICS_CUMULATE	& *inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	362	DIAGNOSTICS_CUMULATE	& *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	373	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	375	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	376	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	377	DIAGNOSTICS_CUMULATE	& *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	381	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	383	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	384	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	385	DIAGNOSTICS_CUMULATE	& *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	389	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	391	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	392	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	393	DIAGNOSTICS_CUMULATE	& *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	397	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	399	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	400	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	401	DIAGNOSTICS_CUMULATE	& *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	411	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	413	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	414	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	415	DIAGNOSTICS_CUMULATE	& *inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	419	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	421	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	422	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	423	DIAGNOSTICS_CUMULATE	& *inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	433	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	439	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	440	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F	444	DIAGNOSTICS_CUMULATE	DO j = 1,jRun
./pkg/diagnostics/diagnostics_fill_field.F	446	DIAGNOSTICS_CUMULATE	cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F	447	DIAGNOSTICS_CUMULATE	& + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_rs.F	124	DIAGNOSTICS_FILL_RS	DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill_rs.F	125	DIAGNOSTICS_FILL_RS	region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_fill_rs.F	132	DIAGNOSTICS_FILL_RS	DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill_rs.F	133	DIAGNOSTICS_FILL_RS	region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fill_rs.F	65	DIAGNOSTICS_FILL_RS	INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fill_state.F	114	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	117	DIAGNOSTICS_FILL_STATE	& *(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	119	DIAGNOSTICS_FILL_STATE	& *(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	120	DIAGNOSTICS_FILL_STATE	tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC
./pkg/diagnostics/diagnostics_fill_state.F	121	DIAGNOSTICS_FILL_STATE	& -angleSinC(i,j,bi,bj)*vBarC
./pkg/diagnostics/diagnostics_fill_state.F	122	DIAGNOSTICS_FILL_STATE	tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC
./pkg/diagnostics/diagnostics_fill_state.F	123	DIAGNOSTICS_FILL_STATE	& +angleCosC(i,j,bi,bj)*vBarC
./pkg/diagnostics/diagnostics_fill_state.F	124	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = tmpU(i,j)*tmpV(i,j)
./pkg/diagnostics/diagnostics_fill_state.F	139	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	141	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	142	DIAGNOSTICS_FILL_STATE	& *(uVel(i,j-1,k,bi,bj)+uVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	143	DIAGNOSTICS_FILL_STATE	& *(vVel(i-1,j,k,bi,bj)+vVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	157	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	159	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	160	DIAGNOSTICS_FILL_STATE	& *(uVel(i,j,km1,bi,bj)+uVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	161	DIAGNOSTICS_FILL_STATE	& (wVel(i-1,j,k,bi,bj)rA(i-1,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	162	DIAGNOSTICS_FILL_STATE	& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	163	DIAGNOSTICS_FILL_STATE	& )*recip_rAw(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	177	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	179	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	180	DIAGNOSTICS_FILL_STATE	& *(vVel(i,j,km1,bi,bj)+vVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	181	DIAGNOSTICS_FILL_STATE	& (wVel(i,j-1,k,bi,bj)rA(i,j-1,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	182	DIAGNOSTICS_FILL_STATE	& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	183	DIAGNOSTICS_FILL_STATE	& )*recip_rAs(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	198	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	200	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	201	DIAGNOSTICS_FILL_STATE	& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	214	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	216	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	217	DIAGNOSTICS_FILL_STATE	& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	231	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	233	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	234	DIAGNOSTICS_FILL_STATE	& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	247	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	249	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	250	DIAGNOSTICS_FILL_STATE	& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	263	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	265	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	266	DIAGNOSTICS_FILL_STATE	& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	280	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	282	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	283	DIAGNOSTICS_FILL_STATE	& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	296	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	298	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	299	DIAGNOSTICS_FILL_STATE	& 0.5 _d 0(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	312	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	314	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	315	DIAGNOSTICS_FILL_STATE	& 0.5 _d 0(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	327	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	329	DIAGNOSTICS_FILL_STATE	tmp1k(i,j,bi,bj) = R_low(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	333	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	335	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	336	DIAGNOSTICS_FILL_STATE	& + (rF(k+1)-rC(k))hFacC(i,j,k,bi,bj)rkSign
./pkg/diagnostics/diagnostics_fill_state.F	339	DIAGNOSTICS_FILL_STATE	tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	340	DIAGNOSTICS_FILL_STATE	& + drF(k)*hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	364	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	366	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	380	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	382	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	407	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	410	DIAGNOSTICS_FILL_STATE	dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa
./pkg/diagnostics/diagnostics_fill_state.F	413	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	414	DIAGNOSTICS_FILL_STATE	& salt(i,j,k,bi,bj)100. / dummy3
./pkg/diagnostics/diagnostics_fill_state.F	484	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	486	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = salt(i,j,k,bi,bj)-35. _d 0
./pkg/diagnostics/diagnostics_fill_state.F	503	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	505	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	506	DIAGNOSTICS_FILL_STATE	& = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	519	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	521	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	522	DIAGNOSTICS_FILL_STATE	& = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	537	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	539	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	540	DIAGNOSTICS_FILL_STATE	& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	541	DIAGNOSTICS_FILL_STATE	& * hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	554	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	556	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	557	DIAGNOSTICS_FILL_STATE	& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	558	DIAGNOSTICS_FILL_STATE	& * hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	572	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	574	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	575	DIAGNOSTICS_FILL_STATE	& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	588	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	590	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	591	DIAGNOSTICS_FILL_STATE	& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	592	DIAGNOSTICS_FILL_STATE	& * hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	605	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_fill_state.F	607	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	608	DIAGNOSTICS_FILL_STATE	& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	609	DIAGNOSTICS_FILL_STATE	& * hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	61	DIAGNOSTICS_FILL_STATE	INTEGER i,j,k,bi,bj
./pkg/diagnostics/diagnostics_fill_state.F	623	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	625	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F	626	DIAGNOSTICS_FILL_STATE	& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F	658	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	660	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	674	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	676	DIAGNOSTICS_FILL_STATE	tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F	72	DIAGNOSTICS_FILL_STATE	DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F	74	DIAGNOSTICS_FILL_STATE	tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fract_fill.F	169	DIAGNOSTICS_FRACT_FILL	DO j=0,nRegions
./pkg/diagnostics/diagnostics_fract_fill.F	170	DIAGNOSTICS_FRACT_FILL	region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_fract_fill.F	177	DIAGNOSTICS_FRACT_FILL	DO j=0,nRegions
./pkg/diagnostics/diagnostics_fract_fill.F	178	DIAGNOSTICS_FRACT_FILL	region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fract_fill.F	79	DIAGNOSTICS_FRACT_FILL	INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_init_varia.F	30	DIAGNOSTICS_INIT_VARIA	INTEGER i,j,k,bi,bj
./pkg/diagnostics/diagnostics_init_varia.F	42	DIAGNOSTICS_INIT_VARIA	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_init_varia.F	44	DIAGNOSTICS_INIT_VARIA	qdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_init_varia.F	61	DIAGNOSTICS_INIT_VARIA	DO j = 0,nRegions
./pkg/diagnostics/diagnostics_init_varia.F	63	DIAGNOSTICS_INIT_VARIA	qSdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_interp_vert.F	130	DIAGNOSTICS_INTERP_VERT	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_interp_vert.F	132	DIAGNOSTICS_INTERP_VERT	qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F	136	DIAGNOSTICS_INTERP_VERT	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_interp_vert.F	138	DIAGNOSTICS_INTERP_VERT	qtmp2(i,j,k,bi,bj) = rC(k)
./pkg/diagnostics/diagnostics_interp_vert.F	152	DIAGNOSTICS_INTERP_VERT	DO j = 1,sNy
./pkg/diagnostics/diagnostics_interp_vert.F	154	DIAGNOSTICS_INTERP_VERT	pksrf(i,j) = qtmpsrf(i,j,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F	160	DIAGNOSTICS_INTERP_VERT	DO j = 1,sNy
./pkg/diagnostics/diagnostics_interp_vert.F	162	DIAGNOSTICS_INTERP_VERT	qinp(i,j,k) = qtmp1(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F	163	DIAGNOSTICS_INTERP_VERT	pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F	173	DIAGNOSTICS_INTERP_VERT	DO j = 1,sNy
./pkg/diagnostics/diagnostics_interp_vert.F	175	DIAGNOSTICS_INTERP_VERT	IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN
./pkg/diagnostics/diagnostics_interp_vert.F	176	DIAGNOSTICS_INTERP_VERT	qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F	178	DIAGNOSTICS_INTERP_VERT	qinp(i,j,k)= undefRL
./pkg/diagnostics/diagnostics_interp_vert.F	180	DIAGNOSTICS_INTERP_VERT	pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F	194	DIAGNOSTICS_INTERP_VERT	DO j = 1,sNy
./pkg/diagnostics/diagnostics_interp_vert.F	196	DIAGNOSTICS_INTERP_VERT	IF (qprs(i,j).EQ.undefRL) THEN
./pkg/diagnostics/diagnostics_interp_vert.F	197	DIAGNOSTICS_INTERP_VERT	qtmp1(i,j,k,bi,bj) = 0.
./pkg/diagnostics/diagnostics_interp_vert.F	199	DIAGNOSTICS_INTERP_VERT	qtmp1(i,j,k,bi,bj) = qprs(i,j)
./pkg/diagnostics/diagnostics_interp_vert.F	66	DIAGNOSTICS_INTERP_VERT	INTEGER i, j, k
./pkg/diagnostics/diagnostics_mnc_out.F	165	DIAGNOSTICS_MNC_SET	DO j = 1,nlevels(listId)
./pkg/diagnostics/diagnostics_mnc_out.F	166	DIAGNOSTICS_MNC_SET	ztmp(j) = rC(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_mnc_out.F	172	DIAGNOSTICS_MNC_SET	DO j = 1,nlevels(listId)
./pkg/diagnostics/diagnostics_mnc_out.F	173	DIAGNOSTICS_MNC_SET	ztmp(j) = rF(NINT(levs(j,listId)) + 1)
./pkg/diagnostics/diagnostics_mnc_out.F	179	DIAGNOSTICS_MNC_SET	DO j = 1,nlevels(listId)
./pkg/diagnostics/diagnostics_mnc_out.F	180	DIAGNOSTICS_MNC_SET	ztmp(j) = rF(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_mnc_out.F	254	DIAGNOSTICS_MNC_OUT	INTEGER i, j, k
./pkg/diagnostics/diagnostics_mnc_out.F	368	DIAGNOSTICS_MNC_OUT	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_mnc_out.F	370	DIAGNOSTICS_MNC_OUT	IF ( maskC(i,j,klev,bi,bj) .EQ. 0. )
./pkg/diagnostics/diagnostics_mnc_out.F	371	DIAGNOSTICS_MNC_OUT	& qtmp(i,j,k,bi,bj) = misValLoc
./pkg/diagnostics/diagnostics_mnc_out.F	73	DIAGNOSTICS_MNC_SET	INTEGER i, j
./pkg/diagnostics/diagnostics_out.F	238	DIAGNOSTICS_OUT	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_out.F	240	DIAGNOSTICS_OUT	qtmp1(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_out.F	68	DIAGNOSTICS_OUT	INTEGER i, j, k, lm
./pkg/diagnostics/diagnostics_readparms.F	363	DIAGNOSTICS_READPARMS	DO j = 0,nRegions
./pkg/diagnostics/diagnostics_readparms.F	364	DIAGNOSTICS_READPARMS	diagSt_kRegMsk(j) = 0
./pkg/diagnostics/diagnostics_readparms.F	365	DIAGNOSTICS_READPARMS	diagSt_vRegMsk(j) = 0.
./pkg/diagnostics/diagnostics_readparms.F	378	DIAGNOSTICS_READPARMS	DO j = 0,nRegions
./pkg/diagnostics/diagnostics_readparms.F	379	DIAGNOSTICS_READPARMS	diagSt_region(j,n) = 0
./pkg/diagnostics/diagnostics_readparms.F	392	DIAGNOSTICS_READPARMS	j = 0
./pkg/diagnostics/diagnostics_readparms.F	395	DIAGNOSTICS_READPARMS	j = j+1
./pkg/diagnostics/diagnostics_readparms.F	396	DIAGNOSTICS_READPARMS	IF ( j.LE.nRegions ) THEN
./pkg/diagnostics/diagnostics_readparms.F	397	DIAGNOSTICS_READPARMS	diagSt_kRegMsk(j) = set_regMask(k)
./pkg/diagnostics/diagnostics_readparms.F	398	DIAGNOSTICS_READPARMS	diagSt_vRegMsk(j) = val_regMask(k)
./pkg/diagnostics/diagnostics_readparms.F	402	DIAGNOSTICS_READPARMS	IF ( j.GT.nRegions ) THEN
./pkg/diagnostics/diagnostics_readparms.F	404	DIAGNOSTICS_READPARMS	& 'set_regMask & val_regMask lists assume at least',j,' regions'
./pkg/diagnostics/diagnostics_readparms.F	426	DIAGNOSTICS_READPARMS	j = stat_region(k,l)
./pkg/diagnostics/diagnostics_readparms.F	427	DIAGNOSTICS_READPARMS	IF ( j.NE.UNSET_I .AND. j.GE.0 .AND. j.LE.nRegions ) THEN
./pkg/diagnostics/diagnostics_readparms.F	428	DIAGNOSTICS_READPARMS	IF ( diagSt_region(j,n).EQ.0 ) THEN
./pkg/diagnostics/diagnostics_readparms.F	429	DIAGNOSTICS_READPARMS	diagSt_region(j,n) = 1
./pkg/diagnostics/diagnostics_readparms.F	438	DIAGNOSTICS_READPARMS	& 'DIAGNOSTICS_READPARMS: region=',j,
./pkg/diagnostics/diagnostics_readparms.F	443	DIAGNOSTICS_READPARMS	ELSEIF ( j.NE.UNSET_I ) THEN
./pkg/diagnostics/diagnostics_readparms.F	445	DIAGNOSTICS_READPARMS	& 'DIAGNOSTICS_READPARMS: region=',j,
./pkg/diagnostics/diagnostics_readparms.F	588	DIAGNOSTICS_READPARMS	DO j=0,nRegions
./pkg/diagnostics/diagnostics_readparms.F	589	DIAGNOSTICS_READPARMS	IF ( diagSt_region(j,n).GE.1 ) THEN
./pkg/diagnostics/diagnostics_readparms.F	591	DIAGNOSTICS_READPARMS	IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j
./pkg/diagnostics/diagnostics_readparms.F	85	DIAGNOSTICS_READPARMS	INTEGER j,k,l,n,m,nf
./pkg/diagnostics/diagnostics_scale_fill.F	126	DIAGNOSTICS_SCALE_FILL	DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill.F	127	DIAGNOSTICS_SCALE_FILL	region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_scale_fill.F	134	DIAGNOSTICS_SCALE_FILL	DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill.F	135	DIAGNOSTICS_SCALE_FILL	region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_scale_fill.F	69	DIAGNOSTICS_SCALE_FILL	INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_scale_fill_rs.F	126	DIAGNOSTICS_SCALE_FILL_RS	DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill_rs.F	127	DIAGNOSTICS_SCALE_FILL_RS	region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_scale_fill_rs.F	134	DIAGNOSTICS_SCALE_FILL_RS	DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill_rs.F	135	DIAGNOSTICS_SCALE_FILL_RS	region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_scale_fill_rs.F	69	DIAGNOSTICS_SCALE_FILL_RS	INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_set_calc.F	36	DIAGNOSTICS_SET_CALC	INTEGER i, j
./pkg/diagnostics/diagnostics_set_calc.F	56	DIAGNOSTICS_SET_CALC	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_set_calc.F	58	DIAGNOSTICS_SET_CALC	dxLoc = xG(i,j,bi,bj)-xPsi0
./pkg/diagnostics/diagnostics_set_calc.F	59	DIAGNOSTICS_SET_CALC	dyLoc = yG(i,j,bi,bj)-yPsi0
./pkg/diagnostics/diagnostics_set_calc.F	79	DIAGNOSTICS_SET_CALC	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_set_calc.F	81	DIAGNOSTICS_SET_CALC	dxLoc = xG(i,j,bi,bj)-xPsi0
./pkg/diagnostics/diagnostics_set_calc.F	82	DIAGNOSTICS_SET_CALC	dyLoc = yG(i,j,bi,bj)-yPsi0
./pkg/diagnostics/diagnostics_set_calc.F	85	DIAGNOSTICS_SET_CALC	xyLoc = xy0 + i + (j-1)*xLine
./pkg/diagnostics/diagnostics_set_calc.F	92	DIAGNOSTICS_SET_CALC	jPsi0(bi,bj) = j
./pkg/diagnostics/diagnostics_set_pointers.F	108	DIAGNOSTICS_SET_POINTERS	j = MIN(nfields(ld),md+9)
./pkg/diagnostics/diagnostics_set_pointers.F	109	DIAGNOSTICS_SET_POINTERS	WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(i,ld),i=md,j)
./pkg/diagnostics/diagnostics_set_pointers.F	202	DIAGNOSTICS_SET_POINTERS	DO j=1,nlists
./pkg/diagnostics/diagnostics_set_pointers.F	203	DIAGNOSTICS_SET_POINTERS	DO i=1,nActive(j)
./pkg/diagnostics/diagnostics_set_pointers.F	204	DIAGNOSTICS_SET_POINTERS	IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F	205	DIAGNOSTICS_SET_POINTERS	IF ( freq(j).EQ.freq(ld) .AND. phase(j).EQ.phase(ld)
./pkg/diagnostics/diagnostics_set_pointers.F	206	DIAGNOSTICS_SET_POINTERS	& .AND. averageFreq(j) .EQ.averageFreq(ld)
./pkg/diagnostics/diagnostics_set_pointers.F	207	DIAGNOSTICS_SET_POINTERS	& .AND. averagePhase(j).EQ.averagePhase(ld)
./pkg/diagnostics/diagnostics_set_pointers.F	208	DIAGNOSTICS_SET_POINTERS	& .AND. averageCycle(j).EQ.averageCycle(ld) )
./pkg/diagnostics/diagnostics_set_pointers.F	209	DIAGNOSTICS_SET_POINTERS	& mdiag(md,ld) = ABS(idiag(i,j))
./pkg/diagnostics/diagnostics_set_pointers.F	38	DIAGNOSTICS_SET_POINTERS	INTEGER i, j, k, k1, k2, kLev
./pkg/diagnostics/diagnostics_set_pointers.F	58	DIAGNOSTICS_SET_POINTERS	j = 0
./pkg/diagnostics/diagnostics_set_pointers.F	65	DIAGNOSTICS_SET_POINTERS	IF ( j.EQ.0 .AND. flds(i,ld).EQ.cdiag(mate) ) j = i
./pkg/diagnostics/diagnostics_set_pointers.F	71	DIAGNOSTICS_SET_POINTERS	IF ( j.GE.1 .AND. j.NE.md-1 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F	79	DIAGNOSTICS_SET_POINTERS	IF ( j.LT.md-1 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F	81	DIAGNOSTICS_SET_POINTERS	& ' move ',flds(j,ld),' from ',j,' down to',md-1,
./pkg/diagnostics/diagnostics_set_pointers.F	85	DIAGNOSTICS_SET_POINTERS	DO i=j,md-2
./pkg/diagnostics/diagnostics_set_pointers.F	89	DIAGNOSTICS_SET_POINTERS	ELSEIF ( j.GT.md ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F	91	DIAGNOSTICS_SET_POINTERS	& ' move ',flds(j,ld),' from ',j,' up to ',md,
./pkg/diagnostics/diagnostics_set_pointers.F	95	DIAGNOSTICS_SET_POINTERS	DO i=j,md+1,-1
./pkg/diagnostics/diagnostics_sum_levels.F	108	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	110	DIAGNOSTICS_SUM_LEVELS	tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F	111	DIAGNOSTICS_SUM_LEVELS	& + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	115	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	117	DIAGNOSTICS_SUM_LEVELS	fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F	132	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	134	DIAGNOSTICS_SUM_LEVELS	tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F	135	DIAGNOSTICS_SUM_LEVELS	& + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	136	DIAGNOSTICS_SUM_LEVELS	& *hFacC(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	148	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	150	DIAGNOSTICS_SUM_LEVELS	tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F	151	DIAGNOSTICS_SUM_LEVELS	& + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	152	DIAGNOSTICS_SUM_LEVELS	& *hFacW(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	164	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	166	DIAGNOSTICS_SUM_LEVELS	tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F	167	DIAGNOSTICS_SUM_LEVELS	& + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	168	DIAGNOSTICS_SUM_LEVELS	& *hFacS(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	180	DIAGNOSTICS_SUM_LEVELS	DO j = 2-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	183	DIAGNOSTICS_SUM_LEVELS	& hFacW( i, j, kLev,bi,bj),
./pkg/diagnostics/diagnostics_sum_levels.F	184	DIAGNOSTICS_SUM_LEVELS	& hFacW( i,j-1,kLev,bi,bj),
./pkg/diagnostics/diagnostics_sum_levels.F	185	DIAGNOSTICS_SUM_LEVELS	& hFacS( i, j, kLev,bi,bj),
./pkg/diagnostics/diagnostics_sum_levels.F	186	DIAGNOSTICS_SUM_LEVELS	& hFacS(i-1,j, kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	188	DIAGNOSTICS_SUM_LEVELS	tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F	189	DIAGNOSTICS_SUM_LEVELS	& + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	197	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	199	DIAGNOSTICS_SUM_LEVELS	fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F	57	DIAGNOSTICS_SUM_LEVELS	INTEGER i, j, k
./pkg/diagnostics/diagnostics_sum_levels.F	75	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	77	DIAGNOSTICS_SUM_LEVELS	tmpFld(i,j) = 0. _d 0
./pkg/diagnostics/diagnostics_sum_levels.F	86	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	88	DIAGNOSTICS_SUM_LEVELS	tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F	92	DIAGNOSTICS_SUM_LEVELS	DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F	94	DIAGNOSTICS_SUM_LEVELS	fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_summary.F	187	DIAGNOSTICS_SUMMARY	DO j=0,nRegions
./pkg/diagnostics/diagnostics_summary.F	188	DIAGNOSTICS_SUMMARY	IF ( diagSt_region(j,ld).GE.1
./pkg/diagnostics/diagnostics_summary.F	191	DIAGNOSTICS_SUMMARY	WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j
./pkg/diagnostics/diagnostics_summary.F	34	DIAGNOSTICS_SUMMARY	INTEGER j, k, k1, k2, l
./pkg/diagnostics/diagnostics_utils.F	137	DIAGNOSTICS_GET_DIAG	INTEGER i, j, ipnt, ipCt
./pkg/diagnostics/diagnostics_utils.F	160	DIAGNOSTICS_GET_DIAG	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_utils.F	162	DIAGNOSTICS_GET_DIAG	IF ( qdiag(i,j,ipnt,bi,bj) .LE. undefRL ) THEN
./pkg/diagnostics/diagnostics_utils.F	163	DIAGNOSTICS_GET_DIAG	qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F	165	DIAGNOSTICS_GET_DIAG	qtmp(i,j,k) = undefRL
./pkg/diagnostics/diagnostics_utils.F	170	DIAGNOSTICS_GET_DIAG	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_utils.F	172	DIAGNOSTICS_GET_DIAG	qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F	183	DIAGNOSTICS_GET_DIAG	DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_utils.F	185	DIAGNOSTICS_GET_DIAG	IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN
./pkg/diagnostics/diagnostics_utils.F	186	DIAGNOSTICS_GET_DIAG	qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F	187	DIAGNOSTICS_GET_DIAG	& / qdiag(i,j,ipCt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F	189	DIAGNOSTICS_GET_DIAG	qtmp(i,j,k) = undefRL
./pkg/diagnostics/diagnostics_utils.F	492	DIAGNOSTICS_SETKLEV	INTEGER i,j,n,nbc
./pkg/diagnostics/diagnostics_utils.F	497	DIAGNOSTICS_SETKLEV	j = 0
./pkg/diagnostics/diagnostics_utils.F	500	DIAGNOSTICS_SETKLEV	j = j+1
./pkg/diagnostics/diagnostics_utils.F	501	DIAGNOSTICS_SETKLEV	IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
./pkg/diagnostics/diagnostics_utils.F	504	DIAGNOSTICS_SETKLEV	nbc = j
./pkg/diagnostics/diagnostics_utils.F	509	DIAGNOSTICS_SETKLEV	j = 0
./pkg/diagnostics/diagnostics_utils.F	512	DIAGNOSTICS_SETKLEV	IF ( j.GE.1 .AND. nbc.GT.16 .AND.
./pkg/diagnostics/diagnostics_utils.F	517	DIAGNOSTICS_SETKLEV	j = j+1
./pkg/diagnostics/diagnostics_utils.F	518	DIAGNOSTICS_SETKLEV	IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
./pkg/diagnostics/diagnostics_utils.F	521	DIAGNOSTICS_SETKLEV	j = j+1
./pkg/diagnostics/diagnostics_utils.F	522	DIAGNOSTICS_SETKLEV	IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
./pkg/diagnostics/diagnostics_utils.F	528	DIAGNOSTICS_SETKLEV	IF ( j.GT.16 ) THEN
./pkg/diagnostics/diagnostics_utils.F	530	DIAGNOSTICS_SETKLEV	& 'DIAGS_MK_UNITS: too long (',j,' >16) input string'
./pkg/diagnostics/diagnostics_utils.F	573	DIAGNOSTICS_SETKLEV	INTEGER i,j,n
./pkg/diagnostics/diagnostics_utils.F	581	DIAGNOSTICS_SETKLEV	j = 0
./pkg/diagnostics/diagnostics_utils.F	586	DIAGNOSTICS_SETKLEV	j = j+1
./pkg/diagnostics/diagnostics_utils.F	587	DIAGNOSTICS_SETKLEV	IF (j.LE.80) DIAGS_MK_TITLE(j:j) = ' '
./pkg/diagnostics/diagnostics_utils.F	589	DIAGNOSTICS_SETKLEV	j = j+1
./pkg/diagnostics/diagnostics_utils.F	590	DIAGNOSTICS_SETKLEV	IF ( j.LE.80 ) DIAGS_MK_TITLE(j:j) = diagTitleInPieces(i:i)
./pkg/diagnostics/diagnostics_utils.F	593	DIAGNOSTICS_SETKLEV	flag = j.GE.1
./pkg/diagnostics/diagnostics_utils.F	597	DIAGNOSTICS_SETKLEV	IF ( j.GT.80 ) THEN
./pkg/diagnostics/diagnostics_utils.F	599	DIAGNOSTICS_SETKLEV	& 'DIAGS_MK_TITLE: too long (',j,' >80) input string'
./pkg/diagnostics/diagstats_ascii_out.F	43	DIAGSTATS_ASCII_OUT	INTEGER i, j, k, klev, nUnit
./pkg/diagnostics/diagstats_ascii_out.F	61	DIAGSTATS_ASCII_OUT	DO j=0,nRegions
./pkg/diagnostics/diagstats_ascii_out.F	62	DIAGSTATS_ASCII_OUT	IF ( diagSt_region(j,listId).GE.1 ) THEN
./pkg/diagnostics/diagstats_ascii_out.F	64	DIAGSTATS_ASCII_OUT	& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId)
./pkg/diagnostics/diagstats_ascii_out.F	82	DIAGSTATS_ASCII_OUT	& k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j)
./pkg/diagnostics/diagstats_calc.F	102	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	104	DIAGSTATS_CALC	tmpFld(i,j) = scaleFact*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F	105	DIAGSTATS_CALC	tmpFld(i,j) = tmpFld(i,j)*tmpFld(i,j)
./pkg/diagnostics/diagstats_calc.F	109	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	111	DIAGSTATS_CALC	tmpFld(i,j) = scaleFact*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F	119	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	121	DIAGSTATS_CALC	inside(i,j) = arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	122	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	123	DIAGSTATS_CALC	& .AND. frcArr(i,j) .NE.0.
./pkg/diagnostics/diagstats_calc.F	124	DIAGSTATS_CALC	tmpVol(i,j) = arrArea(i,j)arrhFac(i,j)frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F	128	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	130	DIAGSTATS_CALC	inside(i,j) = arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	131	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	132	DIAGSTATS_CALC	& .AND. frcArr(i,j) .NE.0.
./pkg/diagnostics/diagstats_calc.F	133	DIAGSTATS_CALC	tmpVol(i,j) = arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F	137	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	139	DIAGSTATS_CALC	inside(i,j) = arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	140	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	141	DIAGSTATS_CALC	tmpVol(i,j) = arrArea(i,j)*arrhFac(i,j)
./pkg/diagnostics/diagstats_calc.F	145	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	147	DIAGSTATS_CALC	inside(i,j) = arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	148	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	149	DIAGSTATS_CALC	tmpVol(i,j) = arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F	156	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	158	DIAGSTATS_CALC	inside(i,j) = inside(i,j) .AND. inpArr(i,j).NE.specialVal
./pkg/diagnostics/diagstats_calc.F	164	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	166	DIAGSTATS_CALC	inside(i,j) = inside(i,j) .AND. regMask(i,j).EQ.regMskVal
./pkg/diagnostics/diagstats_calc.F	170	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	172	DIAGSTATS_CALC	inside(i,j) = inside(i,j) .AND.( regMask(i,j).EQ.regMskVal
./pkg/diagnostics/diagstats_calc.F	173	DIAGSTATS_CALC	& .OR. regMask(i-1,j).EQ.regMskVal )
./pkg/diagnostics/diagstats_calc.F	177	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	179	DIAGSTATS_CALC	inside(i,j) = inside(i,j) .AND.( regMask(i,j).EQ.regMskVal
./pkg/diagnostics/diagstats_calc.F	180	DIAGSTATS_CALC	& .OR. regMask(i,j-1).EQ.regMskVal )
./pkg/diagnostics/diagstats_calc.F	186	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	188	DIAGSTATS_CALC	IF ( inside(i,j) ) THEN
./pkg/diagnostics/diagstats_calc.F	189	DIAGSTATS_CALC	statArr(im) = tmpFld(i,j)
./pkg/diagnostics/diagstats_calc.F	190	DIAGSTATS_CALC	statArr(0) = statArr(0) + tmpVol(i,j)
./pkg/diagnostics/diagstats_calc.F	191	DIAGSTATS_CALC	statArr(1) = statArr(1) + tmpVol(i,j)*tmpFld(i,j)
./pkg/diagnostics/diagstats_calc.F	192	DIAGSTATS_CALC	statArr(2) = statArr(2) + tmpVol(i,j)tmpFld(i,j)tmpFld(i,j)
./pkg/diagnostics/diagstats_calc.F	197	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	199	DIAGSTATS_CALC	IF ( inside(i,j) ) THEN
./pkg/diagnostics/diagstats_calc.F	200	DIAGSTATS_CALC	statArr(im) = MIN(tmpFld(i,j),statArr(im))
./pkg/diagnostics/diagstats_calc.F	201	DIAGSTATS_CALC	statArr(ix) = MAX(tmpFld(i,j),statArr(ix))
./pkg/diagnostics/diagstats_calc.F	215	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	217	DIAGSTATS_CALC	IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	218	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	219	DIAGSTATS_CALC	& .AND. inpArr(i,j).NE.specialVal )
./pkg/diagnostics/diagstats_calc.F	220	DIAGSTATS_CALC	& arrMaskL(i,j) = 1. _d 0
./pkg/diagnostics/diagstats_calc.F	231	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	233	DIAGSTATS_CALC	IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	234	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0. )
./pkg/diagnostics/diagstats_calc.F	235	DIAGSTATS_CALC	& arrMaskL(i,j) = 1. _d 0
./pkg/diagnostics/diagstats_calc.F	246	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	248	DIAGSTATS_CALC	IF ( arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	249	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	250	DIAGSTATS_CALC	& .AND. inpArr(i,j).NE.specialVal )
./pkg/diagnostics/diagstats_calc.F	251	DIAGSTATS_CALC	& arrMaskL(i,j) = 1. _d 0
./pkg/diagnostics/diagstats_calc.F	262	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	264	DIAGSTATS_CALC	IF ( arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F	265	DIAGSTATS_CALC	& .AND. arrhFac(i,j).NE.0. )
./pkg/diagnostics/diagstats_calc.F	266	DIAGSTATS_CALC	& arrMaskL(i,j) = 1. _d 0
./pkg/diagnostics/diagstats_calc.F	279	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	281	DIAGSTATS_CALC	IF ( regMask(i,j).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0
./pkg/diagnostics/diagstats_calc.F	285	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	287	DIAGSTATS_CALC	IF ( regMask(i,j).NE.regMskVal .AND.
./pkg/diagnostics/diagstats_calc.F	288	DIAGSTATS_CALC	& regMask(i-1,j).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0
./pkg/diagnostics/diagstats_calc.F	292	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	294	DIAGSTATS_CALC	IF ( regMask(i,j).NE.regMskVal .AND.
./pkg/diagnostics/diagstats_calc.F	295	DIAGSTATS_CALC	& regMask(i,j-1).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0
./pkg/diagnostics/diagstats_calc.F	303	DIAGSTATS_CALC	DO j = 1,jRun
./pkg/diagnostics/diagstats_calc.F	305	DIAGSTATS_CALC	tmpFld(i,j) = inpArr(i,j)*scaleFact
./pkg/diagnostics/diagstats_calc.F	77	DIAGSTATS_CALC	INTEGER i, j, n
./pkg/diagnostics/diagstats_clear.F	70	DIAGSTATS_CLRDIAG	INTEGER i,j,k
./pkg/diagnostics/diagstats_clear.F	79	DIAGSTATS_CLRDIAG	DO j = 0,nRegions
./pkg/diagnostics/diagstats_clear.F	81	DIAGSTATS_CLRDIAG	qSdiag(i,j,k,bi,bj) = 0.
./pkg/diagnostics/diagstats_fill.F	370	DIAGSTATS_TO_RL	INTEGER i, j, kFr
./pkg/diagnostics/diagstats_fill.F	373	DIAGSTATS_TO_RL	DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F	375	DIAGSTATS_TO_RL	outFldRL(i,j) = inpFldRL(i,j,kIn,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F	379	DIAGSTATS_TO_RL	DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F	381	DIAGSTATS_TO_RL	outFldRL(i,j) = inpFldRS(i,j,kIn,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F	389	DIAGSTATS_TO_RL	DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F	391	DIAGSTATS_TO_RL	outFrcRL(i,j) = inpFrcRL(i,j,kFr,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F	395	DIAGSTATS_TO_RL	DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F	397	DIAGSTATS_TO_RL	outFrcRL(i,j) = inpFrcRS(i,j,kFr,biIn,bjIn)
./pkg/diagnostics/diagstats_ini_io.F	37	DIAGSTATS_INI_IO	INTEGER m, n, j, iL, nUnit
./pkg/diagnostics/diagstats_ini_io.F	74	DIAGSTATS_INI_IO	DO j=0,nRegions
./pkg/diagnostics/diagstats_ini_io.F	75	DIAGSTATS_INI_IO	IF (diagSt_region(j,n).GE.1 .AND.iL+3.LE.MAX_LEN_MBUF) THEN
./pkg/diagnostics/diagstats_ini_io.F	77	DIAGSTATS_INI_IO	WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j
./pkg/diagnostics/diagstats_ini_io.F	82	DIAGSTATS_INI_IO	DO j=1,diagSt_nbFlds(n),10
./pkg/diagnostics/diagstats_ini_io.F	84	DIAGSTATS_INI_IO	& (' ', diagSt_Flds(m,n), m=j,MIN(diagSt_nbFlds(n),j+9) )
./pkg/diagnostics/diagstats_ini_io.F	86	DIAGSTATS_INI_IO	DO j=1,diagSt_nbFlds(n),50
./pkg/diagnostics/diagstats_ini_io.F	88	DIAGSTATS_INI_IO	& ( kdiag(jSdiag(m,n)), m=j,MIN(diagSt_nbFlds(n),j+49) )
./pkg/diagnostics/diagstats_mnc_out.F	158	DIAGSTATS_MNC_OUT	DO j = 1,nlevels(listId)
./pkg/diagnostics/diagstats_mnc_out.F	159	DIAGSTATS_MNC_OUT	ztmp(j) = rC(NINT(levs(j,listId)))
./pkg/diagnostics/diagstats_mnc_out.F	165	DIAGSTATS_MNC_OUT	DO j = 1,nlevels(listId)
./pkg/diagnostics/diagstats_mnc_out.F	166	DIAGSTATS_MNC_OUT	ztmp(j) = rF(NINT(levs(j,listId)) + 1)
./pkg/diagnostics/diagstats_mnc_out.F	172	DIAGSTATS_MNC_OUT	DO j = 1,nlevels(listId)
./pkg/diagnostics/diagstats_mnc_out.F	173	DIAGSTATS_MNC_OUT	ztmp(j) = rF(NINT(levs(j,listId)))
./pkg/diagnostics/diagstats_mnc_out.F	258	DIAGSTATS_MNC_OUT	DO j = 0,nRegions
./pkg/diagnostics/diagstats_mnc_out.F	259	DIAGSTATS_MNC_OUT	stmp(1,j+1) = statGlob(ist,0,j)
./pkg/diagnostics/diagstats_mnc_out.F	300	DIAGSTATS_MNC_OUT	DO j = 0,nRegions
./pkg/diagnostics/diagstats_mnc_out.F	302	DIAGSTATS_MNC_OUT	stmp(k,j+1) = statGlob(ist,k,j)
./pkg/diagnostics/diagstats_mnc_out.F	55	DIAGSTATS_MNC_OUT	INTEGER i, j, k
./pkg/diagnostics/diagstats_others_calc.F	112	DIAGSTATS_LM_CALC	DO j=1-OLy,sNy+OLy
./pkg/diagnostics/diagstats_others_calc.F	114	DIAGSTATS_LM_CALC	tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj)
./pkg/diagnostics/diagstats_others_calc.F	86	DIAGSTATS_LM_CALC	INTEGER i,j
./pkg/diagnostics/diagstats_output.F	122	DIAGSTATS_OUTPUT	& ' vol(',j,' ):', statGlob(0,0,j),' Parms: ',gdiag(ndId)
./pkg/diagnostics/diagstats_output.F	126	DIAGSTATS_OUTPUT	& ' vol(',j,' ):',tmp_Glob(0,0), ' integral',tmp_Glob(1,0)
./pkg/diagnostics/diagstats_output.F	53	DIAGSTATS_OUTPUT	INTEGER j, m, ndId, iSp, iSm
./pkg/diagnostics/diagstats_output.F	85	DIAGSTATS_OUTPUT	DO j=0,nRegions
./pkg/diagnostics/diagstats_output.F	86	DIAGSTATS_OUTPUT	IF ( diagSt_region(j,listId).GT.0 ) THEN
./pkg/diagnostics/diagstats_output.F	90	DIAGSTATS_OUTPUT	O statGlob(0,0,j), tmp_Glob,
./pkg/diagnostics/diagstats_output.F	91	DIAGSTATS_OUTPUT	I undef, nLev, j,
./pkg/diagnostics/diagstats_output.F	99	DIAGSTATS_OUTPUT	& ' , region:', j
./pkg/diagnostics/diagstats_set_pointers.F	152	DIAGSTATS_SET_POINTERS	DO j=1,nRegions
./pkg/diagnostics/diagstats_set_pointers.F	153	DIAGSTATS_SET_POINTERS	IF ( diagSt_region(j,l).NE.0 ) THEN
./pkg/diagnostics/diagstats_set_pointers.F	154	DIAGSTATS_SET_POINTERS	IF ( diagSt_kRegMsk(j).LT.1 .OR.
./pkg/diagnostics/diagstats_set_pointers.F	155	DIAGSTATS_SET_POINTERS	& diagSt_kRegMsk(j).GT.nSetRegMask ) THEN
./pkg/diagnostics/diagstats_set_pointers.F	157	DIAGSTATS_SET_POINTERS	& ' region', j, ' undefined (k=', diagSt_kRegMsk(j),
./pkg/diagnostics/diagstats_set_pointers.F	39	DIAGSTATS_SET_POINTERS	INTEGER j, k, l
./pkg/diagnostics/diagstats_set_pointers.F	93	DIAGSTATS_SET_POINTERS	DO j=0,nRegions
./pkg/diagnostics/diagstats_set_pointers.F	95	DIAGSTATS_SET_POINTERS	& .OR. (diagSt_region(j,l).LT.diagSt_region(j,ld))
./pkg/diagnostics/diagstats_set_regions.F	106	DIAGSTATS_SET_REGIONS	DO j=1-Oly,sNy+Oly
./pkg/diagnostics/diagstats_set_regions.F	108	DIAGSTATS_SET_REGIONS	diagSt_regMask(i,j,k,bi,bj) = tmpVar(i,j,bi,bj)
./pkg/diagnostics/diagstats_set_regions.F	131	DIAGSTATS_SET_REGIONS	DO j=1,nRegions
./pkg/diagnostics/diagstats_set_regions.F	133	DIAGSTATS_SET_REGIONS	IF ( diagSt_kRegMsk(j).LT.0 .OR.
./pkg/diagnostics/diagstats_set_regions.F	134	DIAGSTATS_SET_REGIONS	& diagSt_kRegMsk(j).GT.sizRegMsk ) THEN
./pkg/diagnostics/diagstats_set_regions.F	136	DIAGSTATS_SET_REGIONS	& '(region',j,') invalid region-mask index :',diagSt_kRegMsk(j)
./pkg/diagnostics/diagstats_set_regions.F	140	DIAGSTATS_SET_REGIONS	ELSEIF ( diagSt_kRegMsk(j).GT.nSetRegMask ) THEN
./pkg/diagnostics/diagstats_set_regions.F	142	DIAGSTATS_SET_REGIONS	& 'region',j,' , kRegMsk=', diagSt_kRegMsk(j),
./pkg/diagnostics/diagstats_set_regions.F	146	DIAGSTATS_SET_REGIONS	ELSEIF ( diagSt_kRegMsk(j).NE.0 ) THEN
./pkg/diagnostics/diagstats_set_regions.F	172	DIAGSTATS_SET_REGIONS	DO j=1,nRegions
./pkg/diagnostics/diagstats_set_regions.F	173	DIAGSTATS_SET_REGIONS	IF ( diagSt_kRegMsk(j).NE.0 ) THEN
./pkg/diagnostics/diagstats_set_regions.F	176	DIAGSTATS_SET_REGIONS	WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j
./pkg/diagnostics/diagstats_set_regions.F	196	DIAGSTATS_SET_REGIONS	DO j=1-Oly,1-Oly
./pkg/diagnostics/diagstats_set_regions.F	198	DIAGSTATS_SET_REGIONS	diagSt_regMask(i,j,1,bi,bj) = 0.
./pkg/diagnostics/diagstats_set_regions.F	207	DIAGSTATS_SET_REGIONS	DO j=1,nRegions
./pkg/diagnostics/diagstats_set_regions.F	208	DIAGSTATS_SET_REGIONS	flag = flag .OR. diagSt_kRegMsk(j).NE.0
./pkg/diagnostics/diagstats_set_regions.F	209	DIAGSTATS_SET_REGIONS	& .OR. diagSt_vRegMsk(j).NE.0.
./pkg/diagnostics/diagstats_set_regions.F	38	DIAGSTATS_SET_REGIONS	INTEGER i, j
./pkg/diagnostics/diagstats_set_regions.F	58	DIAGSTATS_SET_REGIONS	DO j=1-Oly,sNy+Oly
./pkg/diagnostics/diagstats_set_regions.F	60	DIAGSTATS_SET_REGIONS	diagSt_regMask(i,j,k,bi,bj) = 0.
./pkg/dic/alk_surfforcing.F	49	ALK_SURFFORCING	INTEGER i,j
./pkg/dic/alk_surfforcing.F	52	ALK_SURFFORCING	DO j=jmin,jmax
./pkg/dic/alk_surfforcing.F	54	ALK_SURFFORCING	IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN
./pkg/dic/alk_surfforcing.F	61	ALK_SURFFORCING	GALK(i,j)=gsm_ALKsurfaceForcingS(i,j,bi,bj)
./pkg/dic/alk_surfforcing.F	68	ALK_SURFFORCING	GALK(i,j)=0. _d 0
./pkg/dic/bio_export.F	103	BIO_EXPORT	DO j=jmin,jmax
./pkg/dic/bio_export.F	105	BIO_EXPORT	atten=(k0drF(k)hFacC(i,j,k,bi,bj)*.5 _d 0)
./pkg/dic/bio_export.F	107	BIO_EXPORT	& hFacC(i,j,k-1,bi,bj).5 _d 0)
./pkg/dic/bio_export.F	108	BIO_EXPORT	lit(i,j)=lit(i,j)*exp(-atten)
./pkg/dic/bio_export.F	112	BIO_EXPORT	IF (lit(i,j).LT.0. _d 0.OR.lit(i,j).GT.350. _d 0) THEN
./pkg/dic/bio_export.F	113	BIO_EXPORT	print*,'QQ lit',i,j,lit(i,j)
./pkg/dic/bio_export.F	118	BIO_EXPORT	tmppo4=max(0. _d 0, PTR_PO4(i,j,k))
./pkg/dic/bio_export.F	119	BIO_EXPORT	lit(i,j)=max(0. _d 0,lit(i,j))
./pkg/dic/bio_export.F	121	BIO_EXPORT	tmppo4=PTR_PO4(i,j,k)
./pkg/dic/bio_export.F	126	BIO_EXPORT	tmpfe=max(0. _d 0,PTR_FE(i,j,k))
./pkg/dic/bio_export.F	128	BIO_EXPORT	tmpfe=PTR_FE(i,j,k)
./pkg/dic/bio_export.F	147	BIO_EXPORT	bioac(i,j,k)=alpha(i,j,bi,bj)*
./pkg/dic/bio_export.F	148	BIO_EXPORT	& lit(i,j)/(lit(i,j)+lit0)maskC(i,j,k,bi,bj)
./pkg/dic/bio_export.F	83	BIO_EXPORT	DO j=jmin,jmax
./pkg/dic/bio_export.F	86	BIO_EXPORT	lit(i,j)=PAR(i,j,bi,bj)
./pkg/dic/bio_export.F	88	BIO_EXPORT	lit(i,j)=-parfracQsw(i,j,bi,bj)maskC(i,j,1,bi,bj)
./pkg/dic/bio_export.F	90	BIO_EXPORT	lit(i,j)=sfac(j)
./pkg/dic/bio_export.F	96	BIO_EXPORT	lit(i,j)=lit(i,j)*(1. _d 0 - FIce(i,j,bi,bj))
./pkg/dic/calcite_saturation.F	109	CALCITE_SATURATION	I theta(i,j,k,bi,bj),salt(i,j,k,bi,bj),
./pkg/dic/calcite_saturation.F	112	CALCITE_SATURATION	I ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/calcite_saturation.F	113	CALCITE_SATURATION	I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj),
./pkg/dic/calcite_saturation.F	114	CALCITE_SATURATION	I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
./pkg/dic/calcite_saturation.F	115	CALCITE_SATURATION	I aksi(i,j,bi,bj),akf(i,j,bi,bj),
./pkg/dic/calcite_saturation.F	116	CALCITE_SATURATION	I ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj),
./pkg/dic/calcite_saturation.F	117	CALCITE_SATURATION	I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/calcite_saturation.F	119	CALCITE_SATURATION	I i,j,k,bi,bj,myIter,myThid )
./pkg/dic/calcite_saturation.F	128	CALCITE_SATURATION	omegaC(i,j,k,bi,bj) = calcium * carbonate /
./pkg/dic/calcite_saturation.F	129	CALCITE_SATURATION	& Ksp_TP_Calc(i,j,bi,bj)
./pkg/dic/calcite_saturation.F	156	CALCITE_SATURATION	omegaC(i,j,k,bi,bj) = 0. _d 0
./pkg/dic/calcite_saturation.F	81	CALCITE_SATURATION	DO j=jmin,jmax
./pkg/dic/calcite_saturation.F	84	CALCITE_SATURATION	if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then
./pkg/dic/calcite_saturation.F	86	CALCITE_SATURATION	calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0
./pkg/dic/calcite_saturation.F	90	CALCITE_SATURATION	po4local = PTR_PO4(i,j,k)
./pkg/dic/calcite_saturation.F	91	CALCITE_SATURATION	diclocal = PTR_DIC(i,j,k)
./pkg/dic/calcite_saturation.F	92	CALCITE_SATURATION	alklocal = PTR_ALK(i,j,k)
./pkg/dic/car_flux.F	102	CAR_FLUX	DO j=jmin,jmax
./pkg/dic/car_flux.F	104	CAR_FLUX	IF ( caexport(i,j) .NE. 0. _d 0 ) THEN
./pkg/dic/car_flux.F	107	CAR_FLUX	depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F	110	CAR_FLUX	flux_l = caexport(i,j)*reminFac
./pkg/dic/car_flux.F	111	CAR_FLUX	& *maskC(i,j,kop1,bi,bj)
./pkg/dic/car_flux.F	113	CAR_FLUX	cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/car_flux.F	114	CAR_FLUX	& recip_drF(ko) _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F	116	CAR_FLUX	flux_u(i,j) = flux_l
./pkg/dic/car_flux.F	127	CAR_FLUX	DO j=jmin,jmax
./pkg/dic/car_flux.F	129	CAR_FLUX	cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/car_flux.F	130	CAR_FLUX	& recip_drF(ko) _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F	63	CAR_FLUX	DO j=jmin,jmax
./pkg/dic/car_flux.F	65	CAR_FLUX	caexport(i,j) = 0. _d 0
./pkg/dic/car_flux.F	66	CAR_FLUX	IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN
./pkg/dic/car_flux.F	70	CAR_FLUX	cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k)
./pkg/dic/car_flux.F	71	CAR_FLUX	ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN
./pkg/dic/car_flux.F	72	CAR_FLUX	cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k)
./pkg/dic/car_flux.F	75	CAR_FLUX	caexport(i,j) = CAR_S(i,j,k)drF(k) _hFacC(i,j,k,bi,bj)
./pkg/dic/car_flux.F	84	CAR_FLUX	DO j=jmin,jmax
./pkg/dic/car_flux.F	86	CAR_FLUX	flux_u(i,j) = caexport(i,j)
./pkg/dic/car_flux_omega_top.F	103	CAR_FLUX_OMEGA_TOP	if (omegaC(i,j,ko,bi,bj) .gt. 1.0) then
./pkg/dic/car_flux_omega_top.F	107	CAR_FLUX_OMEGA_TOP	if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then
./pkg/dic/car_flux_omega_top.F	110	CAR_FLUX_OMEGA_TOP	cflux(i,j,1)=cflux(i,j,1)+
./pkg/dic/car_flux_omega_top.F	111	CAR_FLUX_OMEGA_TOP	& ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) )
./pkg/dic/car_flux_omega_top.F	121	CAR_FLUX_OMEGA_TOP	KierRate = 7.177* ((1.0-omegaC(i,j,ko,bi,bj))**4.54)
./pkg/dic/car_flux_omega_top.F	132	CAR_FLUX_OMEGA_TOP	& hFacC(i,j,ko,bi,bj)/WsinkPIC
./pkg/dic/car_flux_omega_top.F	143	CAR_FLUX_OMEGA_TOP	if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0)
./pkg/dic/car_flux_omega_top.F	148	CAR_FLUX_OMEGA_TOP	cflux(i,j,ko)=cflux(i,j,ko) +
./pkg/dic/car_flux_omega_top.F	149	CAR_FLUX_OMEGA_TOP	& ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) )
./pkg/dic/car_flux_omega_top.F	159	CAR_FLUX_OMEGA_TOP	if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then
./pkg/dic/car_flux_omega_top.F	161	CAR_FLUX_OMEGA_TOP	cflux(i,j,1)=cflux(i,j,1)
./pkg/dic/car_flux_omega_top.F	162	CAR_FLUX_OMEGA_TOP	& +bioac(i,j,k)(1.0-DOPfraction)
./pkg/dic/car_flux_omega_top.F	163	CAR_FLUX_OMEGA_TOP	& R_CP*rain_ratio(i,j,bi,bj)
./pkg/dic/car_flux_omega_top.F	164	CAR_FLUX_OMEGA_TOP	& drF(k)hFacC(i,j,k,bi,bj)/
./pkg/dic/car_flux_omega_top.F	165	CAR_FLUX_OMEGA_TOP	& (drF(1)*hFacC(i,j,1,bi,bj) )
./pkg/dic/car_flux_omega_top.F	168	CAR_FLUX_OMEGA_TOP	cflux(i,j,k)=cflux(i,j,k)
./pkg/dic/car_flux_omega_top.F	169	CAR_FLUX_OMEGA_TOP	& +bioac(i,j,k)(1.0-DOPfraction)
./pkg/dic/car_flux_omega_top.F	170	CAR_FLUX_OMEGA_TOP	& R_CP*rain_ratio(i,j,bi,bj)
./pkg/dic/car_flux_omega_top.F	80	CAR_FLUX_OMEGA_TOP	DO j=jmin,jmax
./pkg/dic/car_flux_omega_top.F	84	CAR_FLUX_OMEGA_TOP	cflux(i,j,k)=0.d0
./pkg/dic/car_flux_omega_top.F	87	CAR_FLUX_OMEGA_TOP	if (hFacC(i,j,k,bi,bj).gt.0.d0) then
./pkg/dic/car_flux_omega_top.F	88	CAR_FLUX_OMEGA_TOP	caexport(i,j)= R_CPrain_ratio(i,j,bi,bj)bioac(i,j,k)*
./pkg/dic/car_flux_omega_top.F	89	CAR_FLUX_OMEGA_TOP	& (1.0-DOPfraction)drF(k)hFacC(i,j,k,bi,bj)
./pkg/dic/car_flux_omega_top.F	93	CAR_FLUX_OMEGA_TOP	if (hFacC(i,j,ko,bi,bj).gt.0.d0) then
./pkg/dic/car_flux_omega_top.F	95	CAR_FLUX_OMEGA_TOP	flux_u = caexport(i,j)
./pkg/dic/carbon_chem.F	1039	CARBON_COEFFS_PRESSURE_DEP	Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc10*(xvalue)
./pkg/dic/carbon_chem.F	1046	CARBON_COEFFS_PRESSURE_DEP	ff(i,j,bi,bj)=0.d0
./pkg/dic/carbon_chem.F	1047	CARBON_COEFFS_PRESSURE_DEP	ak0(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F	1048	CARBON_COEFFS_PRESSURE_DEP	ak1(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F	1049	CARBON_COEFFS_PRESSURE_DEP	ak2(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F	1050	CARBON_COEFFS_PRESSURE_DEP	akb(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F	1051	CARBON_COEFFS_PRESSURE_DEP	ak1p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1052	CARBON_COEFFS_PRESSURE_DEP	ak2p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1053	CARBON_COEFFS_PRESSURE_DEP	ak3p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1054	CARBON_COEFFS_PRESSURE_DEP	aksi(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1055	CARBON_COEFFS_PRESSURE_DEP	akw(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1056	CARBON_COEFFS_PRESSURE_DEP	aks(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F	1057	CARBON_COEFFS_PRESSURE_DEP	akf(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F	1058	CARBON_COEFFS_PRESSURE_DEP	bt(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1059	CARBON_COEFFS_PRESSURE_DEP	st(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1060	CARBON_COEFFS_PRESSURE_DEP	ft(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	1061	CARBON_COEFFS_PRESSURE_DEP	Ksp_TP_Calc(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F	29	CALC_PCO2	I i,j,k,bi,bj,myIter,myThid )
./pkg/dic/carbon_chem.F	348	CALC_PCO2_APPROX	I i,j,k,bi,bj,myIter,myThid )
./pkg/dic/carbon_chem.F	391	CALC_PCO2_APPROX	INTEGER i,j,k,bi,bj,myIter
./pkg/dic/carbon_chem.F	573	CARBON_COEFFS	INTEGER j
./pkg/dic/carbon_chem.F	587	CARBON_COEFFS	do j=jmin,jmax
./pkg/dic/carbon_chem.F	588	CARBON_COEFFS	if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then
./pkg/dic/carbon_chem.F	589	CARBON_COEFFS	t = ttemp(i,j)
./pkg/dic/carbon_chem.F	590	CARBON_COEFFS	s = stemp(i,j)
./pkg/dic/carbon_chem.F	615	CARBON_COEFFS	fugf(i,j,bi,bj) = exp( (B+2. _d 0delta) P1atm / RT)
./pkg/dic/carbon_chem.F	619	CARBON_COEFFS	ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 +
./pkg/dic/carbon_chem.F	625	CARBON_COEFFS	ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 +
./pkg/dic/carbon_chem.F	633	CARBON_COEFFS	ak1(i,j,bi,bj)=10.*(-1. _d 0(3670.7 _d 0*invtk -
./pkg/dic/carbon_chem.F	636	CARBON_COEFFS	ak2(i,j,bi,bj)=10.*(-1. _d 0(1394.7 _d 0*invtk+ 4.777 _d 0-
./pkg/dic/carbon_chem.F	641	CARBON_COEFFS	akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts -
./pkg/dic/carbon_chem.F	649	CARBON_COEFFS	ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 -
./pkg/dic/carbon_chem.F	656	CARBON_COEFFS	ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 -
./pkg/dic/carbon_chem.F	663	CARBON_COEFFS	ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 +
./pkg/dic/carbon_chem.F	669	CARBON_COEFFS	aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 -
./pkg/dic/carbon_chem.F	678	CARBON_COEFFS	akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 -
./pkg/dic/carbon_chem.F	67	CALC_PCO2	INTEGER i,j,k,bi,bj,myIter
./pkg/dic/carbon_chem.F	685	CARBON_COEFFS	aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 -
./pkg/dic/carbon_chem.F	694	CARBON_COEFFS	akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 +
./pkg/dic/carbon_chem.F	696	CARBON_COEFFS	& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj)))
./pkg/dic/carbon_chem.F	700	CARBON_COEFFS	bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0
./pkg/dic/carbon_chem.F	702	CARBON_COEFFS	st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0
./pkg/dic/carbon_chem.F	704	CARBON_COEFFS	ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0
./pkg/dic/carbon_chem.F	708	CARBON_COEFFS	fugf(i,j,bi,bj)=0. _d 0
./pkg/dic/carbon_chem.F	709	CARBON_COEFFS	ff(i,j,bi,bj)=0. _d 0
./pkg/dic/carbon_chem.F	710	CARBON_COEFFS	ak0(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F	711	CARBON_COEFFS	ak1(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F	712	CARBON_COEFFS	ak2(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F	713	CARBON_COEFFS	akb(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F	714	CARBON_COEFFS	ak1p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	715	CARBON_COEFFS	ak2p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	716	CARBON_COEFFS	ak3p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	717	CARBON_COEFFS	aksi(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	718	CARBON_COEFFS	akw(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	719	CARBON_COEFFS	aks(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F	720	CARBON_COEFFS	akf(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F	721	CARBON_COEFFS	bt(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	722	CARBON_COEFFS	st(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	723	CARBON_COEFFS	ft(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F	816	CARBON_COEFFS_PRESSURE_DEP	INTEGER j
./pkg/dic/carbon_chem.F	867	CARBON_COEFFS_PRESSURE_DEP	do j=jmin,jmax
./pkg/dic/carbon_chem.F	868	CARBON_COEFFS_PRESSURE_DEP	if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then
./pkg/dic/carbon_chem.F	869	CARBON_COEFFS_PRESSURE_DEP	t = ttemp(i,j)
./pkg/dic/carbon_chem.F	870	CARBON_COEFFS_PRESSURE_DEP	s = stemp(i,j)
./pkg/dic/carbon_chem.F	888	CARBON_COEFFS_PRESSURE_DEP	ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 +
./pkg/dic/carbon_chem.F	894	CARBON_COEFFS_PRESSURE_DEP	ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 +
./pkg/dic/carbon_chem.F	902	CARBON_COEFFS_PRESSURE_DEP	ak1(i,j,bi,bj)=10*(-1(3670.7*invtk -
./pkg/dic/carbon_chem.F	905	CARBON_COEFFS_PRESSURE_DEP	ak2(i,j,bi,bj)=10*(-1(1394.7*invtk + 4.777 -
./pkg/dic/carbon_chem.F	911	CARBON_COEFFS_PRESSURE_DEP	ak1(i,j,bi,bj) = ak1(i,j,bi,bj)*
./pkg/dic/carbon_chem.F	918	CARBON_COEFFS_PRESSURE_DEP	ak2(i,j,bi,bj) = ak2(i,j,bi,bj)*
./pkg/dic/carbon_chem.F	923	CARBON_COEFFS_PRESSURE_DEP	akb(i,j,bi,bj)=exp((-8966.90 - 2890.53sqrts - 77.942s +
./pkg/dic/carbon_chem.F	937	CARBON_COEFFS_PRESSURE_DEP	akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor)
./pkg/dic/carbon_chem.F	941	CARBON_COEFFS_PRESSURE_DEP	ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 -
./pkg/dic/carbon_chem.F	948	CARBON_COEFFS_PRESSURE_DEP	ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 -
./pkg/dic/carbon_chem.F	955	CARBON_COEFFS_PRESSURE_DEP	ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 +
./pkg/dic/carbon_chem.F	961	CARBON_COEFFS_PRESSURE_DEP	aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 -
./pkg/dic/carbon_chem.F	970	CARBON_COEFFS_PRESSURE_DEP	akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 -
./pkg/dic/carbon_chem.F	977	CARBON_COEFFS_PRESSURE_DEP	aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 -
./pkg/dic/carbon_chem.F	986	CARBON_COEFFS_PRESSURE_DEP	akf(i,j,bi,bj)=exp(1590.2invtk - 12.641 + 1.525sqrtis +
./pkg/dic/carbon_chem.F	988	CARBON_COEFFS_PRESSURE_DEP	& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj)))
./pkg/dic/carbon_chem.F	992	CARBON_COEFFS_PRESSURE_DEP	bt(i,j,bi,bj) = 0.000232 * scl/10.811
./pkg/dic/carbon_chem.F	994	CARBON_COEFFS_PRESSURE_DEP	st(i,j,bi,bj) = 0.14 * scl/96.062
./pkg/dic/carbon_chem.F	996	CARBON_COEFFS_PRESSURE_DEP	ft(i,j,bi,bj) = 0.000067 * scl/18.9984
./pkg/dic/dic_atmos.F	111	DIC_ATMOS	DO j=1,sNy
./pkg/dic/dic_atmos.F	114	DIC_ATMOS	& + ( pTracer(i,j,k,bi,bj,1)
./pkg/dic/dic_atmos.F	116	DIC_ATMOS	& +R_cp*pTracer(i,j,k,bi,bj,4)
./pkg/dic/dic_atmos.F	118	DIC_ATMOS	& ) * rA(i,j,bi,bj)
./pkg/dic/dic_atmos.F	119	DIC_ATMOS	& drF(k)hFacC(i,j,k,bi,bj)
./pkg/dic/dic_atmos.F	197	DIC_ATMOS	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_atmos.F	199	DIC_ATMOS	AtmospCO2(i,j,bi,bj) = atm_pCO2
./pkg/dic/dic_atmos.F	55	DIC_ATMOS	INTEGER bi, bj, i,j,k
./pkg/dic/dic_biotic_forcing.F	102	DIC_BIOTIC_FORCING	INTEGER i,j,k
./pkg/dic/dic_biotic_forcing.F	109	DIC_BIOTIC_FORCING	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_biotic_forcing.F	111	DIC_BIOTIC_FORCING	RDOP(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	112	DIC_BIOTIC_FORCING	GDIC(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	113	DIC_BIOTIC_FORCING	GALK(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	114	DIC_BIOTIC_FORCING	GPO4(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	115	DIC_BIOTIC_FORCING	GDOP(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	116	DIC_BIOTIC_FORCING	CAR(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	117	DIC_BIOTIC_FORCING	BIOac(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	118	DIC_BIOTIC_FORCING	pflux(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	119	DIC_BIOTIC_FORCING	exportflux(i,j,k)=0. _d 0
./pkg/dic/dic_biotic_forcing.F	120	DIC_BIOTIC_FORCING	cflux(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	121	DIC_BIOTIC_FORCING	CAR_S(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	123	DIC_BIOTIC_FORCING	GO2(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	126	DIC_BIOTIC_FORCING	GFE(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	133	DIC_BIOTIC_FORCING	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_biotic_forcing.F	135	DIC_BIOTIC_FORCING	SURA(i,j) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	136	DIC_BIOTIC_FORCING	SURC(i,j) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	137	DIC_BIOTIC_FORCING	SURO(i,j) =0. _d 0
./pkg/dic/dic_biotic_forcing.F	181	DIC_BIOTIC_FORCING	DO j=jmin,jmax
./pkg/dic/dic_biotic_forcing.F	183	DIC_BIOTIC_FORCING	CAR_S(i,j,k)=BIOac(i,j,k)R_CPrain_ratio(i,j,bi,bj)*
./pkg/dic/dic_biotic_forcing.F	213	DIC_BIOTIC_FORCING	DO j=jmin,jmax
./pkg/dic/dic_biotic_forcing.F	216	DIC_BIOTIC_FORCING	RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)KDOPReminPTR_DOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F	219	DIC_BIOTIC_FORCING	RDOP(i,j,k)= maskC(i,j,k,bi,bj)KDOPReminPTR_DOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F	221	DIC_BIOTIC_FORCING	GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k) + RDOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F	223	DIC_BIOTIC_FORCING	car(i,j,k) = cflux(i,j,k) - CAR_S(i,j,k)
./pkg/dic/dic_biotic_forcing.F	225	DIC_BIOTIC_FORCING	GDOP(i,j,k)=+BIOac(i,j,k)*DOPfraction - RDOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F	227	DIC_BIOTIC_FORCING	GALK(i,j,k)=+2. _d 0 car(i,j,k)-R_NPGPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F	229	DIC_BIOTIC_FORCING	GDIC(i,j,k)=car(i,j,k)+R_CP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F	232	DIC_BIOTIC_FORCING	if (PTR_O2(i,j,k).GT.O2crit) then
./pkg/dic/dic_biotic_forcing.F	233	DIC_BIOTIC_FORCING	GO2(i,j,k)= R_OP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F	235	DIC_BIOTIC_FORCING	GO2(i,j,k)= 0. _d 0
./pkg/dic/dic_biotic_forcing.F	239	DIC_BIOTIC_FORCING	GFE(i,j,k) = R_FeP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F	240	DIC_BIOTIC_FORCING	& -Kscav*freefe(i,j,k)
./pkg/dic/dic_biotic_forcing.F	246	DIC_BIOTIC_FORCING	DO j=jmin,jmax
./pkg/dic/dic_biotic_forcing.F	248	DIC_BIOTIC_FORCING	GALK(i,j,1)=GALK(i,j,1)+SURA(i,j)
./pkg/dic/dic_biotic_forcing.F	249	DIC_BIOTIC_FORCING	GDIC(i,j,1)=GDIC(i,j,1)+SURC(i,j)
./pkg/dic/dic_biotic_forcing.F	251	DIC_BIOTIC_FORCING	GO2(i,j,1) =GO2(i,j,1)+SURO(i,j)
./pkg/dic/dic_biotic_forcing.F	254	DIC_BIOTIC_FORCING	GFE(i,j,1)=GFE(i,j,1)+alpfe*
./pkg/dic/dic_biotic_forcing.F	255	DIC_BIOTIC_FORCING	& InputFe(i,j,bi,bj)*recip_drF(1)
./pkg/dic/dic_biotic_forcing.F	256	DIC_BIOTIC_FORCING	& *recip_hFacC(i,j,1,bi,bj)
./pkg/dic/dic_biotic_forcing.F	264	DIC_BIOTIC_FORCING	DO j=jmin,jmax
./pkg/dic/dic_biotic_forcing.F	266	DIC_BIOTIC_FORCING	PTR_DIC(i,j,k)=
./pkg/dic/dic_biotic_forcing.F	267	DIC_BIOTIC_FORCING	& PTR_DIC(i,j,k)+GDIC(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F	268	DIC_BIOTIC_FORCING	PTR_ALK(i,j,k)=
./pkg/dic/dic_biotic_forcing.F	269	DIC_BIOTIC_FORCING	& PTR_ALK(i,j,k)+GALK(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F	270	DIC_BIOTIC_FORCING	PTR_PO4(i,j,k)=
./pkg/dic/dic_biotic_forcing.F	271	DIC_BIOTIC_FORCING	& PTR_PO4(i,j,k)+GPO4(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F	272	DIC_BIOTIC_FORCING	PTR_DOP(i,j,k)=
./pkg/dic/dic_biotic_forcing.F	273	DIC_BIOTIC_FORCING	& PTR_DOP(i,j,k)+GDOP(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F	275	DIC_BIOTIC_FORCING	PTR_O2(i,j,k)=
./pkg/dic/dic_biotic_forcing.F	276	DIC_BIOTIC_FORCING	& PTR_O2(i,j,k)+GO2(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F	279	DIC_BIOTIC_FORCING	PTR_FE(i,j,k)=
./pkg/dic/dic_biotic_forcing.F	280	DIC_BIOTIC_FORCING	& PTR_FE(i,j,k)+GFE(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F	299	DIC_BIOTIC_FORCING	DO j=jmin,jmax
./pkg/dic/dic_biotic_forcing.F	301	DIC_BIOTIC_FORCING	BIOave(i,j,k,bi,bj) =BIOave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	302	DIC_BIOTIC_FORCING	& BIOac(i,j,k)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	303	DIC_BIOTIC_FORCING	CARave(i,j,k,bi,bj) =CARave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	304	DIC_BIOTIC_FORCING	& CAR(i,j,k)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	305	DIC_BIOTIC_FORCING	OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	306	DIC_BIOTIC_FORCING	& OmegaC(i,j,k,bi,bj)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	307	DIC_BIOTIC_FORCING	pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F	308	DIC_BIOTIC_FORCING	& pflux(i,j,k)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	309	DIC_BIOTIC_FORCING	epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F	310	DIC_BIOTIC_FORCING	& exportflux(i,j,k)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	311	DIC_BIOTIC_FORCING	cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F	312	DIC_BIOTIC_FORCING	& cflux(i,j,k)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	316	DIC_BIOTIC_FORCING	DO j=jmin,jmax
./pkg/dic/dic_biotic_forcing.F	318	DIC_BIOTIC_FORCING	SURave(i,j,bi,bj) =SURave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	319	DIC_BIOTIC_FORCING	& SURC(i,j)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	321	DIC_BIOTIC_FORCING	SUROave(i,j,bi,bj) =SUROave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	322	DIC_BIOTIC_FORCING	& SURO(i,j)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	324	DIC_BIOTIC_FORCING	pCO2ave(i,j,bi,bj) =pCO2ave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	325	DIC_BIOTIC_FORCING	& pCO2(i,j,bi,bj)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	326	DIC_BIOTIC_FORCING	pHave(i,j,bi,bj) =pHave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	327	DIC_BIOTIC_FORCING	& pH(i,j,bi,bj)*deltaTClock
./pkg/dic/dic_biotic_forcing.F	328	DIC_BIOTIC_FORCING	fluxCO2ave(i,j,bi,bj)=fluxCO2ave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F	329	DIC_BIOTIC_FORCING	& fluxCO2(i,j,bi,bj)*deltaTClock
./pkg/dic/dic_cost.F	37	DIC_COST	INTEGER i, j, bi, bj
./pkg/dic/dic_cost.F	46	DIC_COST	DO j=1,sNy
./pkg/dic/dic_cost.F	48	DIC_COST	& + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/dic/dic_cost.F	49	DIC_COST	& maskC(i,j,1,bi,bj)dTtracerLev(1)
./pkg/dic/dic_fields_load.F	170	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	172	DIC_FIELDS_LOAD	WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	173	DIC_FIELDS_LOAD	& + aWght*dicwind1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	183	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	185	DIC_FIELDS_LOAD	AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	186	DIC_FIELDS_LOAD	& + aWght*atmosp1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	192	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	194	DIC_FIELDS_LOAD	SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	195	DIC_FIELDS_LOAD	& + aWght*silica1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	200	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	202	DIC_FIELDS_LOAD	FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	203	DIC_FIELDS_LOAD	& + aWght*ice1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	210	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	212	DIC_FIELDS_LOAD	PAR(i,j,bi,bj) = bWght*par0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	213	DIC_FIELDS_LOAD	& + aWght*par1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	226	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	228	DIC_FIELDS_LOAD	InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	229	DIC_FIELDS_LOAD	& + aWght*feinput1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	244	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	246	DIC_FIELDS_LOAD	FIce(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	253	DIC_FIELDS_LOAD	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_fields_load.F	255	DIC_FIELDS_LOAD	FIce(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/dic/dic_fields_load.F	43	DIC_FIELDS_LOAD	INTEGER bi, bj, i, j
./pkg/dic/dic_ini_atmos.F	120	DIC_INI_ATMOS	DO j=1,sNy
./pkg/dic/dic_ini_atmos.F	123	DIC_INI_ATMOS	& + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/dic/dic_ini_atmos.F	124	DIC_INI_ATMOS	& maskC(i,j,1,bi,bj)dTtracerLev(1)
./pkg/dic/dic_ini_atmos.F	128	DIC_INI_ATMOS	DO j=1,sNy
./pkg/dic/dic_ini_atmos.F	131	DIC_INI_ATMOS	& + ( pTracer(i,j,k,bi,bj,1)
./pkg/dic/dic_ini_atmos.F	133	DIC_INI_ATMOS	& +R_cp*pTracer(i,j,k,bi,bj,4)
./pkg/dic/dic_ini_atmos.F	135	DIC_INI_ATMOS	& ) * rA(i,j,bi,bj)
./pkg/dic/dic_ini_atmos.F	136	DIC_INI_ATMOS	& drF(k)hFacC(i,j,k,bi,bj)
./pkg/dic/dic_ini_atmos.F	197	DIC_INI_ATMOS	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_ini_atmos.F	199	DIC_INI_ATMOS	AtmospCO2(i,j,bi,bj) = atm_pCO2
./pkg/dic/dic_ini_atmos.F	55	DIC_INI_ATMOS	INTEGER bi, bj, i,j,k
./pkg/dic/dic_ini_forcing.F	33	DIC_INI_FORCING	INTEGER bi,bj,i,j
./pkg/dic/dic_ini_forcing.F	74	DIC_INI_FORCING	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_ini_forcing.F	76	DIC_INI_FORCING	WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F	77	DIC_INI_FORCING	AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F	78	DIC_INI_FORCING	SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F	79	DIC_INI_FORCING	FIce(i,j,bi,bj) = 0. _d 0
./pkg/dic/dic_ini_forcing.F	80	DIC_INI_FORCING	FluxCO2(i,j,bi,bj)= 0. _d 0
./pkg/dic/dic_ini_forcing.F	82	DIC_INI_FORCING	PAR(i,j,bi,bj) = 100. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F	85	DIC_INI_FORCING	InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj)
./pkg/dic/dic_init_varia.F	33	DIC_INIT_VARIA	INTEGER i,j, bi,bj
./pkg/dic/dic_init_varia.F	58	DIC_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_init_varia.F	60	DIC_INIT_VARIA	alpha(i,j,bi,bj) = alphaUniform
./pkg/dic/dic_init_varia.F	61	DIC_INIT_VARIA	rain_ratio(i,j,bi,bj) = rainRatioUniform
./pkg/dic/dic_init_varia.F	65	DIC_INIT_VARIA	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_init_varia.F	67	DIC_INIT_VARIA	omegaC(i,j,k,bi,bj) = 0. _d 0
./pkg/dic/dic_set_control.F	100	DIC_SET_CONTROL	DO j = 1, sNy
./pkg/dic/dic_set_control.F	102	DIC_SET_CONTROL	feload(i,j,bi,bj) = feload(i,j,bi,bj)*(1. _d 0 +xx_dic(1))
./pkg/dic/dic_set_control.F	103	DIC_SET_CONTROL	rain_ratio(i,j,bi,bj) =
./pkg/dic/dic_set_control.F	104	DIC_SET_CONTROL	& rain_ratio(i,j,bi,bj)*(1. _d 0 +xx_dic(2))
./pkg/dic/dic_set_control.F	39	DIC_SET_CONTROL	INTEGER i, j
./pkg/dic/dic_set_control.F	76	DIC_SET_CONTROL	DO j = 1, sNy
./pkg/dic/dic_set_control.F	78	DIC_SET_CONTROL	alpha (i,j,bi,bj) = alpha(i,j,bi,bj)
./pkg/dic/dic_set_control.F	79	DIC_SET_CONTROL	& + fac*tmpfld2d(i,j,bi,bj)
./pkg/dic/dic_store_fluxco2.F	46	DIC_STORE_FLUXCO2	INTEGER i,j,bi,bj
./pkg/dic/dic_store_fluxco2.F	52	DIC_STORE_FLUXCO2	DO j=1,sNy
./pkg/dic/dic_store_fluxco2.F	54	DIC_STORE_FLUXCO2	fluxCO2cpl(i,j,bi,bj) = fluxCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F	100	DIC_SURFFORCING	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	101	DIC_SURFFORCING	surfphos(i,j) = PTR_PO4(i,j,klev)
./pkg/dic/dic_surfforcing.F	102	DIC_SURFFORCING	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	105	DIC_SURFFORCING	surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s
./pkg/dic/dic_surfforcing.F	106	DIC_SURFFORCING	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	107	DIC_SURFFORCING	surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	110	DIC_SURFFORCING	surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	112	DIC_SURFFORCING	surftemp(i,j) = max(-4. _d 0,
./pkg/dic/dic_surfforcing.F	113	DIC_SURFFORCING	& min(50. _d 0, theta(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing.F	114	DIC_SURFFORCING	surfsalt(i,j) = max(4. _d 0,
./pkg/dic/dic_surfforcing.F	115	DIC_SURFFORCING	& min(50. _d 0, salt(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing.F	116	DIC_SURFFORCING	surfdic(i,j) = max(0.4 _d 0,
./pkg/dic/dic_surfforcing.F	117	DIC_SURFFORCING	& min(10. _d 0, PTR_CO2(i,j,kLev)))
./pkg/dic/dic_surfforcing.F	119	DIC_SURFFORCING	surftemp(i,j) = theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	120	DIC_SURFFORCING	surfsalt(i,j) = salt(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	121	DIC_SURFFORCING	surfdic(i,j) = PTR_CO2(i,j,kLev)
./pkg/dic/dic_surfforcing.F	131	DIC_SURFFORCING	DO j=jmin,jmax
./pkg/dic/dic_surfforcing.F	141	DIC_SURFFORCING	AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm
./pkg/dic/dic_surfforcing.F	146	DIC_SURFFORCING	pisvel(i,j)=0.337 _d 0 wind(i,j,bi,bj)*2/3.6 _d 5
./pkg/dic/dic_surfforcing.F	147	DIC_SURFFORCING	Kwexch_Pre(i,j,bi,bj) = pisvel(i,j)
./pkg/dic/dic_surfforcing.F	148	DIC_SURFFORCING	& * (1. _d 0 - FIce(i,j,bi,bj))
./pkg/dic/dic_surfforcing.F	155	DIC_SURFFORCING	DO j=jmin,jmax
./pkg/dic/dic_surfforcing.F	159	DIC_SURFFORCING	IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F	161	DIC_SURFFORCING	I surftemp(i,j),surfsalt(i,j),
./pkg/dic/dic_surfforcing.F	162	DIC_SURFFORCING	I surfdic(i,j), surfphos(i,j),
./pkg/dic/dic_surfforcing.F	163	DIC_SURFFORCING	I surfsi(i,j),surfalk(i,j),
./pkg/dic/dic_surfforcing.F	164	DIC_SURFFORCING	I ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F	165	DIC_SURFFORCING	I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F	166	DIC_SURFFORCING	I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F	167	DIC_SURFFORCING	I aksi(i,j,bi,bj),akf(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F	168	DIC_SURFFORCING	I ak0(i,j,bi,bj), fugf(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F	169	DIC_SURFFORCING	I ff(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F	170	DIC_SURFFORCING	I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F	171	DIC_SURFFORCING	U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy,
./pkg/dic/dic_surfforcing.F	172	DIC_SURFFORCING	I i,j,kLev,bi,bj,myIter,myThid )
./pkg/dic/dic_surfforcing.F	174	DIC_SURFFORCING	pCO2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing.F	179	DIC_SURFFORCING	DO j=jmin,jmax
./pkg/dic/dic_surfforcing.F	182	DIC_SURFFORCING	IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F	184	DIC_SURFFORCING	SchmidtNoDIC(i,j) =
./pkg/dic/dic_surfforcing.F	186	DIC_SURFFORCING	& + sca2 * theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	187	DIC_SURFFORCING	& + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	188	DIC_SURFFORCING	& + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	189	DIC_SURFFORCING	& *theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	191	DIC_SURFFORCING	SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j))
./pkg/dic/dic_surfforcing.F	195	DIC_SURFFORCING	pCO2sat(i,j) =
./pkg/dic/dic_surfforcing.F	196	DIC_SURFFORCING	& AtmosP(i,j,bi,bj)*AtmospCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F	199	DIC_SURFFORCING	Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F	200	DIC_SURFFORCING	& / sqrt(SchmidtNoDIC(i,j)/660.0 _d 0)
./pkg/dic/dic_surfforcing.F	207	DIC_SURFFORCING	FluxCO2(i,j,bi,bj) =
./pkg/dic/dic_surfforcing.F	208	DIC_SURFFORCING	& Kwexch(i,j)*(
./pkg/dic/dic_surfforcing.F	209	DIC_SURFFORCING	& ak0(i,j,bi,bj)*pCO2sat(i,j) -
./pkg/dic/dic_surfforcing.F	210	DIC_SURFFORCING	& ff(i,j,bi,bj)*pCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F	216	DIC_SURFFORCING	FluxCO2(i,j,bi,bj) =
./pkg/dic/dic_surfforcing.F	217	DIC_SURFFORCING	& Kwexch(i,j)*(
./pkg/dic/dic_surfforcing.F	218	DIC_SURFFORCING	& ff(i,j,bi,bj)*pCO2sat(i,j) -
./pkg/dic/dic_surfforcing.F	219	DIC_SURFFORCING	& pCO2(i,j,bi,bj)*fugf(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F	220	DIC_SURFFORCING	& *ak0(i,j,bi,bj) )
./pkg/dic/dic_surfforcing.F	224	DIC_SURFFORCING	FluxCO2(i,j,bi,bj) = 0. _d 0
./pkg/dic/dic_surfforcing.F	227	DIC_SURFFORCING	FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil
./pkg/dic/dic_surfforcing.F	230	DIC_SURFFORCING	IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN
./pkg/dic/dic_surfforcing.F	238	DIC_SURFFORCING	VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s
./pkg/dic/dic_surfforcing.F	244	DIC_SURFFORCING	VirtualFlux(i,j)=0. _d 0
./pkg/dic/dic_surfforcing.F	251	DIC_SURFFORCING	DO j=jmin,jmax
./pkg/dic/dic_surfforcing.F	253	DIC_SURFFORCING	GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	254	DIC_SURFFORCING	& *(FluxCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F	256	DIC_SURFFORCING	& + VirtualFlux(i,j)
./pkg/dic/dic_surfforcing.F	48	DIC_SURFFORCING	INTEGER i,j, kLev
./pkg/dic/dic_surfforcing.F	86	DIC_SURFFORCING	DO j=jmin,jmax
./pkg/dic/dic_surfforcing.F	92	DIC_SURFFORCING	surfalk(i,j) = max(0.4 _d 0,
./pkg/dic/dic_surfforcing.F	93	DIC_SURFFORCING	& min(10. _d 0,PTR_ALK(i,j,klev)))
./pkg/dic/dic_surfforcing.F	94	DIC_SURFFORCING	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	95	DIC_SURFFORCING	surfphos(i,j) = max(1.0 _d -11,
./pkg/dic/dic_surfforcing.F	96	DIC_SURFFORCING	& min(1._d -1, PTR_PO4(i,j,klev)))
./pkg/dic/dic_surfforcing.F	97	DIC_SURFFORCING	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F	99	DIC_SURFFORCING	surfalk(i,j) = PTR_ALK(i,j,klev)
./pkg/dic/dic_surfforcing_init.F	101	DIC_SURFFORCING_INIT	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_surfforcing_init.F	103	DIC_SURFFORCING_INIT	SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj)
./pkg/dic/dic_surfforcing_init.F	104	DIC_SURFFORCING_INIT	& + aWght*silica1(i,j,bi,bj)
./pkg/dic/dic_surfforcing_init.F	123	DIC_SURFFORCING_INIT	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_surfforcing_init.F	125	DIC_SURFFORCING_INIT	pH(i,j,bi,bj) = 8. _d 0
./pkg/dic/dic_surfforcing_init.F	133	DIC_SURFFORCING_INIT	DO j=1-OLy,sNy+OLy
./pkg/dic/dic_surfforcing_init.F	135	DIC_SURFFORCING_INIT	ak0(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	136	DIC_SURFFORCING_INIT	ak1(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	137	DIC_SURFFORCING_INIT	ak2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	138	DIC_SURFFORCING_INIT	akw(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	139	DIC_SURFFORCING_INIT	akb(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	140	DIC_SURFFORCING_INIT	akf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	141	DIC_SURFFORCING_INIT	ak1p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	142	DIC_SURFFORCING_INIT	ak2p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	143	DIC_SURFFORCING_INIT	ak3p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	144	DIC_SURFFORCING_INIT	aksi(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	145	DIC_SURFFORCING_INIT	fugf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	146	DIC_SURFFORCING_INIT	ff(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	147	DIC_SURFFORCING_INIT	ft(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	148	DIC_SURFFORCING_INIT	st(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	149	DIC_SURFFORCING_INIT	bt(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F	169	DIC_SURFFORCING_INIT	DO j=jMin,jMax
./pkg/dic/dic_surfforcing_init.F	174	DIC_SURFFORCING_INIT	surfalk(i,j) = max(0.4 _d 0,
./pkg/dic/dic_surfforcing_init.F	175	DIC_SURFFORCING_INIT	& min(10. _d 0,PTRACER(i,j,kLev,bi,bj,2)))
./pkg/dic/dic_surfforcing_init.F	176	DIC_SURFFORCING_INIT	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	177	DIC_SURFFORCING_INIT	surfphos(i,j) = max(1.0 _d -11,
./pkg/dic/dic_surfforcing_init.F	178	DIC_SURFFORCING_INIT	& min(1._d -1, PTRACER(i,j,kLev,bi,bj,3)))
./pkg/dic/dic_surfforcing_init.F	179	DIC_SURFFORCING_INIT	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	181	DIC_SURFFORCING_INIT	surfalk(i,j) = PTRACER(i,j,kLev,bi,bj,2)
./pkg/dic/dic_surfforcing_init.F	182	DIC_SURFFORCING_INIT	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	183	DIC_SURFFORCING_INIT	surfphos(i,j)= PTRACER(i,j,kLev,bi,bj,3)
./pkg/dic/dic_surfforcing_init.F	184	DIC_SURFFORCING_INIT	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	187	DIC_SURFFORCING_INIT	surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0
./pkg/dic/dic_surfforcing_init.F	188	DIC_SURFFORCING_INIT	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	189	DIC_SURFFORCING_INIT	surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	192	DIC_SURFFORCING_INIT	surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	194	DIC_SURFFORCING_INIT	surftemp(i,j) = max(-4. _d 0,
./pkg/dic/dic_surfforcing_init.F	195	DIC_SURFFORCING_INIT	& min(50. _d 0, theta(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing_init.F	196	DIC_SURFFORCING_INIT	surfsalt(i,j) = max(4. _d 0,
./pkg/dic/dic_surfforcing_init.F	197	DIC_SURFFORCING_INIT	& min(50. _d 0, salt(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing_init.F	198	DIC_SURFFORCING_INIT	surfdic(i,j) = max(0.4 _d 0,
./pkg/dic/dic_surfforcing_init.F	199	DIC_SURFFORCING_INIT	& min(10. _d 0, PTRACER(i,j,kLev,bi,bj,1)))
./pkg/dic/dic_surfforcing_init.F	201	DIC_SURFFORCING_INIT	surftemp(i,j) = theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	202	DIC_SURFFORCING_INIT	surfsalt(i,j) = salt(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	203	DIC_SURFFORCING_INIT	surfdic(i,j) = PTRACER(i,j,kLev,bi,bj,1)
./pkg/dic/dic_surfforcing_init.F	204	DIC_SURFFORCING_INIT	& * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F	221	DIC_SURFFORCING_INIT	DO j=jMin,jMax
./pkg/dic/dic_surfforcing_init.F	224	DIC_SURFFORCING_INIT	IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN
./pkg/dic/dic_surfforcing_init.F	230	DIC_SURFFORCING_INIT	I surftemp(i,j),surfsalt(i,j),
./pkg/dic/dic_surfforcing_init.F	231	DIC_SURFFORCING_INIT	I surfdic(i,j), surfphos(i,j),
./pkg/dic/dic_surfforcing_init.F	232	DIC_SURFFORCING_INIT	I surfsi(i,j),surfalk(i,j),
./pkg/dic/dic_surfforcing_init.F	233	DIC_SURFFORCING_INIT	I ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F	234	DIC_SURFFORCING_INIT	I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F	235	DIC_SURFFORCING_INIT	I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F	236	DIC_SURFFORCING_INIT	I aksi(i,j,bi,bj),akf(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F	237	DIC_SURFFORCING_INIT	I ak0(i,j,bi,bj), fugf(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F	238	DIC_SURFFORCING_INIT	I ff(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F	239	DIC_SURFFORCING_INIT	I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F	240	DIC_SURFFORCING_INIT	U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy,
./pkg/dic/dic_surfforcing_init.F	241	DIC_SURFFORCING_INIT	I i,j,kLev,bi,bj, it , myThid )
./pkg/dic/dic_surfforcing_init.F	38	DIC_SURFFORCING_INIT	INTEGER i,j, kLev, it
./pkg/dic/dic_write_pickup.F	113	DIC_WRITE_PICKUP	j = 1
./pkg/dic/dic_write_pickup.F	116	DIC_WRITE_PICKUP	j = Nr
./pkg/dic/dic_write_pickup.F	122	DIC_WRITE_PICKUP	& 0, 0, j, ' ',
./pkg/dic/dic_write_pickup.F	52	DIC_WRITE_PICKUP	INTEGER j, nj
./pkg/dic/dic_write_pickup.F	85	DIC_WRITE_PICKUP	j = 0
./pkg/dic/dic_write_pickup.F	90	DIC_WRITE_PICKUP	nj = -j*Nr
./pkg/dic/dic_write_pickup.F	93	DIC_WRITE_PICKUP	j = j + 1
./pkg/dic/dic_write_pickup.F	96	DIC_WRITE_PICKUP	IF (j.LE.listDim) wrFldList(j) = 'DIC_pH2d'
./pkg/dic/dic_write_pickup.F	99	DIC_WRITE_PICKUP	nWrFlds = j
./pkg/dic/fe_chem.F	100	FE_CHEM	freefe(i,j,k) =
./pkg/dic/fe_chem.F	105	FE_CHEM	freefe(i,j,k) = MIN(freefe(i,j,k),freefemax)
./pkg/dic/fe_chem.F	107	FE_CHEM	fe(i,j,k) = FeL+freefe(i,j,k)
./pkg/dic/fe_chem.F	46	FE_CHEM	INTEGER i,j,k
./pkg/dic/fe_chem.F	60	FE_CHEM	DO j=1-OLy,sNy+OLy
./pkg/dic/fe_chem.F	62	FE_CHEM	freefe(i,j,k) = 0. _d 0
./pkg/dic/fe_chem.F	71	FE_CHEM	DO j=jMin,jMax
./pkg/dic/fe_chem.F	73	FE_CHEM	IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN
./pkg/dic/fe_chem.F	76	FE_CHEM	tmpfe =MAX( 0. _d 0 , fe(i,j,k) )
./pkg/dic/fe_chem.F	78	FE_CHEM	tmpfe = fe(i,j,k)
./pkg/dic/fe_chem.F	91	FE_CHEM	freefe(i,j,k) = tmpfe -FeL
./pkg/dic/fe_chem.F	93	FE_CHEM	freefe(i,j,k) = 0. _d 0
./pkg/dic/fe_chem.F	97	FE_CHEM	thx=freefe(i,j,k)
./pkg/dic/insol.F	44	INSOL	integer j
./pkg/dic/insol.F	66	INSOL	DO j=1-OLy,sNy+OLy
./pkg/dic/insol.F	68	INSOL	lat=YC(1,j,1,bj)*deg2rad
./pkg/dic/insol.F	72	INSOL	& lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) )
./pkg/dic/insol.F	85	INSOL	sfac(j) = MAX(1. _d -5,fluxi)
./pkg/dic/o2_surfforcing.F	107	O2_SURFFORCING	O2sat(i,j) = o2s/22391.6 _d 0 * 1. _d 3
./pkg/dic/o2_surfforcing.F	110	O2_SURFFORCING	FluxO2(i,j) = Kwexch(i,j)*
./pkg/dic/o2_surfforcing.F	111	O2_SURFFORCING	& (AtmosP(i,j,bi,bj)*O2sat(i,j)
./pkg/dic/o2_surfforcing.F	112	O2_SURFFORCING	& - PTR_O2(i,j,K))
./pkg/dic/o2_surfforcing.F	114	O2_SURFFORCING	FluxO2(i,j) = 0. _d 0
./pkg/dic/o2_surfforcing.F	122	O2_SURFFORCING	DO j=jmin,jmax
./pkg/dic/o2_surfforcing.F	124	O2_SURFFORCING	SGO2(i,j)= FluxO2(i,j)
./pkg/dic/o2_surfforcing.F	125	O2_SURFFORCING	& recip_drF(K) recip_hFacC(i,j,K,bi,bj)
./pkg/dic/o2_surfforcing.F	70	O2_SURFFORCING	DO j=jmin,jmax
./pkg/dic/o2_surfforcing.F	72	O2_SURFFORCING	IF (maskC(i,j,k,bi,bj).NE.0.) THEN
./pkg/dic/o2_surfforcing.F	73	O2_SURFFORCING	ttemp = theta(i,j,k,bi,bj)
./pkg/dic/o2_surfforcing.F	74	O2_SURFFORCING	stemp = salt(i,j,k,bi,bj)
./pkg/dic/o2_surfforcing.F	76	O2_SURFFORCING	SchmidtNoO2(i,j) =
./pkg/dic/o2_surfforcing.F	86	O2_SURFFORCING	Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj)
./pkg/dic/o2_surfforcing.F	87	O2_SURFFORCING	& / sqrt(SchmidtNoO2(i,j)/660.0 _d 0)
./pkg/dic/phos_flux.F	106	PHOS_FLUX	DO j=jmin,jmax
./pkg/dic/phos_flux.F	108	PHOS_FLUX	IF ( bexport(i,j) .NE. 0. _d 0 ) THEN
./pkg/dic/phos_flux.F	111	PHOS_FLUX	depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F	116	PHOS_FLUX	flux_l = bexport(i,j)*reminFac
./pkg/dic/phos_flux.F	117	PHOS_FLUX	& *maskC(i,j,kop1,bi,bj)
./pkg/dic/phos_flux.F	119	PHOS_FLUX	pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/phos_flux.F	120	PHOS_FLUX	& recip_drF(ko) _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F	121	PHOS_FLUX	exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j)
./pkg/dic/phos_flux.F	123	PHOS_FLUX	flux_u(i,j) = flux_l
./pkg/dic/phos_flux.F	134	PHOS_FLUX	DO j=jmin,jmax
./pkg/dic/phos_flux.F	136	PHOS_FLUX	pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/phos_flux.F	137	PHOS_FLUX	& recip_drF(ko) _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F	138	PHOS_FLUX	exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j)
./pkg/dic/phos_flux.F	64	PHOS_FLUX	DO j=jmin,jmax
./pkg/dic/phos_flux.F	66	PHOS_FLUX	bexport(i,j) = 0. _d 0
./pkg/dic/phos_flux.F	67	PHOS_FLUX	IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN
./pkg/dic/phos_flux.F	71	PHOS_FLUX	pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F	72	PHOS_FLUX	ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN
./pkg/dic/phos_flux.F	73	PHOS_FLUX	pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F	76	PHOS_FLUX	bexport(i,j)=BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F	77	PHOS_FLUX	& drF(k) _hFacC(i,j,k,bi,bj)
./pkg/dic/phos_flux.F	86	PHOS_FLUX	DO j=jmin,jmax
./pkg/dic/phos_flux.F	88	PHOS_FLUX	flux_u(i,j) = bexport(i,j)
./pkg/down_slope/dwnslp_calc_rho.F	58	DWNSLP_CALC_RHO	INTEGER i,j,kl
./pkg/down_slope/dwnslp_calc_rho.F	63	DWNSLP_CALC_RHO	DO j=1-OLy,sNy+OLy
./pkg/down_slope/dwnslp_calc_rho.F	71	DWNSLP_CALC_RHO	kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) )
./pkg/down_slope/dwnslp_calc_rho.F	72	DWNSLP_CALC_RHO	tLoc(i,j) = tFld(i,j,kl,bi,bj)
./pkg/down_slope/dwnslp_calc_rho.F	73	DWNSLP_CALC_RHO	sLoc(i,j) = sFld(i,j,kl,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F	106	DWNSLP_INIT_FIXED	DO j=1,sNy+1
./pkg/down_slope/dwnslp_init_fixed.F	108	DWNSLP_INIT_FIXED	IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	110	DWNSLP_INIT_FIXED	IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	114	DWNSLP_INIT_FIXED	& 1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F	119	DWNSLP_INIT_FIXED	IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	123	DWNSLP_INIT_FIXED	& 1 + (i+OLx-1) + (j-1+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F	137	DWNSLP_INIT_FIXED	DO j=1,sNy
./pkg/down_slope/dwnslp_init_fixed.F	139	DWNSLP_INIT_FIXED	IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	141	DWNSLP_INIT_FIXED	IF ( kLowC(i,j,bi,bj).GT.kLowC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	145	DWNSLP_INIT_FIXED	& 1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F	150	DWNSLP_INIT_FIXED	IF ( kLowC(i,j,bi,bj).LT.kLowC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	154	DWNSLP_INIT_FIXED	& 1 + (i-1+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F	165	DWNSLP_INIT_FIXED	DO j=1,sNy+1
./pkg/down_slope/dwnslp_init_fixed.F	167	DWNSLP_INIT_FIXED	IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	169	DWNSLP_INIT_FIXED	IF ( kLowC(i,j,bi,bj).GT.kLowC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	173	DWNSLP_INIT_FIXED	& 1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F	178	DWNSLP_INIT_FIXED	IF ( kLowC(i,j,bi,bj).LT.kLowC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	182	DWNSLP_INIT_FIXED	& 1 + (i+OLx-1) + (j-1+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F	229	DWNSLP_INIT_FIXED	j= MAX(jdeep,jshelf)
./pkg/down_slope/dwnslp_init_fixed.F	242	DWNSLP_INIT_FIXED	DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F	243	DWNSLP_INIT_FIXED	& MIN( drF(kshelf)hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F	246	DWNSLP_INIT_FIXED	DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dxG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F	247	DWNSLP_INIT_FIXED	& MIN( drF(kshelf)hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F	262	DWNSLP_INIT_FIXED	DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dxC(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F	263	DWNSLP_INIT_FIXED	& *dyG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F	264	DWNSLP_INIT_FIXED	& MIN( drF(kshelf)hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F	267	DWNSLP_INIT_FIXED	DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dyC(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F	268	DWNSLP_INIT_FIXED	& *dxG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F	269	DWNSLP_INIT_FIXED	& MIN( drF(kshelf)hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F	43	DWNSLP_INIT_FIXED	INTEGER i, j, k
./pkg/down_slope/dwnslp_init_fixed.F	78	DWNSLP_INIT_FIXED	DO j=1,sNy
./pkg/down_slope/dwnslp_init_fixed.F	80	DWNSLP_INIT_FIXED	IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	82	DWNSLP_INIT_FIXED	IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	86	DWNSLP_INIT_FIXED	& 1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F	91	DWNSLP_INIT_FIXED	IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F	95	DWNSLP_INIT_FIXED	& 1 + (i-1+OLx-1) + (j+OLy-1)*xSize
./pkg/ebm/ebm_area_t.F	44	EBM_AREA_T	INTEGER i, j, k, bi, bj
./pkg/ebm/ebm_area_t.F	74	EBM_AREA_T	DO j = 1,sNy
./pkg/ebm/ebm_area_t.F	76	EBM_AREA_T	IF ( yC(i,j,bi,bj) .GE. -latBnd(3) .AND.
./pkg/ebm/ebm_area_t.F	77	EBM_AREA_T	& yC(i,j,bi,bj) .LE. -latBnd(2) ) THEN
./pkg/ebm/ebm_area_t.F	79	EBM_AREA_T	& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F	81	EBM_AREA_T	& + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F	82	EBM_AREA_T	ELSEIF ( yC(i,j,bi,bj) .GT. -latBnd(2) .AND.
./pkg/ebm/ebm_area_t.F	83	EBM_AREA_T	& yC(i,j,bi,bj) .LT. -latBnd(1) ) THEN
./pkg/ebm/ebm_area_t.F	85	EBM_AREA_T	& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F	87	EBM_AREA_T	& + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F	88	EBM_AREA_T	ELSEIF ( yC(i,j,bi,bj) .GT. latBnd(1) .AND.
./pkg/ebm/ebm_area_t.F	89	EBM_AREA_T	& yC(i,j,bi,bj) .LT. latBnd(2) ) THEN
./pkg/ebm/ebm_area_t.F	91	EBM_AREA_T	& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F	93	EBM_AREA_T	& + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F	94	EBM_AREA_T	ELSEIF ( yC(i,j,bi,bj) .GE. latBnd(2) .AND.
./pkg/ebm/ebm_area_t.F	95	EBM_AREA_T	& yC(i,j,bi,bj) .LT. latBnd(3) ) THEN
./pkg/ebm/ebm_area_t.F	97	EBM_AREA_T	& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F	99	EBM_AREA_T	& + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_atmosphere.F	101	EBM_ATMOSPHERE	DO j=1-oLy,sNy+oLy
./pkg/ebm/ebm_atmosphere.F	103	EBM_ATMOSPHERE	S(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	104	EBM_ATMOSPHERE	P2(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	105	EBM_ATMOSPHERE	P4(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	107	EBM_ATMOSPHERE	SW(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	108	EBM_ATMOSPHERE	LW(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	109	EBM_ATMOSPHERE	Hd(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	110	EBM_ATMOSPHERE	Fw(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	111	EBM_ATMOSPHERE	T(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	112	EBM_ATMOSPHERE	ReCountX(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F	120	EBM_ATMOSPHERE	DO j = 1,sNy
./pkg/ebm/ebm_atmosphere.F	121	EBM_ATMOSPHERE	ReCountX(j,bj) = CountX(j,bj)
./pkg/ebm/ebm_atmosphere.F	122	EBM_ATMOSPHERE	IF (yC(1,j,bi,bj) .LE. -62.0) THEN
./pkg/ebm/ebm_atmosphere.F	123	EBM_ATMOSPHERE	ReCountX(j,bj) = 90.
./pkg/ebm/ebm_atmosphere.F	124	EBM_ATMOSPHERE	ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN
./pkg/ebm/ebm_atmosphere.F	125	EBM_ATMOSPHERE	ReCountX(j,bj) = CountX(j,bj) + 9.0
./pkg/ebm/ebm_atmosphere.F	126	EBM_ATMOSPHERE	ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN
./pkg/ebm/ebm_atmosphere.F	127	EBM_ATMOSPHERE	ReCountX(j,bj) = CountX(j,bj) + 8.0
./pkg/ebm/ebm_atmosphere.F	128	EBM_ATMOSPHERE	ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN
./pkg/ebm/ebm_atmosphere.F	129	EBM_ATMOSPHERE	ReCountX(j,bj) = CountX(j,bj) + 5.0
./pkg/ebm/ebm_atmosphere.F	130	EBM_ATMOSPHERE	ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN
./pkg/ebm/ebm_atmosphere.F	131	EBM_ATMOSPHERE	ReCountX(j,bj) = CountX(j,bj) + 1.0
./pkg/ebm/ebm_atmosphere.F	225	EBM_ATMOSPHERE	DO j=1,sNy
./pkg/ebm/ebm_atmosphere.F	228	EBM_ATMOSPHERE	S(i,j,bj) = SIN(yC(i,j,bi,bj)*deg2rad)
./pkg/ebm/ebm_atmosphere.F	230	EBM_ATMOSPHERE	P2(i,j,bj) = 0.5(3.S(i,j,bj)**2 - 1.)
./pkg/ebm/ebm_atmosphere.F	231	EBM_ATMOSPHERE	P4(i,j,bj) = 0.12 _d 0 *
./pkg/ebm/ebm_atmosphere.F	232	EBM_ATMOSPHERE	& (35.S(i,j,bj)4 - 30.S(i,j,bj)**2 + 3.)
./pkg/ebm/ebm_atmosphere.F	241	EBM_ATMOSPHERE	DO j=1,sNy
./pkg/ebm/ebm_atmosphere.F	244	EBM_ATMOSPHERE	IF (yC(i,j,bi,bj) .LT. 0.) THEN
./pkg/ebm/ebm_atmosphere.F	250	EBM_ATMOSPHERE	SW(j,bj) = 0.25 _d 0 Q0(1. _d 0 + Q2P2(i,j,bj))
./pkg/ebm/ebm_atmosphere.F	251	EBM_ATMOSPHERE	& (1. _d 0 - A0 - A2P2(i,j,bj) - A4P4(i,j,bj) )
./pkg/ebm/ebm_atmosphere.F	253	EBM_ATMOSPHERE	T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj)
./pkg/ebm/ebm_atmosphere.F	255	EBM_ATMOSPHERE	LW(j,bj) = LW0 + LW1*(T(j,bj)-t_mlt)
./pkg/ebm/ebm_atmosphere.F	258	EBM_ATMOSPHERE	LW(j,bj) = LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F	270	EBM_ATMOSPHERE	Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F	272	EBM_ATMOSPHERE	& 0.000728 _d 4 - 0.00678 _d 4*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F	273	EBM_ATMOSPHERE	& 0.0955 _d 4S(i,j,bj)2 + 0.0769 _d 4S(i,j,bj)**3 -
./pkg/ebm/ebm_atmosphere.F	274	EBM_ATMOSPHERE	& 0.8508 _d 4S(i,j,bj)4 - 0.3581 _d 4S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F	275	EBM_ATMOSPHERE	& 2.9240 _d 4S(i,j,bj)6 + 0.8311 _d 4S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F	276	EBM_ATMOSPHERE	& 4.9548 _d 4S(i,j,bj)8 - 0.8808 _d 4S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F	277	EBM_ATMOSPHERE	& 4.0644 _d 4S(i,j,bj)10 +0.3409 _d 4S(i,j,bj)**11 -
./pkg/ebm/ebm_atmosphere.F	278	EBM_ATMOSPHERE	& 1.2893 _d 4S(i,j,bj)*12 )
./pkg/ebm/ebm_atmosphere.F	289	EBM_ATMOSPHERE	IF (ReCountX(j,bj) .GT. 0.) THEN
./pkg/ebm/ebm_atmosphere.F	290	EBM_ATMOSPHERE	Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))*
./pkg/ebm/ebm_atmosphere.F	291	EBM_ATMOSPHERE	& ( SW(j,bj) - LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F	292	EBM_ATMOSPHERE	& Hd35(no_so)(3.054 _d 1 - 3.763 _d 1S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F	293	EBM_ATMOSPHERE	& 1.892 _d 2S(i,j,bj)2 + 3.041 _d 2S(i,j,bj)**3 -
./pkg/ebm/ebm_atmosphere.F	294	EBM_ATMOSPHERE	& 1.540 _d 3S(i,j,bj)4 - 9.586 _d 2S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F	295	EBM_ATMOSPHERE	& 2.939 _d 3S(i,j,bj)6 + 1.219 _d 3S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F	296	EBM_ATMOSPHERE	& 2.550 _d 3S(i,j,bj)8 - 5.396 _d 2S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F	297	EBM_ATMOSPHERE	& 8.119 _d 2S(i,j,bj)*10)
./pkg/ebm/ebm_atmosphere.F	300	EBM_ATMOSPHERE	Qnet(i,j,bi,bj) = 0.
./pkg/ebm/ebm_atmosphere.F	306	EBM_ATMOSPHERE	EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F	307	EBM_ATMOSPHERE	& (-0.8454 _d 5S(i,j,bj)*14 + 0.5367 _d 5S(i,j,bj)**13
./pkg/ebm/ebm_atmosphere.F	308	EBM_ATMOSPHERE	& +3.3173 _d 5S(i,j,bj)12 - 1.8965 _d 5S(i,j,bj)**11
./pkg/ebm/ebm_atmosphere.F	309	EBM_ATMOSPHERE	& -5.1701 _d 5S(i,j,bj)*10
./pkg/ebm/ebm_atmosphere.F	310	EBM_ATMOSPHERE	& +2.6240 _d 5S(i,j,bj)9 + 4.077 _d 5S(i,j,bj)**8
./pkg/ebm/ebm_atmosphere.F	311	EBM_ATMOSPHERE	& -1.791 _d 5S(i,j,bj)*7
./pkg/ebm/ebm_atmosphere.F	312	EBM_ATMOSPHERE	& -1.7231 _d 5S(i,j,bj)6 + 0.6229 _d 5S(i,j,bj)**5
./pkg/ebm/ebm_atmosphere.F	313	EBM_ATMOSPHERE	& +0.3824 _d 5S(i,j,bj)*4
./pkg/ebm/ebm_atmosphere.F	314	EBM_ATMOSPHERE	& -0.1017 _d 5S(i,j,bj)3 - 0.0387 _d 5S(i,j,bj)**2
./pkg/ebm/ebm_atmosphere.F	315	EBM_ATMOSPHERE	& +0.00562 _d 5*S(i,j,bj) + 0.0007743 _d 5)
./pkg/ebm/ebm_atmosphere.F	325	EBM_ATMOSPHERE	IF (yC(i,j,bi,bj) .LT. -40.) THEN
./pkg/ebm/ebm_atmosphere.F	327	EBM_ATMOSPHERE	EmPmR(i,j,bi,bj) = -1. _d -3(Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F	328	EBM_ATMOSPHERE	& (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj)
./pkg/ebm/ebm_atmosphere.F	329	EBM_ATMOSPHERE	& - 1336.3 _d 0S(i,j,bj)2 - 425.8 _d 0S(i,j,bj)**3
./pkg/ebm/ebm_atmosphere.F	330	EBM_ATMOSPHERE	& + 5434.8 _d 0S(i,j,bj)4 + 707.9 _d 0S(i,j,bj)**5
./pkg/ebm/ebm_atmosphere.F	331	EBM_ATMOSPHERE	& - 6987.7 _d 0S(i,j,bj)6 - 360.4 _d 0S(i,j,bj)**7
./pkg/ebm/ebm_atmosphere.F	332	EBM_ATMOSPHERE	& + 2855.0 _d 0S(i,j,bj)*8)
./pkg/ebm/ebm_atmosphere.F	336	EBM_ATMOSPHERE	IF (xC(i,j,bi,bj) .GT. 284.
./pkg/ebm/ebm_atmosphere.F	337	EBM_ATMOSPHERE	& .OR. xC(i,j,bi,bj) .LT. 28.) THEN
./pkg/ebm/ebm_atmosphere.F	338	EBM_ATMOSPHERE	EmPmR(i,j,bi,bj) = -1. _d -3(Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F	339	EBM_ATMOSPHERE	& (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F	340	EBM_ATMOSPHERE	& 2.388 _d 3S(i,j,bj)2 - 4.101 _d 3S(i,j,bj)**3 +
./pkg/ebm/ebm_atmosphere.F	341	EBM_ATMOSPHERE	& 1.963 _d 4S(i,j,bj)4 + 1.534 _d 4S(i,j,bj)**5 -
./pkg/ebm/ebm_atmosphere.F	342	EBM_ATMOSPHERE	& 6.556 _d 4S(i,j,bj)6 - 2.478 _d 4S(i,j,bj)**7 +
./pkg/ebm/ebm_atmosphere.F	343	EBM_ATMOSPHERE	& 1.083 _d 5S(i,j,bj)8 + 1.85 _d 4S(i,j,bj)**9 -
./pkg/ebm/ebm_atmosphere.F	344	EBM_ATMOSPHERE	& 8.703 _d 4S(i,j,bj)10 - 5.276 _d 3S(i,j,bj)**11 +
./pkg/ebm/ebm_atmosphere.F	345	EBM_ATMOSPHERE	& 2.703 _d 4S(i,j,bj)*12)
./pkg/ebm/ebm_atmosphere.F	349	EBM_ATMOSPHERE	EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F	350	EBM_ATMOSPHERE	& (-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F	351	EBM_ATMOSPHERE	& 1.041 _d 3S(i,j,bj)2 - 7.546 _d 3S(i,j,bj)**3 +
./pkg/ebm/ebm_atmosphere.F	352	EBM_ATMOSPHERE	& 2.335 _d 3S(i,j,bj)4 + 3.449 _d 4S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F	353	EBM_ATMOSPHERE	& 6.702 _d 3S(i,j,bj)6 - 6.601 _d 4S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F	354	EBM_ATMOSPHERE	& 2.594 _d 4S(i,j,bj)8 + 5.652 _d 4S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F	355	EBM_ATMOSPHERE	& 2.738 _d 4S(i,j,bj)10 - 1.795 _d 4S(i,j,bj)**11 -
./pkg/ebm/ebm_atmosphere.F	356	EBM_ATMOSPHERE	& 9.486 _d 3S(i,j,bj)*12)
./pkg/ebm/ebm_atmosphere.F	361	EBM_ATMOSPHERE	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)
./pkg/ebm/ebm_atmosphere.F	362	EBM_ATMOSPHERE	& - Run(i,j,bi,bj)*scale_runoff
./pkg/ebm/ebm_atmosphere.F	363	EBM_ATMOSPHERE	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./pkg/ebm/ebm_atmosphere.F	55	EBM_ATMOSPHERE	INTEGER i, j, bi, bj
./pkg/ebm/ebm_ini_vars.F	40	EBM_INI_VARS	INTEGER bi,bj,i,j
./pkg/ebm/ebm_ini_vars.F	45	EBM_INI_VARS	DO j=1-OLy,sNy+OLy
./pkg/ebm/ebm_ini_vars.F	47	EBM_INI_VARS	Run (i,j,bi,bj) = 0.
./pkg/ebm/ebm_ini_vars.F	48	EBM_INI_VARS	winPert(i,j,bi,bj) = 0.
./pkg/ebm/ebm_load_climatology.F	45	EBM_LOAD_CLIMATOLOGY	INTEGER bi,bj,i,j
./pkg/ebm/ebm_load_climatology.F	64	EBM_LOAD_CLIMATOLOGY	DO j=1,gridNy-1
./pkg/ebm/ebm_load_climatology.F	65	EBM_LOAD_CLIMATOLOGY	lY = lY + delY(j)
./pkg/ebm/ebm_load_climatology.F	69	EBM_LOAD_CLIMATOLOGY	DO j=1,sNy
./pkg/ebm/ebm_load_climatology.F	74	EBM_LOAD_CLIMATOLOGY	distY = (yC(i,j,bi,bj)- 0. )/lY
./pkg/ebm/ebm_load_climatology.F	77	EBM_LOAD_CLIMATOLOGY	fu(i,j,bi,bj) = tauX
./pkg/ebm/ebm_wind_perturb.F	105	EBM_WIND_PERTURB	DO j = jMin, jMax
./pkg/ebm/ebm_wind_perturb.F	106	EBM_WIND_PERTURB	y(j) = j
./pkg/ebm/ebm_wind_perturb.F	107	EBM_WIND_PERTURB	ya(j) = y(j) - MOD(y(j),6.0)
./pkg/ebm/ebm_wind_perturb.F	108	EBM_WIND_PERTURB	ya2(j) = ya(j)+6.0
./pkg/ebm/ebm_wind_perturb.F	109	EBM_WIND_PERTURB	if ( ya2(j) .gt. sNy+Oly ) then
./pkg/ebm/ebm_wind_perturb.F	110	EBM_WIND_PERTURB	ya2(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F	114	EBM_WIND_PERTURB	winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)*
./pkg/ebm/ebm_wind_perturb.F	115	EBM_WIND_PERTURB	& (1.0/1.66)(0.75winPert(i,j,bi,bj) +
./pkg/ebm/ebm_wind_perturb.F	116	EBM_WIND_PERTURB	& stdev(j)(1.0/6.0)
./pkg/ebm/ebm_wind_perturb.F	117	EBM_WIND_PERTURB	& ((y(j)-ya(j))*temp2(i,INT(ya2(j)))+
./pkg/ebm/ebm_wind_perturb.F	118	EBM_WIND_PERTURB	& (6.0-y(j)+ya(j))*temp2(i,INT(ya(j)))))
./pkg/ebm/ebm_wind_perturb.F	131	EBM_WIND_PERTURB	DO j = 1-OLy, sNy+OLy
./pkg/ebm/ebm_wind_perturb.F	133	EBM_WIND_PERTURB	fu(i,j,bi,bj) = fu(i,j,bi,bj)
./pkg/ebm/ebm_wind_perturb.F	134	EBM_WIND_PERTURB	& + winPert(i,j,bi,bj)*rUnit2mass
./pkg/ebm/ebm_wind_perturb.F	135	EBM_WIND_PERTURB	& drF(1)hFacW(i,j,1,bi,bj)
./pkg/ebm/ebm_wind_perturb.F	36	EBM_WIND_PERTURB	INTEGER i, j, bi, bj
./pkg/ebm/ebm_wind_perturb.F	55	EBM_WIND_PERTURB	DO j = 1-OLy, sNy+OLy
./pkg/ebm/ebm_wind_perturb.F	56	EBM_WIND_PERTURB	y(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F	57	EBM_WIND_PERTURB	ya(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F	58	EBM_WIND_PERTURB	ya2(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F	59	EBM_WIND_PERTURB	stdev(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F	67	EBM_WIND_PERTURB	DO j = 1-OLy, sNy+OLy
./pkg/ebm/ebm_wind_perturb.F	68	EBM_WIND_PERTURB	temp(i,j) = 0.0
./pkg/ebm/ebm_wind_perturb.F	69	EBM_WIND_PERTURB	temp2(i,j) = 0.0
./pkg/ebm/ebm_wind_perturb.F	72	EBM_WIND_PERTURB	DO j = 1, sNy
./pkg/ebm/ebm_wind_perturb.F	73	EBM_WIND_PERTURB	stdev(j) = std(j)
./pkg/ebm/ebm_wind_perturb.F	82	EBM_WIND_PERTURB	DO j = jMin, jMax
./pkg/ebm/ebm_wind_perturb.F	84	EBM_WIND_PERTURB	temp(i,j) = 1.73(2.0temp(i,j) - 1.0)
./pkg/ebm/ebm_wind_perturb.F	88	EBM_WIND_PERTURB	DO j = jMin, jMax
./pkg/ebm/ebm_wind_perturb.F	96	EBM_WIND_PERTURB	temp2(i,j) = 0.1( (x(i)-xa(i))temp(INT(xa2(i)),j)+
./pkg/ebm/ebm_wind_perturb.F	97	EBM_WIND_PERTURB	& (10.0-x(i)+xa(i))*temp(INT(xa(i)),j) )
./pkg/ebm/ebm_zonalmean.F	101	EBM_ZONALMEAN	DO j = 1-OLy, sNy+OLy
./pkg/ebm/ebm_zonalmean.F	103	EBM_ZONALMEAN	SST(i,j,bi,bj) = ZonalMeanSST(j,bj)
./pkg/ebm/ebm_zonalmean.F	45	EBM_ZONALMEAN	INTEGER i, j, k, bi, bj
./pkg/ebm/ebm_zonalmean.F	61	EBM_ZONALMEAN	j = jg + 1 - myYGlobalLo - (bj-1)*sNy
./pkg/ebm/ebm_zonalmean.F	62	EBM_ZONALMEAN	IF ( j.GE.1 .AND. j.LE.sNy ) THEN
./pkg/ebm/ebm_zonalmean.F	65	EBM_ZONALMEAN	& + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_zonalmean.F	67	EBM_ZONALMEAN	& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_zonalmean.F	81	EBM_ZONALMEAN	DO j=1-OLy,sNy+OLy
./pkg/ebm/ebm_zonalmean.F	82	EBM_ZONALMEAN	jg = myYGlobalLo + j-1 + (bj-1)*sNy
./pkg/ebm/ebm_zonalmean.F	87	EBM_ZONALMEAN	CountX(j,bj) = locSumMask(jg)
./pkg/ebm/ebm_zonalmean.F	88	EBM_ZONALMEAN	ZonalMeanSST(j,bj) = locSumSST(jg)
./pkg/ebm/ebm_zonalmean.F	89	EBM_ZONALMEAN	IF ( CountX(j,bj).GT.0. _d 0 ) THEN
./pkg/ebm/ebm_zonalmean.F	90	EBM_ZONALMEAN	ZonalMeanSST(j,bj) = ZonalMeanSST(j,bj)/CountX(j,bj)
./pkg/ecco/cost_argo_salt.F	163	COST_ARGO_SALT	do j = jmin,jmax
./pkg/ecco/cost_argo_salt.F	165	COST_ARGO_SALT	if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and.
./pkg/ecco/cost_argo_salt.F	166	COST_ARGO_SALT	$ (argosobs(i,j,k,bi,bj) .lt. spmax) .and.
./pkg/ecco/cost_argo_salt.F	168	COST_ARGO_SALT	$ (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then
./pkg/ecco/cost_argo_salt.F	170	COST_ARGO_SALT	& wsalt2(i,j,k,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_argo_salt.F	171	COST_ARGO_SALT	& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))*
./pkg/ecco/cost_argo_salt.F	172	COST_ARGO_SALT	& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))
./pkg/ecco/cost_argo_salt.F	173	COST_ARGO_SALT	if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_argo_salt.F	51	COST_ARGO_SALT	integer i,j,k
./pkg/ecco/cost_argo_theta.F	166	COST_ARGO_THETA	do j = jmin,jmax
./pkg/ecco/cost_argo_theta.F	168	COST_ARGO_THETA	if( (argotobs(i,j,k,bi,bj) .ne. 0.).and.
./pkg/ecco/cost_argo_theta.F	169	COST_ARGO_THETA	& (argotobs(i,j,k,bi,bj) .gt. spval).and.
./pkg/ecco/cost_argo_theta.F	170	COST_ARGO_THETA	& (argotobs(i,j,k,bi,bj) .lt. spmax).and.
./pkg/ecco/cost_argo_theta.F	172	COST_ARGO_THETA	& (_hFacC(i,j,k,bi,bj) .ne. 0.) )then
./pkg/ecco/cost_argo_theta.F	173	COST_ARGO_THETA	tmpobs(i,j) = SW_PTMP(rl_35,
./pkg/ecco/cost_argo_theta.F	174	COST_ARGO_THETA	$ argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_argo_theta.F	176	COST_ARGO_THETA	& wtheta2(i,j,k,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_argo_theta.F	177	COST_ARGO_THETA	& (tbar(i,j,k,bi,bj)-tmpobs(i,j))*
./pkg/ecco/cost_argo_theta.F	178	COST_ARGO_THETA	& (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_argo_theta.F	179	COST_ARGO_THETA	if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_argo_theta.F	51	COST_ARGO_THETA	integer i,j,k
./pkg/ecco/cost_atlantic.F	150	COST_ATLANTIC	do j = jmin,jmax
./pkg/ecco/cost_atlantic.F	152	COST_ATLANTIC	del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_atlantic.F	153	COST_ATLANTIC	if(yc(i,j,bi,bj) .ge.ylat .and.
./pkg/ecco/cost_atlantic.F	154	COST_ATLANTIC	$ yc(i,j,bi,bj).lt.ylat+del_y.and.
./pkg/ecco/cost_atlantic.F	155	COST_ATLANTIC	$ xc(i,j,bi,bj).ge.beglon.and.
./pkg/ecco/cost_atlantic.F	156	COST_ATLANTIC	$ xc(i,j,bi,bj).le.endlon.or.
./pkg/ecco/cost_atlantic.F	157	COST_ATLANTIC	$ (yc(i,j,bi,bj) .ge.ylat2 .and.
./pkg/ecco/cost_atlantic.F	158	COST_ATLANTIC	$ yc(i,j,bi,bj).lt.ylat2+del_y.and.
./pkg/ecco/cost_atlantic.F	159	COST_ATLANTIC	$ xc(i,j,bi,bj).ge.beglon2.and.
./pkg/ecco/cost_atlantic.F	160	COST_ATLANTIC	$ xc(i,j,bi,bj).le.endlon2).or.
./pkg/ecco/cost_atlantic.F	161	COST_ATLANTIC	$ (yc(i,j,bi,bj) .ge.ylat3 .and.
./pkg/ecco/cost_atlantic.F	162	COST_ATLANTIC	$ yc(i,j,bi,bj).lt.ylat3+del_y.and.
./pkg/ecco/cost_atlantic.F	163	COST_ATLANTIC	$ xc(i,j,bi,bj).ge.beglon3.and.
./pkg/ecco/cost_atlantic.F	164	COST_ATLANTIC	$ xc(i,j,bi,bj).le.endlon3)) then
./pkg/ecco/cost_atlantic.F	165	COST_ATLANTIC	tv = tv+p5*(theta(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F	166	COST_ATLANTIC	$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F	167	COST_ATLANTIC	$ * _dxG(i,j,bi,bj)
./pkg/ecco/cost_atlantic.F	168	COST_ATLANTIC	& * drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F	197	COST_ATLANTIC	do j = jmin,jmax
./pkg/ecco/cost_atlantic.F	199	COST_ATLANTIC	del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_atlantic.F	200	COST_ATLANTIC	if(yc(i,j,bi,bj) .ge.ylat .and.
./pkg/ecco/cost_atlantic.F	201	COST_ATLANTIC	$ yc(i,j,bi,bj).lt.ylat+del_y.and.
./pkg/ecco/cost_atlantic.F	202	COST_ATLANTIC	$ xc(i,j,bi,bj).ge.beglon.and.
./pkg/ecco/cost_atlantic.F	203	COST_ATLANTIC	$ xc(i,j,bi,bj).le.endlon.or.
./pkg/ecco/cost_atlantic.F	204	COST_ATLANTIC	$ (yc(i,j,bi,bj) .ge.ylat2 .and.
./pkg/ecco/cost_atlantic.F	205	COST_ATLANTIC	$ yc(i,j,bi,bj).lt.ylat2+del_y.and.
./pkg/ecco/cost_atlantic.F	206	COST_ATLANTIC	$ xc(i,j,bi,bj).ge.beglon2.and.
./pkg/ecco/cost_atlantic.F	207	COST_ATLANTIC	$ xc(i,j,bi,bj).le.endlon2).or.
./pkg/ecco/cost_atlantic.F	208	COST_ATLANTIC	$ (yc(i,j,bi,bj) .ge.ylat3 .and.
./pkg/ecco/cost_atlantic.F	209	COST_ATLANTIC	$ yc(i,j,bi,bj).lt.ylat3+del_y.and.
./pkg/ecco/cost_atlantic.F	210	COST_ATLANTIC	$ xc(i,j,bi,bj).ge.beglon3.and.
./pkg/ecco/cost_atlantic.F	211	COST_ATLANTIC	$ xc(i,j,bi,bj).le.endlon3)) then
./pkg/ecco/cost_atlantic.F	213	COST_ATLANTIC	$ +p5*(theta(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F	214	COST_ATLANTIC	$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F	215	COST_ATLANTIC	$ * _dxG(i,j,bi,bj)
./pkg/ecco/cost_atlantic.F	216	COST_ATLANTIC	& * drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F	61	COST_ATLANTIC	integer i,j,k
./pkg/ecco/cost_averagesfields.F	199	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	207	COST_AVERAGESFIELDS	& genprecipGloH=xx_gentim2d(i,j,bi,bj,iarr)
./pkg/ecco/cost_averagesfields.F	212	COST_AVERAGESFIELDS	etanLeads(i,j,bi,bj)=etan(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F	214	COST_AVERAGESFIELDS	& +sIceLoad(i,j,bi,bj)*recip_rhoConst
./pkg/ecco/cost_averagesfields.F	331	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	333	COST_AVERAGESFIELDS	ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	334	COST_AVERAGESFIELDS	vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	344	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	346	COST_AVERAGESFIELDS	ubar(i,j,k,bi,bj) = (ubar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F	347	COST_AVERAGESFIELDS	& uVel(i,j,k,bi,bj) )/
./pkg/ecco/cost_averagesfields.F	349	COST_AVERAGESFIELDS	vbar(i,j,k,bi,bj) = (vbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F	350	COST_AVERAGESFIELDS	& vVel(i,j,k,bi,bj) )/
./pkg/ecco/cost_averagesfields.F	382	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	384	COST_AVERAGESFIELDS	ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F	385	COST_AVERAGESFIELDS	& uVel (i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	386	COST_AVERAGESFIELDS	vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F	387	COST_AVERAGESFIELDS	& vVel (i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	405	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	407	COST_AVERAGESFIELDS	tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F	408	COST_AVERAGESFIELDS	tauybar(i,j,bi,bj) = vstress(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F	416	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	418	COST_AVERAGESFIELDS	tauxbar(i,j,bi,bj) = (tauxbar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F	419	COST_AVERAGESFIELDS	& ustress(i,j,bi,bj) )/
./pkg/ecco/cost_averagesfields.F	421	COST_AVERAGESFIELDS	tauybar(i,j,bi,bj) = (tauybar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F	422	COST_AVERAGESFIELDS	& vstress(i,j,bi,bj) )/
./pkg/ecco/cost_averagesfields.F	451	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	453	COST_AVERAGESFIELDS	tauxbar(i,j,bi,bj) = tauxbar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F	454	COST_AVERAGESFIELDS	& ustress (i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F	455	COST_AVERAGESFIELDS	tauybar(i,j,bi,bj) = tauybar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F	456	COST_AVERAGESFIELDS	& vstress (i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F	586	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	588	COST_AVERAGESFIELDS	iestau(i,j,bi,bj) = 0.0
./pkg/ecco/cost_averagesfields.F	596	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	598	COST_AVERAGESFIELDS	csmm(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_averagesfields.F	607	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	609	COST_AVERAGESFIELDS	if (hFacC(i,j,k,bi,bj).gt.0.0) then
./pkg/ecco/cost_averagesfields.F	610	COST_AVERAGESFIELDS	prmm = totPhiHyd(i,j,k,bi,bj)/gravity
./pkg/ecco/cost_averagesfields.F	612	COST_AVERAGESFIELDS	tmpmm = SW_TEMP(SALT(i,j,k,bi,bj),
./pkg/ecco/cost_averagesfields.F	613	COST_AVERAGESFIELDS	& THETA(i,j,k,bi,bj),prmm,0. _d 0)
./pkg/ecco/cost_averagesfields.F	615	COST_AVERAGESFIELDS	& totPhiHyd(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	619	COST_AVERAGESFIELDS	salmm = SALT(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	635	COST_AVERAGESFIELDS	csmm(i,j,k,bi,bj) = c0mm+vtmm+vsmm+vpmm+vstpmm
./pkg/ecco/cost_averagesfields.F	646	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	648	COST_AVERAGESFIELDS	if (csmm(i,j,k,bi,bj).ne.0.0) then
./pkg/ecco/cost_averagesfields.F	649	COST_AVERAGESFIELDS	iestau(i,j,bi,bj) = iestau(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F	650	COST_AVERAGESFIELDS	& + 2drF(k)hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	651	COST_AVERAGESFIELDS	& /csmm(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	653	COST_AVERAGESFIELDS	iestau(i,j,bi,bj) = iestau(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F	654	COST_AVERAGESFIELDS	& + 2*etaN(i,j,bi,j)
./pkg/ecco/cost_averagesfields.F	655	COST_AVERAGESFIELDS	& /csmm(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	707	COST_AVERAGESFIELDS	do j = jmin,jmax
./pkg/ecco/cost_averagesfields.F	708	COST_AVERAGESFIELDS	jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/ecco/cost_averagesfields.F	713	COST_AVERAGESFIELDS	& +vVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	714	COST_AVERAGESFIELDS	& _dxG(i,j,bi,bj)drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F	73	COST_AVERAGESFIELDS	integer i,j,k
./pkg/ecco/cost_averagesgeneric.F	105	COST_AVERAGESGENERIC	do j = jmin,jmax
./pkg/ecco/cost_averagesgeneric.F	107	COST_AVERAGESGENERIC	localbar(i,j,k,bi,bj) =
./pkg/ecco/cost_averagesgeneric.F	108	COST_AVERAGESGENERIC	& (localbar(i,j,k,bi,bj)
./pkg/ecco/cost_averagesgeneric.F	109	COST_AVERAGESGENERIC	& +localfld(i,j,k,bi,bj))/
./pkg/ecco/cost_averagesgeneric.F	134	COST_AVERAGESGENERIC	do j = jmin,jmax
./pkg/ecco/cost_averagesgeneric.F	137	COST_AVERAGESGENERIC	localbar(i,j,k,bi,bj) =
./pkg/ecco/cost_averagesgeneric.F	138	COST_AVERAGESGENERIC	& localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj)
./pkg/ecco/cost_averagesgeneric.F	60	COST_AVERAGESGENERIC	integer i,j,k
./pkg/ecco/cost_averagesgeneric.F	92	COST_AVERAGESGENERIC	do j = jmin,jmax
./pkg/ecco/cost_averagesgeneric.F	94	COST_AVERAGESGENERIC	localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj)
./pkg/ecco/cost_averagesinit.F	107	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	109	COST_AVERAGESINIT	iestaubar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	118	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	120	COST_AVERAGESINIT	sigmaRbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	135	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	137	COST_AVERAGESINIT	tbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	147	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	149	COST_AVERAGESINIT	tbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	160	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	162	COST_AVERAGESINIT	sstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	174	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	176	COST_AVERAGESINIT	sbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	186	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	188	COST_AVERAGESINIT	sbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	200	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	202	COST_AVERAGESINIT	ubar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	203	COST_AVERAGESINIT	vbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	214	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	216	COST_AVERAGESINIT	wbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	226	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	228	COST_AVERAGESINIT	tauxbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	229	COST_AVERAGESINIT	tauybar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	238	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	240	COST_AVERAGESINIT	hfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	248	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	250	COST_AVERAGESINIT	sfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	260	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	262	COST_AVERAGESINIT	smrareabar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	263	COST_AVERAGESINIT	smrsstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	264	COST_AVERAGESINIT	smrsssbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	49	COST_AVERAGESINIT	integer i,j,k
./pkg/ecco/cost_averagesinit.F	73	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	75	COST_AVERAGESINIT	gencost_barfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	76	COST_AVERAGESINIT	gencost_modfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	85	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	87	COST_AVERAGESINIT	psbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F	96	COST_AVERAGESINIT	do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F	98	COST_AVERAGESINIT	bpbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bottomdrag.F	104	COST_BOTTOMDRAG	do j = jmin,jmax
./pkg/ecco/cost_bottomdrag.F	106	COST_BOTTOMDRAG	if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_bottomdrag.F	107	COST_BOTTOMDRAG	tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F	110	COST_BOTTOMDRAG	& + wbottomdrag(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F	41	COST_BOTTOMDRAG	integer i,j,k
./pkg/ecco/cost_bp.F	100	COST_BP	bpdifmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F	101	COST_BP	bpdifanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F	102	COST_BP	bpdatmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F	103	COST_BP	bpdatanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F	104	COST_BP	bpcount(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F	133	COST_BP	do j = 1,sny
./pkg/ecco/cost_bp.F	135	COST_BP	if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F	136	COST_BP	& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F	137	COST_BP	bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj) +
./pkg/ecco/cost_bp.F	138	COST_BP	& ( fac*bpbar(i,j,bi,bj) - bpdat(i,j,bi,bj) )
./pkg/ecco/cost_bp.F	139	COST_BP	bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj) +
./pkg/ecco/cost_bp.F	140	COST_BP	& bpdat(i,j,bi,bj)
./pkg/ecco/cost_bp.F	141	COST_BP	bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_bp.F	152	COST_BP	do j = 1,sny
./pkg/ecco/cost_bp.F	154	COST_BP	if (bpcount(i,j,bi,bj).GT. 0. _d 0) then
./pkg/ecco/cost_bp.F	155	COST_BP	bpdifmean(i,j,bi,bj) =
./pkg/ecco/cost_bp.F	156	COST_BP	& bpdifmean(i,j,bi,bj)/bpcount(i,j,bi,bj)
./pkg/ecco/cost_bp.F	157	COST_BP	bpdatmean(i,j,bi,bj) =
./pkg/ecco/cost_bp.F	158	COST_BP	& bpdatmean(i,j,bi,bj)/bpcount(i,j,bi,bj)
./pkg/ecco/cost_bp.F	181	COST_BP	do j = 1,sny
./pkg/ecco/cost_bp.F	183	COST_BP	if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F	184	COST_BP	& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F	185	COST_BP	bpdifanom(i,j,bi,bj) =
./pkg/ecco/cost_bp.F	186	COST_BP	& ( fac*bpbar(i,j,bi,bj) - bpdat(i,j,bi,bj) )
./pkg/ecco/cost_bp.F	187	COST_BP	& - bpdifmean(i,j,bi,bj)
./pkg/ecco/cost_bp.F	188	COST_BP	bpdatanom(i,j,bi,bj) =
./pkg/ecco/cost_bp.F	189	COST_BP	& bpdat(i,j,bi,bj) - bpdatmean(i,j,bi,bj)
./pkg/ecco/cost_bp.F	191	COST_BP	bpdifanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F	192	COST_BP	bpdatanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F	205	COST_BP	do j = 1,sny
./pkg/ecco/cost_bp.F	207	COST_BP	if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F	208	COST_BP	& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F	209	COST_BP	offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F	210	COST_BP	offset_sum = offset_sum + RA(i,j,bi,bj)
./pkg/ecco/cost_bp.F	222	COST_BP	do j = 1,sny
./pkg/ecco/cost_bp.F	225	COST_BP	& (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F	226	COST_BP	& (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then
./pkg/ecco/cost_bp.F	227	COST_BP	bpdifanom(i,j,bi,bj) = bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F	267	COST_BP	do j = 1,sny
./pkg/ecco/cost_bp.F	269	COST_BP	if ( (wbp(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F	270	COST_BP	& (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F	271	COST_BP	& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F	272	COST_BP	junk = bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F	274	COST_BP	& + junkjunkwbp(i,j,bi,bj)
./pkg/ecco/cost_bp.F	56	COST_BP	integer i,j
./pkg/ecco/cost_bp.F	98	COST_BP	do j = 1,sny
./pkg/ecco/cost_bp_read.F	116	COST_BP_READ	do j = jmin,jmax
./pkg/ecco/cost_bp_read.F	118	COST_BP_READ	bpdat(i,j,bi,bj) = spval
./pkg/ecco/cost_bp_read.F	130	COST_BP_READ	do j = jmin,jmax
./pkg/ecco/cost_bp_read.F	137	COST_BP_READ	if (bpdat(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_bp_read.F	138	COST_BP_READ	bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp_read.F	140	COST_BP_READ	bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_bp_read.F	142	COST_BP_READ	bpdat(i,j,bi,bj) = bpdat(i,j,bi,bj)*
./pkg/ecco/cost_bp_read.F	143	COST_BP_READ	& bpmask(i,j,bi,bj)
./pkg/ecco/cost_bp_read.F	144	COST_BP_READ	nobs = nobs + int(bpmask(i,j,bi,bj))
./pkg/ecco/cost_bp_read.F	46	COST_BP_READ	integer i,j,k
./pkg/ecco/cost_ctds.F	156	COST_CTDS	do j = jmin,jmax
./pkg/ecco/cost_ctds.F	158	COST_CTDS	cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctds.F	159	COST_CTDS	if (ctdsobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_ctds.F	160	COST_CTDS	& ctdsobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_ctds.F	161	COST_CTDS	& ctdsobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_ctds.F	162	COST_CTDS	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctds.F	165	COST_CTDS	if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctds.F	167	COST_CTDS	www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j)
./pkg/ecco/cost_ctds.F	168	COST_CTDS	tmpobs(i,j) = ctdsobs(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F	169	COST_CTDS	tmpbar(i,j) = sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F	170	COST_CTDS	wtmp(i,j) = wsalt2(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F	173	COST_CTDS	& (wtmp(i,j)www(i,j))
./pkg/ecco/cost_ctds.F	174	COST_CTDS	& (tmpbar(i,j)-tmpobs(i,j))*
./pkg/ecco/cost_ctds.F	175	COST_CTDS	& (tmpbar(i,j)-tmpobs(i,j))
./pkg/ecco/cost_ctds.F	176	COST_CTDS	if ( wtmp(i,j)*www(i,j) .ne. 0. )
./pkg/ecco/cost_ctds.F	50	COST_CTDS	integer i,j,k
./pkg/ecco/cost_ctdsclim.F	135	COST_CTDSCLIM	do j = jmin,jmax
./pkg/ecco/cost_ctdsclim.F	138	COST_CTDSCLIM	sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F	140	COST_CTDSCLIM	sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F	141	COST_CTDSCLIM	$ +sbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdsclim.F	143	COST_CTDSCLIM	sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F	144	COST_CTDSCLIM	$ +sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F	178	COST_CTDSCLIM	do j = jmin,jmax
./pkg/ecco/cost_ctdsclim.F	180	COST_CTDSCLIM	cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdsclim.F	181	COST_CTDSCLIM	if (sdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdsclim.F	182	COST_CTDSCLIM	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdsclim.F	184	COST_CTDSCLIM	if (sdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_ctdsclim.F	185	COST_CTDSCLIM	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdsclim.F	192	COST_CTDSCLIM	do j = jmin,jmax
./pkg/ecco/cost_ctdsclim.F	194	COST_CTDSCLIM	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdsclim.F	196	COST_CTDSCLIM	& (wsalt2(i,j,k,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_ctdsclim.F	197	COST_CTDSCLIM	& cmask(i,j)*
./pkg/ecco/cost_ctdsclim.F	198	COST_CTDSCLIM	& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))*
./pkg/ecco/cost_ctdsclim.F	199	COST_CTDSCLIM	& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_ctdsclim.F	62	COST_CTDSCLIM	integer i,j,k
./pkg/ecco/cost_ctdt.F	157	COST_CTDT	do j = jmin,jmax
./pkg/ecco/cost_ctdt.F	159	COST_CTDT	cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdt.F	160	COST_CTDT	if (ctdtobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_ctdt.F	161	COST_CTDT	& ctdtobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_ctdt.F	162	COST_CTDT	& ctdtobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_ctdt.F	163	COST_CTDT	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdt.F	168	COST_CTDT	if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctdt.F	170	COST_CTDT	www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j)
./pkg/ecco/cost_ctdt.F	171	COST_CTDT	tmpobs(i,j) = ctdtobs(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F	172	COST_CTDT	tmpbar(i,j) = tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F	173	COST_CTDT	wtmp(i,j) = wtheta2(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F	177	COST_CTDT	& (wtmp(i,j)www(i,j))
./pkg/ecco/cost_ctdt.F	178	COST_CTDT	& (tmpbar(i,j)-tmpobs(i,j))*
./pkg/ecco/cost_ctdt.F	179	COST_CTDT	& (tmpbar(i,j)-tmpobs(i,j))
./pkg/ecco/cost_ctdt.F	180	COST_CTDT	if ( wtmp(i,j)*www(i,j) .ne. 0. )
./pkg/ecco/cost_ctdt.F	51	COST_CTDT	integer i,j,k
./pkg/ecco/cost_ctdtclim.F	134	COST_CTDTCLIM	do j = jmin,jmax
./pkg/ecco/cost_ctdtclim.F	137	COST_CTDTCLIM	tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F	139	COST_CTDTCLIM	tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F	140	COST_CTDTCLIM	$ +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdtclim.F	142	COST_CTDTCLIM	tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F	143	COST_CTDTCLIM	$ +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F	177	COST_CTDTCLIM	do j = jmin,jmax
./pkg/ecco/cost_ctdtclim.F	179	COST_CTDTCLIM	cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdtclim.F	180	COST_CTDTCLIM	if (tdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdtclim.F	181	COST_CTDTCLIM	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdtclim.F	184	COST_CTDTCLIM	if (tdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_ctdtclim.F	185	COST_CTDTCLIM	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdtclim.F	192	COST_CTDTCLIM	do j = jmin,jmax
./pkg/ecco/cost_ctdtclim.F	194	COST_CTDTCLIM	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdtclim.F	196	COST_CTDTCLIM	& (wtheta2(i,j,k,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_ctdtclim.F	197	COST_CTDTCLIM	& cmask(i,j)*
./pkg/ecco/cost_ctdtclim.F	198	COST_CTDTCLIM	& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_ctdtclim.F	199	COST_CTDTCLIM	& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_ctdtclim.F	62	COST_CTDTCLIM	integer i,j,k
./pkg/ecco/cost_curmtr.F	166	COST_CURMTR	do j = jmin,jmax
./pkg/ecco/cost_curmtr.F	168	COST_CURMTR	umask(i,j) = 1. _d 0
./pkg/ecco/cost_curmtr.F	169	COST_CURMTR	vmask(i,j) = 1. _d 0
./pkg/ecco/cost_curmtr.F	170	COST_CURMTR	if (curmtruobs(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F	171	COST_CURMTR	umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F	174	COST_CURMTR	if (curmtrvobs(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F	175	COST_CURMTR	vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F	178	COST_CURMTR	if (curmtruobs(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_curmtr.F	179	COST_CURMTR	umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F	182	COST_CURMTR	if (curmtrvobs(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_curmtr.F	183	COST_CURMTR	vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F	198	COST_CURMTR	if (_hFacW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F	199	COST_CURMTR	umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F	202	COST_CURMTR	if (_hFacS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F	203	COST_CURMTR	vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F	209	COST_CURMTR	do j = jmin,jmax
./pkg/ecco/cost_curmtr.F	211	COST_CURMTR	wwwu(i,j) = cosphi(i,j,bi,bj)*umask(i,j)
./pkg/ecco/cost_curmtr.F	212	COST_CURMTR	wwwv(i,j) = cosphi(i,j,bi,bj)*vmask(i,j)
./pkg/ecco/cost_curmtr.F	214	COST_CURMTR	tmpuobs(i,j) = curmtruobs(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F	215	COST_CURMTR	tmpubar(i,j) = ubar(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F	217	COST_CURMTR	tmpvobs(i,j) = curmtrvobs(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F	218	COST_CURMTR	tmpvbar(i,j) = vbar(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F	222	COST_CURMTR	if ( (i.eq.5) .and. (j.eq.13)) then
./pkg/ecco/cost_curmtr.F	223	COST_CURMTR	tmpubar(i,j) = ubar(5,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F	224	COST_CURMTR	tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F	227	COST_CURMTR	if ( (i .eq. 11) .and. (j .eq. 13)) then
./pkg/ecco/cost_curmtr.F	228	COST_CURMTR	tmpubar(i,j) = ubar(11,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F	229	COST_CURMTR	tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F	232	COST_CURMTR	if ( (i .eq. 8) .and. (j .eq. 9)) then
./pkg/ecco/cost_curmtr.F	233	COST_CURMTR	tmpubar(i,j) = (ubar(7,8,k,bi,bj) + ubar(8,8,k,bi,bj)
./pkg/ecco/cost_curmtr.F	235	COST_CURMTR	tmpvbar(i,j) = vbar(7,9,k,bi,bj)
./pkg/ecco/cost_curmtr.F	237	COST_CURMTR	if ( (i .eq. 5) .and. (j .eq. 5)) then
./pkg/ecco/cost_curmtr.F	238	COST_CURMTR	tmpubar(i,j) = (ubar(5,4,k,bi,bj) + ubar(5,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F	239	COST_CURMTR	tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F	241	COST_CURMTR	if ( (i .eq. 11) .and. (j .eq. 5)) then
./pkg/ecco/cost_curmtr.F	242	COST_CURMTR	tmpubar(i,j) = (ubar(11,4,k,bi,bj)+ubar(11,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F	243	COST_CURMTR	tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F	248	COST_CURMTR	wu(i,j) = wcurrent2(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F	249	COST_CURMTR	wv(i,j) = wcurrent2(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F	254	COST_CURMTR	do j = jmin,jmax
./pkg/ecco/cost_curmtr.F	266	COST_CURMTR	if (tmpubar(i,j) .ne. 0.) then
./pkg/ecco/cost_curmtr.F	268	COST_CURMTR	& (wu(i,j)wwwu(i,j))
./pkg/ecco/cost_curmtr.F	269	COST_CURMTR	& (tmpubar(i,j)-tmpuobs(i,j))*
./pkg/ecco/cost_curmtr.F	270	COST_CURMTR	& (tmpubar(i,j)-tmpuobs(i,j))
./pkg/ecco/cost_curmtr.F	271	COST_CURMTR	if ( wu(i,j)*wwwu(i,j)) .ne. 0. )
./pkg/ecco/cost_curmtr.F	276	COST_CURMTR	if (tmpvbar(i,j) .ne. 0.) then
./pkg/ecco/cost_curmtr.F	278	COST_CURMTR	& (wv(i,j)wwwv(i,j))
./pkg/ecco/cost_curmtr.F	279	COST_CURMTR	& (tmpvbar(i,j)-tmpvobs(i,j))*
./pkg/ecco/cost_curmtr.F	280	COST_CURMTR	& (tmpvbar(i,j)-tmpvobs(i,j))
./pkg/ecco/cost_curmtr.F	281	COST_CURMTR	if ( wv(i,j)*wwwv(i,j)) .ne. 0. )
./pkg/ecco/cost_curmtr.F	51	COST_CURMTR	integer i,j,k
./pkg/ecco/cost_diffkr.F	105	COST_DIFFKR	do j = jmin,jmax
./pkg/ecco/cost_diffkr.F	107	COST_DIFFKR	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_diffkr.F	109	COST_DIFFKR	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F	112	COST_DIFFKR	& + wdiffkrFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_diffkr.F	117	COST_DIFFKR	if (wdiffkrFld(i,j,k,bi,bj).ne.0.)
./pkg/ecco/cost_diffkr.F	41	COST_DIFFKR	integer i,j,k
./pkg/ecco/cost_drift.F	119	COST_DRIFT	do j = jmin,jmax
./pkg/ecco/cost_drift.F	121	COST_DRIFT	Tfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F	122	COST_DRIFT	Sfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F	123	COST_DRIFT	Tlmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F	124	COST_DRIFT	Slmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F	156	COST_DRIFT	do j = jmin,jmax
./pkg/ecco/cost_drift.F	158	COST_DRIFT	Tfmean(i,j,k,bi,bj) = Tfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F	159	COST_DRIFT	& tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F	160	COST_DRIFT	Sfmean(i,j,k,bi,bj) = Sfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F	161	COST_DRIFT	& sbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F	188	COST_DRIFT	do j = jmin,jmax
./pkg/ecco/cost_drift.F	190	COST_DRIFT	Tlmean(i,j,k,bi,bj) = Tlmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F	191	COST_DRIFT	& tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F	192	COST_DRIFT	Slmean(i,j,k,bi,bj) = Slmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F	193	COST_DRIFT	& sbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F	208	COST_DRIFT	do j = jmin,jmax
./pkg/ecco/cost_drift.F	210	COST_DRIFT	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F	212	COST_DRIFT	& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F	214	COST_DRIFT	& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F	215	COST_DRIFT	& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F	217	COST_DRIFT	diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_drift.F	218	COST_DRIFT	& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F	220	COST_DRIFT	& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F	221	COST_DRIFT	& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F	223	COST_DRIFT	if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_drift.F	227	COST_DRIFT	diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_drift.F	245	COST_DRIFT	do j = jmin,jmax
./pkg/ecco/cost_drift.F	247	COST_DRIFT	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F	249	COST_DRIFT	& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F	251	COST_DRIFT	& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F	252	COST_DRIFT	& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F	254	COST_DRIFT	diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_drift.F	255	COST_DRIFT	& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F	257	COST_DRIFT	& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F	258	COST_DRIFT	& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F	260	COST_DRIFT	if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_drift.F	264	COST_DRIFT	diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_drift.F	56	COST_DRIFT	integer i,j,k
./pkg/ecco/cost_drifter.F	161	COST_DRIFTER	do j = jmin,jmax
./pkg/ecco/cost_drifter.F	164	COST_DRIFTER	udmod(i,j,bi,bj)=ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F	165	COST_DRIFTER	vdmod(i,j,bi,bj)=vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F	167	COST_DRIFTER	udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F	168	COST_DRIFTER	vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F	170	COST_DRIFTER	udmod(i,j,bi,bj)=udmod(i,j,bi,bj)+ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F	171	COST_DRIFTER	vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)+vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F	191	COST_DRIFTER	do j = jmin,jmax
./pkg/ecco/cost_drifter.F	193	COST_DRIFTER	mask13c(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_drifter.F	194	COST_DRIFTER	if (_hFacC(i,j,k,bi,bj) .eq. 0.)
./pkg/ecco/cost_drifter.F	195	COST_DRIFTER	& mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F	205	COST_DRIFTER	if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_drifter.F	206	COST_DRIFTER	mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F	214	COST_DRIFTER	do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F	216	COST_DRIFTER	masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F	217	COST_DRIFTER	& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F	218	COST_DRIFTER	& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F	219	COST_DRIFTER	& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F	220	COST_DRIFTER	& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	221	COST_DRIFTER	& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	222	COST_DRIFTER	& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F	223	COST_DRIFTER	if ( masktmp(i,j,bi,bj) .eq. 0.0 ) then
./pkg/ecco/cost_drifter.F	224	COST_DRIFTER	u6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F	226	COST_DRIFTER	u6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F	227	COST_DRIFTER	& udmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F	228	COST_DRIFTER	& + udmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F	229	COST_DRIFTER	& + udmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F	230	COST_DRIFTER	& + udmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F	231	COST_DRIFTER	& + udmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F	232	COST_DRIFTER	& + udmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F	233	COST_DRIFTER	& + udmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	234	COST_DRIFTER	& + udmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	235	COST_DRIFTER	& + udmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	236	COST_DRIFTER	& + udmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	237	COST_DRIFTER	& + udmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	238	COST_DRIFTER	& + udmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F	239	COST_DRIFTER	& / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F	244	COST_DRIFTER	do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F	246	COST_DRIFTER	masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F	247	COST_DRIFTER	& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F	248	COST_DRIFTER	& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F	249	COST_DRIFTER	& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F	250	COST_DRIFTER	& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	251	COST_DRIFTER	& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	252	COST_DRIFTER	& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F	253	COST_DRIFTER	if ( masktmp(i,j,bi,bj) .eq.0.0 ) then
./pkg/ecco/cost_drifter.F	254	COST_DRIFTER	v6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F	256	COST_DRIFTER	v6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F	257	COST_DRIFTER	& vdmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F	258	COST_DRIFTER	& + vdmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F	259	COST_DRIFTER	& + vdmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F	260	COST_DRIFTER	& + vdmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F	261	COST_DRIFTER	& + vdmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F	262	COST_DRIFTER	& + vdmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F	263	COST_DRIFTER	& + vdmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	264	COST_DRIFTER	& + vdmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	265	COST_DRIFTER	& + vdmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	266	COST_DRIFTER	& + vdmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	267	COST_DRIFTER	& + vdmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F	268	COST_DRIFTER	& + vdmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F	269	COST_DRIFTER	& / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F	274	COST_DRIFTER	do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F	277	COST_DRIFTER	uddat(i,j,bi,bj) = 0.01*udriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F	278	COST_DRIFTER	vddat(i,j,bi,bj) = 0.01*vdriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F	280	COST_DRIFTER	wud(i,j,bi,bj) = 1e4max(wudrift(i,j,bi,bj),5.D0)*(-2)
./pkg/ecco/cost_drifter.F	281	COST_DRIFTER	wvd(i,j,bi,bj) = 1e4max(wvdrift(i,j,bi,bj),5.D0)*(-2)
./pkg/ecco/cost_drifter.F	284	COST_DRIFTER	mask6c(i,j,bi,bj) = 1.0
./pkg/ecco/cost_drifter.F	285	COST_DRIFTER	if ( uddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F	286	COST_DRIFTER	if ( abs(uddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F	287	COST_DRIFTER	if ( vddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F	288	COST_DRIFTER	if ( abs(vddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F	303	COST_DRIFTER	do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F	306	COST_DRIFTER	& + (wud(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_drifter.F	307	COST_DRIFTER	& mask6c(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F	308	COST_DRIFTER	& (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))*
./pkg/ecco/cost_drifter.F	309	COST_DRIFTER	& (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj)) )
./pkg/ecco/cost_drifter.F	310	COST_DRIFTER	& + (wvd(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_drifter.F	311	COST_DRIFTER	& mask6c(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F	312	COST_DRIFTER	& (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))*
./pkg/ecco/cost_drifter.F	313	COST_DRIFTER	& (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj)) )
./pkg/ecco/cost_drifter.F	314	COST_DRIFTER	if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_drifter.F	315	COST_DRIFTER	if ( wud(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F	317	COST_DRIFTER	if ( wvd(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F	65	COST_DRIFTER	integer i,j,k
./pkg/ecco/cost_driftw.F	109	COST_DRIFTW	do j = jmin,jmax
./pkg/ecco/cost_driftw.F	111	COST_DRIFTW	wfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_driftw.F	112	COST_DRIFTW	wlmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_driftw.F	139	COST_DRIFTW	do j = jmin,jmax
./pkg/ecco/cost_driftw.F	141	COST_DRIFTW	wfmean(i,j,k,bi,bj) = wfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_driftw.F	142	COST_DRIFTW	& wbar(i,j,k,bi,bj)
./pkg/ecco/cost_driftw.F	164	COST_DRIFTW	do j = jmin,jmax
./pkg/ecco/cost_driftw.F	166	COST_DRIFTW	wlmean(i,j,k,bi,bj) = wlmean(i,j,k,bi,bj) +
./pkg/ecco/cost_driftw.F	167	COST_DRIFTW	& wbar(i,j,k,bi,bj)
./pkg/ecco/cost_driftw.F	187	COST_DRIFTW	do j = jmin,jmax
./pkg/ecco/cost_driftw.F	189	COST_DRIFTW	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_driftw.F	191	COST_DRIFTW	& (2.5e11cosphi(i,j,bi,bj)
./pkg/ecco/cost_driftw.F	192	COST_DRIFTW	& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_driftw.F	193	COST_DRIFTW	& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_driftw.F	194	COST_DRIFTW	if ( cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_driftw.F	56	COST_DRIFTW	integer i,j,k
./pkg/ecco/cost_etan0.F	116	COST_ETAN0	do j = jmin,jmax
./pkg/ecco/cost_etan0.F	118	COST_ETAN0	if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_etan0.F	119	COST_ETAN0	tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_etan0.F	122	COST_ETAN0	& + wetan(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_etan0.F	127	COST_ETAN0	if ( wetan(i,j,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_etan0.F	53	COST_ETAN0	integer i,j,k
./pkg/ecco/cost_forcing_gen.F	135	COST_FORCING_GEN	do j = jmin,jmax
./pkg/ecco/cost_forcing_gen.F	137	COST_FORCING_GEN	xx_mean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_forcing_gen.F	159	COST_FORCING_GEN	do j = jmin,jmax
./pkg/ecco/cost_forcing_gen.F	161	COST_FORCING_GEN	xx_mean(i,j,bi,bj) = xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F	162	COST_FORCING_GEN	& + tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F	178	COST_FORCING_GEN	do j = jmin,jmax
./pkg/ecco/cost_forcing_gen.F	180	COST_FORCING_GEN	xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F	181	COST_FORCING_GEN	& = xx_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_forcing_gen.F	182	COST_FORCING_GEN	tmpx = xx_mean(i,j,bi,bj)/wmean_gen
./pkg/ecco/cost_forcing_gen.F	183	COST_FORCING_GEN	if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F	184	COST_FORCING_GEN	if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F	185	COST_FORCING_GEN	& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F	186	COST_FORCING_GEN	fctilem = fctilem + cosphi(i,j,bi,bj)tmpxtmpx
./pkg/ecco/cost_forcing_gen.F	187	COST_FORCING_GEN	if ( cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F	212	COST_FORCING_GEN	do j = jmin,jmax
./pkg/ecco/cost_forcing_gen.F	214	COST_FORCING_GEN	if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F	216	COST_FORCING_GEN	tmpx = tmpfld2d(i,j,bi,bj)-xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F	219	COST_FORCING_GEN	if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F	220	COST_FORCING_GEN	& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F	222	COST_FORCING_GEN	& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F	225	COST_FORCING_GEN	tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F	228	COST_FORCING_GEN	if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F	262	COST_FORCING_GEN	do j = jmin,jmax
./pkg/ecco/cost_forcing_gen.F	264	COST_FORCING_GEN	if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F	266	COST_FORCING_GEN	& ( tmpfld2d(i+2,j,bi,bj)-tmpfld2d(i+1,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F	267	COST_FORCING_GEN	& maskW(i+1,j,kk,bi,bj)maskW(i+2,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F	268	COST_FORCING_GEN	& + ( tmpfld2d(i+1,j,bi,bj)-tmpfld2d(i,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F	269	COST_FORCING_GEN	& *maskW(i+1,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F	270	COST_FORCING_GEN	& + ( tmpfld2d(i,j+2,bi,bj)-tmpfld2d(i,j+1,bi,bj) )
./pkg/ecco/cost_forcing_gen.F	271	COST_FORCING_GEN	& maskS(i,j+1,kk,bi,bj)maskS(i,j+2,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F	272	COST_FORCING_GEN	& + ( tmpfld2d(i,j+1,bi,bj)-tmpfld2d(i,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F	273	COST_FORCING_GEN	& *maskS(i,j+1,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F	274	COST_FORCING_GEN	if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F	275	COST_FORCING_GEN	& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F	277	COST_FORCING_GEN	& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F	280	COST_FORCING_GEN	if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F	76	COST_FORCING_GEN	integer i,j,kk
./pkg/ecco/cost_gencost_all.F	43	COST_GENCOST_ALL	integer i,j,k
./pkg/ecco/cost_gencost_boxmean.F	100	COST_GENCOST_BOXMEAN	do j = 1,sNy
./pkg/ecco/cost_gencost_boxmean.F	102	COST_GENCOST_BOXMEAN	tmpmsk(i,j,k,bi,bj)=0. _d 0
./pkg/ecco/cost_gencost_boxmean.F	117	COST_GENCOST_BOXMEAN	do j = 1,sNy
./pkg/ecco/cost_gencost_boxmean.F	119	COST_GENCOST_BOXMEAN	if (mymsk(i,j,k,bi,bj).GT.tmpmsk(i,j,k,bi,bj))
./pkg/ecco/cost_gencost_boxmean.F	120	COST_GENCOST_BOXMEAN	& tmpmsk(i,j,k,bi,bj)=mymsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	157	COST_GENCOST_BOXMEAN	do j = 1,sNy
./pkg/ecco/cost_gencost_boxmean.F	161	COST_GENCOST_BOXMEAN	& mybar(i,j,k,bi,bj)*
./pkg/ecco/cost_gencost_boxmean.F	162	COST_GENCOST_BOXMEAN	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	163	COST_GENCOST_BOXMEAN	& *mymsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	165	COST_GENCOST_BOXMEAN	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	166	COST_GENCOST_BOXMEAN	& *mymsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	170	COST_GENCOST_BOXMEAN	& mybar(i,j,k,bi,bj)*
./pkg/ecco/cost_gencost_boxmean.F	171	COST_GENCOST_BOXMEAN	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	172	COST_GENCOST_BOXMEAN	& *tmpmsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	174	COST_GENCOST_BOXMEAN	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	175	COST_GENCOST_BOXMEAN	& *tmpmsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F	54	COST_GENCOST_BOXMEAN	integer i,j,k
./pkg/ecco/cost_gencost_customize.F	41	COST_GENCOST_CUSTOMIZE	integer i,j,k
./pkg/ecco/cost_gencost_customize.F	60	COST_GENCOST_CUSTOMIZE	do j = jmin,jmax
./pkg/ecco/cost_gencost_customize.F	65	COST_GENCOST_CUSTOMIZE	gencost_modfld(i,j,bi,bj,1) = empmr(i,j,bi,bj)
./pkg/ecco/cost_gencost_customize.F	74	COST_GENCOST_CUSTOMIZE	if (gencost_name(k).EQ.'siv4-conc') gencost_modfld(i,j,bi,bj,k)
./pkg/ecco/cost_gencost_customize.F	75	COST_GENCOST_CUSTOMIZE	& = area(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_customize.F	76	COST_GENCOST_CUSTOMIZE	if (gencost_name(k).EQ.'siv4-deconc') gencost_modfld(i,j,bi,bj,k)
./pkg/ecco/cost_gencost_customize.F	77	COST_GENCOST_CUSTOMIZE	& = theta(i,j,1,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_customize.F	78	COST_GENCOST_CUSTOMIZE	if (gencost_name(k).EQ.'siv4-exconc') gencost_modfld(i,j,bi,bj,k)
./pkg/ecco/cost_gencost_customize.F	79	COST_GENCOST_CUSTOMIZE	& = heff(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F	183	COST_GENCOST_SEAICEV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_seaicev4.F	185	COST_GENCOST_SEAICEV4	localobs(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F	188	COST_GENCOST_SEAICEV4	localobsweight(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F	201	COST_GENCOST_SEAICEV4	do j = 1-oly,sny+oly
./pkg/ecco/cost_gencost_seaicev4.F	203	COST_GENCOST_SEAICEV4	localmask(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F	317	COST_GENCOST_SEAICEV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_seaicev4.F	319	COST_GENCOST_SEAICEV4	localobs(i,j,k,bi,bj) = spval
./pkg/ecco/cost_gencost_seaicev4.F	351	COST_GENCOST_SEAICEV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_seaicev4.F	353	COST_GENCOST_SEAICEV4	localobsweight(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F	369	COST_GENCOST_SEAICEV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_seaicev4.F	371	COST_GENCOST_SEAICEV4	cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F	372	COST_GENCOST_SEAICEV4	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/cost_gencost_seaicev4.F	373	COST_GENCOST_SEAICEV4	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/cost_gencost_seaicev4.F	374	COST_GENCOST_SEAICEV4	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/cost_gencost_seaicev4.F	375	COST_GENCOST_SEAICEV4	cmask(i,j,k) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F	381	COST_GENCOST_SEAICEV4	if (localobsweight(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/cost_gencost_seaicev4.F	382	COST_GENCOST_SEAICEV4	localobsweight(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F	384	COST_GENCOST_SEAICEV4	if (localobsweight(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_gencost_seaicev4.F	385	COST_GENCOST_SEAICEV4	localweight(i,j,k,bi,bj) =
./pkg/ecco/cost_gencost_seaicev4.F	386	COST_GENCOST_SEAICEV4	& 1./localobsweight(i,j,k,bi,bj)/
./pkg/ecco/cost_gencost_seaicev4.F	387	COST_GENCOST_SEAICEV4	& localobsweight(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F	389	COST_GENCOST_SEAICEV4	localweight(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/cost_gencost_seaicev4.F	392	COST_GENCOST_SEAICEV4	localweight(i,j,k,bi,bj)=
./pkg/ecco/cost_gencost_seaicev4.F	393	COST_GENCOST_SEAICEV4	& gencost_weight(i,j,bi,bj,igen_conc)
./pkg/ecco/cost_gencost_seaicev4.F	396	COST_GENCOST_SEAICEV4	localweight(i,j,k,bi,bj)=
./pkg/ecco/cost_gencost_seaicev4.F	397	COST_GENCOST_SEAICEV4	& gencost_weight(i,j,bi,bj,igen_conc)
./pkg/ecco/cost_gencost_seaicev4.F	405	COST_GENCOST_SEAICEV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_seaicev4.F	409	COST_GENCOST_SEAICEV4	localwww = localweight(i,j,k,bi,bj)*cmask(i,j,k)
./pkg/ecco/cost_gencost_seaicev4.F	410	COST_GENCOST_SEAICEV4	junk = ( areabbbar(i,j,k,bi,bj) -
./pkg/ecco/cost_gencost_seaicev4.F	411	COST_GENCOST_SEAICEV4	& localobs(i,j,k,bi,bj) )
./pkg/ecco/cost_gencost_seaicev4.F	426	COST_GENCOST_SEAICEV4	if ((localobs(i,j,k,bi,bj) .LE. SEAICE_cutoff_area)
./pkg/ecco/cost_gencost_seaicev4.F	428	COST_GENCOST_SEAICEV4	& (exconcbbbar(i,j,k,bi,bj) .GT. SEAICE_cutoff_heff))
./pkg/ecco/cost_gencost_seaicev4.F	430	COST_GENCOST_SEAICEV4	junk=1. _d 0 cmask(i,j,k)
./pkg/ecco/cost_gencost_seaicev4.F	431	COST_GENCOST_SEAICEV4	& (( (deconcbbbar(i,j,k,bi,bj)-SEAICE_freeze)*
./pkg/ecco/cost_gencost_seaicev4.F	433	COST_GENCOST_SEAICEV4	& - exconcbbbar(i,j,k,bi,bj)*
./pkg/ecco/cost_gencost_seaicev4.F	455	COST_GENCOST_SEAICEV4	if ( (areabbbar(i,j,1,bi,bj) .LE. 0.).AND.
./pkg/ecco/cost_gencost_seaicev4.F	456	COST_GENCOST_SEAICEV4	& (localobs(i,j,1,bi,bj) .GT. 0.) ) then
./pkg/ecco/cost_gencost_seaicev4.F	457	COST_GENCOST_SEAICEV4	junk=1. _d 0 cmask(i,j,k)
./pkg/ecco/cost_gencost_seaicev4.F	458	COST_GENCOST_SEAICEV4	& (( (deconcbbbar(i,j,k,bi,bj)-SEAICE_freeze)*
./pkg/ecco/cost_gencost_seaicev4.F	78	COST_GENCOST_SEAICEV4	integer i,j,k
./pkg/ecco/cost_gencost_sshv4.F	1051	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	1053	COST_GENCOST_SSHV4	anom_psMtpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	1054	COST_GENCOST_SSHV4	anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	1055	COST_GENCOST_SSHV4	anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	1056	COST_GENCOST_SSHV4	anom_tpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	1057	COST_GENCOST_SSHV4	anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	1058	COST_GENCOST_SSHV4	anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	1066	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	1069	COST_GENCOST_SSHV4	if ( tpmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F	1071	COST_GENCOST_SSHV4	anom_psMtpobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	1072	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1073	COST_GENCOST_SSHV4	& - mean_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	1074	COST_GENCOST_SSHV4	& - anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1075	COST_GENCOST_SSHV4	anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	1076	COST_GENCOST_SSHV4	& - anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1080	COST_GENCOST_SSHV4	if ( ersmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F	1082	COST_GENCOST_SSHV4	anom_psMersobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	1083	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1084	COST_GENCOST_SSHV4	& - mean_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	1085	COST_GENCOST_SSHV4	& - anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1086	COST_GENCOST_SSHV4	anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	1087	COST_GENCOST_SSHV4	& - anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1091	COST_GENCOST_SSHV4	if ( gfomask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F	1093	COST_GENCOST_SSHV4	anom_psMgfoobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	1094	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1095	COST_GENCOST_SSHV4	& - mean_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	1096	COST_GENCOST_SSHV4	& - anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1097	COST_GENCOST_SSHV4	anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	1098	COST_GENCOST_SSHV4	& - anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1130	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	1134	COST_GENCOST_SSHV4	junkweight = mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1135	COST_GENCOST_SSHV4	& *gencost_weight(i,j,bi,bj,igen_tp)
./pkg/ecco/cost_gencost_sshv4.F	1136	COST_GENCOST_SSHV4	& *tpmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1137	COST_GENCOST_SSHV4	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1138	COST_GENCOST_SSHV4	junk = anom_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1147	COST_GENCOST_SSHV4	junkweight = mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1148	COST_GENCOST_SSHV4	& *gencost_weight(i,j,bi,bj,igen_ers)
./pkg/ecco/cost_gencost_sshv4.F	1149	COST_GENCOST_SSHV4	& *ersmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1150	COST_GENCOST_SSHV4	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1151	COST_GENCOST_SSHV4	junk = anom_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1160	COST_GENCOST_SSHV4	junkweight = mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1161	COST_GENCOST_SSHV4	& *gencost_weight(i,j,bi,bj,igen_gfo)
./pkg/ecco/cost_gencost_sshv4.F	1162	COST_GENCOST_SSHV4	& *gfomask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1163	COST_GENCOST_SSHV4	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	1164	COST_GENCOST_SSHV4	junk = anom_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	252	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	254	COST_GENCOST_SSHV4	mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	255	COST_GENCOST_SSHV4	mean_slaobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	280	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	283	COST_GENCOST_SSHV4	if ( tpmask(i,j,bi,bj)mdtmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	284	COST_GENCOST_SSHV4	& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F	285	COST_GENCOST_SSHV4	mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	286	COST_GENCOST_SSHV4	& tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	287	COST_GENCOST_SSHV4	mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	291	COST_GENCOST_SSHV4	if ( ersmask(i,j,bi,bj)mdtmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	292	COST_GENCOST_SSHV4	& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F	293	COST_GENCOST_SSHV4	mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	294	COST_GENCOST_SSHV4	& ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	295	COST_GENCOST_SSHV4	mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	299	COST_GENCOST_SSHV4	if ( gfomask(i,j,bi,bj)mdtmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	300	COST_GENCOST_SSHV4	& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F	301	COST_GENCOST_SSHV4	mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	302	COST_GENCOST_SSHV4	& gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	303	COST_GENCOST_SSHV4	mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	316	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	318	COST_GENCOST_SSHV4	if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	319	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	320	COST_GENCOST_SSHV4	& ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_gencost_sshv4.F	321	COST_GENCOST_SSHV4	mean_slaobs_mdt(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	322	COST_GENCOST_SSHV4	& mean_slaobs_mdt(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	323	COST_GENCOST_SSHV4	& mean_slaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	325	COST_GENCOST_SSHV4	mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	353	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	355	COST_GENCOST_SSHV4	if ( ( mdtmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	356	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	358	COST_GENCOST_SSHV4	mdt(i,j,bi,bj) = mdt(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	359	COST_GENCOST_SSHV4	& -mean_slaobs_mdt(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	378	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	381	COST_GENCOST_SSHV4	psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	382	COST_GENCOST_SSHV4	mean_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	383	COST_GENCOST_SSHV4	mean_psMtpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	384	COST_GENCOST_SSHV4	mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	385	COST_GENCOST_SSHV4	mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	386	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	387	COST_GENCOST_SSHV4	mean_slaobs_model(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	389	COST_GENCOST_SSHV4	mean_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	390	COST_GENCOST_SSHV4	mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	391	COST_GENCOST_SSHV4	mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	392	COST_GENCOST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	393	COST_GENCOST_SSHV4	mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	435	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	437	COST_GENCOST_SSHV4	psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	438	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_gencost_sshv4.F	440	COST_GENCOST_SSHV4	if ( tpmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F	441	COST_GENCOST_SSHV4	& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F	442	COST_GENCOST_SSHV4	mean_slaobs_model(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	443	COST_GENCOST_SSHV4	& mean_slaobs_model(i,j,bi,bj)+tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	444	COST_GENCOST_SSHV4	mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	445	COST_GENCOST_SSHV4	& mean_psMtpobs(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	446	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	447	COST_GENCOST_SSHV4	mean_psMtpobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	448	COST_GENCOST_SSHV4	& mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	452	COST_GENCOST_SSHV4	if ( ersmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F	453	COST_GENCOST_SSHV4	& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F	454	COST_GENCOST_SSHV4	mean_slaobs_model(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	455	COST_GENCOST_SSHV4	& mean_slaobs_model(i,j,bi,bj)+ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	456	COST_GENCOST_SSHV4	mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	457	COST_GENCOST_SSHV4	& mean_psMersobs(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	458	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	459	COST_GENCOST_SSHV4	mean_psMersobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	460	COST_GENCOST_SSHV4	& mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	464	COST_GENCOST_SSHV4	if ( gfomask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F	465	COST_GENCOST_SSHV4	& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F	466	COST_GENCOST_SSHV4	mean_slaobs_model(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	467	COST_GENCOST_SSHV4	& mean_slaobs_model(i,j,bi,bj)+gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	468	COST_GENCOST_SSHV4	mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	469	COST_GENCOST_SSHV4	& mean_psMgfoobs(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	470	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	471	COST_GENCOST_SSHV4	mean_psMgfoobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	472	COST_GENCOST_SSHV4	& mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	485	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	488	COST_GENCOST_SSHV4	if ( ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	490	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	491	COST_GENCOST_SSHV4	& mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	492	COST_GENCOST_SSHV4	& mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	493	COST_GENCOST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	494	COST_GENCOST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	495	COST_GENCOST_SSHV4	& mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	496	COST_GENCOST_SSHV4	mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	497	COST_GENCOST_SSHV4	& mean_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	498	COST_GENCOST_SSHV4	& mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	502	COST_GENCOST_SSHV4	if ( ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	504	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	505	COST_GENCOST_SSHV4	& mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	506	COST_GENCOST_SSHV4	& mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	507	COST_GENCOST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	508	COST_GENCOST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	509	COST_GENCOST_SSHV4	& mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	510	COST_GENCOST_SSHV4	mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	511	COST_GENCOST_SSHV4	& mean_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	512	COST_GENCOST_SSHV4	& mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	516	COST_GENCOST_SSHV4	if ( ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	518	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	519	COST_GENCOST_SSHV4	& mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	520	COST_GENCOST_SSHV4	& mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	521	COST_GENCOST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	522	COST_GENCOST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F	523	COST_GENCOST_SSHV4	& mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	524	COST_GENCOST_SSHV4	mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	525	COST_GENCOST_SSHV4	& mean_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	526	COST_GENCOST_SSHV4	& mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	530	COST_GENCOST_SSHV4	if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. 0 ).AND.
./pkg/ecco/cost_gencost_sshv4.F	531	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	533	COST_GENCOST_SSHV4	mean_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	534	COST_GENCOST_SSHV4	& mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	535	COST_GENCOST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	536	COST_GENCOST_SSHV4	mean_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	538	COST_GENCOST_SSHV4	mean_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	539	COST_GENCOST_SSHV4	mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	542	COST_GENCOST_SSHV4	if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0 ).AND.
./pkg/ecco/cost_gencost_sshv4.F	543	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F	544	COST_GENCOST_SSHV4	& ( mdtmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	546	COST_GENCOST_SSHV4	mean_slaobs_model(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	547	COST_GENCOST_SSHV4	& mean_slaobs_model(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	548	COST_GENCOST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	549	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	550	COST_GENCOST_SSHV4	& mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	551	COST_GENCOST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj)-mdt(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	552	COST_GENCOST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	553	COST_GENCOST_SSHV4	offset=offset+RA(i,j,bi,bj)*mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	554	COST_GENCOST_SSHV4	offset_sum=offset_sum+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	555	COST_GENCOST_SSHV4	elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F	556	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	558	COST_GENCOST_SSHV4	mean_slaobs_model(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_gencost_sshv4.F	559	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	560	COST_GENCOST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	561	COST_GENCOST_SSHV4	offset=offset+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	562	COST_GENCOST_SSHV4	& *( psmean(i,j,bi,bj) -mdt(i,j,bi,bj) )
./pkg/ecco/cost_gencost_sshv4.F	563	COST_GENCOST_SSHV4	offset_sum=offset_sum+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	565	COST_GENCOST_SSHV4	mean_slaobs_model(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_gencost_sshv4.F	566	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	567	COST_GENCOST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	601	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	604	COST_GENCOST_SSHV4	if ( (mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0) .AND.
./pkg/ecco/cost_gencost_sshv4.F	605	COST_GENCOST_SSHV4	& ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F	606	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F	609	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	610	COST_GENCOST_SSHV4	& mean_psMssh_all(i,j,bi,bj) - offset
./pkg/ecco/cost_gencost_sshv4.F	611	COST_GENCOST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	613	COST_GENCOST_SSHV4	elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F	614	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F	617	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	618	COST_GENCOST_SSHV4	& psmean(i,j,bi,bj) -mdt(i,j,bi,bj) - offset
./pkg/ecco/cost_gencost_sshv4.F	619	COST_GENCOST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	622	COST_GENCOST_SSHV4	mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	623	COST_GENCOST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	626	COST_GENCOST_SSHV4	if ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	627	COST_GENCOST_SSHV4	& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset
./pkg/ecco/cost_gencost_sshv4.F	675	COST_GENCOST_SSHV4	do j = 1,sny
./pkg/ecco/cost_gencost_sshv4.F	678	COST_GENCOST_SSHV4	prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	697	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	699	COST_GENCOST_SSHV4	if (mean_psMssh_all_MSK(i,j,bi,bj).NE.0. _d 0) then
./pkg/ecco/cost_gencost_sshv4.F	700	COST_GENCOST_SSHV4	junk = mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	701	COST_GENCOST_SSHV4	junkweight = gencost_weight(i,j,bi,bj,igen_mdt)
./pkg/ecco/cost_gencost_sshv4.F	702	COST_GENCOST_SSHV4	& * mdtmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	711	COST_GENCOST_SSHV4	diagnosfld(i,j,bi,bj) = junkjunkjunkweight
./pkg/ecco/cost_gencost_sshv4.F	736	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	738	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	739	COST_GENCOST_SSHV4	anom_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	740	COST_GENCOST_SSHV4	anom_psMslaobs_SUB(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	741	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	742	COST_GENCOST_SSHV4	anom_slaobs_SUB(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	743	COST_GENCOST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	76	COST_GENCOST_SSHV4	integer i,j,k
./pkg/ecco/cost_gencost_sshv4.F	786	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	789	COST_GENCOST_SSHV4	if ( tpmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	791	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	792	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	793	COST_GENCOST_SSHV4	& -mean_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	794	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	795	COST_GENCOST_SSHV4	& tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	796	COST_GENCOST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	797	COST_GENCOST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	799	COST_GENCOST_SSHV4	& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	803	COST_GENCOST_SSHV4	if ( ersmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	805	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	806	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	807	COST_GENCOST_SSHV4	& -mean_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	808	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	809	COST_GENCOST_SSHV4	& ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	810	COST_GENCOST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	811	COST_GENCOST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	813	COST_GENCOST_SSHV4	& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	817	COST_GENCOST_SSHV4	if ( gfomask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	819	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	820	COST_GENCOST_SSHV4	& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	821	COST_GENCOST_SSHV4	& -mean_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	822	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F	823	COST_GENCOST_SSHV4	& gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	824	COST_GENCOST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F	825	COST_GENCOST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	827	COST_GENCOST_SSHV4	& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F	839	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	841	COST_GENCOST_SSHV4	if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	842	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	844	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	845	COST_GENCOST_SSHV4	& anom_psMslaobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	846	COST_GENCOST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	847	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	848	COST_GENCOST_SSHV4	& anom_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F	849	COST_GENCOST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	851	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	852	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	868	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	870	COST_GENCOST_SSHV4	if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	871	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	873	COST_GENCOST_SSHV4	slaoffset=slaoffset+RA(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F	874	COST_GENCOST_SSHV4	& anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	875	COST_GENCOST_SSHV4	slaoffset_sum=slaoffset_sum+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	879	COST_GENCOST_SSHV4	& gencost_weight(i,j,bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F	912	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	914	COST_GENCOST_SSHV4	if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F	915	COST_GENCOST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F	917	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	918	COST_GENCOST_SSHV4	& anom_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	919	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F	920	COST_GENCOST_SSHV4	& anom_slaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F	922	COST_GENCOST_SSHV4	anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	923	COST_GENCOST_SSHV4	anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	972	COST_GENCOST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F	977	COST_GENCOST_SSHV4	if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F	978	COST_GENCOST_SSHV4	& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) then
./pkg/ecco/cost_gencost_sshv4.F	979	COST_GENCOST_SSHV4	junk = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	980	COST_GENCOST_SSHV4	anom_slaobs_SUB(i,j,bi,bj) = anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	981	COST_GENCOST_SSHV4	anom_psMslaobs_SUB(i,j,bi,bj) = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F	984	COST_GENCOST_SSHV4	anom_slaobs_SUB(i,j,bi,bj)= 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	985	COST_GENCOST_SSHV4	anom_psMslaobs_SUB(i,j,bi,bj)= 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F	988	COST_GENCOST_SSHV4	& + junkjunkgencost_weight(i,j,bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F	989	COST_GENCOST_SSHV4	if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F	990	COST_GENCOST_SSHV4	& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) )
./pkg/ecco/cost_gencost_sstv4.F	161	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	163	COST_GENCOST_SSTV4	anom_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F	164	COST_GENCOST_SSTV4	obs_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F	165	COST_GENCOST_SSTV4	nb_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F	166	COST_GENCOST_SSTV4	msk_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F	224	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	226	COST_GENCOST_SSTV4	tmp_sst(i,j,bi,bj) = spval
./pkg/ecco/cost_gencost_sstv4.F	236	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	238	COST_GENCOST_SSTV4	if ( (tmp_sst(i,j,bi,bj).GT.spval).AND.
./pkg/ecco/cost_gencost_sstv4.F	239	COST_GENCOST_SSTV4	& (maskc(i,j,1,bi,bj).EQ.1.) ) then
./pkg/ecco/cost_gencost_sstv4.F	240	COST_GENCOST_SSTV4	anom_sst(i,j,bi,bj)= anom_sst(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sstv4.F	241	COST_GENCOST_SSTV4	& sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	242	COST_GENCOST_SSTV4	obs_sst(i,j,bi,bj)= obs_sst(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sstv4.F	243	COST_GENCOST_SSTV4	& tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	244	COST_GENCOST_SSTV4	nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sstv4.F	256	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	258	COST_GENCOST_SSTV4	if ( nb_sst(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sstv4.F	259	COST_GENCOST_SSTV4	obs_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F	260	COST_GENCOST_SSTV4	& obs_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	261	COST_GENCOST_SSTV4	anom_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F	262	COST_GENCOST_SSTV4	& anom_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	263	COST_GENCOST_SSTV4	msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F	307	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	309	COST_GENCOST_SSTV4	junk = anom_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	310	COST_GENCOST_SSTV4	junkweight = gencost_weight(i,j,bi,bj,igen_amsre_lsc)*
./pkg/ecco/cost_gencost_sstv4.F	311	COST_GENCOST_SSTV4	& maskc(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	315	COST_GENCOST_SSTV4	if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) )
./pkg/ecco/cost_gencost_sstv4.F	376	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	378	COST_GENCOST_SSTV4	tmp_sst(i,j,bi,bj) = spval
./pkg/ecco/cost_gencost_sstv4.F	388	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	390	COST_GENCOST_SSTV4	if ( (tmp_sst(i,j,bi,bj).GT.spval).AND.
./pkg/ecco/cost_gencost_sstv4.F	391	COST_GENCOST_SSTV4	& (maskc(i,j,1,bi,bj).EQ.1.) ) then
./pkg/ecco/cost_gencost_sstv4.F	392	COST_GENCOST_SSTV4	anom_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F	393	COST_GENCOST_SSTV4	& sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	394	COST_GENCOST_SSTV4	msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F	396	COST_GENCOST_SSTV4	anom_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F	397	COST_GENCOST_SSTV4	msk_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F	414	COST_GENCOST_SSTV4	do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F	416	COST_GENCOST_SSTV4	junk = anom_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	417	COST_GENCOST_SSTV4	junkweight = gencost_weight(i,j,bi,bj,igen_amsre)*
./pkg/ecco/cost_gencost_sstv4.F	418	COST_GENCOST_SSTV4	& maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F	58	COST_GENCOST_SSTV4	integer i,j,k
./pkg/ecco/cost_generic.F	140	COST_GENERIC	do j = jmin,jmax
./pkg/ecco/cost_generic.F	142	COST_GENERIC	localobs(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F	153	COST_GENERIC	do j = 1-oly,sny+oly
./pkg/ecco/cost_generic.F	156	COST_GENERIC	localmask(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F	158	COST_GENERIC	localmask(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F	160	COST_GENERIC	localmask(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F	253	COST_GENERIC	do j = jmin,jmax
./pkg/ecco/cost_generic.F	255	COST_GENERIC	localobs(i,j,k,bi,bj) = spval
./pkg/ecco/cost_generic.F	271	COST_GENERIC	do j = jmin,jmax
./pkg/ecco/cost_generic.F	273	COST_GENERIC	cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F	274	COST_GENERIC	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/cost_generic.F	275	COST_GENERIC	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/cost_generic.F	276	COST_GENERIC	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/cost_generic.F	277	COST_GENERIC	cmask(i,j,k) = 0. _d 0
./pkg/ecco/cost_generic.F	284	COST_GENERIC	do j = jmin,jmax
./pkg/ecco/cost_generic.F	286	COST_GENERIC	localwww = localweight(i,j,k,bi,bj)*cmask(i,j,k)
./pkg/ecco/cost_generic.F	287	COST_GENERIC	junk = ( localbar(i,j,k,bi,bj) -
./pkg/ecco/cost_generic.F	288	COST_GENERIC	& localobs(i,j,k,bi,bj) )
./pkg/ecco/cost_generic.F	74	COST_GENERIC	integer i,j,k
./pkg/ecco/cost_geoid.F	104	COST_GEOID	do j = jbeg,jend
./pkg/ecco/cost_geoid.F	107	COST_GEOID	I geoid_covariancefile, reclength, j,
./pkg/ecco/cost_geoid.F	115	COST_GEOID	sphcost = sphcost + factor*shc(j)
./pkg/ecco/cost_geoid.F	62	COST_GEOID	integer i,j
./pkg/ecco/cost_ies.F	100	COST_IES	iescount(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies.F	129	COST_IES	do j = jmin,jmax
./pkg/ecco/cost_ies.F	131	COST_IES	if (iesmask(i,j,bi,bj).NE.0.) then
./pkg/ecco/cost_ies.F	132	COST_IES	iesmean(i,j,bi,bj) = iesmean(i,j,bi,bj) +
./pkg/ecco/cost_ies.F	133	COST_IES	& iestaubar(i,j,bi,bj)
./pkg/ecco/cost_ies.F	134	COST_IES	datmean(i,j,bi,bj) = datmean(i,j,bi,bj) +
./pkg/ecco/cost_ies.F	135	COST_IES	& iesdat(i,j,bi,bj)
./pkg/ecco/cost_ies.F	136	COST_IES	iescount(i,j,bi,bj) = iescount(i,j,bi,bj) +1.
./pkg/ecco/cost_ies.F	147	COST_IES	do j = jmin,jmax
./pkg/ecco/cost_ies.F	149	COST_IES	if (iescount(i,j,bi,bj).GT.0.) then
./pkg/ecco/cost_ies.F	150	COST_IES	iesmean(i,j,bi,bj) = iesmean(i,j,bi,bj)/iescount(i,j,bi,bj)
./pkg/ecco/cost_ies.F	151	COST_IES	datmean(i,j,bi,bj) = datmean(i,j,bi,bj)/iescount(i,j,bi,bj)
./pkg/ecco/cost_ies.F	191	COST_IES	do j = jmin,jmax
./pkg/ecco/cost_ies.F	193	COST_IES	junkweight = wies(i,j,bi,bj)*iesmask(i,j,bi,bj)
./pkg/ecco/cost_ies.F	194	COST_IES	junk = (iestaubar(i,j,bi,bj) - iesmean(i,j,bi,bj))
./pkg/ecco/cost_ies.F	195	COST_IES	& -(iesdat(i,j,bi,bj) - datmean(i,j,bi,bj))
./pkg/ecco/cost_ies.F	56	COST_IES	integer i,j
./pkg/ecco/cost_ies.F	96	COST_IES	do j = jmin,jmax
./pkg/ecco/cost_ies.F	98	COST_IES	iesmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies.F	99	COST_IES	datmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F	109	COST_IES_READ	do j = jmin,jmax
./pkg/ecco/cost_ies_read.F	111	COST_IES_READ	if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ies_read.F	112	COST_IES_READ	iesmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F	114	COST_IES_READ	iesmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ies_read.F	116	COST_IES_READ	if (iesdat(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_ies_read.F	117	COST_IES_READ	iesmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F	118	COST_IES_READ	elseif (iesdat(i,j,bi,bj) .eq. 0. _d 0) then
./pkg/ecco/cost_ies_read.F	119	COST_IES_READ	iesmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F	121	COST_IES_READ	iesmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ies_read.F	123	COST_IES_READ	iesdat(i,j,bi,bj) = iesdat(i,j,bi,bj)*
./pkg/ecco/cost_ies_read.F	124	COST_IES_READ	& iesmask(i,j,bi,bj)
./pkg/ecco/cost_ies_read.F	125	COST_IES_READ	nobs = nobs + int(iesmask(i,j,bi,bj))
./pkg/ecco/cost_ies_read.F	46	COST_IES_READ	integer i,j,k
./pkg/ecco/cost_kapgm.F	108	COST_KAPGM	do j = jmin,jmax
./pkg/ecco/cost_kapgm.F	110	COST_KAPGM	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapgm.F	112	COST_KAPGM	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F	115	COST_KAPGM	& + wkapgmFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_kapgm.F	44	COST_KAPGM	integer i,j,k
./pkg/ecco/cost_kapredi.F	108	COST_KAPREDI	do j = jmin,jmax
./pkg/ecco/cost_kapredi.F	110	COST_KAPREDI	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapredi.F	112	COST_KAPREDI	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapredi.F	115	COST_KAPREDI	& + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_kapredi.F	44	COST_KAPREDI	integer i,j,k
./pkg/ecco/cost_mean_heatflux.F	114	COST_MEAN_HEATFLUX	do j = jmin,jmax
./pkg/ecco/cost_mean_heatflux.F	116	COST_MEAN_HEATFLUX	tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F	117	COST_MEAN_HEATFLUX	if (maskC(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_mean_heatflux.F	119	COST_MEAN_HEATFLUX	& + tmpx* _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F	121	COST_MEAN_HEATFLUX	& + _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F	51	COST_MEAN_HEATFLUX	integer i,j,kk
./pkg/ecco/cost_mean_saltflux.F	114	COST_MEAN_SALTFLUX	do j = jmin,jmax
./pkg/ecco/cost_mean_saltflux.F	116	COST_MEAN_SALTFLUX	tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F	117	COST_MEAN_SALTFLUX	if (maskC(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_mean_saltflux.F	119	COST_MEAN_SALTFLUX	& + tmpx* _rA(i,j,bi,bj)/rhoConstFresh
./pkg/ecco/cost_mean_saltflux.F	121	COST_MEAN_SALTFLUX	& + _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F	51	COST_MEAN_SALTFLUX	integer i,j,kk
./pkg/ecco/cost_obcs_ageos.F	155	COST_OBCS_AGEOS	do j = 1-oly,sny+oly
./pkg/ecco/cost_obcs_ageos.F	156	COST_OBCS_AGEOS	maskyzageos(j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F	157	COST_OBCS_AGEOS	yzdvel1(j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F	158	COST_OBCS_AGEOS	yzdvel2(j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F	159	COST_OBCS_AGEOS	yzgrdrho(j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F	167	COST_OBCS_AGEOS	do j = 1-oly,sny+oly
./pkg/ecco/cost_obcs_ageos.F	169	COST_OBCS_AGEOS	rholoc(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F	217	COST_OBCS_AGEOS	j = OB_Jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	219	COST_OBCS_AGEOS	if ( j.eq.OB_indexNone ) then
./pkg/ecco/cost_obcs_ageos.F	223	COST_OBCS_AGEOS	& hfacC(i,j+jp1,k,bi,bj)hfacC(i+1,j+jp1,k,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	224	COST_OBCS_AGEOS	& hfacC(i-1,j+jp1,k,bi,bj)hfacC(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	225	COST_OBCS_AGEOS	& hfacC(i-1,j+jp1,k+1,bi,bj)hfacC(i+1,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	226	COST_OBCS_AGEOS	& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	246	COST_OBCS_AGEOS	j = OB_Jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	247	COST_OBCS_AGEOS	if ( j.eq.OB_indexNone ) j = 1
./pkg/ecco/cost_obcs_ageos.F	249	COST_OBCS_AGEOS	& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	250	COST_OBCS_AGEOS	& /(2.*dxc(i,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	259	COST_OBCS_AGEOS	j = OB_Jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	260	COST_OBCS_AGEOS	if ( j.eq.OB_indexNone ) j = 1
./pkg/ecco/cost_obcs_ageos.F	261	COST_OBCS_AGEOS	xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	262	COST_OBCS_AGEOS	& - vbar(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	286	COST_OBCS_AGEOS	j = OB_Js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	287	COST_OBCS_AGEOS	if ( j.eq.OB_indexNone ) then
./pkg/ecco/cost_obcs_ageos.F	292	COST_OBCS_AGEOS	& hfacC(i,j+jp1,k,bi,bj)hfacC(i+1,j+jp1,k,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	293	COST_OBCS_AGEOS	& hfacC(i-1,j+jp1,k,bi,bj)hfacC(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	294	COST_OBCS_AGEOS	& hfacC(i-1,j+jp1,k+1,bi,bj)hfacC(i+1,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	295	COST_OBCS_AGEOS	& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	316	COST_OBCS_AGEOS	j = OB_Js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	317	COST_OBCS_AGEOS	if ( j.eq.OB_indexNone ) j = 1
./pkg/ecco/cost_obcs_ageos.F	319	COST_OBCS_AGEOS	& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	320	COST_OBCS_AGEOS	& /(2.*dxc(i,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	327	COST_OBCS_AGEOS	j = OB_Js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	328	COST_OBCS_AGEOS	if ( j.eq.OB_indexNone ) j = 1
./pkg/ecco/cost_obcs_ageos.F	330	COST_OBCS_AGEOS	xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	331	COST_OBCS_AGEOS	& - vbar(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	354	COST_OBCS_AGEOS	do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F	355	COST_OBCS_AGEOS	i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	358	COST_OBCS_AGEOS	maskyzageos(j,k,bi,bj) = 0.
./pkg/ecco/cost_obcs_ageos.F	360	COST_OBCS_AGEOS	maskyzageos(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F	361	COST_OBCS_AGEOS	& hfacC(i+ip1,j,k,bi,bj)hfacC(i+ip1,j+1,k,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	362	COST_OBCS_AGEOS	& hfacC(i+ip1,j-1,k,bi,bj)hfacC(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	363	COST_OBCS_AGEOS	& hfacC(i+ip1,j-1,k+1,bi,bj)hfacC(i+ip1,j+1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	364	COST_OBCS_AGEOS	& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	382	COST_OBCS_AGEOS	do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F	383	COST_OBCS_AGEOS	i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	386	COST_OBCS_AGEOS	yzgrdrho(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F	387	COST_OBCS_AGEOS	& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	388	COST_OBCS_AGEOS	& /(2.*dyc(i+ip1,j,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	394	COST_OBCS_AGEOS	do j = jmin,jmax
./pkg/ecco/cost_obcs_ageos.F	395	COST_OBCS_AGEOS	i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	398	COST_OBCS_AGEOS	yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	399	COST_OBCS_AGEOS	& - ubar(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	402	COST_OBCS_AGEOS	yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F	403	COST_OBCS_AGEOS	& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F	408	COST_OBCS_AGEOS	& maskyzageos(j,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F	409	COST_OBCS_AGEOS	& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F	410	COST_OBCS_AGEOS	& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	421	COST_OBCS_AGEOS	do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F	422	COST_OBCS_AGEOS	i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	424	COST_OBCS_AGEOS	maskyzageos(j,k,bi,bj) =0.
./pkg/ecco/cost_obcs_ageos.F	427	COST_OBCS_AGEOS	maskyzageos(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F	428	COST_OBCS_AGEOS	& hfacC(i+ip1,j,k,bi,bj)hfacC(i+ip1,j+1,k,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	429	COST_OBCS_AGEOS	& hfacC(i+ip1,j-1,k,bi,bj)hfacC(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	430	COST_OBCS_AGEOS	& hfacC(i+ip1,j-1,k+1,bi,bj)hfacC(i+ip1,j+1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	431	COST_OBCS_AGEOS	& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	449	COST_OBCS_AGEOS	do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F	450	COST_OBCS_AGEOS	i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	453	COST_OBCS_AGEOS	yzgrdrho(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F	454	COST_OBCS_AGEOS	& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	455	COST_OBCS_AGEOS	& /(2.*dyc(i+ip1,j,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	461	COST_OBCS_AGEOS	do j = jmin,jmax
./pkg/ecco/cost_obcs_ageos.F	462	COST_OBCS_AGEOS	i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	465	COST_OBCS_AGEOS	yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	466	COST_OBCS_AGEOS	& - ubar(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F	469	COST_OBCS_AGEOS	yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F	470	COST_OBCS_AGEOS	& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F	475	COST_OBCS_AGEOS	& maskyzageos(j,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F	476	COST_OBCS_AGEOS	& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F	477	COST_OBCS_AGEOS	& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F	52	COST_OBCS_AGEOS	integer i,j,k
./pkg/ecco/cost_obcse.F	170	COST_OBCSE	do j = jmin,jmax
./pkg/ecco/cost_obcse.F	173	COST_OBCSE	tmpx = tmpfield(j,k,bi,bj)
./pkg/ecco/cost_obcse.F	176	COST_OBCSE	& tmpxtmpx*maskyz(j,k,bi,bj)
./pkg/ecco/cost_obcse.F	179	COST_OBCSE	if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcse.F	69	COST_OBCSE	integer j,k
./pkg/ecco/cost_obcsvol.F	206	COST_OBCSVOL	j = OB_Jn(I,bi,bj)
./pkg/ecco/cost_obcsvol.F	207	COST_OBCSVOL	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ecco/cost_obcsvol.F	210	COST_OBCSVOL	if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F	212	COST_OBCSVOL	fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F	213	COST_OBCSVOL	& * _hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F	248	COST_OBCSVOL	j = OB_Js(I,bi,bj)
./pkg/ecco/cost_obcsvol.F	249	COST_OBCSVOL	IF ( j.EQ.OB_indexNone ) j = 1
./pkg/ecco/cost_obcsvol.F	252	COST_OBCSVOL	if (maskS(i,j+1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F	254	COST_OBCSVOL	fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj)
./pkg/ecco/cost_obcsvol.F	255	COST_OBCSVOL	& * _hFacS(i,j+1,k,bi,bj)
./pkg/ecco/cost_obcsvol.F	290	COST_OBCSVOL	do j = jmin,jmax
./pkg/ecco/cost_obcsvol.F	291	COST_OBCSVOL	i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcsvol.F	294	COST_OBCSVOL	tmpy = tmpfldyz(j,1,bi,bj)
./pkg/ecco/cost_obcsvol.F	295	COST_OBCSVOL	if (maskW(i+1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F	297	COST_OBCSVOL	fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F	298	COST_OBCSVOL	& * _hFacW(i+1,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F	333	COST_OBCSVOL	do j = jmin,jmax
./pkg/ecco/cost_obcsvol.F	334	COST_OBCSVOL	i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcsvol.F	337	COST_OBCSVOL	tmpy = tmpfldyz(j,1,bi,bj)
./pkg/ecco/cost_obcsvol.F	338	COST_OBCSVOL	if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F	340	COST_OBCSVOL	fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F	341	COST_OBCSVOL	& * _hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F	54	COST_OBCSVOL	integer i,j,k
./pkg/ecco/cost_obcsw.F	168	COST_OBCSW	do j = jmin,jmax
./pkg/ecco/cost_obcsw.F	171	COST_OBCSW	tmpx = tmpfield(j,k,bi,bj)
./pkg/ecco/cost_obcsw.F	174	COST_OBCSW	& tmpxtmpx*maskyz(j,k,bi,bj)
./pkg/ecco/cost_obcsw.F	177	COST_OBCSW	if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcsw.F	69	COST_OBCSW	integer j,k
./pkg/ecco/cost_readargos.F	46	COST_READARGOS	integer i,j,k
./pkg/ecco/cost_readargos.F	90	COST_READARGOS	do j = jmin,jmax
./pkg/ecco/cost_readargos.F	92	COST_READARGOS	argosobs(i,j,k,bi,bj)=spval
./pkg/ecco/cost_readargot.F	46	COST_READARGOT	integer i,j,k
./pkg/ecco/cost_readargot.F	90	COST_READARGOT	do j = jmin,jmax
./pkg/ecco/cost_readargot.F	92	COST_READARGOT	argotobs(i,j,k,bi,bj)=spval
./pkg/ecco/cost_readers.F	132	COST_READERS	do j = jmin,jmax
./pkg/ecco/cost_readers.F	134	COST_READERS	ersobs(i,j,bi,bj) = spval
./pkg/ecco/cost_readers.F	144	COST_READERS	do j = jmin,jmax
./pkg/ecco/cost_readers.F	146	COST_READERS	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readers.F	147	COST_READERS	ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F	149	COST_READERS	ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readers.F	151	COST_READERS	if (ersobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readers.F	152	COST_READERS	ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F	154	COST_READERS	if (abs(ersobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readers.F	155	COST_READERS	ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F	159	COST_READERS	if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readers.F	160	COST_READERS	ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F	164	COST_READERS	if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readers.F	165	COST_READERS	ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F	169	COST_READERS	ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readers.F	170	COST_READERS	ersobs(i,j,bi,bj) = ersmask(i,j,bi,bj)factor
./pkg/ecco/cost_readers.F	171	COST_READERS	& ( ersobs(i,j,bi,bj) -
./pkg/ecco/cost_readers.F	47	COST_READERS	integer i,j,k
./pkg/ecco/cost_readgfo.F	132	COST_READGFO	do j = jmin,jmax
./pkg/ecco/cost_readgfo.F	134	COST_READGFO	gfoobs(i,j,bi,bj) = spval
./pkg/ecco/cost_readgfo.F	144	COST_READGFO	do j = jmin,jmax
./pkg/ecco/cost_readgfo.F	146	COST_READGFO	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readgfo.F	147	COST_READGFO	gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F	149	COST_READGFO	gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readgfo.F	151	COST_READGFO	if (gfoobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readgfo.F	152	COST_READGFO	gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F	154	COST_READGFO	if (abs(gfoobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readgfo.F	155	COST_READGFO	gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F	159	COST_READGFO	if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readgfo.F	160	COST_READGFO	gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F	164	COST_READGFO	if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readgfo.F	165	COST_READGFO	gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F	168	COST_READGFO	gfomask(i,j,bi,bj) = gfomask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readgfo.F	169	COST_READGFO	gfoobs(i,j,bi,bj) = gfomask(i,j,bi,bj)factor
./pkg/ecco/cost_readgfo.F	170	COST_READGFO	& ( gfoobs(i,j,bi,bj) -
./pkg/ecco/cost_readgfo.F	47	COST_READGFO	integer i,j,k
./pkg/ecco/cost_readscatxfields.F	171	COST_READSCATXFIELDS	do j = jmin,jmax
./pkg/ecco/cost_readscatxfields.F	173	COST_READSCATXFIELDS	scatxdat(i,j,bi,bj) = spval
./pkg/ecco/cost_readscatxfields.F	186	COST_READSCATXFIELDS	do j = jmin,jmax
./pkg/ecco/cost_readscatxfields.F	188	COST_READSCATXFIELDS	if (maskW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readscatxfields.F	189	COST_READSCATXFIELDS	scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F	191	COST_READSCATXFIELDS	scatxmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatxfields.F	193	COST_READSCATXFIELDS	if (scatxdat(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readscatxfields.F	194	COST_READSCATXFIELDS	scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F	196	COST_READSCATXFIELDS	if (scatxdat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatxfields.F	197	COST_READSCATXFIELDS	scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F	199	COST_READSCATXFIELDS	scatxmask(i,j,bi,bj) = scatxmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatxfields.F	200	COST_READSCATXFIELDS	scatxdat(i,j,bi,bj) = scatxdat(i,j,bi,bj)*
./pkg/ecco/cost_readscatxfields.F	201	COST_READSCATXFIELDS	& scatxmask(i,j,bi,bj)
./pkg/ecco/cost_readscatxfields.F	202	COST_READSCATXFIELDS	nobs = nobs + int(scatxmask(i,j,bi,bj))
./pkg/ecco/cost_readscatxfields.F	213	COST_READSCATXFIELDS	do j = jmin,jmax
./pkg/ecco/cost_readscatxfields.F	215	COST_READSCATXFIELDS	vartile=vartile+scatxdat(i,j,bi,bj)*scatxdat(i,j,bi,bj)
./pkg/ecco/cost_readscatxfields.F	49	COST_READSCATXFIELDS	integer i,j,k
./pkg/ecco/cost_readscatyfields.F	170	COST_READSCATYFIELDS	do j = jmin,jmax
./pkg/ecco/cost_readscatyfields.F	172	COST_READSCATYFIELDS	scatydat(i,j,bi,bj) = spval
./pkg/ecco/cost_readscatyfields.F	184	COST_READSCATYFIELDS	do j = jmin,jmax
./pkg/ecco/cost_readscatyfields.F	186	COST_READSCATYFIELDS	if (maskS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readscatyfields.F	187	COST_READSCATYFIELDS	scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F	189	COST_READSCATYFIELDS	scatymask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatyfields.F	191	COST_READSCATYFIELDS	if (scatydat(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readscatyfields.F	192	COST_READSCATYFIELDS	scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F	194	COST_READSCATYFIELDS	if (scatydat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatyfields.F	195	COST_READSCATYFIELDS	scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F	197	COST_READSCATYFIELDS	scatymask(i,j,bi,bj) = scatymask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatyfields.F	198	COST_READSCATYFIELDS	scatydat(i,j,bi,bj) = scatydat(i,j,bi,bj)*
./pkg/ecco/cost_readscatyfields.F	199	COST_READSCATYFIELDS	& scatymask(i,j,bi,bj)
./pkg/ecco/cost_readscatyfields.F	200	COST_READSCATYFIELDS	nobs = nobs + int(scatymask(i,j,bi,bj))
./pkg/ecco/cost_readscatyfields.F	211	COST_READSCATYFIELDS	do j = jmin,jmax
./pkg/ecco/cost_readscatyfields.F	213	COST_READSCATYFIELDS	vartile=vartile+scatydat(i,j,bi,bj)*scatydat(i,j,bi,bj)
./pkg/ecco/cost_readscatyfields.F	49	COST_READSCATYFIELDS	integer i,j,k
./pkg/ecco/cost_readtopex.F	159	COST_READTOPEX	do j = jmin,jmax
./pkg/ecco/cost_readtopex.F	161	COST_READTOPEX	tpobs(i,j,bi,bj) = spval
./pkg/ecco/cost_readtopex.F	171	COST_READTOPEX	do j = jmin,jmax
./pkg/ecco/cost_readtopex.F	173	COST_READTOPEX	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopex.F	174	COST_READTOPEX	tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F	176	COST_READTOPEX	tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopex.F	178	COST_READTOPEX	if (tpobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readtopex.F	179	COST_READTOPEX	tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F	181	COST_READTOPEX	if (abs(tpobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readtopex.F	182	COST_READTOPEX	tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F	186	COST_READTOPEX	if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readtopex.F	187	COST_READTOPEX	tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F	191	COST_READTOPEX	if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readtopex.F	192	COST_READTOPEX	tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F	196	COST_READTOPEX	tpmask(i,j,bi,bj) = tpmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopex.F	197	COST_READTOPEX	tpobs(i,j,bi,bj) = tpmask(i,j,bi,bj)factor
./pkg/ecco/cost_readtopex.F	198	COST_READTOPEX	& ( tpobs(i,j,bi,bj) -
./pkg/ecco/cost_readtopex.F	47	COST_READTOPEX	integer i,j,k
./pkg/ecco/cost_readtopexmean.F	101	COST_READTOPEXMEAN	mdtmask(i,j,bi,bj) = mdtmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopexmean.F	102	COST_READTOPEXMEAN	mdt(i,j,bi,bj) = mdt(i,j,bi,bj)*
./pkg/ecco/cost_readtopexmean.F	103	COST_READTOPEXMEAN	& mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_readtopexmean.F	46	COST_READTOPEXMEAN	integer i,j,k
./pkg/ecco/cost_readtopexmean.F	76	COST_READTOPEXMEAN	do j = jmin,jmax
./pkg/ecco/cost_readtopexmean.F	78	COST_READTOPEXMEAN	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopexmean.F	79	COST_READTOPEXMEAN	mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F	81	COST_READTOPEXMEAN	mdtmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopexmean.F	83	COST_READTOPEXMEAN	if (mdt(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_readtopexmean.F	84	COST_READTOPEXMEAN	mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F	86	COST_READTOPEXMEAN	if (mdt(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readtopexmean.F	87	COST_READTOPEXMEAN	mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F	91	COST_READTOPEXMEAN	if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readtopexmean.F	92	COST_READTOPEXMEAN	mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F	96	COST_READTOPEXMEAN	if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readtopexmean.F	97	COST_READTOPEXMEAN	mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_salt.F	122	COST_SALT	do j = jmin,jmax
./pkg/ecco/cost_salt.F	124	COST_SALT	sbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_salt.F	141	COST_SALT	do j = jmin,jmax
./pkg/ecco/cost_salt.F	143	COST_SALT	sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_salt.F	144	COST_SALT	$ +sbar(i,j,k,bi,bj)/float(nyears)
./pkg/ecco/cost_salt.F	178	COST_SALT	do j = jmin,jmax
./pkg/ecco/cost_salt.F	180	COST_SALT	cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt.F	181	COST_SALT	if (sdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt.F	182	COST_SALT	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F	183	COST_SALT	else if (sdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_salt.F	184	COST_SALT	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F	185	COST_SALT	else if (sdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_salt.F	186	COST_SALT	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F	193	COST_SALT	do j = jmin,jmax
./pkg/ecco/cost_salt.F	195	COST_SALT	if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_salt.F	197	COST_SALT	& (wsaltLev(i,j,k,bi,bj)cmask(i,j)
./pkg/ecco/cost_salt.F	198	COST_SALT	& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))*
./pkg/ecco/cost_salt.F	199	COST_SALT	& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_salt.F	200	COST_SALT	if ( wsaltLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_salt.F	202	COST_SALT	diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_salt.F	203	COST_SALT	& (wsaltLev(i,j,k,bi,bj)cmask(i,j)
./pkg/ecco/cost_salt.F	204	COST_SALT	& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))*
./pkg/ecco/cost_salt.F	205	COST_SALT	& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_salt.F	207	COST_SALT	diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_salt.F	59	COST_SALT	integer i,j,k
./pkg/ecco/cost_salt0.F	117	COST_SALT0	do j = jmin,jmax
./pkg/ecco/cost_salt0.F	119	COST_SALT0	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F	120	COST_SALT0	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F	122	COST_SALT0	if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_salt0.F	123	COST_SALT0	& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F	125	COST_SALT0	& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt0.F	130	COST_SALT0	if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_salt0.F	157	COST_SALT0	do j = jmin,jmax
./pkg/ecco/cost_salt0.F	159	COST_SALT0	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F	161	COST_SALT0	& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F	162	COST_SALT0	& maskW(i+1,j,k,bi,bj)maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_salt0.F	163	COST_SALT0	& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F	164	COST_SALT0	& *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_salt0.F	165	COST_SALT0	& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_salt0.F	166	COST_SALT0	& maskS(i,j+1,k,bi,bj)maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_salt0.F	167	COST_SALT0	& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F	168	COST_SALT0	& *maskS(i,j+1,k,bi,bj)
./pkg/ecco/cost_salt0.F	169	COST_SALT0	if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_salt0.F	170	COST_SALT0	& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F	172	COST_SALT0	& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt0.F	53	COST_SALT0	integer i,j,k
./pkg/ecco/cost_salt_ini_fin.F	107	COST_SALT_INI_FIN	do j = jmin,jmax
./pkg/ecco/cost_salt_ini_fin.F	109	COST_SALT_INI_FIN	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt_ini_fin.F	110	COST_SALT_INI_FIN	tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F	112	COST_SALT_INI_FIN	& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F	45	COST_SALT_INI_FIN	integer i,j,k
./pkg/ecco/cost_scat.F	134	COST_SCAT	do j = jmin,jmax
./pkg/ecco/cost_scat.F	137	COST_SCAT	& *(tauxbar(i,j,bi,bj)+tauxbar(i+1,j,bi,bj))
./pkg/ecco/cost_scat.F	139	COST_SCAT	& *(tauybar(i,j,bi,bj)+tauybar(i,j+1,bi,bj))
./pkg/ecco/cost_scat.F	140	COST_SCAT	tmpU(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC
./pkg/ecco/cost_scat.F	141	COST_SCAT	& -angleSinC(i,j,bi,bj)*vBarC
./pkg/ecco/cost_scat.F	142	COST_SCAT	tmpV(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC
./pkg/ecco/cost_scat.F	143	COST_SCAT	& +angleCosC(i,j,bi,bj)*vBarC
./pkg/ecco/cost_scat.F	162	COST_SCAT	do j = jmin,jmax
./pkg/ecco/cost_scat.F	164	COST_SCAT	tauxbar(i,j,bi,bj)=tmpU(i,j,bi,bj)
./pkg/ecco/cost_scat.F	165	COST_SCAT	if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_scat.F	167	COST_SCAT	& wscatx(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_scat.F	168	COST_SCAT	& ( (tauxbar(i,j,bi,bj)-scatxdat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F	169	COST_SCAT	& (tauxbar(i,j,bi,bj)-scatxdat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F	170	COST_SCAT	& scatxmask(i,j,bi,bj) )
./pkg/ecco/cost_scat.F	171	COST_SCAT	if ( wscatx(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_scat.F	172	COST_SCAT	& scatxmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_scat.F	182	COST_SCAT	do j = jmin,jmax
./pkg/ecco/cost_scat.F	184	COST_SCAT	tauybar(i,j,bi,bj)=tmpV(i,j,bi,bj)
./pkg/ecco/cost_scat.F	185	COST_SCAT	if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_scat.F	187	COST_SCAT	& wscaty(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_scat.F	188	COST_SCAT	& ( (tauybar(i,j,bi,bj)-scatydat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F	189	COST_SCAT	& (tauybar(i,j,bi,bj)-scatydat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F	190	COST_SCAT	& scatymask(i,j,bi,bj) )
./pkg/ecco/cost_scat.F	191	COST_SCAT	if ( wscaty(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_scat.F	192	COST_SCAT	& scatymask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_scat.F	50	COST_SCAT	integer i,j,k
./pkg/ecco/cost_sigmar.F	124	COST_SIGMAR	do j = jmin,jmax
./pkg/ecco/cost_sigmar.F	126	COST_SIGMAR	sigmaRbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_sigmar.F	143	COST_SIGMAR	do j = jmin,jmax
./pkg/ecco/cost_sigmar.F	145	COST_SIGMAR	sigmaRbar_gen(i,j,k,bi,bj) =
./pkg/ecco/cost_sigmar.F	146	COST_SIGMAR	$ sigmaRbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_sigmar.F	147	COST_SIGMAR	$ +sigmaRbar(i,j,k,bi,bj)/float(nyears)
./pkg/ecco/cost_sigmar.F	171	COST_SIGMAR	do j = jmin,jmax
./pkg/ecco/cost_sigmar.F	173	COST_SIGMAR	cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_sigmar.F	174	COST_SIGMAR	if (sigmaRdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sigmar.F	175	COST_SIGMAR	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_sigmar.F	176	COST_SIGMAR	else if (sigmaRdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_sigmar.F	177	COST_SIGMAR	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_sigmar.F	178	COST_SIGMAR	else if (sigmaRdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_sigmar.F	179	COST_SIGMAR	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_sigmar.F	186	COST_SIGMAR	do j = jmin,jmax
./pkg/ecco/cost_sigmar.F	188	COST_SIGMAR	if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_sigmar.F	190	COST_SIGMAR	& (wsigmaRLev(i,j,k,bi,bj)cmask(i,j)
./pkg/ecco/cost_sigmar.F	191	COST_SIGMAR	& (sigmaRbar(i,j,k,bi,bj) - sigmaRdat(i,j,k,bi,bj))*
./pkg/ecco/cost_sigmar.F	192	COST_SIGMAR	& (sigmaRbar(i,j,k,bi,bj) - sigmaRdat(i,j,k,bi,bj)))
./pkg/ecco/cost_sigmar.F	193	COST_SIGMAR	if ( wsigmaRLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_sigmar.F	60	COST_SIGMAR	integer i,j,k
./pkg/ecco/cost_sla_read.F	127	COST_SLA_READ	do j = jmin,jmax
./pkg/ecco/cost_sla_read.F	129	COST_SLA_READ	sla_obs(i,j,bi,bj) = spval
./pkg/ecco/cost_sla_read.F	140	COST_SLA_READ	do j = jmin,jmax
./pkg/ecco/cost_sla_read.F	142	COST_SLA_READ	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sla_read.F	143	COST_SLA_READ	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F	145	COST_SLA_READ	sla_mask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sla_read.F	147	COST_SLA_READ	if (sla_obs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_sla_read.F	148	COST_SLA_READ	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F	150	COST_SLA_READ	if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_sla_read.F	151	COST_SLA_READ	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F	155	COST_SLA_READ	if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_sla_read.F	156	COST_SLA_READ	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F	160	COST_SLA_READ	if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_sla_read.F	161	COST_SLA_READ	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F	165	COST_SLA_READ	sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_sla_read.F	166	COST_SLA_READ	sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)factor
./pkg/ecco/cost_sla_read.F	167	COST_SLA_READ	& ( sla_obs(i,j,bi,bj) -
./pkg/ecco/cost_sla_read.F	44	COST_SLA_READ	integer i,j,k
./pkg/ecco/cost_sla_read_yd.F	118	COST_SLA_READ_YD	do j = jmin,jmax
./pkg/ecco/cost_sla_read_yd.F	121	COST_SLA_READ_YD	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sla_read_yd.F	122	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F	124	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sla_read_yd.F	126	COST_SLA_READ_YD	if (sla_obs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_sla_read_yd.F	127	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F	129	COST_SLA_READ_YD	if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_sla_read_yd.F	130	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F	134	COST_SLA_READ_YD	if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_sla_read_yd.F	135	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F	139	COST_SLA_READ_YD	if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_sla_read_yd.F	140	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F	144	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_sla_read_yd.F	145	COST_SLA_READ_YD	sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)factor
./pkg/ecco/cost_sla_read_yd.F	146	COST_SLA_READ_YD	& sla_obs(i,j,bi,bj)
./pkg/ecco/cost_sla_read_yd.F	157	COST_SLA_READ_YD	do j = jmin,jmax
./pkg/ecco/cost_sla_read_yd.F	159	COST_SLA_READ_YD	sla_obs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F	160	COST_SLA_READ_YD	sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F	53	COST_SLA_READ_YD	integer i,j,k
./pkg/ecco/cost_ssh.F	105	COST_SSH	do j = jmin, jmax
./pkg/ecco/cost_ssh.F	107	COST_SSH	wwwtp(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F	108	COST_SSH	wwwers(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F	109	COST_SSH	wwwgfo(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F	128	COST_SSH	do j = jmin,jmax
./pkg/ecco/cost_ssh.F	130	COST_SSH	psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh.F	149	COST_SSH	do j = jmin,jmax
./pkg/ecco/cost_ssh.F	151	COST_SSH	psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_ssh.F	152	COST_SSH	& psbar(i,j,bi,bj)/
./pkg/ecco/cost_ssh.F	169	COST_SSH	do j = 1,sny
./pkg/ecco/cost_ssh.F	172	COST_SSH	& mdtmask(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	173	COST_SSH	& (mdt(i,j,bi,bj) - psmean(i,j,bi,bj))
./pkg/ecco/cost_ssh.F	175	COST_SSH	& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	207	COST_SSH	do j = 1,sny
./pkg/ecco/cost_ssh.F	209	COST_SSH	prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	262	COST_SSH	do j = jmin,jmax
./pkg/ecco/cost_ssh.F	265	COST_SSH	wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	267	COST_SSH	junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F	268	COST_SSH	& tpobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F	269	COST_SSH	& *tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	271	COST_SSH	& + junkjunkwwwtp(i,j)
./pkg/ecco/cost_ssh.F	272	COST_SSH	if ( wwwtp(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F	275	COST_SSH	if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	276	COST_SSH	& wp(i,j,bi,bj)wwwtp(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F	277	COST_SSH	junk = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F	278	COST_SSH	& (tpobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F	280	COST_SSH	& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) )
./pkg/ecco/cost_ssh.F	289	COST_SSH	do j = jmin,jmax
./pkg/ecco/cost_ssh.F	292	COST_SSH	wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	294	COST_SSH	junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F	295	COST_SSH	& ersobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F	296	COST_SSH	& *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	298	COST_SSH	& + junkjunkwwwers(i,j)
./pkg/ecco/cost_ssh.F	299	COST_SSH	if ( wwwers(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F	302	COST_SSH	if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	303	COST_SSH	& wp(i,j,bi,bj)wwwers(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F	304	COST_SSH	junk = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F	305	COST_SSH	& (ersobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F	307	COST_SSH	& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) )
./pkg/ecco/cost_ssh.F	316	COST_SSH	do j = jmin,jmax
./pkg/ecco/cost_ssh.F	319	COST_SSH	wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	321	COST_SSH	junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F	322	COST_SSH	& gfoobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F	323	COST_SSH	& *gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	325	COST_SSH	& + junkjunkwwwgfo(i,j)
./pkg/ecco/cost_ssh.F	326	COST_SSH	if ( wwwgfo(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F	329	COST_SSH	if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F	330	COST_SSH	& wp(i,j,bi,bj)wwwgfo(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F	331	COST_SSH	junk = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F	332	COST_SSH	& (gfoobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F	334	COST_SSH	& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) )
./pkg/ecco/cost_ssh.F	63	COST_SSH	integer i,j
./pkg/ecco/cost_ssh_mean.F	119	COST_SSH_MEAN	do j = jmin,jmax
./pkg/ecco/cost_ssh_mean.F	121	COST_SSH_MEAN	if ( mdtmask(i,j,bi,bj) .gt. 0. ) then
./pkg/ecco/cost_ssh_mean.F	122	COST_SSH_MEAN	misfit(i,j,bi,bj) =
./pkg/ecco/cost_ssh_mean.F	123	COST_SSH_MEAN	& mdt(i,j,bi,bj) - offset - psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	125	COST_SSH_MEAN	misfit(i,j,bi,bj) = 0.
./pkg/ecco/cost_ssh_mean.F	138	COST_SSH_MEAN	do j = jmin,jmax
./pkg/ecco/cost_ssh_mean.F	140	COST_SSH_MEAN	misfitgl(i,j,bi,bj,1,1) = misfit(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	158	COST_SSH_MEAN	do j = 1, latshc
./pkg/ecco/cost_ssh_mean.F	160	COST_SSH_MEAN	diffearth(i,j) = 0.
./pkg/ecco/cost_ssh_mean.F	186	COST_SSH_MEAN	do j = jmin,jmax
./pkg/ecco/cost_ssh_mean.F	188	COST_SSH_MEAN	jglobe = joffset+ j + sNy(bj-1) + sNynSy*(ipy-1)
./pkg/ecco/cost_ssh_mean.F	191	COST_SSH_MEAN	diffearth(iglobe,jglobe) = misfitgl(i,j,bi,bj,ipx,ipy)
./pkg/ecco/cost_ssh_mean.F	236	COST_SSH_MEAN	do j = jmin,jmax
./pkg/ecco/cost_ssh_mean.F	238	COST_SSH_MEAN	diff = psmean(i,j,bi,bj) - mdt(i,j,bi,bj) + offset
./pkg/ecco/cost_ssh_mean.F	240	COST_SSH_MEAN	& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	241	COST_SSH_MEAN	if ( wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_mean.F	243	COST_SSH_MEAN	diagnosfld(i,j,bi,bj) = diff*diff
./pkg/ecco/cost_ssh_mean.F	244	COST_SSH_MEAN	& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	264	COST_SSH_MEAN	do j = jmin,jmax
./pkg/ecco/cost_ssh_mean.F	266	COST_SSH_MEAN	diff = psmean(i,j,bi,bj) - mdt(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	267	COST_SSH_MEAN	sumC0 = sumC0 + wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	269	COST_SSH_MEAN	& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	271	COST_SSH_MEAN	& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	272	COST_SSH_MEAN	if ( wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_mean.F	274	COST_SSH_MEAN	diagnosfld(i,j,bi,bj) =
./pkg/ecco/cost_ssh_mean.F	276	COST_SSH_MEAN	& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F	67	COST_SSH_MEAN	integer i,j
./pkg/ecco/cost_ssh_new.F	131	COST_SSH_NEW	do j = jmin,jmax
./pkg/ecco/cost_ssh_new.F	133	COST_SSH_NEW	psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	134	COST_SSH_NEW	psmeantp(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	135	COST_SSH_NEW	psmeaners(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	136	COST_SSH_NEW	psmeangfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	137	COST_SSH_NEW	sumtp(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	138	COST_SSH_NEW	sumers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	139	COST_SSH_NEW	sumgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	140	COST_SSH_NEW	wwwtp1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	141	COST_SSH_NEW	wwwers1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	142	COST_SSH_NEW	wwwgfo1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	143	COST_SSH_NEW	wwwtp2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	144	COST_SSH_NEW	wwwers2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	145	COST_SSH_NEW	wwwgfo2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F	180	COST_SSH_NEW	do j = jmin,jmax
./pkg/ecco/cost_ssh_new.F	182	COST_SSH_NEW	psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F	183	COST_SSH_NEW	& psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_ssh_new.F	185	COST_SSH_NEW	if ( tpmask(i,j,bi,bj)*wtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	187	COST_SSH_NEW	psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F	188	COST_SSH_NEW	& psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	189	COST_SSH_NEW	sumtp(i,j,bi,bj) = sumtp(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F	193	COST_SSH_NEW	if ( ersmask(i,j,bi,bj)*wers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	195	COST_SSH_NEW	psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F	196	COST_SSH_NEW	& psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	197	COST_SSH_NEW	sumers(i,j,bi,bj) = sumers(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F	201	COST_SSH_NEW	if ( gfomask(i,j,bi,bj)*wgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	203	COST_SSH_NEW	psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F	204	COST_SSH_NEW	& psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	205	COST_SSH_NEW	sumgfo(i,j,bi,bj) = sumgfo(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F	218	COST_SSH_NEW	do j = jmin,jmax
./pkg/ecco/cost_ssh_new.F	221	COST_SSH_NEW	if ( sumtp(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F	222	COST_SSH_NEW	psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F	223	COST_SSH_NEW	& sumtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	224	COST_SSH_NEW	wwwtp1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F	228	COST_SSH_NEW	if ( sumers(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F	229	COST_SSH_NEW	psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F	230	COST_SSH_NEW	& sumers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	231	COST_SSH_NEW	wwwers1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F	235	COST_SSH_NEW	if ( sumgfo(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F	236	COST_SSH_NEW	psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F	237	COST_SSH_NEW	& sumgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	238	COST_SSH_NEW	wwwgfo1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F	254	COST_SSH_NEW	do j = 1,sny
./pkg/ecco/cost_ssh_new.F	257	COST_SSH_NEW	& mdtmask(i,j,bi,bj)cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	258	COST_SSH_NEW	& (mdt(i,j,bi,bj) - psmean(i,j,bi,bj))
./pkg/ecco/cost_ssh_new.F	260	COST_SSH_NEW	& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	292	COST_SSH_NEW	do j = 1,sny
./pkg/ecco/cost_ssh_new.F	294	COST_SSH_NEW	prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	345	COST_SSH_NEW	do j = jmin,jmax
./pkg/ecco/cost_ssh_new.F	348	COST_SSH_NEW	wwwtp2(i,j,bi,bj) = wwwtp1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	349	COST_SSH_NEW	& *wtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	350	COST_SSH_NEW	& *tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	351	COST_SSH_NEW	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	353	COST_SSH_NEW	junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	354	COST_SSH_NEW	& - psmeantp(i,j,bi,bj) - tpobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F	356	COST_SSH_NEW	& + junkjunkwwwtp2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	357	COST_SSH_NEW	if ( wwwtp2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F	360	COST_SSH_NEW	if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	361	COST_SSH_NEW	& wp(i,j,bi,bj)wwwtp2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F	362	COST_SSH_NEW	junk = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F	363	COST_SSH_NEW	& (tpobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F	365	COST_SSH_NEW	& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F	374	COST_SSH_NEW	do j = jmin,jmax
./pkg/ecco/cost_ssh_new.F	377	COST_SSH_NEW	wwwers2(i,j,bi,bj) = wwwers1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	378	COST_SSH_NEW	& *wers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	379	COST_SSH_NEW	& *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	380	COST_SSH_NEW	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	382	COST_SSH_NEW	junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	383	COST_SSH_NEW	& - psmeaners(i,j,bi,bj) - ersobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F	385	COST_SSH_NEW	& + junkjunkwwwers2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	386	COST_SSH_NEW	if ( wwwers2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F	389	COST_SSH_NEW	if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	390	COST_SSH_NEW	& wp(i,j,bi,bj)wwwers2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F	391	COST_SSH_NEW	junk = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F	392	COST_SSH_NEW	& (ersobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F	394	COST_SSH_NEW	& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F	403	COST_SSH_NEW	do j = jmin,jmax
./pkg/ecco/cost_ssh_new.F	406	COST_SSH_NEW	wwwgfo2(i,j,bi,bj) = wwwgfo1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	407	COST_SSH_NEW	& *wgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	408	COST_SSH_NEW	& *gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	409	COST_SSH_NEW	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	411	COST_SSH_NEW	junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	412	COST_SSH_NEW	& - psmeangfo(i,j,bi,bj) - gfoobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F	414	COST_SSH_NEW	& + junkjunkwwwgfo2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	415	COST_SSH_NEW	if ( wwwgfo2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F	418	COST_SSH_NEW	if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F	419	COST_SSH_NEW	& wp(i,j,bi,bj)wwwgfo2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F	420	COST_SSH_NEW	junk = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F	421	COST_SSH_NEW	& (gfoobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F	423	COST_SSH_NEW	& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F	63	COST_SSH_NEW	integer i,j
./pkg/ecco/cost_sshv4.F	212	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	214	COST_SSHV4	mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	215	COST_SSHV4	mean_slaobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	240	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	243	COST_SSHV4	if ( tpmask(i,j,bi,bj)mdtmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	244	COST_SSHV4	& wsshv4(i,j,2,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	245	COST_SSHV4	mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	246	COST_SSHV4	& tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	247	COST_SSHV4	mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	251	COST_SSHV4	if ( ersmask(i,j,bi,bj)mdtmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	252	COST_SSHV4	& wsshv4(i,j,3,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	253	COST_SSHV4	mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	254	COST_SSHV4	& ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	255	COST_SSHV4	mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	259	COST_SSHV4	if ( gfomask(i,j,bi,bj)mdtmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	260	COST_SSHV4	& wsshv4(i,j,4,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	261	COST_SSHV4	mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	262	COST_SSHV4	& gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	263	COST_SSHV4	mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	276	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	278	COST_SSHV4	if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F	279	COST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F	280	COST_SSHV4	& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_sshv4.F	281	COST_SSHV4	& ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F	282	COST_SSHV4	mean_slaobs(i,j,bi,bj) = mean_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	283	COST_SSHV4	& mean_slaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	285	COST_SSHV4	mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	312	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	314	COST_SSHV4	if ( ( mdtmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F	315	COST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F	316	COST_SSHV4	mdt(i,j,bi,bj) = mdt(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	317	COST_SSHV4	& -mean_slaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	336	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	339	COST_SSHV4	psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	340	COST_SSHV4	mean_psMtpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	341	COST_SSHV4	mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	342	COST_SSHV4	mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	343	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	344	COST_SSHV4	mean_slaobs2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	346	COST_SSHV4	mean_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	347	COST_SSHV4	mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	348	COST_SSHV4	mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	349	COST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	351	COST_SSHV4	mean_psMtpobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	352	COST_SSHV4	mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	353	COST_SSHV4	mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	390	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	392	COST_SSHV4	psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	393	COST_SSHV4	& psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_sshv4.F	395	COST_SSHV4	if ( tpmask(i,j,bi,bj)*wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F	397	COST_SSHV4	mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	398	COST_SSHV4	& mean_slaobs2(i,j,bi,bj)+tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	399	COST_SSHV4	mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	400	COST_SSHV4	& mean_psMtpobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	401	COST_SSHV4	& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	402	COST_SSHV4	mean_psMtpobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	403	COST_SSHV4	& mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F	407	COST_SSHV4	if ( ersmask(i,j,bi,bj)*wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F	409	COST_SSHV4	mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	410	COST_SSHV4	& mean_slaobs2(i,j,bi,bj)+ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	411	COST_SSHV4	mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	412	COST_SSHV4	& mean_psMersobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	413	COST_SSHV4	& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	414	COST_SSHV4	mean_psMersobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	415	COST_SSHV4	& mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F	419	COST_SSHV4	if ( gfomask(i,j,bi,bj)*wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F	421	COST_SSHV4	mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	422	COST_SSHV4	& mean_slaobs2(i,j,bi,bj)+gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	423	COST_SSHV4	mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	424	COST_SSHV4	& mean_psMgfoobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	425	COST_SSHV4	& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	426	COST_SSHV4	mean_psMgfoobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	427	COST_SSHV4	& mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F	440	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	443	COST_SSHV4	if ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	444	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	445	COST_SSHV4	& mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	446	COST_SSHV4	& mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	447	COST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	448	COST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	449	COST_SSHV4	& mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	450	COST_SSHV4	mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	451	COST_SSHV4	& mean_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	452	COST_SSHV4	& mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	453	COST_SSHV4	mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F	457	COST_SSHV4	if ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	458	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	459	COST_SSHV4	& mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	460	COST_SSHV4	& mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	461	COST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	462	COST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	463	COST_SSHV4	& mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	464	COST_SSHV4	mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	465	COST_SSHV4	& mean_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	466	COST_SSHV4	& mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	467	COST_SSHV4	mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F	471	COST_SSHV4	if ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	472	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	473	COST_SSHV4	& mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	474	COST_SSHV4	& mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	475	COST_SSHV4	mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	476	COST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F	477	COST_SSHV4	& mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	478	COST_SSHV4	mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	479	COST_SSHV4	& mean_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	480	COST_SSHV4	& mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	481	COST_SSHV4	mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F	484	COST_SSHV4	if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F	485	COST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F	486	COST_SSHV4	& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_sshv4.F	487	COST_SSHV4	& ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F	488	COST_SSHV4	mean_slaobs2(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	489	COST_SSHV4	& mean_slaobs2(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	490	COST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	491	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	492	COST_SSHV4	& mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	493	COST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj)-mdt(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	494	COST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F	495	COST_SSHV4	offset=offset+mean_psMssh_all(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F	496	COST_SSHV4	& mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	497	COST_SSHV4	offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	499	COST_SSHV4	mean_slaobs2(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_sshv4.F	500	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	501	COST_SSHV4	mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	534	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	537	COST_SSHV4	if ( (mean_psMssh_all_MSK(i,j,bi,bj) .NE. 0.) .AND.
./pkg/ecco/cost_sshv4.F	538	COST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F	539	COST_SSHV4	& ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then
./pkg/ecco/cost_sshv4.F	541	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	542	COST_SSHV4	& mean_psMssh_all(i,j,bi,bj) - offset
./pkg/ecco/cost_sshv4.F	543	COST_SSHV4	elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F	544	COST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F	545	COST_SSHV4	& ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then
./pkg/ecco/cost_sshv4.F	547	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	548	COST_SSHV4	& psmean(i,j,bi,bj) -mdt(i,j,bi,bj) - offset
./pkg/ecco/cost_sshv4.F	550	COST_SSHV4	mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	553	COST_SSHV4	if ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_sshv4.F	554	COST_SSHV4	& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset
./pkg/ecco/cost_sshv4.F	599	COST_SSHV4	do j = 1,sny
./pkg/ecco/cost_sshv4.F	601	COST_SSHV4	prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	620	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	622	COST_SSHV4	junk = mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	624	COST_SSHV4	& wsshv4(i,j,1,bi,bj)mdtmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	625	COST_SSHV4	if ( wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_sshv4.F	627	COST_SSHV4	diagnosfld(i,j,bi,bj) = junk*junk
./pkg/ecco/cost_sshv4.F	628	COST_SSHV4	& * wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	653	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	655	COST_SSHV4	anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	656	COST_SSHV4	anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	657	COST_SSHV4	anom_psMtpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	658	COST_SSHV4	anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	659	COST_SSHV4	anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	660	COST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	661	COST_SSHV4	anom_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	662	COST_SSHV4	anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	663	COST_SSHV4	anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	69	COST_SSHV4	integer i,j
./pkg/ecco/cost_sshv4.F	701	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	704	COST_SSHV4	if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	706	COST_SSHV4	anom_psMtpobs(i,j,bi,bj)= anom_psMtpobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	707	COST_SSHV4	& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	708	COST_SSHV4	& -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	709	COST_SSHV4	anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	710	COST_SSHV4	& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	711	COST_SSHV4	& -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	712	COST_SSHV4	anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	713	COST_SSHV4	& tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	714	COST_SSHV4	anom_psMtpobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	715	COST_SSHV4	& anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	716	COST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	717	COST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	721	COST_SSHV4	if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	723	COST_SSHV4	anom_psMersobs(i,j,bi,bj)= anom_psMersobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	724	COST_SSHV4	& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	725	COST_SSHV4	& -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	726	COST_SSHV4	anom_psMersobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	727	COST_SSHV4	& anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	728	COST_SSHV4	anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	729	COST_SSHV4	& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	730	COST_SSHV4	& -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	731	COST_SSHV4	anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	732	COST_SSHV4	& ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	733	COST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	734	COST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	738	COST_SSHV4	if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	740	COST_SSHV4	anom_psMgfoobs(i,j,bi,bj)= anom_psMgfoobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	741	COST_SSHV4	& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	742	COST_SSHV4	& -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	743	COST_SSHV4	anom_psMgfoobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	744	COST_SSHV4	& anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	745	COST_SSHV4	anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	746	COST_SSHV4	& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	747	COST_SSHV4	& -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	748	COST_SSHV4	anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F	749	COST_SSHV4	& gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	750	COST_SSHV4	anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	751	COST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F	763	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	766	COST_SSHV4	if ( anom_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	767	COST_SSHV4	anom_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	768	COST_SSHV4	& anom_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	769	COST_SSHV4	& anom_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	773	COST_SSHV4	if ( anom_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	774	COST_SSHV4	anom_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	775	COST_SSHV4	& anom_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	776	COST_SSHV4	& anom_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	780	COST_SSHV4	if ( anom_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F	781	COST_SSHV4	anom_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	782	COST_SSHV4	& anom_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	783	COST_SSHV4	& anom_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	786	COST_SSHV4	if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F	787	COST_SSHV4	& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F	788	COST_SSHV4	anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	789	COST_SSHV4	& anom_psMslaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	790	COST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	791	COST_SSHV4	anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F	792	COST_SSHV4	& anom_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F	793	COST_SSHV4	& anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	795	COST_SSHV4	anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	796	COST_SSHV4	anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	843	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	848	COST_SSHV4	junk = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	850	COST_SSHV4	& + junkjunkwsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj)
./pkg/ecco/cost_sshv4.F	852	COST_SSHV4	if ( (wsshv4(i,j,5,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F	853	COST_SSHV4	& (anom_psMslaobs_NUM(i,j,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F	854	COST_SSHV4	& (maskc(i,j,1,bi,bj) .ne. 0.) )
./pkg/ecco/cost_sshv4.F	889	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	891	COST_SSHV4	anom_psMtpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	892	COST_SSHV4	anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	893	COST_SSHV4	anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	894	COST_SSHV4	anom_tpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	895	COST_SSHV4	anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	896	COST_SSHV4	anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F	904	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	907	COST_SSHV4	if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F	909	COST_SSHV4	anom_psMtpobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	910	COST_SSHV4	& psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	911	COST_SSHV4	& - mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	912	COST_SSHV4	anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	916	COST_SSHV4	if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F	918	COST_SSHV4	anom_psMersobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	919	COST_SSHV4	& psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	920	COST_SSHV4	& - mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	921	COST_SSHV4	anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	925	COST_SSHV4	if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F	927	COST_SSHV4	anom_psMgfoobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F	928	COST_SSHV4	& psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	929	COST_SSHV4	& - mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	930	COST_SSHV4	anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	962	COST_SSHV4	do j = jmin,jmax
./pkg/ecco/cost_sshv4.F	966	COST_SSHV4	junkweight = mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	967	COST_SSHV4	& *wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F	968	COST_SSHV4	& *tpmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	969	COST_SSHV4	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	970	COST_SSHV4	junk = anom_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	980	COST_SSHV4	junkweight = mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	981	COST_SSHV4	& *wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F	982	COST_SSHV4	& *ersmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	983	COST_SSHV4	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	984	COST_SSHV4	junk = anom_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	994	COST_SSHV4	junkweight = mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	995	COST_SSHV4	& *wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F	996	COST_SSHV4	& *gfomask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	997	COST_SSHV4	& *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F	998	COST_SSHV4	junk = anom_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F	111	COST_TAU_EDDY	do j = jmin,jmax
./pkg/ecco/cost_tau_eddy.F	113	COST_TAU_EDDY	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F	114	COST_TAU_EDDY	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F	117	COST_TAU_EDDY	& + wedtauxFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F	146	COST_TAU_EDDY	do j = jmin,jmax
./pkg/ecco/cost_tau_eddy.F	148	COST_TAU_EDDY	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F	149	COST_TAU_EDDY	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F	152	COST_TAU_EDDY	& + wedtauyFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F	231	COST_TAU_EDDY	do j=1,sNy
./pkg/ecco/cost_tau_eddy.F	234	COST_TAU_EDDY	tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F	235	COST_TAU_EDDY	& 0.5(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F	237	COST_TAU_EDDY	locfc = locfc + maskW(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F	240	COST_TAU_EDDY	tau2_temp = ( rhonil*eddyPsiY(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F	241	COST_TAU_EDDY	& 0.5(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F	243	COST_TAU_EDDY	locfc = locfc + maskS(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F	44	COST_TAU_EDDY	integer i,j,k
./pkg/ecco/cost_theta.F	122	COST_THETA	do j = jmin,jmax
./pkg/ecco/cost_theta.F	124	COST_THETA	tbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_theta.F	141	COST_THETA	do j = jmin,jmax
./pkg/ecco/cost_theta.F	143	COST_THETA	tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F	144	COST_THETA	$ +tbar(i,j,k,bi,bj)/float(nyears)
./pkg/ecco/cost_theta.F	178	COST_THETA	do j = jmin,jmax
./pkg/ecco/cost_theta.F	180	COST_THETA	cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta.F	181	COST_THETA	if (tdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_theta.F	182	COST_THETA	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F	183	COST_THETA	else if (tdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_theta.F	184	COST_THETA	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F	185	COST_THETA	else if (tdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_theta.F	186	COST_THETA	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F	193	COST_THETA	do j = jmin,jmax
./pkg/ecco/cost_theta.F	195	COST_THETA	if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_theta.F	197	COST_THETA	& (wthetaLev(i,j,k,bi,bj)cmask(i,j)
./pkg/ecco/cost_theta.F	198	COST_THETA	& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F	199	COST_THETA	& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_theta.F	200	COST_THETA	if ( wthetaLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_theta.F	202	COST_THETA	diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_theta.F	203	COST_THETA	& (wthetaLev(i,j,k,bi,bj)cmask(i,j)
./pkg/ecco/cost_theta.F	204	COST_THETA	& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F	205	COST_THETA	& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_theta.F	207	COST_THETA	diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_theta.F	60	COST_THETA	integer i,j,k
./pkg/ecco/cost_theta0.F	117	COST_THETA0	do j = jmin,jmax
./pkg/ecco/cost_theta0.F	119	COST_THETA0	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F	120	COST_THETA0	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F	122	COST_THETA0	if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_theta0.F	123	COST_THETA0	& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F	125	COST_THETA0	& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta0.F	130	COST_THETA0	if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_theta0.F	157	COST_THETA0	do j = jmin,jmax
./pkg/ecco/cost_theta0.F	159	COST_THETA0	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F	161	COST_THETA0	& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F	162	COST_THETA0	& maskW(i+1,j,k,bi,bj)maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_theta0.F	163	COST_THETA0	& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F	164	COST_THETA0	& *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_theta0.F	165	COST_THETA0	& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_theta0.F	166	COST_THETA0	& maskS(i,j+1,k,bi,bj)maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_theta0.F	167	COST_THETA0	& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F	168	COST_THETA0	& *maskS(i,j+1,k,bi,bj)
./pkg/ecco/cost_theta0.F	169	COST_THETA0	if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_theta0.F	170	COST_THETA0	& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F	172	COST_THETA0	& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta0.F	53	COST_THETA0	integer i,j,k
./pkg/ecco/cost_theta_ini_fin.F	107	COST_THETA_INI_FIN	do j = jmin,jmax
./pkg/ecco/cost_theta_ini_fin.F	109	COST_THETA_INI_FIN	if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta_ini_fin.F	110	COST_THETA_INI_FIN	tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F	112	COST_THETA_INI_FIN	& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F	45	COST_THETA_INI_FIN	integer i,j,k
./pkg/ecco/cost_trans_merid.F	197	COST_TRANS_MERID	do j = jmin,jmax
./pkg/ecco/cost_trans_merid.F	199	COST_TRANS_MERID	del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_trans_merid.F	200	COST_TRANS_MERID	if ( yc(i,j,bi,bj) .ge. ylat(isect) .and.
./pkg/ecco/cost_trans_merid.F	201	COST_TRANS_MERID	$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and.
./pkg/ecco/cost_trans_merid.F	202	COST_TRANS_MERID	$ xc(i,j,bi,bj) .ge. beglon(isect) .and.
./pkg/ecco/cost_trans_merid.F	203	COST_TRANS_MERID	$ xc(i,j,bi,bj) .le. endlon(isect) ) then
./pkg/ecco/cost_trans_merid.F	204	COST_TRANS_MERID	tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	205	COST_TRANS_MERID	$ + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	206	COST_TRANS_MERID	$ * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F	207	COST_TRANS_MERID	& * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	209	COST_TRANS_MERID	sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	210	COST_TRANS_MERID	$ + sbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	211	COST_TRANS_MERID	$ * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F	212	COST_TRANS_MERID	& * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	214	COST_TRANS_MERID	mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	215	COST_TRANS_MERID	$ + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	216	COST_TRANS_MERID	$ * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F	217	COST_TRANS_MERID	& * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F	52	COST_TRANS_MERID	integer i,j,k
./pkg/ecco/cost_trans_zonal.F	186	COST_TRANS_ZONAL	do j = jmin,jmax
./pkg/ecco/cost_trans_zonal.F	188	COST_TRANS_ZONAL	del_x = xc(i,j,bi,bj)-xc(i-1,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F	189	COST_TRANS_ZONAL	if ( xc(i,j,bi,bj) .ge. xlon(isect) .and.
./pkg/ecco/cost_trans_zonal.F	190	COST_TRANS_ZONAL	$ xc(i,j,bi,bj) .lt. xlon(isect)+del_x .and.
./pkg/ecco/cost_trans_zonal.F	191	COST_TRANS_ZONAL	$ yc(i,j,bi,bj) .ge. beglat(isect) .and.
./pkg/ecco/cost_trans_zonal.F	192	COST_TRANS_ZONAL	$ yc(i,j,bi,bj) .le. endlat(isect) ) then
./pkg/ecco/cost_trans_zonal.F	193	COST_TRANS_ZONAL	tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	194	COST_TRANS_ZONAL	$ + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	195	COST_TRANS_ZONAL	$ * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F	196	COST_TRANS_ZONAL	& * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	198	COST_TRANS_ZONAL	su(isect) = su(isect) + p5*(sbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	199	COST_TRANS_ZONAL	$ + sbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	200	COST_TRANS_ZONAL	$ * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F	201	COST_TRANS_ZONAL	& * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	203	COST_TRANS_ZONAL	mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	204	COST_TRANS_ZONAL	$ + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	205	COST_TRANS_ZONAL	$ * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F	206	COST_TRANS_ZONAL	& * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F	52	COST_TRANS_ZONAL	integer i,j,k
./pkg/ecco/cost_uvel0.F	117	COST_UVEL0	do j = jmin,jmax
./pkg/ecco/cost_uvel0.F	119	COST_UVEL0	if (_hFacW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_uvel0.F	120	COST_UVEL0	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_uvel0.F	123	COST_UVEL0	& + wuvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_uvel0.F	128	COST_UVEL0	if ( wuvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_uvel0.F	53	COST_UVEL0	integer i,j,k
./pkg/ecco/cost_vvel0.F	117	COST_VVEL0	do j = jmin,jmax
./pkg/ecco/cost_vvel0.F	119	COST_VVEL0	if (_hFacS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_vvel0.F	120	COST_VVEL0	tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_vvel0.F	123	COST_VVEL0	& + wvvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_vvel0.F	128	COST_VVEL0	if ( wvvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_vvel0.F	53	COST_VVEL0	integer i,j,k
./pkg/ecco/cost_xbt.F	162	COST_XBT	do j = jmin,jmax
./pkg/ecco/cost_xbt.F	164	COST_XBT	cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_xbt.F	165	COST_XBT	if ( xbtobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_xbt.F	166	COST_XBT	& xbtobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_xbt.F	167	COST_XBT	& xbtobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_xbt.F	168	COST_XBT	cmask(i,j) = 0. _d 0
./pkg/ecco/cost_xbt.F	182	COST_XBT	do j = jmin,jmax
./pkg/ecco/cost_xbt.F	184	COST_XBT	if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_xbt.F	185	COST_XBT	tmpobs(i,j) = SW_PTMP(rl_35,
./pkg/ecco/cost_xbt.F	186	COST_XBT	$ xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_xbt.F	190	COST_XBT	& (wtheta2(i,j,k,bi,bj)cmask(i,j))
./pkg/ecco/cost_xbt.F	191	COST_XBT	& (tbar(i,j,k,bi,bj)-tmpobs(i,j))*
./pkg/ecco/cost_xbt.F	192	COST_XBT	& (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_xbt.F	193	COST_XBT	if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_xbt.F	51	COST_XBT	integer i,j,k
./pkg/ecco/ecco_cost_init_barfiles.F	120	ECCO_COST_INIT_BARFILES	do j = jmin,jmax
./pkg/ecco/ecco_cost_init_barfiles.F	122	ECCO_COST_INIT_BARFILES	tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F	130	ECCO_COST_INIT_BARFILES	do j = jmin,jmax
./pkg/ecco/ecco_cost_init_barfiles.F	132	ECCO_COST_INIT_BARFILES	tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F	48	ECCO_COST_INIT_BARFILES	integer i,j,k
./pkg/ecco/ecco_cost_init_varia.F	241	ECCO_COST_INIT_VARIA	do j = jmin,jmax
./pkg/ecco/ecco_cost_init_varia.F	244	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	245	ECCO_COST_INIT_VARIA	mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	247	ECCO_COST_INIT_VARIA	mdtmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	249	ECCO_COST_INIT_VARIA	mdt(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	252	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	253	ECCO_COST_INIT_VARIA	tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	255	ECCO_COST_INIT_VARIA	tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	257	ECCO_COST_INIT_VARIA	tpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	260	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	261	ECCO_COST_INIT_VARIA	ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	263	ECCO_COST_INIT_VARIA	ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	265	ECCO_COST_INIT_VARIA	ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	268	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	269	ECCO_COST_INIT_VARIA	gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	271	ECCO_COST_INIT_VARIA	gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	273	ECCO_COST_INIT_VARIA	gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	276	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	277	ECCO_COST_INIT_VARIA	tmimask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	279	ECCO_COST_INIT_VARIA	tmimask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	283	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	284	ECCO_COST_INIT_VARIA	sstmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	286	ECCO_COST_INIT_VARIA	sstmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	290	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	291	ECCO_COST_INIT_VARIA	sssmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	293	ECCO_COST_INIT_VARIA	sssmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	297	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	298	ECCO_COST_INIT_VARIA	bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	300	ECCO_COST_INIT_VARIA	bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	302	ECCO_COST_INIT_VARIA	bpdat(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	313	ECCO_COST_INIT_VARIA	do j = jmin,jmax
./pkg/ecco/ecco_cost_init_varia.F	315	ECCO_COST_INIT_VARIA	tbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	316	ECCO_COST_INIT_VARIA	sbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	49	ECCO_COST_INIT_VARIA	integer i,j,k
./pkg/ecco/ecco_cost_weights.F	1006	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1009	ECCO_COST_WEIGHTS	if (wtauv(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1010	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1012	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	1014	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	1015	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1017	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) = wtau0maskS(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1020	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	1021	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1022	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) = wtau0maskc(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1044	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1047	ECCO_COST_WEIGHTS	if (wvwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1048	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1050	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1051	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0)
./pkg/ecco/ecco_cost_weights.F	1052	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	1053	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1076	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1079	ECCO_COST_WEIGHTS	if (whflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1080	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1083	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3.
./pkg/ecco/ecco_cost_weights.F	1084	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0)
./pkg/ecco/ecco_cost_weights.F	1085	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1086	ECCO_COST_WEIGHTS	whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m)
./pkg/ecco/ecco_cost_weights.F	1087	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1089	ECCO_COST_WEIGHTS	whflux2(i,j,bi,bj) = whflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1111	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1114	ECCO_COST_WEIGHTS	if (watemp(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1115	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1118	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1119	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0)
./pkg/ecco/ecco_cost_weights.F	1120	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1145	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1148	ECCO_COST_WEIGHTS	if (wsflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1149	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1152	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3.
./pkg/ecco/ecco_cost_weights.F	1153	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0)
./pkg/ecco/ecco_cost_weights.F	1154	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1155	ECCO_COST_WEIGHTS	wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./pkg/ecco/ecco_cost_weights.F	1156	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1158	ECCO_COST_WEIGHTS	wsflux2(i,j,bi,bj) = wsflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1180	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1183	ECCO_COST_WEIGHTS	if (waqh(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1184	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1187	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1188	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0)
./pkg/ecco/ecco_cost_weights.F	1189	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	118	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	120	ECCO_COST_WEIGHTS	whflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1212	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1215	ECCO_COST_WEIGHTS	if (wprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1216	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1219	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	121	ECCO_COST_WEIGHTS	whfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1220	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = max(wprecip(i,j,bi,bj),wprecip0)
./pkg/ecco/ecco_cost_weights.F	1221	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	122	ECCO_COST_WEIGHTS	wsflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	123	ECCO_COST_WEIGHTS	wsfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1244	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1247	ECCO_COST_WEIGHTS	if (wswflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1248	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	124	ECCO_COST_WEIGHTS	wtauu (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1251	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1252	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0)
./pkg/ecco/ecco_cost_weights.F	1253	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	125	ECCO_COST_WEIGHTS	wtauum (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	126	ECCO_COST_WEIGHTS	wtauv (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1276	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1279	ECCO_COST_WEIGHTS	if (wswdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	127	ECCO_COST_WEIGHTS	wtauvm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1280	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1283	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1284	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0)
./pkg/ecco/ecco_cost_weights.F	1285	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	128	ECCO_COST_WEIGHTS	watemp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	129	ECCO_COST_WEIGHTS	waqh (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1308	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	130	ECCO_COST_WEIGHTS	wprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1311	ECCO_COST_WEIGHTS	if (wlwflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1312	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1315	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1316	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0)
./pkg/ecco/ecco_cost_weights.F	1317	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	131	ECCO_COST_WEIGHTS	wswflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	132	ECCO_COST_WEIGHTS	wswdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	133	ECCO_COST_WEIGHTS	wsnowprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1340	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1343	ECCO_COST_WEIGHTS	if (wlwdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1344	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1347	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1348	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = max(wlwdown(i,j,bi,bj),wlwdown0)
./pkg/ecco/ecco_cost_weights.F	1349	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	134	ECCO_COST_WEIGHTS	wlwflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	135	ECCO_COST_WEIGHTS	wlwdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	136	ECCO_COST_WEIGHTS	wevap (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1372	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1375	ECCO_COST_WEIGHTS	if (wsnowprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1376	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1379	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) = wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	137	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1380	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1381	ECCO_COST_WEIGHTS	& max(wsnowprecip(i,j,bi,bj),wsnowprecip0)
./pkg/ecco/ecco_cost_weights.F	1382	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	138	ECCO_COST_WEIGHTS	wrunoff (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	139	ECCO_COST_WEIGHTS	wuwind (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1405	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1408	ECCO_COST_WEIGHTS	if (wevap(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1409	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	140	ECCO_COST_WEIGHTS	wvwind (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1412	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1413	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0)
./pkg/ecco/ecco_cost_weights.F	1414	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	141	ECCO_COST_WEIGHTS	wsst (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	142	ECCO_COST_WEIGHTS	wsss (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1437	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	143	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1440	ECCO_COST_WEIGHTS	if (wapressure(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1441	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1444	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1445	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1446	ECCO_COST_WEIGHTS	& max(wapressure(i,j,bi,bj),wapressure0)
./pkg/ecco/ecco_cost_weights.F	1447	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	144	ECCO_COST_WEIGHTS	wers (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	145	ECCO_COST_WEIGHTS	wgfo (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	146	ECCO_COST_WEIGHTS	wetan (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1470	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1473	ECCO_COST_WEIGHTS	if (wrunoff(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1474	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1477	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1478	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = max(wrunoff(i,j,bi,bj),wrunoff0)
./pkg/ecco/ecco_cost_weights.F	1479	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	148	ECCO_COST_WEIGHTS	wsshv4 (i,j,num_var,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1494	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1497	ECCO_COST_WEIGHTS	if (wbottomdrag(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1498	ECCO_COST_WEIGHTS	wbottomdrag(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	150	ECCO_COST_WEIGHTS	wp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1517	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	151	ECCO_COST_WEIGHTS	wudrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1520	ECCO_COST_WEIGHTS	if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1521	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	152	ECCO_COST_WEIGHTS	wvdrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1541	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1544	ECCO_COST_WEIGHTS	if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1545	ECCO_COST_WEIGHTS	wkapgm2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	154	ECCO_COST_WEIGHTS	whflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	155	ECCO_COST_WEIGHTS	wsflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1565	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1568	ECCO_COST_WEIGHTS	if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1569	ECCO_COST_WEIGHTS	wkapredi2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	156	ECCO_COST_WEIGHTS	wtauu2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	157	ECCO_COST_WEIGHTS	wtauv2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1589	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1592	ECCO_COST_WEIGHTS	if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1593	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1595	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	159	ECCO_COST_WEIGHTS	wbottomdrag (i,j,bi,bj) = wbottomdrag0
./pkg/ecco/ecco_cost_weights.F	1621	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1629	ECCO_COST_WEIGHTS	gencost_weight(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1633	ECCO_COST_WEIGHTS	if (gencost_weight(i,j,bi,bj,k) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1634	ECCO_COST_WEIGHTS	gencost_weight(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1652	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1655	ECCO_COST_WEIGHTS	if ( wetan(i,j,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	1656	ECCO_COST_WEIGHTS	wetan(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1658	ECCO_COST_WEIGHTS	wetan(i,j,bi,bj)=frame(i,j)*maskC(i,j,1,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	1659	ECCO_COST_WEIGHTS	$ ( wetan(i,j,bi,bj)*wetan(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	1693	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1696	ECCO_COST_WEIGHTS	if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	1697	ECCO_COST_WEIGHTS	wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1699	ECCO_COST_WEIGHTS	wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	1700	ECCO_COST_WEIGHTS	$ ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	1702	ECCO_COST_WEIGHTS	if ( wvvel3d(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	1703	ECCO_COST_WEIGHTS	wvvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1705	ECCO_COST_WEIGHTS	wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	1706	ECCO_COST_WEIGHTS	$ ( wvvel3d(i,j,k,bi,bj)*wvvel3d(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	1726	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1728	ECCO_COST_WEIGHTS	if (wtp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1729	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	1731	ECCO_COST_WEIGHTS	if (wers(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1732	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	1734	ECCO_COST_WEIGHTS	if (wgfo(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1735	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	1737	ECCO_COST_WEIGHTS	if (wp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1738	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	1740	ECCO_COST_WEIGHTS	if (wtauu(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1741	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	1743	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1745	ECCO_COST_WEIGHTS	if (wtauum(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1746	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1747	ECCO_COST_WEIGHTS	& 1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1749	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1751	ECCO_COST_WEIGHTS	if (wscatx(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1752	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1753	ECCO_COST_WEIGHTS	& 1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1755	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1757	ECCO_COST_WEIGHTS	if (wtauv(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1758	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	1760	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1762	ECCO_COST_WEIGHTS	if (wtauvm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1763	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1764	ECCO_COST_WEIGHTS	& 1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1766	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1768	ECCO_COST_WEIGHTS	if (wscaty(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1769	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1770	ECCO_COST_WEIGHTS	& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1772	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1774	ECCO_COST_WEIGHTS	if (whflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1775	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1776	ECCO_COST_WEIGHTS	& 1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1778	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1780	ECCO_COST_WEIGHTS	if (whfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1781	ECCO_COST_WEIGHTS	whfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1782	ECCO_COST_WEIGHTS	& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1784	ECCO_COST_WEIGHTS	whfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1786	ECCO_COST_WEIGHTS	if (wsflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1787	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1788	ECCO_COST_WEIGHTS	& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	178	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	1790	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1792	ECCO_COST_WEIGHTS	if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1793	ECCO_COST_WEIGHTS	wsfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1794	ECCO_COST_WEIGHTS	& 1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1796	ECCO_COST_WEIGHTS	wsfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1798	ECCO_COST_WEIGHTS	if (wuwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1799	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1800	ECCO_COST_WEIGHTS	& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1802	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1804	ECCO_COST_WEIGHTS	if (wvwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1805	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1806	ECCO_COST_WEIGHTS	& 1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1808	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	180	ECCO_COST_WEIGHTS	wtheta2 (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1810	ECCO_COST_WEIGHTS	if (watemp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1811	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1812	ECCO_COST_WEIGHTS	& 1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1814	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1816	ECCO_COST_WEIGHTS	if (waqh(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1817	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1818	ECCO_COST_WEIGHTS	& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	181	ECCO_COST_WEIGHTS	wsalt2 (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1820	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1822	ECCO_COST_WEIGHTS	if (wprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1823	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1824	ECCO_COST_WEIGHTS	& 1./wprecip(i,j,bi,bj)/wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1826	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1828	ECCO_COST_WEIGHTS	if (wswflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1829	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	182	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F	1830	ECCO_COST_WEIGHTS	& 1./wswflux(i,j,bi,bj)/wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1832	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1834	ECCO_COST_WEIGHTS	if (wswdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1835	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1836	ECCO_COST_WEIGHTS	& 1./wswdown(i,j,bi,bj)/wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1838	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	183	ECCO_COST_WEIGHTS	wkapgm2 (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F	1840	ECCO_COST_WEIGHTS	if (wlwflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1841	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1842	ECCO_COST_WEIGHTS	& 1./wlwflux(i,j,bi,bj)/wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1844	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1846	ECCO_COST_WEIGHTS	if (wlwdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1847	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1848	ECCO_COST_WEIGHTS	& 1./wlwdown(i,j,bi,bj)/wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	184	ECCO_COST_WEIGHTS	wkapredi2 (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F	1850	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1852	ECCO_COST_WEIGHTS	if (wevap(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1853	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1854	ECCO_COST_WEIGHTS	& 1./wevap(i,j,bi,bj)/wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1856	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1858	ECCO_COST_WEIGHTS	if (wsnowprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1859	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	185	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	1860	ECCO_COST_WEIGHTS	& 1./wsnowprecip(i,j,bi,bj)/wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1862	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1864	ECCO_COST_WEIGHTS	if (wapressure(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1865	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1866	ECCO_COST_WEIGHTS	& 1./wapressure(i,j,bi,bj)/wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1868	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	186	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	1870	ECCO_COST_WEIGHTS	if (wrunoff(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1871	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1872	ECCO_COST_WEIGHTS	& 1./wrunoff(i,j,bi,bj)/wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1874	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1876	ECCO_COST_WEIGHTS	if (wbottomdrag(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1877	ECCO_COST_WEIGHTS	wbottomdrag(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1878	ECCO_COST_WEIGHTS	& 1./wbottomdrag(i,j,bi,bj)/wbottomdrag(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	187	ECCO_COST_WEIGHTS	wthetaLev (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1880	ECCO_COST_WEIGHTS	wbottomdrag(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	188	ECCO_COST_WEIGHTS	wsaltLev (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1890	ECCO_COST_WEIGHTS	if (whflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1891	ECCO_COST_WEIGHTS	whflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1892	ECCO_COST_WEIGHTS	& 1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1894	ECCO_COST_WEIGHTS	whflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1896	ECCO_COST_WEIGHTS	if (wsflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1897	ECCO_COST_WEIGHTS	wsflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1898	ECCO_COST_WEIGHTS	& 1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	189	ECCO_COST_WEIGHTS	wdiffkrFld(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F	1900	ECCO_COST_WEIGHTS	wsflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1902	ECCO_COST_WEIGHTS	if (wtauu2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1903	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1904	ECCO_COST_WEIGHTS	& 1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1906	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1908	ECCO_COST_WEIGHTS	if (wtauv2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1909	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	190	ECCO_COST_WEIGHTS	wkapgmFld (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F	1910	ECCO_COST_WEIGHTS	& 1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1912	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1917	ECCO_COST_WEIGHTS	if (gencost_weight(i,j,bi,bj,k) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1918	ECCO_COST_WEIGHTS	gencost_weight(i,j,bi,bj,k) =
./pkg/ecco/ecco_cost_weights.F	1919	ECCO_COST_WEIGHTS	& 1./gencost_weight(i,j,bi,bj,k)/
./pkg/ecco/ecco_cost_weights.F	191	ECCO_COST_WEIGHTS	wkaprediFld (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F	1920	ECCO_COST_WEIGHTS	& gencost_weight(i,j,bi,bj,k)
./pkg/ecco/ecco_cost_weights.F	1922	ECCO_COST_WEIGHTS	gencost_weight(i,j,bi,bj,k) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	192	ECCO_COST_WEIGHTS	wedtauxFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	193	ECCO_COST_WEIGHTS	wedtauyFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	196	ECCO_COST_WEIGHTS	wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	197	ECCO_COST_WEIGHTS	wvvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1999	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	2001	ECCO_COST_WEIGHTS	if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	2002	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	2003	ECCO_COST_WEIGHTS	& wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2005	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	2007	ECCO_COST_WEIGHTS	wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2009	ECCO_COST_WEIGHTS	if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	2010	ECCO_COST_WEIGHTS	wkapgm2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	2011	ECCO_COST_WEIGHTS	& wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2013	ECCO_COST_WEIGHTS	wkapgm2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	2015	ECCO_COST_WEIGHTS	wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2017	ECCO_COST_WEIGHTS	if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	2018	ECCO_COST_WEIGHTS	wkapredi2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	2019	ECCO_COST_WEIGHTS	& wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2021	ECCO_COST_WEIGHTS	wkapredi2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	2023	ECCO_COST_WEIGHTS	wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2025	ECCO_COST_WEIGHTS	if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	2026	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	2027	ECCO_COST_WEIGHTS	& wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2029	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	2031	ECCO_COST_WEIGHTS	wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2033	ECCO_COST_WEIGHTS	if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	2034	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	2035	ECCO_COST_WEIGHTS	& wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2037	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	2039	ECCO_COST_WEIGHTS	wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	234	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	241	ECCO_COST_WEIGHTS	frame(i,j) = 1. _d 0
./pkg/ecco/ecco_cost_weights.F	255	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	259	ECCO_COST_WEIGHTS	cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F	366	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	369	ECCO_COST_WEIGHTS	if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	370	ECCO_COST_WEIGHTS	wsaltLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	372	ECCO_COST_WEIGHTS	wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	373	ECCO_COST_WEIGHTS	$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	384	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	386	ECCO_COST_WEIGHTS	wsaltLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F	387	ECCO_COST_WEIGHTS	$ wsalt(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	409	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	412	ECCO_COST_WEIGHTS	if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	413	ECCO_COST_WEIGHTS	wthetaLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	415	ECCO_COST_WEIGHTS	wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	416	ECCO_COST_WEIGHTS	$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	427	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	429	ECCO_COST_WEIGHTS	wthetaLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F	430	ECCO_COST_WEIGHTS	$ wtheta(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	455	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	459	ECCO_COST_WEIGHTS	$ wsalt2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F	460	ECCO_COST_WEIGHTS	wsalt2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	462	ECCO_COST_WEIGHTS	wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	463	ECCO_COST_WEIGHTS	$ ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	474	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	476	ECCO_COST_WEIGHTS	wsalt2(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F	477	ECCO_COST_WEIGHTS	$ wsalt(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	502	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	506	ECCO_COST_WEIGHTS	$ wtheta2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F	507	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	509	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	50	ECCO_COST_WEIGHTS	integer i,j,k
./pkg/ecco/ecco_cost_weights.F	510	ECCO_COST_WEIGHTS	$ ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	521	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	524	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	526	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	527	ECCO_COST_WEIGHTS	$ wtheta(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	552	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	560	ECCO_COST_WEIGHTS	if (wsst(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	561	ECCO_COST_WEIGHTS	& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	562	ECCO_COST_WEIGHTS	& ( wsst(i,j,bi,bj)*wsst(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	566	ECCO_COST_WEIGHTS	wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	568	ECCO_COST_WEIGHTS	wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	570	ECCO_COST_WEIGHTS	wsst(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	571	ECCO_COST_WEIGHTS	& wtheta(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	580	ECCO_COST_WEIGHTS	if (wsss(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	581	ECCO_COST_WEIGHTS	& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	582	ECCO_COST_WEIGHTS	& ( wsss(i,j,bi,bj)*wsss(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	587	ECCO_COST_WEIGHTS	wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	589	ECCO_COST_WEIGHTS	wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	591	ECCO_COST_WEIGHTS	wsss(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	592	ECCO_COST_WEIGHTS	& wsalt(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	623	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	625	ECCO_COST_WEIGHTS	wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F	627	ECCO_COST_WEIGHTS	if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F	628	ECCO_COST_WEIGHTS	& xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F	629	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F	630	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .LT. 10. ) then
./pkg/ecco/ecco_cost_weights.F	631	ECCO_COST_WEIGHTS	wp(i,j,bi,bj) = wp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	641	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	643	ECCO_COST_WEIGHTS	wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F	662	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	666	ECCO_COST_WEIGHTS	if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F	667	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	668	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	669	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	671	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 )
./pkg/ecco/ecco_cost_weights.F	672	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	673	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 )
./pkg/ecco/ecco_cost_weights.F	674	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	675	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = wers(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	701	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	703	ECCO_COST_WEIGHTS	if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F	705	ECCO_COST_WEIGHTS	& wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	707	ECCO_COST_WEIGHTS	& wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	709	ECCO_COST_WEIGHTS	& wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	713	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	719	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	720	ECCO_COST_WEIGHTS	if ( wers(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F	721	ECCO_COST_WEIGHTS	& wers(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	724	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	725	ECCO_COST_WEIGHTS	if ( wgfo(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F	726	ECCO_COST_WEIGHTS	& wgfo(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	738	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	740	ECCO_COST_WEIGHTS	if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F	741	ECCO_COST_WEIGHTS	& xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F	742	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F	743	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .LT. 10. ) then
./pkg/ecco/ecco_cost_weights.F	744	ECCO_COST_WEIGHTS	wtp(i,j,bi,bj) = wtp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	745	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = wers(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	746	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	767	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	769	ECCO_COST_WEIGHTS	wsshv4tmp(i,j,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	778	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	780	ECCO_COST_WEIGHTS	wsshv4tmp(i,j,bi,bj)=0. _d 0
./pkg/ecco/ecco_cost_weights.F	789	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	791	ECCO_COST_WEIGHTS	if (wsshv4tmp(i,j,bi,bj).ne.0) then
./pkg/ecco/ecco_cost_weights.F	792	ECCO_COST_WEIGHTS	wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	793	ECCO_COST_WEIGHTS	& ( wsshv4tmp(i,j,bi,bj)* wsshv4tmp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	794	ECCO_COST_WEIGHTS	wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	817	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	819	ECCO_COST_WEIGHTS	if (wbp(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	820	ECCO_COST_WEIGHTS	& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	821	ECCO_COST_WEIGHTS	& ( wbp(i,j,bi,bj)* wbp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	838	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	840	ECCO_COST_WEIGHTS	if (wies(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	841	ECCO_COST_WEIGHTS	& wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	842	ECCO_COST_WEIGHTS	& ( wies(i,j,bi,bj)* wies(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	866	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	869	ECCO_COST_WEIGHTS	if (wscatx(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	870	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	872	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	873	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	874	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	875	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	876	ECCO_COST_WEIGHTS	if (wscaty(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	877	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	879	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	880	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	881	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	882	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	903	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	906	ECCO_COST_WEIGHTS	if (wtauum(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	907	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	909	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F	910	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	912	ECCO_COST_WEIGHTS	if (wtauvm(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	913	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	915	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F	916	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	937	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	940	ECCO_COST_WEIGHTS	if (wtauu(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	941	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	943	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	945	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	946	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	948	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) = wtau0maskW(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	951	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	952	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_cost_weights.F	953	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) = wtau0maskc(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	975	ECCO_COST_WEIGHTS	do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F	978	ECCO_COST_WEIGHTS	if (wuwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	979	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	981	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	982	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0)
./pkg/ecco/ecco_cost_weights.F	983	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	984	ECCO_COST_WEIGHTS	& *frame(i,j)
./pkg/ecco/ecco_phys.F	43	ECCO_PHYS	integer i,j,k
./pkg/ecco/ecco_phys.F	80	ECCO_PHYS	do j = 1,sNy
./pkg/ecco/ecco_phys.F	83	ECCO_PHYS	& (rhoConst+RHOInSituLoc(i,j,k,bi,bj))*
./pkg/ecco/ecco_phys.F	84	ECCO_PHYS	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	86	ECCO_PHYS	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)