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

    r1669 r1682  
    1  PROGRAM palm
    2 
     1!> @file palm.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    9392! Description:
    9493! ------------
    95 ! Large-Eddy Simulation (LES) model for the convective boundary layer,
    96 ! optimized for use on parallel machines (implementation realized using the
    97 ! Message Passing Interface (MPI)). The model can also be run on vector machines
    98 ! (less well optimized) and workstations. Versions for the different types of
    99 ! machines are controlled via cpp-directives.
    100 ! Model runs are only feasible using the ksh-script mrun.
     94!> Large-Eddy Simulation (LES) model for the convective boundary layer,
     95!> optimized for use on parallel machines (implementation realized using the
     96!> Message Passing Interface (MPI)). The model can also be run on vector machines
     97!> (less well optimized) and workstations. Versions for the different types of
     98!> machines are controlled via cpp-directives.
     99!> Model runs are only feasible using the ksh-script mrun.
    101100!------------------------------------------------------------------------------!
     101 PROGRAM palm
     102 
    102103
    103104    USE arrays_3d
     
    149150!
    150151!-- Local variables
    151     CHARACTER(LEN=9)  ::  time_to_string  !:
    152     CHARACTER(LEN=10) ::  env_string      !: to store string of environment var
    153     INTEGER(iwp)      ::  env_stat        !: to hold status of GET_ENV
    154     INTEGER(iwp)      ::  i               !:
    155     INTEGER(iwp)      ::  myid_openmpi    !: OpenMPI local rank for CUDA aware MPI
     152    CHARACTER(LEN=9)  ::  time_to_string  !<
     153    CHARACTER(LEN=10) ::  env_string      !< to store string of environment var
     154    INTEGER(iwp)      ::  env_stat        !< to hold status of GET_ENV
     155    INTEGER(iwp)      ::  i               !<
     156    INTEGER(iwp)      ::  myid_openmpi    !< OpenMPI local rank for CUDA aware MPI
    156157#if defined( __openacc )
    157     REAL(wp), DIMENSION(100) ::  acc_dum     !:
     158    REAL(wp), DIMENSION(100) ::  acc_dum     !<
    158159#endif
    159160
Note: See TracChangeset for help on using the changeset viewer.