Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 272 for palm/trunk


Ignore:
Timestamp:
Mar 26, 2009 1:33:36 AM (16 years ago)
Author:
raasch
Message:

further small changes for using dvr software

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SCRIPTS/.mrun.config.default

    r260 r272  
    114114DATA_PRT_NETCDF      out:loc:pe   prt#:prtf $base_data/$fname/OUTPUT  _prt    nc
    115115DATA_PRT_NETCDF      out:loc:trpe prt#:prtf $base_data/$fname/OUTPUT  _prt    nc
     116DATA_DVR             out:loc:trpe dvr       $base_data/$fname/OUTPUT  _dvr
    116117#
    117118DVRP_LOG          out:loc:tr   dv#       $base_data/$fname/MONITORING  _dvrp_log

  • palm/trunk/SCRIPTS/.mrun.config.riam

    r255 r272  
    116116DATA_PRT_NETCDF      out:loc:pe   prt#:prtf $base_data/$fname/OUTPUT  _prt    nc
    117117DATA_PRT_NETCDF      out:loc:trpe prt#:prtf $base_data/$fname/OUTPUT  _prt    nc
     118DATA_DVR             out:loc:trpe dvr       $base_data/$fname/OUTPUT  _dvr
    118119#
    119120DVRP_LOG          out:loc:tr   dv#       $base_data/$fname/MONITORING  _dvrp_log

  • palm/trunk/SOURCE/init_dvrp.f90

    r271 r272  
    1010! Polygon reduction for building and ground plate isosurface. Reduction level
    1111! for buildings can be chosen with parameter cluster_size.
     12! Steering, splitting, and rtsp routines not used on necriam.
    1213! ToDo: checking of mode_dvrp for legal values is not correct
    1314! Implementation of a MPI-1 coupling: __mpi2 adjustments for MPI_COMM_WORLD
    … …  
    219220             dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) ) // '/camera.dvr'
    220221             dvrp_file_c = dvrp_file
     222#ifndef __necriam
    221223             CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    222224                                    dvrp_password_c, dvrp_directory_c, &
    223225                                    dvrp_file_c )
     226#endif
    224227
    225228          ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    277280                              // '/topography.dvr'
    278281                dvrp_file_c = dvrp_file
     282#ifndef __necriam
    279283                CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    280284                                       dvrp_password_c, dvrp_directory_c, &
    281285                                       dvrp_file_c )
     286#endif
    282287
    283288             ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    400405                           '/groundplate.dvr'
    401406             dvrp_file_c = dvrp_file
     407#ifndef __necriam
    402408             CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    403409                                    dvrp_password_c, dvrp_directory_c, &
    404410                                    dvrp_file_c )
     411#endif
    405412
    406413          ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    530537                name_c  = TRIM( do3d(0,vn) )
    531538                tmp_thr = threshold(tv)
     539#ifndef __necriam
    532540                CALL DVRP_STEERING_INIT( m-1, name_c, steering_dvrp(pn)%min, &
    533541                                         steering_dvrp(pn)%max, tmp_thr )
     542#endif
    534543
    535544             ELSEIF ( mode_dvrp(pn)(1:6) == 'slicer' )  THEN
    … …  
    546555                      steering_dvrp(pn)%imax   = nz_do3d
    547556                      slicer_position_dvrp(pn) = section(1,1)
     557#ifndef __necriam
    548558                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
    549559                                               steering_dvrp(pn)%imin, &
    550560                                               steering_dvrp(pn)%imax, &
    551561                                               slicer_position_dvrp(pn) )
     562#endif
    552563                   CASE ( 'xz' )
    553564                      steering_dvrp(pn)%imin   = 0
    554565                      steering_dvrp(pn)%imax   = ny
    555566                      slicer_position_dvrp(pn) = section(1,2)
     567#ifndef __necriam
    556568                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
    557569                                               steering_dvrp(pn)%imin, &
    558570                                               steering_dvrp(pn)%imax, &
    559571                                               slicer_position_dvrp(pn) )
     572#endif
    560573                   CASE ( 'yz' )
    561574                      steering_dvrp(pn)%imin = 0
    562575                      steering_dvrp(pn)%imax = nx
    563576                      slicer_position_dvrp(pn) = section(1,3)
     577#ifndef __necriam
    564578                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
    565579                                               steering_dvrp(pn)%imin, &
    566580                                               steering_dvrp(pn)%imax, &
    567581                                               slicer_position_dvrp(pn) )
     582#endif
    568583                END SELECT
    569584
    … …  
    576591          dvrp_file = prefix_chr // TRIM( mode_dvrp(m) ) // '/*****.dvr'
    577592          dvrp_file_c = dvrp_file
     593#ifndef __necriam
    578594          CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    579595                                 dvrp_password_c, dvrp_directory_c, &
    580596                                 dvrp_file_c )
     597#endif
    581598
    582599       ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    717734!--    Adjustment for new MPI-1 coupling. This might be unnecessary.
    718735#if defined( __mpi2 )
     736#ifndef __necriam
    719737       CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
     738#endif
    720739#else
    721740       IF ( coupling_mode /= 'uncoupled' ) THEN
    … …  
    724743          CALL message( 'init_dvrp_logging', 'PA0199', 1, 2, 0, 6, 0 )
    725744 
    726 !          CALL DVRP_SPLIT( comm_inter, comm_palm )
     745#ifndef __necriam
     746          CALL DVRP_SPLIT( comm_inter, comm_palm )
     747#endif
    727748       ELSE
     749#ifndef __necriam
    728750          CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
     751#endif
    729752       ENDIF
    730753#endif
    … …  
    764787       CALL DVRP_LOG_EVENT( -1, 1 )   ! Logging of total cpu-time used by PALM
    765788       IF ( use_seperate_pe_for_dvrp_output )  THEN
     789#ifndef __necriam
    766790          CALL DVRP_SPLIT_EXIT( 1 )      ! Argument 0: reduced output
     791#endif
    767792       ELSE
    768793          CALL DVRP_LOG_EXIT( 1 )        ! Argument 0: reduced output
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |