Ignore:
Timestamp:
May 18, 2020 3:23:29 PM (12 months ago)
Author:
raasch
Message:

files re-formatted to follow the PALM coding standard

File:
1 edited

Legend:

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

    r4360 r4540  
    11!> @file time_to_string.f90
    2 !------------------------------------------------------------------------------!
     2!--------------------------------------------------------------------------------------------------!
    33! This file is part of the PALM model system.
    44!
    5 ! PALM is free software: you can redistribute it and/or modify it under the
    6 ! terms of the GNU General Public License as published by the Free Software
    7 ! Foundation, either version 3 of the License, or (at your option) any later
    8 ! version.
     5! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General
     6! Public License as published by the Free Software Foundation, either version 3 of the License, or
     7! (at your option) any later version.
    98!
    10 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
    11 ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
    12 ! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     9! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
     10! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
     11! Public License for more details.
    1312!
    14 ! You should have received a copy of the GNU General Public License along with
    15 ! PALM. If not, see <http://www.gnu.org/licenses/>.
     13! You should have received a copy of the GNU General Public License along with PALM. If not, see
     14! <http://www.gnu.org/licenses/>.
    1615!
    1716! Copyright 1997-2020 Leibniz Universitaet Hannover
    18 !------------------------------------------------------------------------------!
     17!--------------------------------------------------------------------------------------------------!
     18!
    1919!
    2020! Current revisions:
     
    2525! -----------------
    2626! $Id$
     27! File re-formatted to follow the PALM coding standard
     28!
     29!
     30! 4360 2020-01-07 11:25:50Z suehring
    2731! Corrected "Former revisions" section
    28 ! 
     32!
    2933! 3655 2019-01-07 16:51:22Z knoop
    3034! Corrected "Former revisions" section
     
    3741! ------------
    3842!> Transforming the time from real to character-string hh:mm:ss
    39 !------------------------------------------------------------------------------!
     43!--------------------------------------------------------------------------------------------------!
    4044 FUNCTION time_to_string( time )
    41  
     45
    4246
    4347    USE kinds
     
    4549    IMPLICIT NONE
    4650
    47     CHARACTER (LEN=9) ::  time_to_string !<
     51    CHARACTER(LEN=9) ::  time_to_string  !<
    4852
    49     INTEGER(iwp)      ::  hours   !<
    50     INTEGER(iwp)      ::  minutes !<
    51     INTEGER(iwp)      ::  seconds !<
     53    INTEGER(iwp)     ::  hours    !<
     54    INTEGER(iwp)     ::  minutes  !<
     55    INTEGER(iwp)     ::  seconds  !<
    5256
    53     REAL(wp)          ::  rest_time !<
    54     REAL(wp)          ::  time      !<
     57    REAL(wp)         ::  rest_time  !<
     58    REAL(wp)         ::  time       !<
    5559
    5660!
     
    6468!-- Build the string
    6569    IF ( hours < 100 )  THEN
    66        WRITE (time_to_string,'(I2.2,'':'',I2.2,'':'',I2.2)')  hours, minutes, &
    67                                                               seconds
     70       WRITE (time_to_string,'(I2.2,'':'',I2.2,'':'',I2.2)')  hours, minutes, seconds
    6871    ELSE
    69        WRITE (time_to_string,'(I3.3,'':'',I2.2,'':'',I2.2)')  hours, minutes, &
    70                                                               seconds
     72       WRITE (time_to_string,'(I3.3,'':'',I2.2,'':'',I2.2)')  hours, minutes, seconds
    7173    ENDIF
    7274
Note: See TracChangeset for help on using the changeset viewer.