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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/init_pt_anomaly.f90

@@ -1 @@
- SUBROUTINE init_pt_anomaly
-
+!> @file init_pt_anomaly.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -52 +51 @@
 ! Description:
 ! ------------
-! Impose a temperature perturbation for an advection test.
+!> Impose a temperature perturbation for an advection test.
 !------------------------------------------------------------------------------!
+ SUBROUTINE init_pt_anomaly
+ 
 
     USE arrays_3d,                                                             &
@@ -68 +69 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i  !:
-    INTEGER(iwp) ::  ic !:
-    INTEGER(iwp) ::  j  !:
-    INTEGER(iwp) ::  jc !:
-    INTEGER(iwp) ::  k  !:
-    INTEGER(iwp) ::  kc !:
+    INTEGER(iwp) ::  i  !<
+    INTEGER(iwp) ::  ic !<
+    INTEGER(iwp) ::  j  !<
+    INTEGER(iwp) ::  jc !<
+    INTEGER(iwp) ::  k  !<
+    INTEGER(iwp) ::  kc !<
     
-    REAL(wp)     ::  betrag !:
-    REAL(wp)     ::  radius !:
-    REAL(wp)     ::  rc     !:
-    REAL(wp)     ::  x      !:
-    REAL(wp)     ::  y      !:
-    REAL(wp)     ::  z      !:
+    REAL(wp)     ::  betrag !<
+    REAL(wp)     ::  radius !<
+    REAL(wp)     ::  rc     !<
+    REAL(wp)     ::  x      !<
+    REAL(wp)     ::  y      !<
+    REAL(wp)     ::  z      !<
     
 !