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

Timestamp:

Sep 14, 2018 9:42:06 AM (6 years ago)

Author:

sward

Message:

Minor format changes

File:

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

palm/trunk/SOURCE/uv_exposure_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor formating changes
+! 
+! 3246 2018-09-13 15:14:50Z sward
 ! Added error handling for input namelist via parin_fail_message and small
 ! typo bugfix
@@ -453 +456 @@
     REWIND ( 11 )
     line = ' '
-    DO   WHILE ( INDEX( line, '&biometeorology_parameters' ) == 0 )
+    DO WHILE ( INDEX( line, '&biometeorology_parameters' ) == 0 )
        READ ( 11, '(A)', END=20 )  line
     ENDDO
@@ -467 +470 @@
 
  10 BACKSPACE( 11 )
-    READ( 11 ,fmt='(A)') line
-    CALL parin_fail_message ( 'biometeorology_parameters', line )
+    READ( 11 , '(A)') line
+    CALL parin_fail_message( 'biometeorology_parameters', line )