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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/interaction_droplets_ptq.f90 (modified) (7 diffs)

palm/trunk/SOURCE/interaction_droplets_ptq.f90

@@ -1 @@
- MODULE interaction_droplets_ptq_mod
-
+!> @file interaction_droplets_ptq.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
+! Code annotations made doxygen readable
 !
 ! Former revisions:
@@ -47 +47 @@
 ! Description:
 ! ------------
-! Release of latent heat and change of specific humidity due to condensation /
-! evaporation of droplets.
+!> Release of latent heat and change of specific humidity due to condensation /
+!> evaporation of droplets.
 !------------------------------------------------------------------------------!
+ MODULE interaction_droplets_ptq_mod
+ 
 
     PRIVATE
@@ -63 +65 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE interaction_droplets_ptq
@@ -82 +86 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !:
-       INTEGER(iwp) ::  j !:
-       INTEGER(iwp) ::  k !:
+       INTEGER(iwp) ::  i !<
+       INTEGER(iwp) ::  j !<
+       INTEGER(iwp) ::  k !<
 
  
@@ -100 +104 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE interaction_droplets_ptq_ij( i, j )
@@ -120 +126 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !:
-       INTEGER(iwp) ::  j !:
-       INTEGER(iwp) ::  k !:
+       INTEGER(iwp) ::  i !<
+       INTEGER(iwp) ::  j !<
+       INTEGER(iwp) ::  k !<