Ignore:
Timestamp:
Apr 9, 2008 8:06:03 AM (14 years ago)
Author:
raasch
Message:

bugfix of max_pr_user problem

File:
1 edited

Legend:

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

    r156 r159  
    8686    CHARACTER (LEN=80) ::  zeile
    8787
    88     INTEGER ::  i, j
     88    INTEGER ::  i, j, max_pr_user_tmp
    8989
    9090
     
    111111!-- Determine the number of user-defined profiles and append them to the
    112112!-- standard data output (data_output_pr)
     113    max_pr_user_tmp = 0
    113114    IF ( data_output_pr_user(1) /= ' ' )  THEN
    114115       i = 1
     
    119120       DO  WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
    120121          data_output_pr(i) = data_output_pr_user(j)
    121           max_pr_user       = max_pr_user + 1
     122          max_pr_user_tmp   = max_pr_user_tmp + 1
    122123          i = i + 1
    123124          j = j + 1
    124125       ENDDO
     126    ENDIF
     127
     128!
     129!-- In case of a restart run, the number of user-defined profiles on the
     130!-- restart file (already stored in max_pr_user) has to match the one given
     131!-- for the current run
     132    IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
     133       IF ( max_pr_user /= max_pr_user_tmp )  THEN
     134          PRINT*, '+++ user_parin: the number of user-defined profiles given in'
     135          PRINT*, '                data_output_pr (', max_pr_user_tmp, ' doe', &
     136                                   's not match the one'
     137          PRINT*, '                found in the restart file (', max_pr_user, &
     138                                   ')'
     139          CALL local_stop
     140       ENDIF
     141    ELSE
     142       max_pr_user = max_pr_user_tmp
    125143    ENDIF
    126144
Note: See TracChangeset for help on using the changeset viewer.