Changeset 2932 for palm/trunk/SOURCE/gust_mod.f90

Timestamp:

Mar 26, 2018 9:39:22 AM (6 years ago)

Author:

maronga

Message:

renamed all Fortran NAMELISTS

File:

• palm/trunk/SOURCE/gust_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/gust_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! renamed gust_par to gust_parameters
+! 
+! 
 ! Initial interface definition
 !
 ! 
-!
 ! Description:
 ! ------------
@@ -156 +158 @@
 ! Description:
 ! ------------
-!> Parin for &gust_par for gust module
+!> Parin for &gust_parameters for gust module
 !------------------------------------------------------------------------------!
     SUBROUTINE gust_parin
@@ -165 +167 @@
        CHARACTER (LEN=80)  ::  line  !< dummy string that contains the current line of the parameter file
 
-       NAMELIST /gust_par/  &
+       NAMELIST /gust_parameters/  &
           gust_module_enabled
 
@@ -173 +175 @@
        REWIND ( 11 )
        line = ' '
-       DO   WHILE ( INDEX( line, '&gust_par' ) == 0 )
+       DO   WHILE ( INDEX( line, '&gust_parameters' ) == 0 )
           READ ( 11, '(A)', END=10 )  line
        ENDDO
@@ -179 +181 @@
 !
 !--    Read user-defined namelist
-       READ ( 11, gust_par )
+       READ ( 11, gust_parameters )
 !
 !--    Set flag that indicates that the gust module is switched on