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

Avoid overlong lines

File:
1 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:
Note: See TracChangeset for help on using the changeset viewer.