File |
Line number |
Procedure |
Code |
./pkg/debug/debug_cs_corner_uv.F |
103 |
DEBUG_CS_CORNER_UV |
n1 = W2_myTileList(n) |
./pkg/debug/debug_cs_corner_uv.F |
104 |
DEBUG_CS_CORNER_UV |
n2 = exch2_neighbourId(4,n1) |
./pkg/debug/debug_cs_corner_uv.F |
105 |
DEBUG_CS_CORNER_UV |
n3 = exch2_neighbourId(2,n1) |
./pkg/debug/debug_cs_corner_uv.F |
106 |
DEBUG_CS_CORNER_UV |
IF ( exch2_pj(1,4,n1).eq.-1 ) THEN |
./pkg/debug/debug_cs_corner_uv.F |
108 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
109 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpV(4,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
111 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
112 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpV(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
114 |
DEBUG_CS_CORNER_UV |
IF ( exch2_pj(2,4,n1).eq.1 ) THEN |
./pkg/debug/debug_cs_corner_uv.F |
116 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
117 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpU(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
119 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
120 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpU(4,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
122 |
DEBUG_CS_CORNER_UV |
IF ( exch2_pi(1,2,n1).eq.1 ) THEN |
./pkg/debug/debug_cs_corner_uv.F |
124 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
125 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpV(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
127 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
128 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpV(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
130 |
DEBUG_CS_CORNER_UV |
IF ( exch2_pi(2,2,n1).eq.-1 ) THEN |
./pkg/debug/debug_cs_corner_uv.F |
132 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
133 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpU(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
135 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
136 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpU(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
139 |
DEBUG_CS_CORNER_UV |
n1 = n |
./pkg/debug/debug_cs_corner_uv.F |
140 |
DEBUG_CS_CORNER_UV |
IF (MOD(n1,2).EQ.1 ) THEN |
./pkg/debug/debug_cs_corner_uv.F |
147 |
DEBUG_CS_CORNER_UV |
n2=1+mod(n1-2+5,6) |
./pkg/debug/debug_cs_corner_uv.F |
148 |
DEBUG_CS_CORNER_UV |
n3=1+mod(n1-1+5,6) |
./pkg/debug/debug_cs_corner_uv.F |
150 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
151 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpV(4,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
153 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
154 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpV(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
156 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
157 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpV(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
159 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
160 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpV(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
168 |
DEBUG_CS_CORNER_UV |
n2=1+mod(n1-1+5,6) |
./pkg/debug/debug_cs_corner_uv.F |
169 |
DEBUG_CS_CORNER_UV |
n3=1+mod(n1-2+5,6) |
./pkg/debug/debug_cs_corner_uv.F |
171 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
172 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpU(3,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
174 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1), |
./pkg/debug/debug_cs_corner_uv.F |
175 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpU(4,k,n2,1) |
./pkg/debug/debug_cs_corner_uv.F |
177 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
178 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpU(4,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
180 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1), |
./pkg/debug/debug_cs_corner_uv.F |
181 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpU(3,k,n3,1) |
./pkg/debug/debug_cs_corner_uv.F |
64 |
DEBUG_CS_CORNER_UV |
INTEGER n,n1,n2,n3 |
./pkg/mnc/mnc_cwrapper.F |
497 |
MNC_CW_ADD_VATTR_ANY |
integer n, nvf,nvl, n1,n2, indv |
./pkg/mnc/mnc_cwrapper.F |
518 |
MNC_CW_ADD_VATTR_ANY |
n1 = IFNBLNK(tname) |
./pkg/mnc/mnc_cwrapper.F |
523 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2) |
./pkg/mnc/mnc_cwrapper.F |
524 |
MNC_CW_ADD_VATTR_ANY |
n1 = IFNBLNK(tval) |
./pkg/mnc/mnc_cwrapper.F |
526 |
MNC_CW_ADD_VATTR_ANY |
IF ((n1 .EQ. 0) .OR. (n2 .EQ. 0)) THEN |
./pkg/mnc/mnc_cwrapper.F |
533 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2) |
./pkg/mnc/mnc_cwrapper.F |
541 |
MNC_CW_ADD_VATTR_ANY |
n1 = IFNBLNK(iname) |
./pkg/mnc/mnc_cwrapper.F |
544 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vinm(n,indv)(1:(n2-n1+1)) = iname(n1:n2) |
./pkg/mnc/mnc_cwrapper.F |
552 |
MNC_CW_ADD_VATTR_ANY |
n1 = IFNBLNK(dname) |
./pkg/mnc/mnc_cwrapper.F |
555 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vdnm(n,indv)(1:(n2-n1+1)) = dname(n1:n2) |
./pkg/mnc/mnc_grid.F |
239 |
MNC_GRID_GET_DIMIND |
integer i,j,k,l, n,n1, ngrid, ds,de |
./pkg/mnc/mnc_grid.F |
254 |
MNC_GRID_GET_DIMIND |
n1 = ILNBLNK(mnc_d_names(l)) |
./pkg/mnc/mnc_grid.F |
255 |
MNC_GRID_GET_DIMIND |
IF ((n .EQ. n1) |
./pkg/mnc/mnc_grid.F |
256 |
MNC_GRID_GET_DIMIND |
& .AND. (mnc_d_names(l)(1:n1) .EQ. dname(1:n))) THEN |
./pkg/mnc/mnc_file.F |
257 |
MNC_FILE_ADD_ATTR_ANY |
integer n, err, fid, ind, n1, lens |
./pkg/mnc/mnc_file.F |
278 |
MNC_FILE_ADD_ATTR_ANY |
n1 = ILNBLNK(atname) |
./pkg/mnc/mnc_file.F |
279 |
MNC_FILE_ADD_ATTR_ANY |
s1(1:n1) = atname(1:n1) |
./pkg/mnc/mnc_file.F |
651 |
MNC_FILE_TRY_READ |
integer ndv, did, ns,ne, n1,n2, indg, indv |
./pkg/mnc/mnc_file.F |
695 |
MNC_FILE_TRY_READ |
n1 = IFNBLNK(mnc_d_names(j)) |
./pkg/mnc/mnc_file.F |
697 |
MNC_FILE_TRY_READ |
IF (((ne-ns) .EQ. (n2-n1)) |
./pkg/mnc/mnc_file.F |
713 |
MNC_FILE_TRY_READ |
n1 = IFNBLNK(name) |
./pkg/mnc/mnc_file.F |
726 |
MNC_FILE_TRY_READ |
mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2) |