Home


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

Changeset 279


Ignore:
Timestamp:
Apr 1, 2009 1:39:11 AM (16 years ago)
Author:
raasch
Message:

dvr change for RIAMs NEC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/init_dvrp.f90

    r274 r279  
    222222             dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) ) // '/camera.dvr'
    223223             dvrp_file_c = dvrp_file
    224 #ifndef __nec
    225224             CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    226225                                    dvrp_password_c, dvrp_directory_c, &
    227226                                    dvrp_file_c )
    228 #endif
    229227
    230228          ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    282280                              // '/topography.dvr'
    283281                dvrp_file_c = dvrp_file
    284 #ifndef __nec
    285282                CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    286283                                       dvrp_password_c, dvrp_directory_c, &
    287284                                       dvrp_file_c )
    288 #endif
    289285
    290286             ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    407403                           '/groundplate.dvr'
    408404             dvrp_file_c = dvrp_file
    409 #ifndef __nec
    410405             CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    411406                                    dvrp_password_c, dvrp_directory_c, &
    412407                                    dvrp_file_c )
    413 #endif
    414408
    415409          ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    539533                name_c  = TRIM( do3d(0,vn) )
    540534                tmp_thr = threshold(tv)
    541 #ifndef __nec
    542535                CALL DVRP_STEERING_INIT( m-1, name_c, steering_dvrp(pn)%min, &
    543536                                         steering_dvrp(pn)%max, tmp_thr )
    544 #endif
    545537
    546538             ELSEIF ( mode_dvrp(pn)(1:6) == 'slicer' )  THEN
    … …  
    557549                      steering_dvrp(pn)%imax   = nz_do3d
    558550                      slicer_position_dvrp(pn) = section(1,1)
    559 #ifndef __nec
    560551                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
    561552                                               steering_dvrp(pn)%imin, &
    562553                                               steering_dvrp(pn)%imax, &
    563554                                               slicer_position_dvrp(pn) )
    564 #endif
    565555                   CASE ( 'xz' )
    566556                      steering_dvrp(pn)%imin   = 0
    567557                      steering_dvrp(pn)%imax   = ny
    568558                      slicer_position_dvrp(pn) = section(1,2)
    569 #ifndef __nec
    570559                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
    571560                                               steering_dvrp(pn)%imin, &
    572561                                               steering_dvrp(pn)%imax, &
    573562                                               slicer_position_dvrp(pn) )
    574 #endif
    575563                   CASE ( 'yz' )
    576564                      steering_dvrp(pn)%imin = 0
    577565                      steering_dvrp(pn)%imax = nx
    578566                      slicer_position_dvrp(pn) = section(1,3)
    579 #ifndef __nec
    580567                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
    581568                                               steering_dvrp(pn)%imin, &
    582569                                               steering_dvrp(pn)%imax, &
    583570                                               slicer_position_dvrp(pn) )
    584 #endif
    585571                END SELECT
    586572
    … …  
    593579          dvrp_file = prefix_chr // TRIM( mode_dvrp(m) ) // '/*****.dvr'
    594580          dvrp_file_c = dvrp_file
    595 #ifndef __nec
    596581          CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
    597582                                 dvrp_password_c, dvrp_directory_c, &
    598583                                 dvrp_file_c )
    599 #endif
    600584
    601585       ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    736720!--    Adjustment for new MPI-1 coupling. This might be unnecessary.
    737721#if defined( __mpi2 )
    738 #ifndef __nec
    739722       CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
    740 #endif
    741723#else
    742724       IF ( coupling_mode /= 'uncoupled' ) THEN
    … …  
    745727          CALL message( 'init_dvrp_logging', 'PA0199', 1, 2, 0, 6, 0 )
    746728 
    747 #ifndef __nec
    748729          CALL DVRP_SPLIT( comm_inter, comm_palm )
    749 #endif
    750730       ELSE
    751 #ifndef __nec
    752731          CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
    753 #endif
    754732       ENDIF
    755733#endif
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |