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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/diffusivities.f90

@@ -1 @@
- SUBROUTINE diffusivities( var, var_reference )
-
+!> @file diffusivities.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -63 +62 @@
 ! Description:
 ! ------------
-! Computation of the turbulent diffusion coefficients for momentum and heat 
-! according to Prandtl-Kolmogorov
+!> Computation of the turbulent diffusion coefficients for momentum and heat 
+!> according to Prandtl-Kolmogorov
 !------------------------------------------------------------------------------!
+ SUBROUTINE diffusivities( var, var_reference )
+ 
 
     USE arrays_3d,                                                             &
@@ -85 +86 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i                   !:
-    INTEGER(iwp) ::  j                   !:
-    INTEGER(iwp) ::  k                   !:
-    INTEGER(iwp) ::  omp_get_thread_num  !:
-    INTEGER(iwp) ::  sr                  !:
-    INTEGER(iwp) ::  tn                  !:
-
-    REAL(wp)     ::  dvar_dz             !:
-    REAL(wp)     ::  l                   !:
-    REAL(wp)     ::  ll                  !:
-    REAL(wp)     ::  l_stable            !:
-    REAL(wp)     ::  sqrt_e              !:
-    REAL(wp)     ::  var_reference       !:
-
-    REAL(wp)     ::  var(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !:
+    INTEGER(iwp) ::  i                   !<
+    INTEGER(iwp) ::  j                   !<
+    INTEGER(iwp) ::  k                   !<
+    INTEGER(iwp) ::  omp_get_thread_num  !<
+    INTEGER(iwp) ::  sr                  !<
+    INTEGER(iwp) ::  tn                  !<
+
+    REAL(wp)     ::  dvar_dz             !<
+    REAL(wp)     ::  l                   !<
+    REAL(wp)     ::  ll                  !<
+    REAL(wp)     ::  l_stable            !<
+    REAL(wp)     ::  sqrt_e              !<
+    REAL(wp)     ::  var_reference       !<
+
+    REAL(wp)     ::  var(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !<