Changeset 17 for palm/trunk/SOURCE

Timestamp:

Feb 19, 2007 1:57:39 AM (18 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/init_dvrp.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_dvrp.f90

@@ -11 +11 @@
 ! -----------------
 ! $Id$
+! dvrp_output_local activated for all streams
+!
+! 13 2007-02-14 12:15:07Z raasch
 ! RCS Log replace by Id keyword, revision history cleaned up
 !
@@ -223 +226 @@
     CALL FLUSH( 9 )
 #endif
+
+          ELSEIF ( dvrp_output == 'ftp' )  THEN
+
+             dvrp_file   = TRIM( mode_dvrp(m) ) // '.buildings.dvr'
+             dvrp_file_c = dvrp_file
+!             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
+!                                   dvrp_password_c, dvrp_directory_c,    &
+!                                   dvrp_file_c )
+
+          ELSE
+
+             IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
+                dvrp_file_local   = TRIM( mode_dvrp(m) ) // '.buildings.dvr'
+                dvrp_file_local_c = dvrp_file_local
+             ELSE
+                dvrp_file_local_c = dvrp_file_c
+             ENDIF
+             CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
 
           ENDIF
@@ -326 +347 @@
     CALL FLUSH( 9 )
 #endif
+
+          ELSEIF ( dvrp_output == 'ftp' )  THEN
+
+             dvrp_file   = TRIM( mode_dvrp(m) ) // '.surface.dvr'
+             dvrp_file_c = dvrp_file
+!             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
+!                                   dvrp_password_c, dvrp_directory_c,    &
+!                                   dvrp_file_c )
+
+          ELSE
+
+             IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
+                dvrp_file_local   = TRIM( mode_dvrp(m) ) // '.surface.dvr'
+                dvrp_file_local_c = dvrp_file_local
+             ELSE
+                dvrp_file_local_c = dvrp_file_c
+             ENDIF
+             CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
 
           ENDIF