Ignore:
Timestamp:
Mar 26, 2018 9:39:22 AM (3 years ago)
Author:
maronga
Message:

renamed all Fortran NAMELISTS

File:
1 edited

Legend:

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

    r2718 r2932  
    2525! -----------------
    2626! $Id$
     27! renamed userpar to user_parameters
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    9699    IMPLICIT NONE
    97100
    98     CHARACTER (LEN=80) ::  zeile   !<
     101    CHARACTER (LEN=80) ::  line   !<
    99102
    100103    INTEGER(iwp) ::  i                 !<
     
    104107
    105108    NAMELIST /userpar/  data_output_pr_user, data_output_user, region,         &
     109                        data_output_masks_user
     110                       
     111                       
     112    NAMELIST /user_parameters/  data_output_pr_user, data_output_user, region, &
    106113                        data_output_masks_user
    107114
     
    119126    REWIND ( 11 )
    120127
    121     zeile = ' '
    122     DO   WHILE ( INDEX( zeile, '&userpar' ) == 0 )
    123        READ ( 11, '(A)', END=100 )  zeile
     128    line = ' '
     129    DO   WHILE ( INDEX( line, '&user_parameters' ) == 0 )
     130       READ ( 11, '(A)', END=10 )  line
    124131    ENDDO
    125132    BACKSPACE ( 11 )
     
    128135!-- Read user-defined namelist
    129136    READ ( 11, userpar )
     137
    130138    user_defined_namelist_found = .TRUE.
     139
     140    GOTO 12
     141   
     142   
     14310  REWIND ( 11 )
     144
     145    line = ' '
     146    DO   WHILE ( INDEX( line, '&userpar' ) == 0 )
     147       READ ( 11, '(A)', END=12 )  line
     148    ENDDO
     149    BACKSPACE ( 11 )
     150
     151!
     152!-- Read user-defined namelist
     153    READ ( 11, userpar )
     154   
     155   
     156    message_string = 'namelist userpar is deprecated and will be ' //          &
     157                     'removed in near future. Please &use namelist ' //        &
     158                     'user_parameters instead'
     159    CALL message( 'user_parin', 'PA0487', 0, 1, 0, 6, 0 )
     160       
     161    user_defined_namelist_found = .TRUE.
     162   
     163   
     164 12 CONTINUE
    131165
    132166!
    133167!-- Determine the number of user-defined profiles and append them to the
    134168!-- standard data output (data_output_pr)
    135     max_pr_user_tmp = 0
    136     IF ( data_output_pr_user(1) /= ' ' )  THEN
    137        i = 1
    138        DO  WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 100 )
    139           i = i + 1
    140        ENDDO
    141        j = 1
    142        DO  WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
    143           data_output_pr(i) = data_output_pr_user(j)
    144           max_pr_user_tmp   = max_pr_user_tmp + 1
    145           i = i + 1
    146           j = j + 1
    147        ENDDO
    148     ENDIF
    149 
    150 !
    151 !-- In case of a restart run, the number of user-defined profiles on the
    152 !-- restart file (already stored in max_pr_user) has to match the one given
    153 !-- for the current run
    154     IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
    155        IF ( max_pr_user /= max_pr_user_tmp )  THEN
    156           WRITE( message_string, * ) 'the number of user-defined profiles ',   &
     169    IF ( user_defined_namelist_found )  THEN
     170       max_pr_user_tmp = 0
     171       IF ( data_output_pr_user(1) /= ' ' )  THEN
     172          i = 1
     173          DO  WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 100 )
     174             i = i + 1
     175          ENDDO
     176          j = 1
     177          DO  WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
     178             data_output_pr(i) = data_output_pr_user(j)
     179             max_pr_user_tmp   = max_pr_user_tmp + 1
     180             i = i + 1
     181             j = j + 1
     182          ENDDO
     183      ENDIF
     184
     185
     186!
     187!--    In case of a restart run, the number of user-defined profiles on the
     188!--    restart file (already stored in max_pr_user) has to match the one given
     189!--    for the current run
     190       IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
     191          IF ( max_pr_user /= max_pr_user_tmp )  THEN
     192             WRITE( message_string, * ) 'the number of user-defined profiles ',&
    157193                     'given in &data_output_pr (', max_pr_user_tmp, ') doe',   &
    158194                     'snot match the one ',                                    &
    159195                     '&found in the restart file (', max_pr_user,              &
    160196                                     ')'
    161           CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )
     197             CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )
     198          ENDIF
     199       ELSE
     200          max_pr_user = max_pr_user_tmp
    162201       ENDIF
    163     ELSE
    164        max_pr_user = max_pr_user_tmp
     202
    165203    ENDIF
    166 
    167 100 RETURN
     204 
     205    RETURN
    168206
    169207 END SUBROUTINE user_parin
Note: See TracChangeset for help on using the changeset viewer.