| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_monitor.F |
100 |
PTRACERS_MONITOR |
DO ip = 1, PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_monitor.F |
102 |
PTRACERS_MONITOR |
WRITE(suff,'(A7,I2.2)') 'ptracer',ip |
|
./pkg/ptracers/ptracers_monitor.F |
106 |
PTRACERS_MONITOR |
& Nr, ptracer(1-Olx,1-Oly,1,1,1,ip), |
|
./pkg/ptracers/ptracers_monitor.F |
50 |
PTRACERS_MONITOR |
integer ip |
|
./pkg/diagnostics/diagnostics_utils.F |
14 |
GETDIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
38 |
GETDIAG |
INTEGER ndId, mate, ip, im |
|
./pkg/diagnostics/diagnostics_utils.F |
59 |
GETDIAG |
ipnt = ip + lev - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
60 |
GETDIAG |
factor = FLOAT(ndiag(ip,bi,bj)) |
|
./pkg/diagnostics/diagnostics_utils.F |
61 |
GETDIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/diagnostics/diagnostics_utils.F |
76 |
GETDIAG |
ipnt = ip + lev - 1 |
|
./pkg/diagnostics/diagnostics_out.F |
217 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
222 |
DIAGNOSTICS_OUT |
IF ( ndiag(ip,1,1).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
238 |
DIAGNOSTICS_OUT |
& ndiag(ip,1,1), ' )' |
|
./pkg/diagnostics/diagnostics_out.F |
242 |
DIAGNOSTICS_OUT |
& ndiag(ip,1,1), ' )' |
|
./pkg/diagnostics/diagnostics_out.F |
269 |
DIAGNOSTICS_OUT |
& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
295 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
315 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, |
|
./pkg/diagnostics/diagnostics_out.F |
56 |
DIAGNOSTICS_OUT |
INTEGER md, ndId, ip, im |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
47 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER bi, bj, ip, iSp |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
89 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
90 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
97 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
98 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_is_on.F |
36 |
NO PROCEDURE |
INTEGER ip,iSp |
|
./pkg/diagnostics/diagnostics_is_on.F |
44 |
NO PROCEDURE |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_is_on.F |
45 |
NO PROCEDURE |
IF ( ndiag(ip,1,1).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
12 |
DIAGNOSTICS_INTERP_VERT |
I listId, md, ndId, ip, im, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
53 |
DIAGNOSTICS_INTERP_VERT |
INTEGER listId, md, ndId, ip, im |
|
./pkg/flt/flt_traj.F |
109 |
FLT_TRAJ |
do ip=7,imax |
|
./pkg/flt/flt_traj.F |
110 |
FLT_TRAJ |
tmp(ip) = 0. |
|
./pkg/flt/flt_traj.F |
116 |
FLT_TRAJ |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
118 |
FLT_TRAJ |
xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_traj.F |
119 |
FLT_TRAJ |
yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_traj.F |
120 |
FLT_TRAJ |
kp=INT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
123 |
FLT_TRAJ |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
124 |
FLT_TRAJ |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
125 |
FLT_TRAJ |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
128 |
FLT_TRAJ |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
130 |
FLT_TRAJ |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
159 |
FLT_TRAJ |
irecord=npart_read+ip+1 |
|
./pkg/flt/flt_traj.F |
44 |
FLT_TRAJ |
integer ip, kp, iip |
|
./pkg/flt/flt_init.F |
205 |
FLT_INIT |
do ip=1,INT(npart_read) |
|
./pkg/flt/flt_init.F |
208 |
FLT_INIT |
& imax,tmp,bi,bj,ip+1,mythid) |
|
./pkg/flt/flt_init.F |
38 |
FLT_INIT |
INTEGER ip, iG, jG |
|
./pkg/flt/flt_runga2.F |
101 |
FLT_RUNGA2 |
xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_runga2.F |
102 |
FLT_RUNGA2 |
yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_runga2.F |
103 |
FLT_RUNGA2 |
kp=INT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
112 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
119 |
FLT_RUNGA2 |
zz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
135 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).ne.-2.) then |
|
./pkg/flt/flt_runga2.F |
140 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
170 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).ne.-2.) then |
|
./pkg/flt/flt_runga2.F |
176 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
187 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
204 |
FLT_RUNGA2 |
xpart(ip,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
206 |
FLT_RUNGA2 |
ypart(ip,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
209 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
210 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
217 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
219 |
FLT_RUNGA2 |
if(kpart(ip,bi,bj).lt.1.0) |
|
./pkg/flt/flt_runga2.F |
220 |
FLT_RUNGA2 |
& kpart(ip,bi,bj)=1.0 |
|
./pkg/flt/flt_runga2.F |
221 |
FLT_RUNGA2 |
& +abs(1.0-kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
223 |
FLT_RUNGA2 |
if(kpart(ip,bi,bj).gt.Nr) |
|
./pkg/flt/flt_runga2.F |
224 |
FLT_RUNGA2 |
& kpart(ip,bi,bj)=Nr |
|
./pkg/flt/flt_runga2.F |
49 |
FLT_RUNGA2 |
integer ip, kp, iG, jG |
|
./pkg/flt/flt_runga2.F |
76 |
FLT_RUNGA2 |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga2.F |
81 |
FLT_RUNGA2 |
& (tend(ip,bi,bj).ne.-1. .and. myCurrentTime.gt. tend(ip,bi,bj))) |
|
./pkg/flt/flt_runga2.F |
83 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_runga2.F |
88 |
FLT_RUNGA2 |
& (tstart(ip,bi,bj).eq.-1. .or. myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
90 |
FLT_RUNGA2 |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
92 |
FLT_RUNGA2 |
& ( iup(ip,bi,bj).ne. -3.) |
|
./pkg/flt/flt_up.F |
110 |
FLT_UP |
do ip=7,imax |
|
./pkg/flt/flt_up.F |
111 |
FLT_UP |
tmp(ip) = 0. |
|
./pkg/flt/flt_up.F |
116 |
FLT_UP |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_up.F |
121 |
FLT_UP |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
123 |
FLT_UP |
& (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
125 |
FLT_UP |
& (kpart(ip,bi,bj) .eq. kfloat(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
127 |
FLT_UP |
& (iup(ip,bi,bj) .gt. 0.) |
|
./pkg/flt/flt_up.F |
135 |
FLT_UP |
if(mod(myCurrentTime,iup(ip,bi,bj)).eq.0.) |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
& kpart(ip,bi,bj) = flt_surf |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
& (tend(ip,bi,bj).ne.-1..and.myCurrentTime.gt.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_up.F |
152 |
FLT_UP |
xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_up.F |
153 |
FLT_UP |
yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_up.F |
155 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
157 |
FLT_UP |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
158 |
FLT_UP |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
159 |
FLT_UP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
162 |
FLT_UP |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
164 |
FLT_UP |
& (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
199 |
FLT_UP |
irecord=npart_read+ip+1 |
|
./pkg/flt/flt_up.F |
46 |
FLT_UP |
integer ip, k |
|
./pkg/flt/flt_exchg.F |
100 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
101 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
102 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
103 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
104 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
106 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
107 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
108 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
109 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
110 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
111 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
112 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
113 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
120 |
FLT_EXCHG |
if (xpart(ip,bi,bj) .le. xlo) then |
|
./pkg/flt/flt_exchg.F |
126 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
127 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
128 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
129 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
130 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
131 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
132 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
133 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
134 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
136 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
137 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
138 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
139 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
140 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
141 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
142 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
143 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
144 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
166 |
FLT_EXCHG |
do ip=1,max_npart_exch |
|
./pkg/flt/flt_exchg.F |
168 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
196 |
FLT_EXCHG |
do ip=1,max_npart_exch |
|
./pkg/flt/flt_exchg.F |
198 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
259 |
FLT_EXCHG |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
261 |
FLT_EXCHG |
if (ypart(ip,bi,bj) .ge. yhi) then |
|
./pkg/flt/flt_exchg.F |
267 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
268 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
269 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
270 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
271 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
272 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
273 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
274 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
275 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
277 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
279 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
280 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
281 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
282 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
283 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
284 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
285 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
290 |
FLT_EXCHG |
if (ypart(ip,bi,bj) .le. ylo) then |
|
./pkg/flt/flt_exchg.F |
296 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
297 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
298 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
299 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
300 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
301 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
302 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
303 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
304 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
306 |
FLT_EXCHG |
npart(ip,bi,bj) = npart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
307 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
308 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
309 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
310 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
311 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
312 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
313 |
FLT_EXCHG |
itop(ip,bi,bj) = itop(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
314 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
337 |
FLT_EXCHG |
do ip=1,max_npart_exch |
|
./pkg/flt/flt_exchg.F |
339 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
367 |
FLT_EXCHG |
do ip=1,max_npart_exch |
|
./pkg/flt/flt_exchg.F |
369 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
45 |
FLT_EXCHG |
integer ip |
|
./pkg/flt/flt_exchg.F |
88 |
FLT_EXCHG |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
if (xpart(ip,bi,bj) .ge. xhi) then |
|
./pkg/flt/flt_exchg.F |
96 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
97 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
98 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
99 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
40 |
FLT_RESTART |
integer ip |
|
./pkg/flt/flt_restart.F |
63 |
FLT_RESTART |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_restart.F |
65 |
FLT_RESTART |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
66 |
FLT_RESTART |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
67 |
FLT_RESTART |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
68 |
FLT_RESTART |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
69 |
FLT_RESTART |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
70 |
FLT_RESTART |
tmp(6) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
71 |
FLT_RESTART |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
72 |
FLT_RESTART |
tmp(8) = itop(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
73 |
FLT_RESTART |
tmp(9) = tend(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
80 |
FLT_RESTART |
& bi,bj,ip+1,myCurrentIter,mythid) |
|
./pkg/flt/flt_bilinear.F |
171 |
FLT_TRILINEAR |
integer ip |
|
./pkg/flt/flt_bilinear.F |
323 |
FLT_BILINEAR2D |
integer ip |
|
./pkg/flt/flt_bilinear.F |
42 |
FLT_BILINEAR |
integer ip |
|
./pkg/flt/flt_down.F |
37 |
FLT_DOWN |
integer ip |
|
./pkg/flt/flt_down.F |
45 |
FLT_DOWN |
do ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_down.F |
48 |
FLT_DOWN |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
50 |
FLT_DOWN |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
52 |
FLT_DOWN |
& (kpart(ip,bi,bj) .le. flt_surf) |
|
./pkg/flt/flt_down.F |
54 |
FLT_DOWN |
& (iup(ip,bi,bj) .gt. 0.) |
|
./pkg/flt/flt_down.F |
65 |
FLT_DOWN |
if(mod(myCurrentTime,iup(ip,bi,bj)).eq.itop(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
66 |
FLT_DOWN |
& kpart(ip,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/fizhi/co2-tran3.h |
103 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip= 6, 6)/ |
|
./pkg/fizhi/co2-tran3.h |
109 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/ |
|
./pkg/fizhi/co2-tran3.h |
115 |
NO PROCEDURE |
data ((c2(ip,iw,1),iw=1,24),ip= 7, 7)/ |
|
./pkg/fizhi/co2-tran3.h |
121 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip= 7, 7)/ |
|
./pkg/fizhi/co2-tran3.h |
127 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/ |
|
./pkg/fizhi/co2-tran3.h |
133 |
NO PROCEDURE |
data ((c2(ip,iw,1),iw=1,24),ip= 8, 8)/ |
|
./pkg/fizhi/co2-tran3.h |
139 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip= 8, 8)/ |
|
./pkg/fizhi/co2-tran3.h |
13 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip= 1, 1)/ |
|
./pkg/fizhi/co2-tran3.h |
145 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/ |
|
./pkg/fizhi/co2-tran3.h |
151 |
NO PROCEDURE |
data ((c2(ip,iw,1),iw=1,24),ip= 9, 9)/ |
|
./pkg/fizhi/co2-tran3.h |
157 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip= 9, 9)/ |
|
./pkg/fizhi/co2-tran3.h |
163 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=10,10)/ |
|
./pkg/fizhi/co2-tran3.h |
169 |
NO PROCEDURE |
data ((c2(ip,iw,1),iw=1,24),ip=10,10)/ |
|
./pkg/fizhi/co2-tran3.h |
175 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip=10,10)/ |
|
./pkg/fizhi/co2-tran3.h |
181 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=11,11)/ |
|
./pkg/fizhi/co2-tran3.h |
187 |
NO PROCEDURE |
data ((c2(ip,iw,1),iw=1,24),ip=11,11)/ |
|
./pkg/fizhi/co2-tran3.h |
193 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip=11,11)/ |
|
./pkg/fizhi/co2-tran3.h |
199 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=12,12)/ |
|
./pkg/fizhi/co2-tran3.h |
19 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/ |
|
./pkg/fizhi/co2-tran3.h |
1 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/ |
|
./pkg/fizhi/co2-tran3.h |
205 |
NO PROCEDURE |
data ((c2(ip,iw,1),iw=1,24),ip=12,12)/ |
|
./pkg/fizhi/co2-tran3.h |
211 |
NO PROCEDURE |
data ((c3(ip,iw,1),iw=1,24),ip=12,12)/ |
|
./pkg/fizhi/co2-tran3.h< |