Changeset 17 for palm/trunk/SOURCE


Ignore:
Timestamp:
Feb 19, 2007 1:57:39 AM (15 years ago)
Author:
raasch
Message:

setting neck defaults in .mrun.config.default, DVRP_OUTPUT_LOCAL activated for all streams

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_dvrp.f90

    r13 r17  
    1111! -----------------
    1212! $Id$
     13! dvrp_output_local activated for all streams
     14!
     15! 13 2007-02-14 12:15:07Z raasch
    1316! RCS Log replace by Id keyword, revision history cleaned up
    1417!
     
    223226    CALL FLUSH( 9 )
    224227#endif
     228
     229          ELSEIF ( dvrp_output == 'ftp' )  THEN
     230
     231             dvrp_file   = TRIM( mode_dvrp(m) ) // '.buildings.dvr'
     232             dvrp_file_c = dvrp_file
     233!             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
     234!                                   dvrp_password_c, dvrp_directory_c,    &
     235!                                   dvrp_file_c )
     236
     237          ELSE
     238
     239             IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
     240                dvrp_file_local   = TRIM( mode_dvrp(m) ) // '.buildings.dvr'
     241                dvrp_file_local_c = dvrp_file_local
     242             ELSE
     243                dvrp_file_local_c = dvrp_file_c
     244             ENDIF
     245             CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
    225246
    226247          ENDIF
     
    326347    CALL FLUSH( 9 )
    327348#endif
     349
     350          ELSEIF ( dvrp_output == 'ftp' )  THEN
     351
     352             dvrp_file   = TRIM( mode_dvrp(m) ) // '.surface.dvr'
     353             dvrp_file_c = dvrp_file
     354!             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
     355!                                   dvrp_password_c, dvrp_directory_c,    &
     356!                                   dvrp_file_c )
     357
     358          ELSE
     359
     360             IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
     361                dvrp_file_local   = TRIM( mode_dvrp(m) ) // '.surface.dvr'
     362                dvrp_file_local_c = dvrp_file_local
     363             ELSE
     364                dvrp_file_local_c = dvrp_file_c
     365             ENDIF
     366             CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
    328367
    329368          ENDIF
Note: See TracChangeset for help on using the changeset viewer.