Ignore:
Timestamp:
Oct 7, 2015 11:56:08 PM (6 years ago)
Author:
knoop
Message:

Code annotations made doxygen readable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_w_up.f90

    r1354 r1682  
    1  MODULE advec_w_up_mod
    2 
     1!> @file advec_w_up.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    4645! Description:
    4746! ------------
    48 ! Advection term for the w velocity-component using upstream scheme.
    49 ! NOTE: vertical advection at k=1 still has wrong grid spacing for w>0
    50 !       The same problem occurs for all topography boundaries!
    51 !------------------------------------------------------------------------------!
     47!> Advection term for the w velocity-component using upstream scheme.
     48!> NOTE: vertical advection at k=1 still has wrong grid spacing for w>0
     49!>       The same problem occurs for all topography boundaries!
     50!------------------------------------------------------------------------------!
     51 MODULE advec_w_up_mod
     52 
    5253
    5354    PRIVATE
     
    6364
    6465!------------------------------------------------------------------------------!
    65 ! Call for all grid points
     66! Description:
     67! ------------
     68!> Call for all grid points
    6669!------------------------------------------------------------------------------!
    6770    SUBROUTINE advec_w_up
     
    8487       IMPLICIT NONE
    8588
    86        INTEGER(iwp) ::  i !:
    87        INTEGER(iwp) ::  j !:
    88        INTEGER(iwp) ::  k !:
    89 
    90        REAL(wp) ::  ukomp !:
    91        REAL(wp) ::  vkomp !:
     89       INTEGER(iwp) ::  i !<
     90       INTEGER(iwp) ::  j !<
     91       INTEGER(iwp) ::  k !<
     92
     93       REAL(wp) ::  ukomp !<
     94       REAL(wp) ::  vkomp !<
    9295
    9396
     
    135138
    136139!------------------------------------------------------------------------------!
    137 ! Call for grid point i,j
     140! Description:
     141! ------------
     142!> Call for grid point i,j
    138143!------------------------------------------------------------------------------!
    139144    SUBROUTINE advec_w_up_ij( i, j )
     
    156161       IMPLICIT NONE
    157162
    158        INTEGER(iwp) ::  i !:
    159        INTEGER(iwp) ::  j !:
    160        INTEGER(iwp) ::  k !:
    161 
    162        REAL(wp) ::  ukomp !:
    163        REAL(wp) ::  vkomp !:
     163       INTEGER(iwp) ::  i !<
     164       INTEGER(iwp) ::  j !<
     165       INTEGER(iwp) ::  k !<
     166
     167       REAL(wp) ::  ukomp !<
     168       REAL(wp) ::  vkomp !<
    164169
    165170
Note: See TracChangeset for help on using the changeset viewer.