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/gust_mod.f90

    r2912 r2932  
    2525! -----------------
    2626! $Id$
     27! renamed gust_par to gust_parameters
     28!
     29!
    2730! Initial interface definition
    2831!
    2932!
    30 !
    3133! Description:
    3234! ------------
     
    156158! Description:
    157159! ------------
    158 !> Parin for &gust_par for gust module
     160!> Parin for &gust_parameters for gust module
    159161!------------------------------------------------------------------------------!
    160162    SUBROUTINE gust_parin
     
    165167       CHARACTER (LEN=80)  ::  line  !< dummy string that contains the current line of the parameter file
    166168
    167        NAMELIST /gust_par/  &
     169       NAMELIST /gust_parameters/  &
    168170          gust_module_enabled
    169171
     
    173175       REWIND ( 11 )
    174176       line = ' '
    175        DO   WHILE ( INDEX( line, '&gust_par' ) == 0 )
     177       DO   WHILE ( INDEX( line, '&gust_parameters' ) == 0 )
    176178          READ ( 11, '(A)', END=10 )  line
    177179       ENDDO
     
    179181!
    180182!--    Read user-defined namelist
    181        READ ( 11, gust_par )
     183       READ ( 11, gust_parameters )
    182184!
    183185!--    Set flag that indicates that the gust module is switched on
Note: See TracChangeset for help on using the changeset viewer.