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_s_pw.f90

    r1375 r1682  
    1  MODULE advec_s_pw_mod
    2 
     1!> @file advec_s_pw.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    5251! Description:
    5352! ------------
    54 ! Advection term for scalar variables using the Piacsek and Williams scheme
    55 ! (form C3). Contrary to PW itself, for reasons of accuracy their scheme is
    56 ! slightly modified as follows: the values of those scalars that are used for
    57 ! the computation of the flux divergence are reduced by the value of the
    58 ! relevant scalar at the location where the difference is computed (sk(k,j,i)).
    59 ! NOTE: at the first grid point above the surface computation still takes place!
     53!> Advection term for scalar variables using the Piacsek and Williams scheme
     54!> (form C3). Contrary to PW itself, for reasons of accuracy their scheme is
     55!> slightly modified as follows: the values of those scalars that are used for
     56!> the computation of the flux divergence are reduced by the value of the
     57!> relevant scalar at the location where the difference is computed (sk(k,j,i)).
     58!> NOTE: at the first grid point above the surface computation still takes place!
    6059!------------------------------------------------------------------------------!
     60 MODULE advec_s_pw_mod
     61 
    6162
    6263    PRIVATE
     
    7273
    7374!------------------------------------------------------------------------------!
    74 ! Call for all grid points
     75! Description:
     76! ------------
     77!> Call for all grid points
    7578!------------------------------------------------------------------------------!
    7679    SUBROUTINE advec_s_pw( sk )
     
    9497       IMPLICIT NONE
    9598
    96        INTEGER(iwp) ::  i !:
    97        INTEGER(iwp) ::  j !:
    98        INTEGER(iwp) ::  k !:
     99       INTEGER(iwp) ::  i !<
     100       INTEGER(iwp) ::  j !<
     101       INTEGER(iwp) ::  k !<
    99102
    100103#if defined( __nopointer )
    101        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !:
     104       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
    102105#else
    103106       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
     
    126129
    127130!------------------------------------------------------------------------------!
    128 ! Call for grid point i,j
     131! Description:
     132! ------------
     133!> Call for grid point i,j
    129134!------------------------------------------------------------------------------!
    130135    SUBROUTINE advec_s_pw_ij( i, j, sk )
     
    147152       IMPLICIT NONE
    148153
    149        INTEGER(iwp) ::  i !:
    150        INTEGER(iwp) ::  j !:
    151        INTEGER(iwp) ::  k !:
     154       INTEGER(iwp) ::  i !<
     155       INTEGER(iwp) ::  j !<
     156       INTEGER(iwp) ::  k !<
    152157
    153158#if defined( __nopointer )
    154        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !:
     159       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
    155160#else
    156161       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
Note: See TracChangeset for help on using the changeset viewer.