Ignore:
Timestamp:
Sep 7, 2012 10:41:47 AM (9 years ago)
Author:
raasch
Message:

parameter use_prior_plot1d_parameters removed; little reformatting

File:
1 edited

Legend:

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

    r979 r996  
    44! Current revisions:
    55! -----------------
    6 !
     6! -use_prior_plot1d_parameters
    77!
    88! Former revisions:
     
    229229             skip_time_do2d_xz, skip_time_do2d_yz, skip_time_do3d, &
    230230             skip_time_domask, synchronous_exchange, termination_time_needed, &
    231              use_prior_plot1d_parameters, z_max_do2d
     231             z_max_do2d
    232232
    233233
     
    276276!
    277277!--       Read the control parameters for initialization.
    278 !--       The namelist "inipar" must be provided in the NAMELIST-file. If this
    279 !--       is not the case and the file contains - instead of "inipar" - any
    280 !--       other namelist, a read error is created on t3e and control is
    281 !--       transferred to the statement with label 10. Therefore, on t3e
    282 !--       machines one can not distinguish between errors produced by a wrong
    283 !--       "inipar" namelist or because this namelist is totally missing.
    284            READ ( 11, inipar, ERR=10, END=11 )
     278!--       The namelist "inipar" must be provided in the NAMELIST-file.
     279          READ ( 11, inipar, ERR=10, END=11 )
    285280
    286281#if defined ( __check )
     
    289284!--       used. The p3d file here must be closed and the p3df file for reading
    290285!--       3dpar is opened.
    291           IF ( check_restart == 1 ) THEN
     286          IF ( check_restart == 1 )  THEN
    292287             CALL close_file( 11 )
    293288             check_restart = 2
    294289             CALL check_open( 11 )             
    295290             initializing_actions = 'read_restart_data'
    296           END IF
     291          ENDIF
    297292#endif
    298            GOTO 12
     293          GOTO 12
    299294
    300295 10       message_string = 'errors in \$inipar &or no \$inipar-namelist ' // &
     
    309304!--       a prior run). All PEs are reading from file created by PE0 (see
    310305!--       check_open)
    311 
    312 
    313306 12       IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
    314307#if ! defined ( __check )
Note: See TracChangeset for help on using the changeset viewer.