277 |
enddo |
enddo |
278 |
#endif |
#endif |
279 |
|
|
280 |
|
#ifdef ALLOW_KAPREDI_CONTROL |
281 |
|
c-- kapredi. |
282 |
|
il=ilnblnk( xx_kapredi_file ) |
283 |
|
write(fnamegeneric(1:80),'(2a,i10.10)') |
284 |
|
& xx_kapredi_file(1:il),'.',optimcycle |
285 |
|
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
286 |
|
& doglobalread, ladinit, optimcycle, |
287 |
|
& mythid, xx_kapredi_dummy ) |
288 |
|
do bj = jtlo,jthi |
289 |
|
do bi = itlo,ithi |
290 |
|
do k = 1,nr |
291 |
|
do j = jmin,jmax |
292 |
|
do i = imin,imax |
293 |
|
kapredi(i,j,k,bi,bj) = kapredi(i,j,k,bi,bj) + |
294 |
|
& tmpfld3d(i,j,k,bi,bj) |
295 |
|
enddo |
296 |
|
enddo |
297 |
|
enddo |
298 |
|
enddo |
299 |
|
enddo |
300 |
|
#endif |
301 |
|
|
302 |
#ifdef ALLOW_EFLUXY0_CONTROL |
#ifdef ALLOW_EFLUXY0_CONTROL |
303 |
c-- y-component EP-flux field. |
c-- y-component EP-flux field. |
304 |
il=ilnblnk( xx_efluxy_file ) |
il=ilnblnk( xx_efluxy_file ) |
563 |
#ifdef ALLOW_KAPGM_CONTROL |
#ifdef ALLOW_KAPGM_CONTROL |
564 |
_EXCH_XYZ_R8( kapgm, mythid) |
_EXCH_XYZ_R8( kapgm, mythid) |
565 |
#endif |
#endif |
566 |
|
#ifdef ALLOW_KAPREDI_CONTROL |
567 |
|
_EXCH_XYZ_R8( kapredi, mythid) |
568 |
|
#endif |
569 |
#ifdef ALLOW_EFLUXY0_CONTROL |
#ifdef ALLOW_EFLUXY0_CONTROL |
570 |
_EXCH_XYZ_R8( EfluxY, mythid ) |
_EXCH_XYZ_R8( EfluxY, mythid ) |
571 |
#endif |
#endif |