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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/surface_coupler.f90

@@ -1 @@
- SUBROUTINE surface_coupler
-
+!> @file surface_coupler.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -68 +67 @@
 ! Description:
 ! ------------
-! Data exchange at the interface between coupled models
+!> Data exchange at the interface between coupled models
 !------------------------------------------------------------------------------!
+ SUBROUTINE surface_coupler
+ 
 
     USE arrays_3d,                                                             &
@@ -96 +97 @@
     IMPLICIT NONE
 
-    REAL(wp)    ::  time_since_reference_point_rem        !: 
-    REAL(wp)    ::  total_2d(-nbgp:ny+nbgp,-nbgp:nx+nbgp) !: 
-
-    REAL(wp)    ::  cpw = 4218.0_wp !: heat capacity of water at constant pressure
+    REAL(wp)    ::  time_since_reference_point_rem        !< 
+    REAL(wp)    ::  total_2d(-nbgp:ny+nbgp,-nbgp:nx+nbgp) !< 
+
+    REAL(wp)    ::  cpw = 4218.0_wp !< heat capacity of water at constant pressure
 
 #if defined( __parallel )
@@ -441 +442 @@
 
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> @todo Missing subroutine description.
+!------------------------------------------------------------------------------!
   SUBROUTINE interpolate_to_atmos( tag )
 
@@ -457 +463 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  dnx  !: 
-    INTEGER(iwp) ::  dnx2 !: 
-    INTEGER(iwp) ::  dny  !: 
-    INTEGER(iwp) ::  dny2 !: 
-    INTEGER(iwp) ::  i    !: 
-    INTEGER(iwp) ::  ii   !: 
-    INTEGER(iwp) ::  j    !: 
-    INTEGER(iwp) ::  jj   !: 
-
-    INTEGER(iwp), intent(in) ::  tag !: 
+    INTEGER(iwp) ::  dnx  !< 
+    INTEGER(iwp) ::  dnx2 !< 
+    INTEGER(iwp) ::  dny  !< 
+    INTEGER(iwp) ::  dny2 !< 
+    INTEGER(iwp) ::  i    !< 
+    INTEGER(iwp) ::  ii   !< 
+    INTEGER(iwp) ::  j    !< 
+    INTEGER(iwp) ::  jj   !< 
+
+    INTEGER(iwp), intent(in) ::  tag !< 
 
     CALL MPI_BARRIER( comm2d, ierr )
@@ -525 +531 @@
 
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> @todo Missing subroutine description.
+!------------------------------------------------------------------------------!
   SUBROUTINE interpolate_to_ocean( tag )
 
@@ -541 +552 @@
     IMPLICIT NONE
 
-    INTEGER(iwp)             ::  dnx !: 
-    INTEGER(iwp)             ::  dny !: 
-    INTEGER(iwp)             ::  i   !: 
-    INTEGER(iwp)             ::  ii  !: 
-    INTEGER(iwp)             ::  j   !: 
-    INTEGER(iwp)             ::  jj  !: 
-    INTEGER(iwp), intent(in) ::  tag !: 
-
-    REAL(wp)                 ::  fl  !: 
-    REAL(wp)                 ::  fr  !: 
-    REAL(wp)                 ::  myl !: 
-    REAL(wp)                 ::  myr !: 
+    INTEGER(iwp)             ::  dnx !< 
+    INTEGER(iwp)             ::  dny !< 
+    INTEGER(iwp)             ::  i   !< 
+    INTEGER(iwp)             ::  ii  !< 
+    INTEGER(iwp)             ::  j   !< 
+    INTEGER(iwp)             ::  jj  !< 
+    INTEGER(iwp), intent(in) ::  tag !< 
+
+    REAL(wp)                 ::  fl  !< 
+    REAL(wp)                 ::  fr  !< 
+    REAL(wp)                 ::  myl !< 
+    REAL(wp)                 ::  myr !< 
 
     CALL MPI_BARRIER( comm2d, ierr )