Changeset 17 for palm/trunk


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

Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/.mrun.config.default

    r1 r17  
    33#----------------------------------------------------------------------------
    44%mainprog          palm.f90
    5 %base_directory    $HOME/palm/current_version
    6 %base_data         palm/current_version/JOBS
    7 %source_path       $base_directory/SOURCE
     5#%base_directory    $HOME/palm/current_version
     6#%base_data         palm/current_version/JOBS
     7#%source_path       $base_directory/SOURCE
    88%add_source_path   $base_directory/USER_CODE/$fname
    99%depository_path   $base_directory/MAKE_DEPOSITORY
     
    9595%remote_username   b323011                                    nech parallel
    9696%email_notification  raasch@muk.uni-hannover.de               nech parallel
     97#
     98%compiler_name     sxmpif90                                   neck parallel
     99%fopts             -C:hopt:-Wf:\'-init:stack=nan:-init:heap=nan:-A:idbl4:-pvctl:fullmsg\':-ftrace:-P:stack:-pi:auto:-pi:line=1000  neck parallel
     100%lopts             -C:hopt:-Wf:\'-init:stack=nan:-init:heap=nan:-A:idbl4\':-ftrace:-P:stack:-pi:auto:-pi:line=1000:-L/SX/opt/MathKeisan/MK1_6/lib/:-l:fft  neck parallel
     101%memory            4000                                       neck parallel
     102%cpumax            1000                                       neck parallel
     103%numprocs          4                                          neck parallel
     104#%tmp_user_catalog  <replace by your temporary directory>      neck parallel
     105#%tmp_data_catalog  <replace by your temp. dir.> /palm_restart_data   neck parallel
     106#%remote_username   <replace by your NEC-username>             neck parallel
     107#%email_notification  tatuyama@gelgoog                         neck parallel
    97108#
    98109%remote_username   raasch                                     decalpha parallel
  • 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.