Changeset 4097 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jul 15, 2019 11:59:11 AM (5 years ago)
Author:
suehring
Message:

Avoid overlong lines

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4047 r4097  
    2020! Current revisions:
    2121! -----------------
    22 !
    23 !
     22! 
     23! 
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Avoid overlong lines - limit is 132 characters per line
     28!
     29! 4047 2019-06-21 18:58:09Z knoop
    2730! Initial introduction of the dynamics module with only dynamics_swap_timelevel implemented
    2831!
     
    936939!
    937940!-- Next line is to avoid compiler warning about unused variables. Please remove.
    938     IF ( k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf + tmp_2d(nys_on_file,nxl_on_file) + tmp_3d(nzb,nys_on_file,nxl_on_file) < 0.0 )  CONTINUE
     941    IF ( k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf +           &
     942         tmp_2d(nys_on_file,nxl_on_file) +                                     &
     943         tmp_3d(nzb,nys_on_file,nxl_on_file) < 0.0 )  CONTINUE
    939944!
    940945!-- Here the reading of user-defined restart data follows:
  • palm/trunk/SOURCE/message.f90

    r3987 r4097  
    2525! -----------------
    2626! $Id$
     27! Avoid overlong lines - limit is 132 characters per line
     28!
     29! 3987 2019-05-22 09:52:13Z kanani
    2730! Improved formatting of job logfile output,
    2831! changed output of DEBUG file
     
    364367!
    365368!-- Write and flush debug location or info message to file
    366     WRITE( debug_output_unit, 201 )    TRIM( system_time ), time_since_reference_point, TRIM( message_type_string ), TRIM( debug_string )
     369    WRITE( debug_output_unit, 201 )    TRIM( system_time ), time_since_reference_point, &
     370                                       TRIM( message_type_string ), TRIM( debug_string )
    367371    FLUSH( debug_output_unit )
    368372
Note: See TracChangeset for help on using the changeset viewer.