Changeset 274 for palm/trunk/SOURCE/data_output_profiles.f90

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

• palm/trunk/SOURCE/data_output_profiles.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_profiles.f90

@@ -289 +289 @@
                       IF ( cross_normx_factor(k,j) == 0.0  .OR. &
                            cross_normy_factor(k,j) == 0.0 )  THEN
-                         WRITE( message_string, * ) 'data_output_profiles: normalizi', &
-                                                    'ng cross ',j, ' is not possible since one o', &
-                                                    'f the & normalizing factors is zero! & ', &
-                                                    'cross_normx_factor(',k,',',j,') = ', &
-                                                     cross_normx_factor(k,j), &
-                                                    ' & cross_normy_factor(',k,',',j,') = ', &
-                                                     cross_normy_factor(k,j)
-                         CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
+                         WRITE( message_string, * ) 'data_output_profiles: ',  &
+                              'normalizing cross ',j, ' is not possible ',     &
+                              'since one of the & normalizing factors ',       &
+                              'is zero! & cross_normx_factor(',k,',',j,') = ', &
+                                                      cross_normx_factor(k,j), &
+                              ' & cross_normy_factor(',k,',',j,') = ',         &
+                                                      cross_normy_factor(k,j)
+                         CALL message( 'data_output_profiles', 'PA0185',&
+                                                                0, 1, 0, 6, 0 )
                          cross_normx_factor(k,j) = 1.0
                          cross_normy_factor(k,j) = 1.0
@@ -534 +535 @@
                 IF ( cross_normx_factor(k,j) == 0.0  .OR. &
                      cross_normy_factor(k,j) == 0.0 )  THEN
-                   WRITE( message_string, * ) 'data_output_profiles: normalizi', &
-                                              'ng cross ',j, ' is not possible since one o', &
-                                              'f the & normalizing factors is zero! & ', &
-                                              'cross_normx_factor(',k,',',j,') = ', &
-                                               cross_normx_factor(k,j), &
-                                              ' & cross_normy_factor(',k,',',j,') = ', &
-                                               cross_normy_factor(k,j)
-                    CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
+                   WRITE( message_string, * ) 'data_output_profiles: ',  &
+                              'normalizing cross ',j, ' is not possible ',     &
+                              'since one of the & normalizing factors ',       &
+                              'is zero! & cross_normx_factor(',k,',',j,') = ', &
+                                                      cross_normx_factor(k,j), &
+                              ' & cross_normy_factor(',k,',',j,') = ',         &
+                                                      cross_normy_factor(k,j)
+                         CALL message( 'data_output_profiles', 'PA0185',&
+                                                                0, 1, 0, 6, 0 )
                     cross_normx_factor(k,j) = 1.0
                     cross_normy_factor(k,j) = 1.0