Changeset 708 for palm/trunk/SOURCE
- Timestamp:
- Mar 29, 2011 12:34:54 PM (14 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 14 edited
-
calc_spectra.f90 (modified) (1 diff)
-
check_parameters.f90 (modified) (1 diff)
-
exchange_horiz.f90 (modified) (1 diff)
-
exchange_horiz_2d.f90 (modified) (2 diffs)
-
header.f90 (modified) (1 diff)
-
init_3d_model.f90 (modified) (1 diff)
-
init_grid.f90 (modified) (2 diffs)
-
init_pegrid.f90 (modified) (2 diffs)
-
modules.f90 (modified) (1 diff)
-
poismg.f90 (modified) (2 diffs)
-
pres.f90 (modified) (2 diffs)
-
sor.f90 (modified) (1 diff)
-
time_integration.f90 (modified) (1 diff)
-
timestep.f90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/calc_spectra.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! bc_lr/ns replaced by bc_lr/ns_cyc 11 14 ! 12 15 ! 667 2010-12-23 12:06:00Z suehring/gryschka -
palm/trunk/SOURCE/check_parameters.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! setting of bc_lr/ns_dirrad/raddir6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 ! 11 ! 689 2011-02-20 19:31:12z gryschka 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! setting of bc_lr/ns_dirrad/raddir 14 ! 15 ! 689 2011-02-20 19:31:12z gryschka 12 16 ! Bugfix for some logical expressions 13 17 ! (syntax was not compatible with all compilers) -
palm/trunk/SOURCE/exchange_horiz.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! grid_level directly used as index for MPI data type arrays, 7 ! bc_lr/ns replaced by bc_lr/ns_cyc 6 ! 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! grid_level directly used as index for MPI data type arrays, 14 ! bc_lr/ns replaced by bc_lr/ns_cyc 11 15 ! 12 16 ! 689 2011-02-20 19:31:12z gryschka -
palm/trunk/SOURCE/exchange_horiz_2d.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc6 ! 7 7 ! 8 8 ! Former revisions: … … 10 10 ! $Id$ 11 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! bc_lr/ns replaced by bc_lr/ns_cyc 14 ! 12 15 ! 702 2011-03-24 19:33:15Z suehring 13 16 ! Bugfix in declaration of ar in exchange_horiz_2d_int and number of MPI-blocks -
palm/trunk/SOURCE/header.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! bc_lr/ns replaced by bc_lr/ns_cyc 11 14 ! 12 15 ! 667 2010-12-23 12:06:00Z suehring/gryschka -
palm/trunk/SOURCE/init_3d_model.f90
r707 r708 7 7 ! Current revisions: 8 8 ! ----------------- 9 ! 10 ! 11 ! Former revisions: 12 ! ----------------- 13 ! $Id$ 14 ! 15 ! 707 2011-03-29 11:39:40Z raasch 9 16 ! p_sub renamed p_loc and allocated depending on the chosen pressure solver, 10 17 ! initial assignments of zero to array p for iterative solvers only, 11 18 ! bc_lr/ns replaced by bc_lr/ns_dirrad/raddir 12 19 ! 13 ! Former revisions: 14 ! ----------------- 15 ! 680 2011-02-04 23:16:06Z gryschka $ 20 ! 680 2011-02-04 23:16:06Z gryschka 16 21 ! bugfix: volume_flow_control 17 22 ! -
palm/trunk/SOURCE/init_grid.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! bc_lr/ns replaced by bc_lr/ns_cyc 11 14 ! 12 15 ! 667 2010-12-23 12:06:00Z suehring/gryschka … … 540 543 541 544 ! 542 !-- Test output of nzb_local -1:ny+1,-1:nx+1543 ! WRITE (9,*) '*** nzb_local ***'544 ! DO j = ny+1, -1, -1545 ! WRITE (9,'(194(1X,I2))') ( nzb_local(j,i), i = -1, nx+1 )546 ! ENDDO547 548 !549 545 !-- Consistency checks and index array initialization are only required for 550 546 !-- non-flat topography, also the initialization of topography height arrays -
palm/trunk/SOURCE/init_pegrid.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc/dirrad/raddir6 ! 7 7 ! 8 8 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!! … … 12 12 ! ----------------- 13 13 ! $Id$ 14 ! 15 ! 707 2011-03-29 11:39:40Z raasch 16 ! bc_lr/ns replaced by bc_lr/ns_cyc/dirrad/raddir 14 17 ! 15 18 ! 667 2010-12-23 12:06:00Z suehring/gryschka -
palm/trunk/SOURCE/modules.f90
r707 r708 5 5 ! Current revisions: 6 6 ! ----------------- 7 ! 8 ! 9 ! Former revisions: 10 ! ----------------- 11 ! $Id$ 12 ! 13 ! 707 2011-03-29 11:39:40Z raasch 7 14 ! +bc_lr_dirrad, bc_lr_raddir, bc_ns_dirrad, bc_ns_raddir, left_border_pe, 8 15 ! north_border_pe, right_border_pe, south_border_pe 9 16 ! p_sub renamed p_loc 10 !11 ! Former revisions:12 ! -----------------13 ! $Id$14 17 ! 15 18 ! 683 2011-02-09 14:25:15Z raasch -
palm/trunk/SOURCE/poismg.f90
r707 r708 7 7 ! Current revisions: 8 8 ! ----------------- 9 ! 10 ! 11 ! Former revisions: 12 ! ----------------- 13 ! $Id$ 14 ! 15 ! 707 2011-03-29 11:39:40Z raasch 9 16 ! p_loc is used instead of p in the main routine (poismg). 10 17 ! On coarse grid levels, gathered data are identically processed on all PEs … … 15 22 ! resid and restrict. They were missed before which may have led to 16 23 ! unpredictable results. 17 !18 ! Former revisions:19 ! -----------------20 ! $Id$21 24 ! 22 25 ! 667 2010-12-23 12:06:00Z suehring/gryschka -
palm/trunk/SOURCE/pres.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 7 ! 8 ! Former revisions: 9 ! ----------------- 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 6 13 ! Calculation of weighted average of p is now handled in the same way 7 14 ! regardless of the number of ghost layers (advection scheme), … … 10 17 ! localsum calculation modified for proper OpenMP reduction, 11 18 ! bc_lr/ns replaced by bc_lr/ns_cyc 12 !13 ! Former revisions:14 ! -----------------15 ! $Id$16 19 ! 17 20 ! 693 2011-03-08 09:..:..Z raasch -
palm/trunk/SOURCE/sor.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! bc_lr/ns replaced by bc_lr/ns_cyc 11 14 ! 12 15 ! 667 2010-12-23 12:06:00Z suehring/gryschka -
palm/trunk/SOURCE/time_integration.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc, 7 ! calls of exchange_horiz are modified, 8 ! adaption to slooping surface, 6 ! 9 7 ! 10 8 ! Former revisions: 11 9 ! ----------------- 12 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! bc_lr/ns replaced by bc_lr/ns_cyc, calls of exchange_horiz are modified, 14 ! adaption to sloping surface 13 15 ! 14 16 ! 667 2010-12-23 12:06:00Z suehring/gryschka -
palm/trunk/SOURCE/timestep.f90
r707 r708 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc6 ! 7 7 ! 8 8 ! Former revisions: 9 9 ! ----------------- 10 10 ! $Id$ 11 ! 12 ! 707 2011-03-29 11:39:40Z raasch 13 ! bc_lr/ns replaced by bc_lr/ns_cyc 11 14 ! 12 15 ! 667 2010-12-23 12:06:00Z suehring/gryschka
Note: See TracChangeset
for help on using the changeset viewer.
