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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/impact_of_latent_heat.f90

@@ -1 @@
- MODULE impact_of_latent_heat_mod
-
+!> @file impact_of_latent_heat.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -46 +45 @@
 ! Description:
 ! ------------
-! Calculate the impact of latent heat due to precipitation
-! (simplified Kessler scheme)
+!> Calculate the impact of latent heat due to precipitation
+!> (simplified Kessler scheme)
 !------------------------------------------------------------------------------!
+ MODULE impact_of_latent_heat_mod
+ 
 
     PRIVATE
@@ -62 +63 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE impact_of_latent_heat
@@ -79 +82 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i  !:
-       INTEGER(iwp) ::  j  !:
-       INTEGER(iwp) ::  k  !:
+       INTEGER(iwp) ::  i  !<
+       INTEGER(iwp) ::  j  !<
+       INTEGER(iwp) ::  k  !<
        
-       REAL(wp) ::  dqdt_precip  !:
+       REAL(wp) ::  dqdt_precip  !<
 
  
@@ -105 +108 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE impact_of_latent_heat_ij( i, j )
@@ -122 +127 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i  !:
-       INTEGER(iwp) ::  j  !:
-       INTEGER(iwp) ::  k  !:
+       INTEGER(iwp) ::  i  !<
+       INTEGER(iwp) ::  j  !<
+       INTEGER(iwp) ::  k  !<
        
-       REAL(wp) ::  dqdt_precip  !:
+       REAL(wp) ::  dqdt_precip  !<