61 |
character*( 80) fnametheta |
character*( 80) fnametheta |
62 |
character*( 80) fnamesalt |
character*( 80) fnamesalt |
63 |
character*( 80) fnametr1 |
character*( 80) fnametr1 |
64 |
|
character*( 80) fnamediffkr |
65 |
|
character*( 80) fnamekapgm |
66 |
|
|
67 |
c == external == |
c == external == |
68 |
|
|
166 |
enddo |
enddo |
167 |
#endif |
#endif |
168 |
|
|
169 |
|
#ifdef ALLOW_DIFFKR_CONTROL |
170 |
|
c-- diffkr. |
171 |
|
il=ilnblnk( xx_diffkr_file ) |
172 |
|
write(fnamediffkr(1:80),'(2a,i10.10)') |
173 |
|
& xx_diffkr_file(1:il),'.',optimcycle |
174 |
|
call active_read_xyz( fnamediffkr, tmpfld3d, 1, |
175 |
|
& doglobalread, ladinit, optimcycle, |
176 |
|
& mythid, xx_diffkr_dummy ) |
177 |
|
do bj = jtlo,jthi |
178 |
|
do bi = itlo,ithi |
179 |
|
do k = 1,nr |
180 |
|
do j = jmin,jmax |
181 |
|
do i = imin,imax |
182 |
|
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
183 |
|
& tmpfld3d(i,j,k,bi,bj) |
184 |
|
enddo |
185 |
|
enddo |
186 |
|
enddo |
187 |
|
enddo |
188 |
|
enddo |
189 |
|
#endif |
190 |
|
|
191 |
|
#ifdef ALLOW_KAPGM_CONTROL |
192 |
|
c-- kapgm. |
193 |
|
il=ilnblnk( xx_kapgm_file ) |
194 |
|
write(fnamekapgm(1:80),'(2a,i10.10)') |
195 |
|
& xx_kapgm_file(1:il),'.',optimcycle |
196 |
|
call active_read_xyz( fnamekapgm, tmpfld3d, 1, |
197 |
|
& doglobalread, ladinit, optimcycle, |
198 |
|
& mythid, xx_kapgm_dummy ) |
199 |
|
do bj = jtlo,jthi |
200 |
|
do bi = itlo,ithi |
201 |
|
do k = 1,nr |
202 |
|
do j = jmin,jmax |
203 |
|
do i = imin,imax |
204 |
|
kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) + |
205 |
|
& tmpfld3d(i,j,k,bi,bj) |
206 |
|
enddo |
207 |
|
enddo |
208 |
|
enddo |
209 |
|
enddo |
210 |
|
enddo |
211 |
|
#endif |
212 |
|
|
213 |
|
|
214 |
c-- Update the tile edges. |
c-- Update the tile edges. |
215 |
|
|
222 |
_EXCH_XYZ_R8( gsNm1, mythid ) |
_EXCH_XYZ_R8( gsNm1, mythid ) |
223 |
#endif |
#endif |
224 |
#ifdef ALLOW_TR10_CONTROL |
#ifdef ALLOW_TR10_CONTROL |
225 |
_EXCH_XYZ_R8( tr1, mythid ) |
_EXCH_XYZ_R8( tr1, mythid ) |
226 |
_EXCH_XYZ_R8( gTr1Nm1, mythid ) |
_EXCH_XYZ_R8( gTr1Nm1, mythid ) |
227 |
#endif |
#endif |
228 |
|
#ifdef ALLOW_DIFFKR_CONTROL |
229 |
|
_EXCH_XYZ_R8( diffkr, mythid) |
230 |
|
#endif |
231 |
|
#ifdef ALLOW_KAPGM_CONTROL |
232 |
|
_EXCH_XYZ_R8( kapgm, mythid) |
233 |
|
#endif |
234 |
|
|
235 |
|
|
236 |
return |
return |
237 |
end |
end |