Changeset 668 for palm


Ignore:
Timestamp:
Dec 23, 2010 1:22:58 PM (13 years ago)
Author:
suehring
Message:

last commit documented

Location:
palm/trunk/SOURCE
Files:
59 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r667 r668  
    44# Current revisions:
    55# ------------------
    6 # +advec_ws
    76#
    87# Former revisions:
    98# -----------------
    109# $Id$
     10#
     11# 667 2010-12-23 12:06:00Z suehring/gryschka
     12# +advec_ws
    1113#
    1214# 421 2010-01-25 15:50:10Z raasch
  • palm/trunk/SOURCE/advec_particles.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
     6!
     7! Former revisions:
     8! -----------------
     9! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
    612! Declaration of de_dx, de_dy, de_dz adapted to additional
    713! ghost points. Furthermore the calls of exchange_horiz were modified.
    814!
    9 ! TEST: PRINT statements on unit 9 (commented out)
    10 !
    11 ! Former revisions:
    12 ! -----------------
    13 ! $Id$
    1415!
    1516! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/advec_ws.f90

    r667 r668  
    1313!
    1414! Initial revision
     15!
     16! 411 2009-12-11 12:31:43 Z suehring
    1517!
    1618! Description:
  • palm/trunk/SOURCE/average_3d_data.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 367 2009-08-25 08:35:52Z maronga
  • palm/trunk/SOURCE/boundary_conds.f90

    r667 r668  
    55! -----------------
    66!
    7 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    8 !
    9 !
    10 ! Removed mirror boundary conditions for u and v at the bottom in case of
    11 ! ibc_uv_b == 0. Instead, dirichelt boundary conditions (u=v=0) are set
    12 ! in init_3d_model
    137
    148! Former revisions:
    159! -----------------
    1610! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
     13! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
     14! Removed mirror boundary conditions for u and v at the bottom in case of
     15! ibc_uv_b == 0. Instead, dirichelt boundary conditions (u=v=0) are set
     16! in init_3d_model
    1717!
    1818! 107 2007-08-17 13:54:45Z raasch
  • palm/trunk/SOURCE/calc_liquid_water_content.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gyschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 95 2007-06-02 16:48:38Z raasch
  • palm/trunk/SOURCE/calc_spectra.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng for allocation
    7 ! of tend
    86!
    97! Former revisions:
    108! -----------------
    119! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng for allocation
     13! of tend
    1214!
    1315! 274 2009-03-26 15:11:21Z heinze
  • palm/trunk/SOURCE/check_for_restart.f90

    r667 r668  
    55! -----------------
    66!
    7 ! Exchange of terminate_coupled between ocean and atmosphere by PE0
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
     13! Exchange of terminate_coupled between ocean and atmosphere by PE0
    1214!
    1315! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/check_open.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Output of total array size was adapted to nbgp.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Output of total array size was adapted to nbgp.
    1113!
    1214! 600 2010-11-24 16:10:51Z raasch
  • palm/trunk/SOURCE/check_parameters.f90

    r667 r668  
    55! -----------------
    66!
    7 !
     7!
     8! Former revisions:
     9! -----------------
     10! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
    813! Exchange of parameters between ocean and atmosphere via PE0
    914! Check for illegal combination of ws-scheme and timestep scheme.
     
    1217! loop_optimization = 'vector'.
    1318! Check for call_psolver_at_all_substeps and ws-scheme for momentum_advec.
    14 !
    1519! Different processor/grid topology in atmosphere and ocean is now allowed!
    16 !
    1720! Bugfixes in checking for conserve_volume_flow_mode
    18 !
    19 ! Adapt error messages.
    20 !
    21 ! Former revisions:
    22 ! -----------------
    23 ! $Id$
    24 !
    2521! 600 2010-11-24 16:10:51Z raasch
    2622! change due to new default value of surface_waterflux
    27 !
    2823! 580 2010-10-05 13:59:11Z heinze
    2924! renaming of ws_vertical_gradient_level to subs_vertical_gradient_level
  • palm/trunk/SOURCE/data_output_2d.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
     6!
     7! Former revisions:
     8! -----------------
     9! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
    612! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng in loops and
    713! allocation of arrays local_2d and total_2d.
    814! Calls of exchange_horiz are modiefied.
    9 !
    10 ! Former revisions:
    11 ! -----------------
    12 ! $Id$
    1315!
    1416! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/data_output_3d.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
     6!
     7! Former revisions:
     8! -----------------
     9! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
    612! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng in loops and
    713! allocation of arrays.  Calls of exchange_horiz are modified.
    814! Skip-value skip_do_avs changed to a dynamic adaption of ghost points.
    9 !
    10 ! Former revisions:
    11 ! -----------------
    12 ! $Id$
    1315!
    1416! 646 2010-12-15 13:03:52Z raasch
  • palm/trunk/SOURCE/data_output_mask.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Calls of exchange_horiz are modified.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Calls of exchange_horiz are modified.
    1113!
    1214! 564 2010-09-30 13:18:59Z helmke
  • palm/trunk/SOURCE/diffusion_e.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 97 2007-06-21 08:23:15Z raasch
  • palm/trunk/SOURCE/diffusion_s.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 183 2008-08-04 15:39:12Z letzel
  • palm/trunk/SOURCE/diffusion_u.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 366 2009-08-25 08:06:27Z raasch
  • palm/trunk/SOURCE/diffusion_v.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 366 2009-08-25 08:06:27Z raasch
  • palm/trunk/SOURCE/diffusion_w.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 366 2009-08-25 08:06:27Z raasch
  • palm/trunk/SOURCE/diffusivities.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 137 2007-11-28 08:50:10Z letzel
  • palm/trunk/SOURCE/disturb_field.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    7 ! Calls of exchange_horiz are modified.
    86!
    97! Former revisions:
    108! -----------------
    119! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
     13! Calls of exchange_horiz are modified.
    1214!
    1315! 420 2010-01-13 15:10:53Z franke
  • palm/trunk/SOURCE/exchange_horiz.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
     6!
     7! Former revisions:
     8! -----------------
     9! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
    612! Dynamic exchange of ghost points with nbgp_local to ensure that no useless
    713! ghost points exchanged in case of multigrid. type_yz(0) and type_xz(0)
     
    915! Exchange is done via MPI-Vectors with a dynamic value of ghost points which
    1016! depend on the advection scheme. Exchange of left and right PEs is 10% faster
    11 ! with MPI-Vectors than without.
    12 !
    13 ! Former revisions:
    14 ! -----------------
    15 ! $Id$
     17! with MPI-Vectors than without.
    1618!
    1719! 75 2007-03-22 09:54:05Z raasch
  • palm/trunk/SOURCE/exchange_horiz_2d.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Dynamic exchange of ghost points with nbgp, which depends on the advection
    7 ! scheme. Exchange between left and right PEs is now done with MPI-vectors.
    86!
    97! Former revisions:
    108! -----------------
    119! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Dynamic exchange of ghost points with nbgp, which depends on the advection
     13! scheme. Exchange between left and right PEs is now done with MPI-vectors.
    1214!
    1315! 73 2007-03-20 08:33:14Z raasch
  • palm/trunk/SOURCE/flow_statistics.f90

    r667 r668  
    1818! -----------------
    1919! $Id$
     20!
     21! 667 2010-12-23 12:06:00Z suehring/gryschka
     22! When advection is computed with ws-scheme, turbulent fluxes are already
     23! computed in the respective advection routines and buffered in arrays
     24! sums_xx_ws_l(). This is due to a consistent treatment of statistics with the
     25! numerics and to avoid unphysical kinks near the surface.
     26! So some if requests has to be done to dicern between fluxes from ws-scheme
     27! other advection schemes.
     28! Furthermore the computation of z_i is only done if the heat flux exceeds a
     29! minimum value. This affects only simulations of a neutral boundary layer and
     30! is due to reasons of computations in the advection scheme.
    2031!
    2132! 624 2010-12-10 11:46:30Z heinze
  • palm/trunk/SOURCE/global_min_max.f90

    r667 r668  
    55! Current revisions:
    66! -----------------
    7 ! Adapting of the index arrays, because MINLOC assumes lowerbound at 1 and not
    8 ! at nbgp.
    97!
    108! Former revisions:
    119! -----------------
    1210! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
     13! Adapting of the index arrays, because MINLOC assumes lowerbound at 1 and not
     14! at nbgp.
    1315!
    1416! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/header.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Output of advection scheme.
    7 ! Modified output of Prandtl-layer height.
    86!
    97! Former revisions:
    108! -----------------
    119! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Output of advection scheme.
     13! Modified output of Prandtl-layer height.
    1214!
    1315! 580 2010-10-05 13:59:11Z heinze
  • palm/trunk/SOURCE/inflow_turbulence.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Using nbgp recycling planes for a better resolution of the turbulent flow
    7 ! near the inflow.
    86!
    97! Former revisions:
    108! -----------------
    119! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Using nbgp recycling planes for a better resolution of the turbulent flow
     13! near the inflow.
    1214!
    1315! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/init_1d_model.f90

    r667 r668  
    99! -----------------
    1010! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
     13! replaced mirror boundary conditions for u and v  at the ground
     14! by dirichlet boundary conditions
    1115!
    1216! 254 2009-03-05 15:33:42Z heinze
  • palm/trunk/SOURCE/init_3d_model.f90

    r667 r668  
    77! Current revisions:
    88! -----------------
     9!
     10! Former revisions:
     11! -----------------
     12! $Id$
     13!
     14! 667 2010-12-23 12:06:00Z suehring/gryschka
    915! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng in loops and
    1016! allocation of arrays. Calls of exchange_horiz are modified.
    1117! Call ws_init to initialize arrays needed for statistical evaluation and
    1218! optimization when ws-scheme is used.
    13 !
    14 !
    1519! Initial volume flow is now calculated by using the variable hom_sum.
    1620! Therefore the correction of initial volume flow for non-flat topography
    1721! removed (removed u_nzb_p1_for_vfc and v_nzb_p1_for_vfc)
    18 !
    1922! Changed surface boundary conditions for u and v in case of ibc_uv_b == 0 from
    2023! mirror bc to dirichlet boundary conditions (u=v=0), so that k=nzb is
    2124! representative for the height z0
    22 !
    2325! Bugfix: type conversion of '1' to 64bit for the MAX function (ngp_3d_inner)
    24 !
    25 ! Former revisions:
    26 ! -----------------
    27 ! $Id$
    2826!
    2927! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/init_coupling.f90

    r667 r668  
    55! -----------------
    66!
    7 ! determination of target_id's moved to init_pegrid
    8 !
    97!
    108! Former revisions:
    119! ------------------
    1210! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
     13! determination of target_id's moved to init_pegrid
    1314!
    1415! 291 2009-04-16 12:07:26Z raasch
  • palm/trunk/SOURCE/init_grid.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
     6!
     7! Former revisions:
     8! -----------------
     9! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
    612! Definition of new array bounds nxlg, nxrg, nysg, nyng on each PE.
    713! Furthermore the allocation of arrays and steering of loops is done with these
     
    1016! dzu_mg has to be set explicitly for a equally spaced grid near bottom.
    1117! ddzu_pres added to use a equally spaced grid near bottom.
    12 !
    13 ! Former revisions:
    14 ! -----------------
    15 ! $Id$
    1618!
    1719! 555 2010-09-07 07:32:53Z raasch
  • palm/trunk/SOURCE/init_particles.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng for allocation
    7 ! of arrays.
    86!
    97! Former revisions:
    108! -----------------
    119! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng for allocation
     13! of arrays.
    1214!
    1315! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/init_pegrid.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 !
     6!
     7! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
     8! TEST OUTPUT (TO BE REMOVED) logging mpi2 ierr values
     9!
     10! Former revisions:
     11! -----------------
     12! $Id$
     13!
     14! 667 2010-12-23 12:06:00Z suehring/gryschka
    715! Moved determination of target_id's from init_coupling
    816!
     
    1018! with different grid/processor-topology in ocean and atmosphere
    1119!
    12 !
    1320! Adaption of ngp_xy, ngp_y to a dynamic number of ghost points.
    1421! The maximum_grid_level changed from 1 to 0. 0 is the normal grid, 1 to
     
    1926! New MPI-Vectors for data exchange between left and right boundaries added.
    2027! This is due to reasons of performance (10% faster).
    21 !
    22 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
    23 ! TEST OUTPUT (TO BE REMOVED) logging mpi2 ierr values
    24 !
    25 ! Former revisions:
    26 ! -----------------
    27 ! $Id$
    2828!
    2929! 646 2010-12-15 13:03:52Z raasch
  • palm/trunk/SOURCE/init_pt_anomaly.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Call of exchange_horiz are modified.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Call of exchange_horiz are modified.
    1113!
    1214! 75 2007-03-22 09:54:05Z raasch
  • palm/trunk/SOURCE/init_rankine.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    7 ! Calls of exchange_horiz are modified.
    86!
    97! Former revisions:
    108! -----------------
    119! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
     13! Calls of exchange_horiz are modified.
    1214!
    1315! 107 2007-08-17 13:54:45Z raasch
  • palm/trunk/SOURCE/init_slope.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    1113!
    1214! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/local_stop.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Exchange of terminate_coupled between ocean and atmosphere via PE0
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Exchange of terminate_coupled between ocean and atmosphere via PE0
    1113!
    1214! 213 2008-11-13 10:26:18Z raasch
  • palm/trunk/SOURCE/modules.f90

    r667 r668  
    66! -----------------
    77!
     8! Former revisions:
     9! -----------------
     10! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
    813! Removed u_nzb_p1_for_vfc and v_nzb_p1_for_vfc
    9 !
    1014! For coupling with different resolution in ocean and atmophere:
    1115! +nx_a, +nx_o, ny_a, +ny_o, ngp_a, ngp_o, +total_2d_o, +total_2d_a,
    1216! +coupling_topology
    13 !
    14 !
    1517! Buffer arrays for the left sided advective fluxes added in arrays_3d.
    1618! +flux_s_u, +flux_s_v, +flux_s_w, +diss_s_u, +diss_s_v, +diss_s_w,
     
    3436! LOGICAL +dissipation_control control added to steer numerical dissipation
    3537! in ws-scheme.
    36 !
    37 !
    3838! Changed length of string run_description_header
    39 !
    40 ! Former revisions:
    41 ! -----------------
    42 ! $Id$
    4339!
    4440! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/parin.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! Steering parameter dissipation_control added in inipar. (commented out)
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Steering parameter dissipation_control added in inipar. (commented out)
    1113!
    1214! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/poisfft.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! ddzu replaced by ddzu_pres due to changes in zu(0).
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! ddzu replaced by ddzu_pres due to changes in zu(0)
    1113!
    1214! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/poisfft_hybrid.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! ddzu replaced by ddzu_pres due to changes in zu(0).
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! ddzu replaced by ddzu_pres due to changes in zu(0)
    1113!
    1214! 415 2009-12-15 10:26:23Z raasch
  • palm/trunk/SOURCE/poismg.f90

    r667 r668  
    88! Current revisions:
    99! -----------------
    10 ! Calls of exchange_horiz are modified.
    1110!
    1211! Former revisions:
    1312! -----------------
    1413! $Id$
     14!
     15! 667 2010-12-23 12:06:00Z suehring/gryschka
     16! Calls of exchange_horiz are modified.
    1517!
    1618! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/prandtl_fluxes.f90

    r667 r668  
    55! -----------------
    66!
    7 ! Changed surface boundary conditions for u and v from mirror bc to dirichelt bc,
    8 ! therefore u(uzb,:,:) and v(nzb,:,:) is now representative for the height z0
    9 !
    10 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    11 !
    127! Former revisions:
    138! -----------------
    149! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! Changed surface boundary conditions for u and v from mirror bc to dirichelt bc,
     13! therefore u(uzb,:,:) and v(nzb,:,:) is now representative for the height z0
     14! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1515!
    1616! 315 2009-05-13 10:57:59Z raasch
  • palm/trunk/SOURCE/pres.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
     6!
     7! Former revisions:
     8! -----------------
     9! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
    612! New allocation of tend when ws-scheme and multigrid is used. This is due to
    713! reasons of perforance of the data_exchange. The same is done with p after
     
    915! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng when no
    1016! multigrid is used. Calls of exchange_horiz are modified.
    11 !
    1217! bugfix: After pressure correction no volume flow correction in case of
    1318! non-cyclic boundary conditions
    1419! (has to be done only before pressure correction)
    15 !
    1620! Call of SOR routine is referenced with ddzu_pres.
    17 !
    18 ! Former revisions:
    19 ! -----------------
    20 ! $Id$
    2121!
    2222! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/production_e.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 449 2010-02-02 11:23:59Z raasch
  • palm/trunk/SOURCE/prognostic_equations.f90

    r667 r668  
    1111! -----------------
    1212! $Id$
     13!
     14! 667 2010-12-23 12:06:00Z suehring/gryschka
     15! Calls of the advection routines with WS5 added.
     16! Calls of ws_statistics added to set the statistical arrays to zero after each
     17! time step.
    1318!
    1419! 531 2010-04-21 06:47:21Z heinze
  • palm/trunk/SOURCE/read_3d_binary.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
     6!
     7! Former revisions:
     8! -----------------
     9! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
    612! +/- 1 replaced with +/- nbgp when swapping and allocating variables.
    713! Bugfix: When using initializing_actions = 'cyclic_fill' in some cases
    814! not the whole model domain was filled with data of the prerun.
    9 !
    10 ! Former revisions:
    11 ! -----------------
    12 ! $Id$
    1315!
    1416! 410 2009-12-04 17:05:40Z letzel
  • palm/trunk/SOURCE/sor.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    7 ! Call of exchange_horiz are modified.
    8 ! bug removed in declaration of ddzw(), nz replaced by nzt+1
    96!
    107! Former revisions:
    118! -----------------
    129! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
     13! Call of exchange_horiz are modified.
     14! bug removed in declaration of ddzw(), nz replaced by nzt+1
    1315!
    1416! 75 2007-03-22 09:54:05Z raasch
  • palm/trunk/SOURCE/subsidence.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 580 2010-10-05 13:59:11Z heinze
  • palm/trunk/SOURCE/sum_up_3d_data.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 !  nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 402 2009-10-21 11:59:41Z maronga
  • palm/trunk/SOURCE/surface_coupler.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 !
    7 ! additional case for nonequivalent processor and grid topopolgy in ocean and
    8 ! atmosphere added (coupling_topology = 1)
    9 !
    10 !
    11 ! Added exchange of u and v from Ocean to Atmosphere
    12 !
    136!
    147! Former revisions:
    158! ------------------
    169! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! additional case for nonequivalent processor and grid topopolgy in ocean and
     13! atmosphere added (coupling_topology = 1)
     14! Added exchange of u and v from Ocean to Atmosphere
    1715!
    1816! 291 2009-04-16 12:07:26Z raasch
  • palm/trunk/SOURCE/time_integration.f90

    r667 r668  
    1010! -----------------
    1111! $Id$
     12!
     13! 667  2010-12-23 12:06:00Z suehring/gryschka
     14! Calls of exchange_horiz are modified.
     15! Adaption to slooping surface.
    1216!
    1317! 449 2010-02-02 11:23:59Z raasch
  • palm/trunk/SOURCE/timestep.f90

    r667 r668  
    66!
    77!
    8 ! Exchange of terminate_coupled between ocean and atmosphere via PE0
    9 !
    10 ! Minimum grid spacing dxyz2_min(k) is now calculated using dzw instead of dzu
    11 !
    12 !
    138! Former revisions:
    149! -----------------
    1510! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
     13! Exchange of terminate_coupled between ocean and atmosphere via PE0
     14! Minimum grid spacing dxyz2_min(k) is now calculated using dzw instead of dzu
    1615!
    1716! 622 2010-12-10 08:08:13Z raasch
  • palm/trunk/SOURCE/user_actions.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 258 2009-03-13 12:36:03Z heinze
  • palm/trunk/SOURCE/user_data_output_2d.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 343 2009-06-24 12:59:09Z maronga
  • palm/trunk/SOURCE/user_data_output_3d.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 211 2008-11-11 04:46:24Z raasch
  • palm/trunk/SOURCE/user_init.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 211 2008-11-11 04:46:24Z raasch
  • palm/trunk/SOURCE/user_init_plant_canopy.f90

    r667 r668  
    44! Current revisions:
    55! -----------------
    6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
    76!
    87! Former revisions:
    98! -----------------
    109! $Id$
     10!
     11! 667 2010-12-23 12:06:00Z suehring/gryschka
     12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    1113!
    1214! 274 2009-03-26 15:11:21Z heinze
  • palm/trunk/SOURCE/user_read_restart_data.f90

    r667 r668  
    77! Current revisions:
    88! -----------------
    9 ! Allocation with nbgp.
    109!
    1110! Former revisions:
    1211! -----------------
    1312! $Id$
     13!
     14! 667 2010-12-23 12:06:00Z suehring/gryschka
     15! Allocation with nbgp
    1416!
    1517! 583 2010-10-11 09:28:42Z heinze
  • palm/trunk/SOURCE/write_compressed.f90

    r667 r668  
    55! Current revisions:
    66! -----------------
    7 ! Array bounds and nx, ny adapted with nbgp.
    87!
    98! Former revisions:
    109! ---------------------
    1110! $Id$
     11!
     12! 667 2010-12-23 12:06:00Z suehring/gryschka
     13! Array bounds and nx, ny adapted with nbgp
    1214!
    1315! 622 2010-12-10 08:08:13Z raasch
Note: See TracChangeset for help on using the changeset viewer.