Changeset 17 for palm/trunk/SOURCE/init_dvrp.f90
- Timestamp:
- Feb 19, 2007 1:57:39 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_dvrp.f90
r13 r17 11 11 ! ----------------- 12 12 ! $Id$ 13 ! dvrp_output_local activated for all streams 14 ! 15 ! 13 2007-02-14 12:15:07Z raasch 13 16 ! RCS Log replace by Id keyword, revision history cleaned up 14 17 ! … … 223 226 CALL FLUSH( 9 ) 224 227 #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 ) 225 246 226 247 ENDIF … … 326 347 CALL FLUSH( 9 ) 327 348 #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 ) 328 367 329 368 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.