Ignore:
Timestamp:
Apr 4, 2020 10:54:08 AM (2 years ago)
Author:
raasch
Message:

files re-formatted to follow the PALM coding standard

File:
1 edited

Legend:

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

    r4360 r4489  
    11!> @file wrd_write_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!--------------------------------------------------------------------------------------------------!
    1918!
    2019! Current revisions:
     
    2524! -----------------
    2625! $Id$
     26! file re-formatted to follow the PALM coding standard
     27!
     28! 4360 2020-01-07 11:25:50Z suehring
    2729! Initial revision
    2830!
     
    3032! Description:
    3133! ------------
    32 !> Calculates length of string and write the respective value together with the
    33 !> string into binary file(s) for restart runs
    34 !------------------------------------------------------------------------------!
    35  
     34!> Calculates length of string and write the respective value together with the string into binary
     35!  file(s) for restart runs
     36!--------------------------------------------------------------------------------------------------!
     37
    3638 SUBROUTINE wrd_write_string( string )
    3739
     
    4244    IMPLICIT NONE
    4345
    44     CHARACTER (LEN=*), INTENT (IN) ::  string  !< for storing strings in case of writing/reading restart data
    45 
    46     INTEGER(iwp) ::  length  !< integer that specifies the length of a string in case of writing/reading restart
    47                              !< data
     46    CHARACTER(LEN=*), INTENT(IN) ::  string  !< for storing strings in case of writing/reading
     47                                             !< restart data
     48    INTEGER(iwp) ::  length  !< integer that specifies the length of a string in case of
     49                             !< writing/reading restart data
    4850
    4951
Note: See TracChangeset for help on using the changeset viewer.