Changeset 4489 for palm/trunk/SOURCE/wrd_write_string.f90

Timestamp:

Apr 4, 2020 10:54:08 AM (4 years ago)

Author:

raasch

Message:

files re-formatted to follow the PALM coding standard

File:

• palm/trunk/SOURCE/wrd_write_string.f90 (modified) (4 diffs)

palm/trunk/SOURCE/wrd_write_string.f90

@@ -1 +1 @@
 !> @file wrd_write_string.f90
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 ! This file is part of the PALM model system.
 !
-! PALM is free software: you can redistribute it and/or modify it under the
-! terms of the GNU General Public License as published by the Free Software
-! Foundation, either version 3 of the License, or (at your option) any later
-! version.
+! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General
+! Public License as published by the Free Software Foundation, either version 3 of the License, or
+! (at your option) any later version.
 !
-! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
-! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
+! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+! Public License for more details.
 !
-! You should have received a copy of the GNU General Public License along with
-! PALM. If not, see <http://www.gnu.org/licenses/>.
+! You should have received a copy of the GNU General Public License along with PALM. If not, see
+! <http://www.gnu.org/licenses/>.
 !
 ! Copyright 1997-2020 Leibniz Universitaet Hannover
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 !
 ! Current revisions:
@@ -25 +24 @@
 ! -----------------
 ! $Id$
+! file re-formatted to follow the PALM coding standard
+!
+! 4360 2020-01-07 11:25:50Z suehring
 ! Initial revision
 !
@@ -30 +32 @@
 ! Description:
 ! ------------
-!> Calculates length of string and write the respective value together with the
-!> string into binary file(s) for restart runs
-!------------------------------------------------------------------------------!
- 
+!> Calculates length of string and write the respective value together with the string into binary
+!  file(s) for restart runs
+!--------------------------------------------------------------------------------------------------!
+
  SUBROUTINE wrd_write_string( string )
 
@@ -42 +44 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=*), INTENT (IN) ::  string  !< for storing strings in case of writing/reading restart data
-
-    INTEGER(iwp) ::  length  !< integer that specifies the length of a string in case of writing/reading restart
-                             !< data
+    CHARACTER(LEN=*), INTENT(IN) ::  string  !< for storing strings in case of writing/reading
+                                             !< restart data
+    INTEGER(iwp) ::  length  !< integer that specifies the length of a string in case of
+                             !< writing/reading restart data