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

Timestamp:

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

Author:

maronga

Message:

renamed all Fortran NAMELISTS

File:

• palm/trunk/SOURCE/uv_exposure_model_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/uv_exposure_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! renamed uvexposure_par to biometeorology_parameters
+! 
+! 2894 2018-03-15 09:17:58Z Giersch
 ! Routine for skipping global restart data has been removed, uvem_last_actions
 ! has been renamed to uvem_wrd_global and uvem_read_restart_data has been 
@@ -425 +428 @@
     CHARACTER (LEN=80) ::  line  !< dummy string for current line in parameter file 
     
-    NAMELIST /uvexposure_par/  clothing
+    NAMELIST /biometeorology_parameters/  clothing
     
     line = ' '
@@ -433 +436 @@
     REWIND ( 11 )
     line = ' '
-    DO   WHILE ( INDEX( line, '&uvexposure_par' ) == 0 )
+    DO   WHILE ( INDEX( line, '&biometerology_parameters' ) == 0 )
        READ ( 11, '(A)', END=10 )  line
     ENDDO
@@ -440 +443 @@
 !
 !-- Read user-defined namelist
-    READ ( 11, uvexposure_par )
+    READ ( 11, biometeorology_parameters )
 
 !