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