Ignore:
Timestamp:
Mar 26, 2009 3:11:21 PM (12 years ago)
Author:
heinze
Message:

Indentation of the message calls corrected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_profiles.f90

    r263 r274  
    289289                      IF ( cross_normx_factor(k,j) == 0.0  .OR. &
    290290                           cross_normy_factor(k,j) == 0.0 )  THEN
    291                          WRITE( message_string, * ) 'data_output_profiles: normalizi', &
    292                                                     'ng cross ',j, ' is not possible since one o', &
    293                                                     'f the & normalizing factors is zero! & ', &
    294                                                     'cross_normx_factor(',k,',',j,') = ', &
    295                                                      cross_normx_factor(k,j), &
    296                                                     ' & cross_normy_factor(',k,',',j,') = ', &
    297                                                      cross_normy_factor(k,j)
    298                          CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
     291                         WRITE( message_string, * ) 'data_output_profiles: ',  &
     292                              'normalizing cross ',j, ' is not possible ',     &
     293                              'since one of the & normalizing factors ',       &
     294                              'is zero! & cross_normx_factor(',k,',',j,') = ', &
     295                                                      cross_normx_factor(k,j), &
     296                              ' & cross_normy_factor(',k,',',j,') = ',         &
     297                                                      cross_normy_factor(k,j)
     298                         CALL message( 'data_output_profiles', 'PA0185',&
     299                                                                0, 1, 0, 6, 0 )
    299300                         cross_normx_factor(k,j) = 1.0
    300301                         cross_normy_factor(k,j) = 1.0
     
    534535                IF ( cross_normx_factor(k,j) == 0.0  .OR. &
    535536                     cross_normy_factor(k,j) == 0.0 )  THEN
    536                    WRITE( message_string, * ) 'data_output_profiles: normalizi', &
    537                                               'ng cross ',j, ' is not possible since one o', &
    538                                               'f the & normalizing factors is zero! & ', &
    539                                               'cross_normx_factor(',k,',',j,') = ', &
    540                                                cross_normx_factor(k,j), &
    541                                               ' & cross_normy_factor(',k,',',j,') = ', &
    542                                                cross_normy_factor(k,j)
    543                     CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
     537                   WRITE( message_string, * ) 'data_output_profiles: ',  &
     538                              'normalizing cross ',j, ' is not possible ',     &
     539                              'since one of the & normalizing factors ',       &
     540                              'is zero! & cross_normx_factor(',k,',',j,') = ', &
     541                                                      cross_normx_factor(k,j), &
     542                              ' & cross_normy_factor(',k,',',j,') = ',         &
     543                                                      cross_normy_factor(k,j)
     544                         CALL message( 'data_output_profiles', 'PA0185',&
     545                                                                0, 1, 0, 6, 0 )
    544546                    cross_normx_factor(k,j) = 1.0
    545547                    cross_normy_factor(k,j) = 1.0
Note: See TracChangeset for help on using the changeset viewer.