Changeset 82 for palm/trunk/SOURCE/advec_particles.f90
- Timestamp:
- Apr 16, 2007 3:40:52 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_particles.f90
r77 r82 117 117 ! WRITE (9,*) '--- advec_particles: #1' 118 118 ! WRITE (9,*) ' #of p=',number_of_particles,' #of t=',number_of_tails 119 ! CALL FLUSH_( 9 )119 ! CALL local_flush( 9 ) 120 120 ! ENDIF 121 121 ! … … 165 165 166 166 ! WRITE ( 9, * ) '*** advec_particles: ##0.3' 167 ! CALL FLUSH_( 9 )167 ! CALL local_flush( 9 ) 168 168 ! nd = 0 169 169 ! DO n = 1, number_of_particles … … 172 172 ! IF ( nd /= deleted_particles ) THEN 173 173 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 174 ! CALL FLUSH_( 9 )174 ! CALL local_flush( 9 ) 175 175 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 176 176 ! ENDIF … … 1872 1872 1873 1873 ! WRITE ( 9, * ) '*** advec_particles: ##0.4' 1874 ! CALL FLUSH_( 9 )1874 ! CALL local_flush( 9 ) 1875 1875 ! nd = 0 1876 1876 ! DO n = 1, number_of_particles … … 1879 1879 ! IF ( nd /= deleted_particles ) THEN 1880 1880 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 1881 ! CALL FLUSH_( 9 )1881 ! CALL local_flush( 9 ) 1882 1882 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 1883 1883 ! ENDIF … … 1904 1904 ELSE 1905 1905 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory dt_prel' 1906 ! CALL FLUSH_( 9 )1906 ! CALL local_flush( 9 ) 1907 1907 CALL allocate_prt_memory( number_of_initial_particles ) 1908 1908 ! WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory dt_prel' 1909 ! CALL FLUSH_( 9 )1909 ! CALL local_flush( 9 ) 1910 1910 ENDIF 1911 1911 ENDIF … … 1928 1928 ELSE 1929 1929 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory dt_prel' 1930 ! CALL FLUSH_( 9 )1930 ! CALL local_flush( 9 ) 1931 1931 CALL allocate_tail_memory( number_of_initial_tails ) 1932 1932 ! WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory dt_prel' 1933 ! CALL FLUSH_( 9 )1933 ! CALL local_flush( 9 ) 1934 1934 ENDIF 1935 1935 ENDIF … … 2008 2008 ENDIF 2009 2009 ! WRITE ( 9, * ) '*** advec_particles: after setting the beginning of new tails' 2010 ! CALL FLUSH_( 9 )2010 ! CALL local_flush( 9 ) 2011 2011 2012 2012 number_of_particles = number_of_particles + & … … 2017 2017 2018 2018 ! WRITE ( 9, * ) '*** advec_particles: ##0.5' 2019 ! CALL FLUSH_( 9 )2019 ! CALL local_flush( 9 ) 2020 2020 ! nd = 0 2021 2021 ! DO n = 1, number_of_particles … … 2024 2024 ! IF ( nd /= deleted_particles ) THEN 2025 2025 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 2026 ! CALL FLUSH_( 9 )2026 ! CALL local_flush( 9 ) 2027 2027 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2028 2028 ! ENDIF … … 2031 2031 ! WRITE (9,*) '--- advec_particles: #2' 2032 2032 ! WRITE (9,*) ' #of p=',number_of_particles,' #of t=',number_of_tails 2033 ! CALL FLUSH_( 9 )2033 ! CALL local_flush( 9 ) 2034 2034 ! ENDIF 2035 2035 ! DO n = 1, number_of_particles … … 2038 2038 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 2039 2039 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 2040 ! CALL FLUSH_( 9 )2040 ! CALL local_flush( 9 ) 2041 2041 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2042 2042 ! ENDIF … … 2103 2103 2104 2104 ! WRITE ( 9, * ) '*** advec_particles: ##1' 2105 ! CALL FLUSH_( 9 )2105 ! CALL local_flush( 9 ) 2106 2106 ! nd = 0 2107 2107 ! DO n = 1, number_of_particles … … 2111 2111 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 2112 2112 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 2113 ! CALL FLUSH_( 9 )2113 ! CALL local_flush( 9 ) 2114 2114 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2115 2115 ! ENDIF … … 2117 2117 ! IF ( nd /= deleted_particles ) THEN 2118 2118 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 2119 ! CALL FLUSH_( 9 )2119 ! CALL local_flush( 9 ) 2120 2120 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2121 2121 ! ENDIF … … 2274 2274 2275 2275 ! WRITE ( 9, * ) '*** advec_particles: ##2' 2276 ! CALL FLUSH_( 9 )2276 ! CALL local_flush( 9 ) 2277 2277 ! nd = 0 2278 2278 ! DO n = 1, number_of_particles … … 2282 2282 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 2283 2283 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 2284 ! CALL FLUSH_( 9 )2284 ! CALL local_flush( 9 ) 2285 2285 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2286 2286 ! ENDIF … … 2288 2288 ! IF ( nd /= deleted_particles ) THEN 2289 2289 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 2290 ! CALL FLUSH_( 9 )2290 ! CALL local_flush( 9 ) 2291 2291 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2292 2292 ! ENDIF … … 2313 2313 ELSE 2314 2314 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trrp' 2315 ! CALL FLUSH_( 9 )2315 ! CALL local_flush( 9 ) 2316 2316 CALL allocate_prt_memory( trrp_count_recv ) 2317 2317 ! WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trrp' 2318 ! CALL FLUSH_( 9 )2318 ! CALL local_flush( 9 ) 2319 2319 ENDIF 2320 2320 ENDIF … … 2341 2341 ELSE 2342 2342 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trrpt' 2343 ! CALL FLUSH_( 9 )2343 ! CALL local_flush( 9 ) 2344 2344 CALL allocate_tail_memory( trrpt_count_recv ) 2345 2345 ! WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trrpt' 2346 ! CALL FLUSH_( 9 )2346 ! CALL local_flush( 9 ) 2347 2347 ENDIF 2348 2348 ENDIF … … 2370 2370 ! WRITE (9,*) '--- advec_particles: #3' 2371 2371 ! WRITE (9,*) ' #of p=',number_of_particles,' #of t=',number_of_tails 2372 ! CALL FLUSH_( 9 )2372 ! CALL local_flush( 9 ) 2373 2373 ! ENDIF 2374 2374 … … 2390 2390 ELSE 2391 2391 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trlp' 2392 ! CALL FLUSH_( 9 )2392 ! CALL local_flush( 9 ) 2393 2393 CALL allocate_prt_memory( trlp_count_recv ) 2394 2394 ! WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trlp' 2395 ! CALL FLUSH_( 9 )2395 ! CALL local_flush( 9 ) 2396 2396 ENDIF 2397 2397 ENDIF … … 2418 2418 ELSE 2419 2419 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trlpt' 2420 ! CALL FLUSH_( 9 )2420 ! CALL local_flush( 9 ) 2421 2421 CALL allocate_tail_memory( trlpt_count_recv ) 2422 2422 ! WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trlpt' 2423 ! CALL FLUSH_( 9 )2423 ! CALL local_flush( 9 ) 2424 2424 ENDIF 2425 2425 ENDIF … … 2447 2447 ! WRITE (9,*) '--- advec_particles: #4' 2448 2448 ! WRITE (9,*) ' #of p=',number_of_particles,' #of t=',number_of_tails 2449 ! CALL FLUSH_( 9 )2449 ! CALL local_flush( 9 ) 2450 2450 ! ENDIF 2451 2451 … … 2460 2460 2461 2461 ! WRITE ( 9, * ) '*** advec_particles: ##3' 2462 ! CALL FLUSH_( 9 )2462 ! CALL local_flush( 9 ) 2463 2463 ! nd = 0 2464 2464 ! DO n = 1, number_of_particles … … 2468 2468 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 2469 2469 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 2470 ! CALL FLUSH_( 9 )2470 ! CALL local_flush( 9 ) 2471 2471 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2472 2472 ! ENDIF … … 2474 2474 ! IF ( nd /= deleted_particles ) THEN 2475 2475 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 2476 ! CALL FLUSH_( 9 )2476 ! CALL local_flush( 9 ) 2477 2477 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2478 2478 ! ENDIF … … 2538 2538 2539 2539 ! WRITE ( 9, * ) '*** advec_particles: ##4' 2540 ! CALL FLUSH_( 9 )2540 ! CALL local_flush( 9 ) 2541 2541 ! nd = 0 2542 2542 ! DO n = 1, number_of_particles … … 2546 2546 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 2547 2547 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 2548 ! CALL FLUSH_( 9 )2548 ! CALL local_flush( 9 ) 2549 2549 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2550 2550 ! ENDIF … … 2552 2552 ! IF ( nd /= deleted_particles ) THEN 2553 2553 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 2554 ! CALL FLUSH_( 9 )2554 ! CALL local_flush( 9 ) 2555 2555 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2556 2556 ! ENDIF … … 2715 2715 2716 2716 ! WRITE ( 9, * ) '*** advec_particles: ##5' 2717 ! CALL FLUSH_( 9 )2717 ! CALL local_flush( 9 ) 2718 2718 ! nd = 0 2719 2719 ! DO n = 1, number_of_particles … … 2723 2723 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 2724 2724 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 2725 ! CALL FLUSH_( 9 )2725 ! CALL local_flush( 9 ) 2726 2726 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2727 2727 ! ENDIF … … 2729 2729 ! IF ( nd /= deleted_particles ) THEN 2730 2730 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 2731 ! CALL FLUSH_( 9 )2731 ! CALL local_flush( 9 ) 2732 2732 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2733 2733 ! ENDIF … … 2754 2754 ELSE 2755 2755 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trnp' 2756 ! CALL FLUSH_( 9 )2756 ! CALL local_flush( 9 ) 2757 2757 CALL allocate_prt_memory( trnp_count_recv ) 2758 2758 ! WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trnp' 2759 ! CALL FLUSH_( 9 )2759 ! CALL local_flush( 9 ) 2760 2760 ENDIF 2761 2761 ENDIF … … 2782 2782 ELSE 2783 2783 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trnpt' 2784 ! CALL FLUSH_( 9 )2784 ! CALL local_flush( 9 ) 2785 2785 CALL allocate_tail_memory( trnpt_count_recv ) 2786 2786 ! WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trnpt' 2787 ! CALL FLUSH_( 9 )2787 ! CALL local_flush( 9 ) 2788 2788 ENDIF 2789 2789 ENDIF … … 2811 2811 ! WRITE (9,*) '--- advec_particles: #5' 2812 2812 ! WRITE (9,*) ' #of p=',number_of_particles,' #of t=',number_of_tails 2813 ! CALL FLUSH_( 9 )2813 ! CALL local_flush( 9 ) 2814 2814 ! ENDIF 2815 2815 … … 2831 2831 ELSE 2832 2832 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trsp' 2833 ! CALL FLUSH_( 9 )2833 ! CALL local_flush( 9 ) 2834 2834 CALL allocate_prt_memory( trsp_count_recv ) 2835 2835 ! WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trsp' 2836 ! CALL FLUSH_( 9 )2836 ! CALL local_flush( 9 ) 2837 2837 ENDIF 2838 2838 ENDIF … … 2859 2859 ELSE 2860 2860 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trspt' 2861 ! CALL FLUSH_( 9 )2861 ! CALL local_flush( 9 ) 2862 2862 CALL allocate_tail_memory( trspt_count_recv ) 2863 2863 ! WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trspt' 2864 ! CALL FLUSH_( 9 )2864 ! CALL local_flush( 9 ) 2865 2865 ENDIF 2866 2866 ENDIF … … 2888 2888 ! WRITE (9,*) '--- advec_particles: #6' 2889 2889 ! WRITE (9,*) ' #of p=',number_of_particles,' #of t=',number_of_tails 2890 ! CALL FLUSH_( 9 )2890 ! CALL local_flush( 9 ) 2891 2891 ! ENDIF 2892 2892 … … 2901 2901 2902 2902 ! WRITE ( 9, * ) '*** advec_particles: ##6' 2903 ! CALL FLUSH_( 9 )2903 ! CALL local_flush( 9 ) 2904 2904 ! nd = 0 2905 2905 ! DO n = 1, number_of_particles … … 2909 2909 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 2910 2910 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 2911 ! CALL FLUSH_( 9 )2911 ! CALL local_flush( 9 ) 2912 2912 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2913 2913 ! ENDIF … … 2915 2915 ! IF ( nd /= deleted_particles ) THEN 2916 2916 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 2917 ! CALL FLUSH_( 9 )2917 ! CALL local_flush( 9 ) 2918 2918 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 2919 2919 ! ENDIF … … 3133 3133 3134 3134 ! WRITE ( 9, * ) '*** advec_particles: ##7' 3135 ! CALL FLUSH_( 9 )3135 ! CALL local_flush( 9 ) 3136 3136 ! nd = 0 3137 3137 ! DO n = 1, number_of_particles … … 3141 3141 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 3142 3142 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 3143 ! CALL FLUSH_( 9 )3143 ! CALL local_flush( 9 ) 3144 3144 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 3145 3145 ! ENDIF … … 3147 3147 ! IF ( nd /= deleted_particles ) THEN 3148 3148 ! WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles 3149 ! CALL FLUSH_( 9 )3149 ! CALL local_flush( 9 ) 3150 3150 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 3151 3151 ! ENDIF … … 3167 3167 ! IF ( nd /= deleted_particles ) THEN 3168 3168 ! WRITE (9,*) '*** advec_part nd=',nd,' deleted_particles=',deleted_particles 3169 ! CALL FLUSH_( 9 )3169 ! CALL local_flush( 9 ) 3170 3170 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 3171 3171 ! ENDIF … … 3189 3189 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_tails,' #oftails)' 3190 3190 ! WRITE (9,*) ' id=',new_tail_id(n) 3191 ! CALL FLUSH_( 9 )3191 ! CALL local_flush( 9 ) 3192 3192 ENDIF 3193 3193 ENDDO … … 3196 3196 ! IF ( nd /= deleted_tails .AND. use_particle_tails ) THEN 3197 3197 ! WRITE (9,*) '*** advec_part nd=',nd,' deleted_tails=',deleted_tails 3198 ! CALL FLUSH_( 9 )3198 ! CALL local_flush( 9 ) 3199 3199 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 3200 3200 ! ENDIF … … 3211 3211 ! WRITE (9,*) ' new_tail_id=', new_tail_id(particles(n)%tail_id), & 3212 3212 ! ' of (',number_of_tails,')' 3213 ! CALL FLUSH_( 9 )3213 ! CALL local_flush( 9 ) 3214 3214 ! ENDIF 3215 3215 particles(n)%tail_id = new_tail_id(particles(n)%tail_id) … … 3219 3219 ! IF ( nn /= number_of_tails .AND. use_particle_tails ) THEN 3220 3220 ! WRITE (9,*) '*** advec_part #of_tails=',number_of_tails,' nn=',nn 3221 ! CALL FLUSH_( 9 )3221 ! CALL local_flush( 9 ) 3222 3222 ! DO n = 1, number_of_particles 3223 3223 ! WRITE (9,*) 'prt# ',n,' tail_id=',particles(n)%tail_id, & … … 3233 3233 ! WRITE (9,*) '--- advec_particles: #7' 3234 3234 ! WRITE (9,*) ' #of p=',number_of_particles,' #of t=',number_of_tails 3235 ! CALL FLUSH_( 9 )3235 ! CALL local_flush( 9 ) 3236 3236 ! ENDIF 3237 3237 ! WRITE ( 9, * ) '*** advec_particles: ##8' 3238 ! CALL FLUSH_( 9 )3238 ! CALL local_flush( 9 ) 3239 3239 ! DO n = 1, number_of_particles 3240 3240 ! IF ( particles(n)%tail_id<0 .OR. particles(n)%tail_id>number_of_tails ) & … … 3242 3242 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 3243 3243 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 3244 ! CALL FLUSH_( 9 )3244 ! CALL local_flush( 9 ) 3245 3245 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 3246 3246 ! ENDIF … … 3252 3252 3253 3253 ! WRITE ( 9, * ) '*** advec_particles: ##9' 3254 ! CALL FLUSH_( 9 )3254 ! CALL local_flush( 9 ) 3255 3255 ! DO n = 1, number_of_particles 3256 3256 ! IF ( particles(n)%tail_id<0 .OR. particles(n)%tail_id>number_of_tails ) & … … 3258 3258 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 3259 3259 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 3260 ! CALL FLUSH_( 9 )3260 ! CALL local_flush( 9 ) 3261 3261 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 3262 3262 ! ENDIF … … 3341 3341 CALL user_particle_attributes 3342 3342 ! WRITE ( 9, * ) '*** advec_particles: ##10' 3343 ! CALL FLUSH_( 9 )3343 ! CALL local_flush( 9 ) 3344 3344 ! DO n = 1, number_of_particles 3345 3345 ! IF ( particles(n)%tail_id<0 .OR. particles(n)%tail_id>number_of_tails ) & … … 3347 3347 ! WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')' 3348 3348 ! WRITE (9,*) ' id=',particles(n)%tail_id,' of (',number_of_tails,')' 3349 ! CALL FLUSH_( 9 )3349 ! CALL local_flush( 9 ) 3350 3350 ! CALL MPI_ABORT( comm2d, 9999, ierr ) 3351 3351 ! ENDIF … … 3366 3366 !-- next tailpoint 3367 3367 ! WRITE ( 9, * ) '*** advec_particles: ##10.1 nn=',nn 3368 ! CALL FLUSH_( 9 )3368 ! CALL local_flush( 9 ) 3369 3369 IF ( minimum_tailpoint_distance /= 0.0 ) THEN 3370 3370 distance = ( particle_tail_coordinates(1,1,nn) - & … … 3376 3376 ENDIF 3377 3377 ! WRITE ( 9, * ) '*** advec_particles: ##10.2' 3378 ! CALL FLUSH_( 9 )3378 ! CALL local_flush( 9 ) 3379 3379 ! 3380 3380 !-- First, increase the index of all existings tailpoints by one … … 3395 3395 ENDIF 3396 3396 ! WRITE ( 9, * ) '*** advec_particles: ##10.3' 3397 ! CALL FLUSH_( 9 )3397 ! CALL local_flush( 9 ) 3398 3398 ! 3399 3399 !-- In any case, store the new point at the beginning of the tail … … 3403 3403 particle_tail_coordinates(1,4,nn) = particles(n)%color 3404 3404 ! WRITE ( 9, * ) '*** advec_particles: ##10.4' 3405 ! CALL FLUSH_( 9 )3405 ! CALL local_flush( 9 ) 3406 3406 ! 3407 3407 !-- Increase the age of the tailpoints … … 3418 3418 ENDIF 3419 3419 ! WRITE ( 9, * ) '*** advec_particles: ##10.5' 3420 ! CALL FLUSH_( 9 )3420 ! CALL local_flush( 9 ) 3421 3421 3422 3422 ENDIF … … 3426 3426 ENDIF 3427 3427 ! WRITE ( 9, * ) '*** advec_particles: ##11' 3428 ! CALL FLUSH_( 9 )3428 ! CALL local_flush( 9 ) 3429 3429 3430 3430 ! … … 3533 3533 ENDIF 3534 3534 WRITE (9,*) '*** Request: ',new_maximum_number,' new_maximum_number(tails)' 3535 ! CALL FLUSH_( 9 )3535 ! CALL local_flush( 9 ) 3536 3536 3537 3537 tmp_tail(:,:,1:number_of_tails) = &
Note: See TracChangeset
for help on using the changeset viewer.