Changeset 818 for palm/trunk/SOURCE


Ignore:
Timestamp:
Feb 8, 2012 4:11:23 PM (12 years ago)
Author:
maronga
Message:

bugfix: namelist file check now possible for topography and re-enabled. mrungui update (-z option)

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile_check

    r808 r818  
    44# Current revisions:
    55# ------------------
    6 #
     6# Added all user routines.
    77#
    88# Former revisions:
     
    2727      message.f90 modules.f90 package_parin.f90 parin.f90 poisfft.f90 \
    2828      poisfft_hybrid.f90 singleton.f90 subsidence.f90 temperton_fft.f90 \
     29      user_3d_data_averaging.f90 user_actions.f90 \
     30      user_additional_routines.f90 user_advec_particles.f90 \
    2931      user_check_data_output.f90 user_check_data_output_pr.f90 \
    30       user_check_parameters.f90 user_init.f90 user_init_3d_model.f90 \
    31       user_init_grid.f90 user_init_particles.f90 user_init_plant_canopy.f90 \
    32       user_module.f90 user_parin.f90  \
     32      user_check_parameters.f90 user_data_output_2d.f90 \
     33      user_data_output_3d.f90 user_data_output_dvrp.f90 user_data_output_mask.f90 \
     34      user_define_netcdf_grid.f90 user_dvrp_coltab.f90 user_header.f90 \
     35      user_init.f90 user_init_3d_model.f90 user_init_grid.f90 \
     36      user_init_particles.f90 user_init_plant_canopy.f90 \
     37      user_last_actions.f90 user_module.f90 user_parin.f90 \
     38      user_particle_attributes.f90 user_read_restart_data.f90 \
     39      user_spectra.f90 user_statistics.f90 \
     40
     41
    3342
    3443
     
    3847      modules.o package_parin.o parin.o poisfft.o \
    3948      poisfft_hybrid.o singleton.o subsidence.o temperton_fft.o \
    40       user_check_data_output.o user_check_data_output_pr.o \
    41       user_check_parameters.o user_init.o user_init_3d_model.o \
    42       user_init_grid.o user_init_particles.o user_init_plant_canopy.o \
    43       user_module.o user_parin.o  \
     49      user_3d_data_averaging.o user_actions.o user_additional_routines.o \
     50      user_advec_particles.o user_check_data_output.o \
     51      user_check_data_output_pr.o user_check_parameters.o \
     52      user_data_output_2d.o user_data_output_3d.o user_data_output_mask.o user_data_output_dvrp.o \
     53      user_define_netcdf_grid.o user_dvrp_coltab.o user_header.o \
     54      user_init.o user_init_3d_model.o user_init_grid.o \
     55      user_init_particles.o user_init_plant_canopy.o user_last_actions.o \
     56      user_module.o user_parin.o user_particle_attributes.o \
     57      user_read_restart_data.o user_spectra.o user_statistics.o \
    4458
    4559CC = cc
     
    88102subsidence.o: modules.o
    89103temperton_fft.o: modules.o
     104user_3d_data_averaging.o: modules.o user_module.o
     105user_actions.o: modules.o user_module.o
     106user_additional_routines.o: modules.o user_module.o
     107user_advec_particles.o: modules.o user_module.o
     108user_check_data_output.o: modules.o user_module.o
     109user_check_data_output_pr.o: modules.o user_module.o
     110user_check_parameters.o: modules.o user_module.o
     111user_data_output_2d.o: modules.o user_module.o
     112user_data_output_3d.o: modules.o user_module.o
     113user_data_output_mask.o: modules.o user_module.o
     114user_data_output_dvrp.o: modules.o user_module.o
     115user_define_netcdf_grid.o: modules.o user_module.o
     116user_dvrp_coltab.o: modules.o user_module.o
     117user_header.o: modules.o user_module.o
    90118user_init.o: modules.o user_module.o
    91119user_init_3d_model.o: modules.o user_module.o
     
    93121user_init_particles.o: modules.o user_module.o
    94122user_init_plant_canopy.o: modules.o user_module.o
     123user_last_actions.o: modules.o user_module.o
    95124user_module.o: user_module.f90
    96125user_parin.o: modules.o user_module.o
    97 user_check_parameters.o: modules.o user_module.o
    98 user_check_data_output.o: modules.o user_module.o
    99 user_check_data_output_pr.o: modules.o user_module.o
     126user_particle_attributes.o: modules.o user_module.o
     127user_read_restart_data.o: modules.o user_module.o
     128user_spectra.o: modules.o user_module.o
     129user_statistics.o: modules.o user_module.o
  • palm/trunk/SOURCE/check_namelist_files.f90

    r808 r818  
    353510  CONTINUE
    3636
     37
    3738!
    3839!-- Read control parameters from NAMELIST files and read environment-variables1
     
    4849
    4950
    50 !
    5151!-- Check control parameters and deduce further quantities   
    5252    CALL check_parameters
    5353
    5454
     55
    5556 END PROGRAM check_namelist_files
  • palm/trunk/SOURCE/init_grid.f90

    r810 r818  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: topo_height is only required if topography is used. It is thus now
     7! allocated in the topography branch
    78!
    89! Former revisions:
     
    3839!
    3940! 555 2010-09-07 07:32:53Z raasch
    40 ! Bugfix: default setting of nzb_local for flat topographie
     41! Bugfix: default setting of nzb_local for flat topography
    4142!
    4243! 274 2009-03-26 15:11:21Z heinze
     
    100101    REAL    ::  dx_l, dy_l, dz_stretched
    101102
    102     REAL, DIMENSION(0:ny,0:nx)          ::  topo_height
     103    REAL, DIMENSION(:,:), ALLOCATABLE   ::  topo_height
    103104
    104105    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  distance
     
    331332    ALLOCATE( l_wall(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    332333
     334
    333335    nzb_s_inner = nzb;  nzb_s_outer = nzb
    334336    nzb_u_inner = nzb;  nzb_u_outer = nzb
     
    517519       CASE ( 'read_from_file' )
    518520
     521          ALLOCATE ( topo_height(0:ny,0:nx) )
     522
    519523          DO  ii = 0, io_blocks-1
    520524             IF ( ii == io_group )  THEN
     
    552556             ENDDO
    553557          ENDDO
     558
     559          DEALLOCATE ( topo_height )
    554560!
    555561!--       Add cyclic boundaries (additional layers are for calculating
Note: See TracChangeset for help on using the changeset viewer.