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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/calc_radiation.f90 (modified) (8 diffs)

palm/trunk/SOURCE/calc_radiation.f90

@@ -1 @@
- MODULE calc_radiation_mod
-
+!> @file calc_radiation.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -49 +48 @@
 ! Description:
 ! -------------
-! Calculation of the vertical divergences of the long-wave radiation-fluxes
-! based on the parameterization of the cloud effective emissivity
-!------------------------------------------------------------------------------!
+!> Calculation of the vertical divergences of the long-wave radiation-fluxes
+!> based on the parameterization of the cloud effective emissivity
+!------------------------------------------------------------------------------!
+ MODULE calc_radiation_mod
+ 
     USE kinds
     
@@ -57 +58 @@
     PUBLIC calc_radiation
     
-    LOGICAL, SAVE ::  first_call = .TRUE. !:
-    REAL(wp), SAVE ::  sigma = 5.67E-08_wp   !:
-
-    REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE ::  lwp_ground         !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE ::  lwp_top            !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE ::  blackbody_emission !:
+    LOGICAL, SAVE ::  first_call = .TRUE. !<
+    REAL(wp), SAVE ::  sigma = 5.67E-08_wp   !<
+
+    REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE ::  lwp_ground         !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE ::  lwp_top            !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE ::  blackbody_emission !<
 
     INTERFACE calc_radiation
@@ -73 +74 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE calc_radiation
@@ -96 +99 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i      !:
-       INTEGER(iwp) ::  j      !:
-       INTEGER(iwp) ::  k      !:
-       INTEGER(iwp) ::  k_help !:
+       INTEGER(iwp) ::  i      !<
+       INTEGER(iwp) ::  j      !<
+       INTEGER(iwp) ::  k      !<
+       INTEGER(iwp) ::  k_help !<
  
-       REAL(wp) :: df_p                      !:
-       REAL(wp) :: df_m                      !:
-       REAL(wp) :: effective_emission_up_m   !:
-       REAL(wp) :: effective_emission_up_p   !:
-       REAL(wp) :: effective_emission_down_m !:
-       REAL(wp) :: effective_emission_down_p !:
-       REAL(wp) :: f_up_m                    !:
-       REAL(wp) :: f_up_p                    !:
-       REAL(wp) :: f_down_m                  !:
-       REAL(wp) :: f_down_p                  !:
-       REAL(wp) :: impinging_flux_at_top     !:
-       REAL(wp) :: temperature               !:
+       REAL(wp) :: df_p                      !<
+       REAL(wp) :: df_m                      !<
+       REAL(wp) :: effective_emission_up_m   !<
+       REAL(wp) :: effective_emission_up_p   !<
+       REAL(wp) :: effective_emission_down_m !<
+       REAL(wp) :: effective_emission_down_p !<
+       REAL(wp) :: f_up_m                    !<
+       REAL(wp) :: f_up_p                    !<
+       REAL(wp) :: f_down_m                  !<
+       REAL(wp) :: f_down_p                  !<
+       REAL(wp) :: impinging_flux_at_top     !<
+       REAL(wp) :: temperature               !<
 
 
@@ -216 +219 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE calc_radiation_ij( i, j )
@@ -239 +244 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i      !:
-       INTEGER(iwp) ::  j      !:
-       INTEGER(iwp) ::  k      !:
-       INTEGER(iwp) ::  k_help !:
-
-       REAL(wp) :: df_p                      !:
-       REAL(wp) :: df_m                      !:
-       REAL(wp) :: effective_emission_up_m   !:
-       REAL(wp) :: effective_emission_up_p   !:
-       REAL(wp) :: effective_emission_down_m !:
-       REAL(wp) :: effective_emission_down_p !:
-       REAL(wp) :: f_up_m                    !:
-       REAL(wp) :: f_up_p                    !:
-       REAL(wp) :: f_down_m                  !:
-       REAL(wp) :: f_down_p                  !:
-       REAL(wp) :: impinging_flux_at_top     !:
-       REAL(wp) :: temperature               !:
+       INTEGER(iwp) ::  i      !<
+       INTEGER(iwp) ::  j      !<
+       INTEGER(iwp) ::  k      !<
+       INTEGER(iwp) ::  k_help !<
+
+       REAL(wp) :: df_p                      !<
+       REAL(wp) :: df_m                      !<
+       REAL(wp) :: effective_emission_up_m   !<
+       REAL(wp) :: effective_emission_up_p   !<
+       REAL(wp) :: effective_emission_down_m !<
+       REAL(wp) :: effective_emission_down_p !<
+       REAL(wp) :: f_up_m                    !<
+       REAL(wp) :: f_up_p                    !<
+       REAL(wp) :: f_down_m                  !<
+       REAL(wp) :: f_down_p                  !<
+       REAL(wp) :: impinging_flux_at_top     !<
+       REAL(wp) :: temperature               !<