Changeset 1682 for palm/trunk/SOURCE/close_file.f90

Timestamp:

Oct 7, 2015 11:56:08 PM (9 years ago)

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/close_file.f90

@@ -1 @@
- SUBROUTINE close_file( file_id )
-
+!> @file close_file.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -55 +54 @@
 ! Description:
 ! ------------
-! Close specified file or all open files, if "0" has been given as the
-! calling argument. In that case, execute last actions for certain unit 
-! numbers, if required.
+!> Close specified file or all open files, if "0" has been given as the
+!> calling argument. In that case, execute last actions for certain unit 
+!> numbers, if required.
 !------------------------------------------------------------------------------!
+ SUBROUTINE close_file( file_id )
+ 
 
     USE control_parameters,                                                    &
@@ -80 +81 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=10)  ::  datform = 'lit_endian' !: 
-    CHARACTER (LEN=80)  ::  title                  !: 
-
-    INTEGER(iwp) ::  av           !: 
-    INTEGER(iwp) ::  dimx         !: 
-    INTEGER(iwp) ::  dimy         !: 
-    INTEGER(iwp) ::  fid          !: 
-    INTEGER(iwp) ::  file_id      !: 
-    INTEGER(iwp) ::  planz        !: 
-
-    LOGICAL ::  checkuf = .TRUE.  !: 
-    LOGICAL ::  datleg = .TRUE.   !: 
-    LOGICAL ::  dbp = .FALSE.     !: 
-
-    REAL(wp) ::  sizex            !: 
-    REAL(wp) ::  sizey            !: 
-    REAL(wp) ::  yright           !: 
+    CHARACTER (LEN=10)  ::  datform = 'lit_endian' !< 
+    CHARACTER (LEN=80)  ::  title                  !< 
+
+    INTEGER(iwp) ::  av           !< 
+    INTEGER(iwp) ::  dimx         !< 
+    INTEGER(iwp) ::  dimy         !< 
+    INTEGER(iwp) ::  fid          !< 
+    INTEGER(iwp) ::  file_id      !< 
+    INTEGER(iwp) ::  planz        !< 
+
+    LOGICAL ::  checkuf = .TRUE.  !< 
+    LOGICAL ::  datleg = .TRUE.   !< 
+    LOGICAL ::  dbp = .FALSE.     !< 
+
+    REAL(wp) ::  sizex            !< 
+    REAL(wp) ::  sizey            !< 
+    REAL(wp) ::  yright           !< 
 
     NAMELIST /GLOBAL/  checkuf, datform, dimx, dimy, dbp, planz,               &