Changeset 39


Ignore:
Timestamp:
Mar 1, 2007 12:46:59 PM (14 years ago)
Author:
raasch
Message:

comments prepared for 3.1c

Location:
palm/trunk/SOURCE
Files:
29 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r34 r39  
    33
    44A heatflux can be prescribed at the top with new inipar parameters
    5 top_heatflux and use_top_fluxes. New 2d-arrays tsws and tswst are used to
    6 store this flux. A Neumann boundary condition for
    7 temperature can be applied under these conditions.
     5top_heatflux and use_top_fluxes. New 2d-arrays qswst, qswst_m, tswst and
     6tswst_m are used to store this flux. Use of fluxes are controlled with new
     7index variable nzt_diff. A Neumann boundary condition for
     8temperature can be applied under these conditions. Additionally, a Dirichlet
     9condition for temperature can be used at the top.
    810
    9 modules.f90
     11check_parameters, diffusion_s, flow_statistics, header, init_grid,
     12init_3d_model, modules, parin,
     13production_e, prognostic_equations, read_var_list, read_3d_binary,
     14swap_timelevel, write_var_list, write_3d_binary
    1015
    1116
     
    1419
    1520Prognostic equations for all scalars are now solved up to gridpoint nzt
    16 (formerly nzt-1).
     21(formerly nzt-1). Boundary conditions for scalars at top adjusted respectively
     22(now applied only at nzt+1).
    1723
    1824The default top boundary condition for temperature has been renamed to
    1925"initial gradient".
    2026
    21 modules.f90
     27dvrp_output_local, which was commented out for a long time, is now activated
     28for all streams.
     29
     30advec_s_pw, boundary_conds, calc_precipitation, check_parameters, diffusion_e,
     31diffusion_s, impact_of_latent_heat, init_dvrp,
     32init_pt_anomaly, modules, production_e, prognostic_equations, spline_z
    2233
    2334
     
    2637
    2738Bugfix: 3d-array p is not a pointer any more.
     39
     40Bugfix in init_particles: MPI_REAL in MPI_ALLREDUCE replaced by
     41MPI_INTEGER (caused error on NEC only)
     42
     43Bugfix:  ddzw dimensioned 1:nzt"+1"
     44
     45diffusion_e, diffusion_s, diffusion_u, diffusion_v, diffusion_w,
     46init_particles, modules
  • palm/trunk/SOURCE/advec_particles.f90

    r16 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: wrong if-clause from revision 1.32
    76! TEST: PRINT statements on unit 9 (commented out)
    87!
     
    109! -----------------
    1110! $Id$
     11!
     12! 16 2007-02-15 13:16:47Z raasch
     13! Bugfix: wrong if-clause from revision 1.32
     14!
     15! r4 | raasch | 2007-02-13 12:33:16 +0100 (Tue, 13 Feb 2007)
    1216! RCS Log replace by Id keyword, revision history cleaned up
    1317!
  • palm/trunk/SOURCE/advec_s_pw.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Calculation extended for gridpoint nzt
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Calculation extended for gridpoint nzt
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/boundary_conds.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Boundary conditions for e(nzt), pt(nzt), and q(nzt) removed because these
    7 ! values are now calculated by the prognostic equation,
    8 ! Dirichlet and zero gradient condition for pt established at top boundary
     6!
    97!
    108! Former revisions:
    119! -----------------
    1210! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Boundary conditions for e(nzt), pt(nzt), and q(nzt) removed because these
     14! gridpoints are now calculated by the prognostic equation,
     15! Dirichlet and zero gradient condition for pt established at top boundary
     16!
    1317! RCS Log replace by Id keyword, revision history cleaned up
    1418!
  • palm/trunk/SOURCE/calc_liquid_water_content.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Old comment removed
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Old comment removed
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/calc_precipitation.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Calculation extended for gridpoint nzt
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Calculation extended for gridpoint nzt
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/check_parameters.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Temperature and humidity gradients at top are now calculated for nzt+1,
    7 ! top_heatflux and respective boundary condition bc_pt_t is checked
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! Temperature and humidity gradients at top are now calculated for nzt+1,
     14! top_heatflux and respective boundary condition bc_pt_t is checked
     15!
    1216! RCS Log replace by Id keyword, revision history cleaned up
    1317!
  • palm/trunk/SOURCE/diffusion_e.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: ddzw dimensioned 1:nzt"+1"
    7 ! Calculation extended for gridpoint nzt
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! Bugfix: ddzw dimensioned 1:nzt"+1"
     14! Calculation extended for gridpoint nzt
     15!
    1216! RCS Log replace by Id keyword, revision history cleaned up
    1317!
  • palm/trunk/SOURCE/diffusion_s.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: ddzw dimensioned 1:nzt"+1"
    7 ! Calculation extended for gridpoint nzt, fluxes can be given at top,
    8 ! +s_flux_t in parameter list, s_flux renamed s_flux_b,
     6!
    97!
    108! Former revisions:
    119! -----------------
    1210! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! Bugfix: ddzw dimensioned 1:nzt"+1"
     14! Calculation extended for gridpoint nzt, fluxes can be given at top,
     15! +s_flux_t in parameter list, s_flux renamed s_flux_b
     16!
    1317! RCS Log replace by Id keyword, revision history cleaned up
    1418!
  • palm/trunk/SOURCE/diffusion_u.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: ddzw dimensioned 1:nzt"+1"
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! Bugfix: ddzw dimensioned 1:nzt"+1"
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/diffusion_v.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: ddzw dimensioned 1:nzt"+1"
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! Bugfix: ddzw dimensioned 1:nzt"+1"
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/diffusion_w.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: ddzw dimensioned 1:nzt"+1"
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! Bugfix: ddzw dimensioned 1:nzt"+1"
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/flow_statistics.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! fluxes at top modified (tswst, qswst)
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11! fluxes at top modified (tswst, qswst)
     12!
     13! 19 2007-02-23 04:53:48Z raasch
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/header.f90

    r19 r39  
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Output of scalar flux applied at top boundary
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/impact_of_latent_heat.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Calculation extended for gridpoint nzt
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11! Calculation extended for gridpoint nzt
     12!
     13! 19 2007-02-23 04:53:48Z raasch
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/init_3d_model.f90

    r19 r39  
    77! Actual revisions:
    88! -----------------
    9 ! +handling of top fluxes
     9!
    1010!
    1111! Former revisions:
    1212! -----------------
    1313! $Id$
     14!
     15! 19 2007-02-23 04:53:48Z raasch
     16! +handling of top fluxes
     17!
    1418! RCS Log replace by Id keyword, revision history cleaned up
    1519!
  • palm/trunk/SOURCE/init_dvrp.f90

    r17 r39  
    1111! -----------------
    1212! $Id$
     13!
     14! 17 2007-02-19 01:57:39Z raasch
    1315! dvrp_output_local activated for all streams
    1416!
  • palm/trunk/SOURCE/init_grid.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Setting of nzt_diff
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Setting of nzt_diff
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/init_particles.f90

    r16 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: MPI_REAL in MPI_ALLREDUCE replaced by MPI_INTEGER
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 16 2007-02-15 13:16:47Z raasch
     13! Bugfix: MPI_REAL in MPI_ALLREDUCE replaced by MPI_INTEGER
     14!
     15! r4 | raasch | 2007-02-13 12:33:16 +0100 (Tue, 13 Feb 2007)
    1116! RCS Log replace by Id keyword, revision history cleaned up
    1217!
  • palm/trunk/SOURCE/init_pt_anomaly.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Calculation extended for gridpoint nzt
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Calculation extended for gridpoint nzt
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/parin.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! +top_heatflux, use_top_fluxes in inipar
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! +top_heatflux, use_top_fluxes in inipar
     14!
    1115! -netcdf_64bit_3d
    1216!
  • palm/trunk/SOURCE/production_e.f90

    r37 r39  
    44! Actual revisions:
    55! -----------------
     6!
     7!
     8! Former revisions:
     9! -----------------
     10! $Id$
     11!
     12! 37 2007-03-01 08:33:54Z raasch
    613! Calculation extended for gridpoint nzt, extended for given temperature /
    714! humidity fluxes at the top, wall-part is now executed in case that a
    815! Prandtl-layer is switched on (instead of surfaces fluxes switched on)
    916!
    10 ! Former revisions:
    11 ! -----------------
    12 ! $Id$
    1317! RCS Log replace by Id keyword, revision history cleaned up
    1418!
  • palm/trunk/SOURCE/prognostic_equations.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Calculation of e, q, and pt extended for gridpoint nzt,
    7 ! handling of given temperature/humidity/scalar fluxes at top surface
     6!
    87!
    98! Former revisions:
    109! -----------------
    1110! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Calculation of e, q, and pt extended for gridpoint nzt,
     14! handling of given temperature/humidity/scalar fluxes at top surface
     15!
    1216! RCS Log replace by Id keyword, revision history cleaned up
    1317!
  • palm/trunk/SOURCE/read_3d_binary.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! +qswst, qswst_m, tswst, tswst_m
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11! +qswst, qswst_m, tswst, tswst_m
     12!
     13! 19 2007-02-23 04:53:48Z raasch
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/read_var_list.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! +top_heatflux, use_top_fluxes
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! +top_heatflux, use_top_fluxes
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/spline_z.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Boundary condition for pt at top adjusted
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Boundary condition for pt at top adjusted
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/swap_timelevel.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! Swaping of top fluxes
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! Swaping of top fluxes
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/write_3d_binary.f90

    r19 r39  
    44! Actual revisions:
    55! -----------------
    6 ! +qswst, qswst_m, tswst, tswst_m
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 19 2007-02-23 04:53:48Z raasch
     13! +qswst, qswst_m, tswst, tswst_m
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
  • palm/trunk/SOURCE/write_var_list.f90

    r20 r39  
    44! Actual revisions:
    55! -----------------
    6 ! +top_heatflux, use_top_fluxes
     6!
    77!
    88! Former revisions:
    99! -----------------
    1010! $Id$
     11!
     12! 20 2007-02-26 00:12:32Z raasch
     13! +top_heatflux, use_top_fluxes
     14!
    1115! RCS Log replace by Id keyword, revision history cleaned up
    1216!
Note: See TracChangeset for help on using the changeset viewer.