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/coriolis.f90

    r1354 r1682  
    1  MODULE coriolis_mod
    2 
     1!> @file coriolis.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    5655! Description:
    5756! ------------
    58 ! Computation of all Coriolis terms in the equations of motion.
    59 !------------------------------------------------------------------------------!
     57!> Computation of all Coriolis terms in the equations of motion.
     58!------------------------------------------------------------------------------!
     59 MODULE coriolis_mod
     60 
    6061
    6162    PRIVATE
     
    7576
    7677!------------------------------------------------------------------------------!
    77 ! Call for all grid points
     78! Description:
     79! ------------
     80!> Call for all grid points
    7881!------------------------------------------------------------------------------!
    7982    SUBROUTINE coriolis( component )
     
    9396       IMPLICIT NONE
    9497
    95        INTEGER(iwp) ::  component  !:
    96        INTEGER(iwp) ::  i          !:
    97        INTEGER(iwp) ::  j          !:
    98        INTEGER(iwp) ::  k          !:
     98       INTEGER(iwp) ::  component  !<
     99       INTEGER(iwp) ::  i          !<
     100       INTEGER(iwp) ::  j          !<
     101       INTEGER(iwp) ::  k          !<
    99102
    100103
     
    157160
    158161!------------------------------------------------------------------------------!
    159 ! Call for all grid points - accelerator version
     162! Description:
     163! ------------
     164!> Call for all grid points - accelerator version
    160165!------------------------------------------------------------------------------!
    161166    SUBROUTINE coriolis_acc( component )
     
    175180       IMPLICIT NONE
    176181
    177        INTEGER(iwp) ::  component  !:
    178        INTEGER(iwp) ::  i          !:
    179        INTEGER(iwp) ::  j          !:
    180        INTEGER(iwp) ::  k          !:
     182       INTEGER(iwp) ::  component  !<
     183       INTEGER(iwp) ::  i          !<
     184       INTEGER(iwp) ::  j          !<
     185       INTEGER(iwp) ::  k          !<
    181186
    182187
     
    251256
    252257!------------------------------------------------------------------------------!
    253 ! Call for grid point i,j
     258! Description:
     259! ------------
     260!> Call for grid point i,j
    254261!------------------------------------------------------------------------------!
    255262    SUBROUTINE coriolis_ij( i, j, component )
     
    268275       IMPLICIT NONE
    269276
    270        INTEGER(iwp) ::  component  !:
    271        INTEGER(iwp) ::  i          !:
    272        INTEGER(iwp) ::  j          !:
    273        INTEGER(iwp) ::  k          !:
     277       INTEGER(iwp) ::  component  !<
     278       INTEGER(iwp) ::  i          !<
     279       INTEGER(iwp) ::  j          !<
     280       INTEGER(iwp) ::  k          !<
    274281
    275282!
Note: See TracChangeset for help on using the changeset viewer.