Changeset 3883 for palm/trunk/SOURCE/pmc_particle_interface.f90
 Timestamp:
 Apr 10, 2019 12:51:50 PM (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/pmc_particle_interface.f90
r3655 r3883 26 26 ! ! 27 27 ! $Id$ 28 ! Function get_number_of_childs renamed to get_number_of_children and cg 29 ! renamed to pg according to their definitions in pmc_interface_mod 30 ! 31 ! 3655 20190107 16:51:22Z knoop 28 32 ! unused variables removed 29 33 ! … … 102 106 103 107 USE pmc_interface, & 104 ONLY: cpl_id, get_number_of_child s, nr_part, part_adr, nested_run,&105 get_childid, get_child_edges, nr_partc, part_adrc,&106 coarse_bound, coord_x, coord_y, cg, get_child_gridspacing,&108 ONLY: cpl_id, get_number_of_children, nr_part, part_adr, nested_run, & 109 get_childid, get_child_edges, nr_partc, part_adrc, & 110 coarse_bound, coord_x, coord_y, pg, get_child_gridspacing, & 107 111 lower_left_coord_x, lower_left_coord_y 108 112 … … 199 203 #if defined( __parallel ) 200 204 201 nr_childs = get_number_of_child s()205 nr_childs = get_number_of_children() 202 206 ! 203 207 ! Check if the current model has child models … … 293 297 ! 294 298 ! If the model has child models prepare the structures for transfer 295 nr_childs = get_number_of_child s()299 nr_childs = get_number_of_children() 296 300 IF ( nr_childs > 0 ) THEN 297 301 ALLOCATE( particle_win_parent(nr_childs) ) … … 452 456 ! 453 457 ! compute number of fine grid cells in coarse grid (one direction) 454 xx = ( cg%dx + eps) / dx ! +eps to avoid rounding error455 yy = ( cg%dy + eps) / dy458 xx = ( pg%dx + eps ) / dx ! +eps to avoid rounding error 459 yy = ( pg%dy + eps ) / dy 456 460 nr_fine_in_coarse = MAX( INT(xx), INT(yy) ) 457 461 458 IF ( MOD( coord_x(0), cg%dx ) /= 0.0 .OR. MOD( coord_y(0), cg%dy ) /= 0.0 ) THEN462 IF ( MOD( coord_x(0), pg%dx ) /= 0.0 .OR. MOD( coord_y(0), pg%dy ) /= 0.0 ) THEN 459 463 nr_fine_in_coarse = nr_fine_in_coarse + 1 460 464 ENDIF … … 555 559 TYPE(pedef), POINTER :: ape !< TO_DO Klaus: give a description and better name of the variable 556 560 557 DO m = 1, get_number_of_child s()561 DO m = 1, get_number_of_children() 558 562 559 563 child_id = get_childid(m) … … 664 668 665 669 #if defined( __parallel ) 666 DO m = 1, get_number_of_child s()670 DO m = 1, get_number_of_children() 667 671 668 672 child_id = get_childid(m) … … 728 732 729 733 #if defined( __parallel ) 730 DO m = 1, get_number_of_child s()734 DO m = 1, get_number_of_children() 731 735 CALL get_child_edges( m, lx_coord, lx_coord_b, rx_coord, rx_coord_b, & 732 736 sy_coord, sy_coord_b, ny_coord, ny_coord_b, & … … 1047 1051 1048 1052 IF ( boundary_particle ) THEN 1049 ic = x / cg%dx !TODO anpassen auf Mehrfachnesting1050 jc = y / cg%dy1053 ic = x / pg%dx !TODO anpassen auf Mehrfachnesting 1054 jc = y / pg%dy 1051 1055 1052 1056 IF ( ic >= icl .AND. ic <= icr .AND. jc >= jcs .AND. jc <= jcn ) THEN
Note: See TracChangeset
for help on using the changeset viewer.