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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -1 @@
- SUBROUTINE check_parameters
-
+!> @file check_parameters.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -278 +277 @@
 ! Description:
 ! ------------
-! Check control parameters and deduce further quantities.
+!> Check control parameters and deduce further quantities.
 !------------------------------------------------------------------------------!
+ SUBROUTINE check_parameters
+ 
 
     USE arrays_3d
@@ -305 +306 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=1)   ::  sq                       !: 
-    CHARACTER (LEN=15)  ::  var                      !: 
-    CHARACTER (LEN=7)   ::  unit                     !: 
-    CHARACTER (LEN=8)   ::  date                     !: 
-    CHARACTER (LEN=10)  ::  time                     !: 
-    CHARACTER (LEN=40)  ::  coupling_string          !: 
-    CHARACTER (LEN=100) ::  action                   !: 
-
-    INTEGER(iwp) ::  i                               !: 
-    INTEGER(iwp) ::  ilen                            !: 
-    INTEGER(iwp) ::  iremote = 0                     !: 
-    INTEGER(iwp) ::  j                               !: 
-    INTEGER(iwp) ::  k                               !: 
-    INTEGER(iwp) ::  kk                              !: 
-    INTEGER(iwp) ::  netcdf_data_format_save         !: 
-    INTEGER(iwp) ::  position                        !:
-    INTEGER(iwp) ::  prec                            !: 
+    CHARACTER (LEN=1)   ::  sq                       !< 
+    CHARACTER (LEN=15)  ::  var                      !< 
+    CHARACTER (LEN=7)   ::  unit                     !< 
+    CHARACTER (LEN=8)   ::  date                     !< 
+    CHARACTER (LEN=10)  ::  time                     !< 
+    CHARACTER (LEN=40)  ::  coupling_string          !< 
+    CHARACTER (LEN=100) ::  action                   !< 
+
+    INTEGER(iwp) ::  i                               !< 
+    INTEGER(iwp) ::  ilen                            !< 
+    INTEGER(iwp) ::  iremote = 0                     !< 
+    INTEGER(iwp) ::  j                               !< 
+    INTEGER(iwp) ::  k                               !< 
+    INTEGER(iwp) ::  kk                              !< 
+    INTEGER(iwp) ::  netcdf_data_format_save         !< 
+    INTEGER(iwp) ::  position                        !<
+    INTEGER(iwp) ::  prec                            !< 
     
-    LOGICAL     ::  found                            !: 
-    LOGICAL     ::  ldum                             !: 
+    LOGICAL     ::  found                            !< 
+    LOGICAL     ::  ldum                             !< 
     
-    REAL(wp)    ::  gradient                         !: 
-    REAL(wp)    ::  remote = 0.0_wp                  !: 
-    REAL(wp)    ::  simulation_time_since_reference  !: 
+    REAL(wp)    ::  gradient                         !< 
+    REAL(wp)    ::  remote = 0.0_wp                  !< 
+    REAL(wp)    ::  simulation_time_since_reference  !<