Changeset 275 for palm/trunk/SOURCE/advec_particles.f90
- Timestamp:
- Mar 27, 2009 7:38:49 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_particles.f90
r274 r275 322 322 ' ql_c=',ql_c(k,j,i), ' &part(',n,')%wf=', & 323 323 particles(n)%weight_factor,' delta_r=',delta_r 324 CALL message( 'advec_particles', 'PA0143', 2, 2, 0, 6, 0)324 CALL message( 'advec_particles', 'PA0143', 2, 2, 0, 6, 1 ) 325 325 ENDIF 326 326 … … 333 333 ' &d_radius=',d_radius,' delta_r=',delta_r,& 334 334 ' particle_radius=',particles(n)%radius 335 CALL message( 'advec_particles', 'PA0144', 2, 2, 0, 6, 0)335 CALL message( 'advec_particles', 'PA0144', 2, 2, 0, 6, 1 ) 336 336 ENDIF 337 337 particles(n)%radius = new_r … … 424 424 effective_coll_efficiency < 0.0 ) & 425 425 THEN 426 WRITE( message_string, * ) 'collision_efficiency ' , &427 'out of range:' ,effective_coll_efficiency428 CALL message( 'advec_particles', 'PA0145', &429 2, 2, 0, 6, 0)426 WRITE( message_string, * ) 'collision_efficiency ' , & 427 'out of range:' ,effective_coll_efficiency 428 CALL message( 'advec_particles', 'PA0145', 2, 2, 0, & 429 6, 1 ) 430 430 END IF 431 431 … … 1925 1925 '&but this is not allowed with ' // & 1926 1926 'NetCDF output switched on' 1927 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0)1927 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 ) 1928 1928 ELSE 1929 1929 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory dt_prel' … … 1945 1945 '&but this is not allowed wi' // & 1946 1946 'th NetCDF output switched on' 1947 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0)1947 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 ) 1948 1948 ELSE 1949 1949 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory dt_prel' … … 2330 2330 '&but this is not allowed with ' // & 2331 2331 'NetCDF output switched on' 2332 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0)2332 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 ) 2333 2333 ELSE 2334 2334 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trrp' … … 2358 2358 '&but this is not allowed wi'// & 2359 2359 'th NetCDF output switched on' 2360 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0)2360 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 ) 2361 2361 ELSE 2362 2362 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trrpt' … … 2407 2407 '&but this is not allowed with '// & 2408 2408 'NetCDF output switched on' 2409 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0)2409 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 ) 2410 2410 ELSE 2411 2411 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trlp' … … 2435 2435 '&but this is not allowed wi'// & 2436 2436 'th NetCDF output switched on' 2437 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0)2437 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 ) 2438 2438 ELSE 2439 2439 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trlpt' … … 2771 2771 '&but this is not allowed with '// & 2772 2772 'NetCDF output switched on' 2773 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0)2773 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 ) 2774 2774 ELSE 2775 2775 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trnp' … … 2799 2799 '&but this is not allowed wi' // & 2800 2800 'th NetCDF output switched on' 2801 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0)2801 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 ) 2802 2802 ELSE 2803 2803 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trnpt' … … 2848 2848 '&but this is not allowed with ' // & 2849 2849 'NetCDF output switched on' 2850 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 0)2850 CALL message( 'advec_particles', 'PA0146', 2, 2, 0, 6, 1 ) 2851 2851 ELSE 2852 2852 ! WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trsp' … … 2876 2876 '&but this is not allowed wi'// & 2877 2877 'th NetCDF output switched on' 2878 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 0)2878 CALL message( 'advec_particles', 'PA0147', 2, 2, 0, 6, 1 ) 2879 2879 ELSE 2880 2880 ! WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trspt' … … 3079 3079 3080 3080 WRITE( message_string, * ) 'particle too fast. n = ', n 3081 CALL message( 'advec_particles', 'PA0148', 2, 2, 0, 6, 0)3081 CALL message( 'advec_particles', 'PA0148', 2, 2, 0, 6, 1 ) 3082 3082 ENDIF 3083 3083 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.