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

    r1485 r1682  
    1  SUBROUTINE timestep
    2 
     1!> @file timestep.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! ------------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    7978! Description:
    8079! ------------
    81 ! Compute the time step under consideration of the FCL and diffusion criterion.
     80!> Compute the time step under consideration of the FCL and diffusion criterion.
    8281!------------------------------------------------------------------------------!
     82 SUBROUTINE timestep
     83 
    8384
    8485    USE arrays_3d,                                                             &
     
    115116    IMPLICIT NONE
    116117
    117     INTEGER(iwp) ::  i !:
    118     INTEGER(iwp) ::  j !:
    119     INTEGER(iwp) ::  k !:
    120 
    121     REAL(wp) ::  div               !:
    122     REAL(wp) ::  dt_diff           !:
    123     REAL(wp) ::  dt_diff_l         !:
    124     REAL(wp) ::  dt_u              !:
    125     REAL(wp) ::  dt_u_l            !:
    126     REAL(wp) ::  dt_v              !:
    127     REAL(wp) ::  dt_v_l            !:
    128     REAL(wp) ::  dt_w              !:
    129     REAL(wp) ::  dt_w_l            !:
    130     REAL(wp) ::  u_gtrans_l        !:
    131     REAL(wp) ::  u_max_l           !:
    132     REAL(wp) ::  u_min_l           !:
    133     REAL(wp) ::  value             !:
    134     REAL(wp) ::  v_gtrans_l        !:
    135     REAL(wp) ::  v_max_l           !:
    136     REAL(wp) ::  v_min_l           !:
    137     REAL(wp) ::  w_max_l           !:
    138     REAL(wp) ::  w_min_l           !:
     118    INTEGER(iwp) ::  i !<
     119    INTEGER(iwp) ::  j !<
     120    INTEGER(iwp) ::  k !<
     121
     122    REAL(wp) ::  div               !<
     123    REAL(wp) ::  dt_diff           !<
     124    REAL(wp) ::  dt_diff_l         !<
     125    REAL(wp) ::  dt_u              !<
     126    REAL(wp) ::  dt_u_l            !<
     127    REAL(wp) ::  dt_v              !<
     128    REAL(wp) ::  dt_v_l            !<
     129    REAL(wp) ::  dt_w              !<
     130    REAL(wp) ::  dt_w_l            !<
     131    REAL(wp) ::  u_gtrans_l        !<
     132    REAL(wp) ::  u_max_l           !<
     133    REAL(wp) ::  u_min_l           !<
     134    REAL(wp) ::  value             !<
     135    REAL(wp) ::  v_gtrans_l        !<
     136    REAL(wp) ::  v_max_l           !<
     137    REAL(wp) ::  v_min_l           !<
     138    REAL(wp) ::  w_max_l           !<
     139    REAL(wp) ::  w_min_l           !<
    139140 
    140     REAL(wp), DIMENSION(2)         ::  uv_gtrans   !:
    141     REAL(wp), DIMENSION(2)         ::  uv_gtrans_l !:
    142     REAL(wp), DIMENSION(3)         ::  reduce      !:
    143     REAL(wp), DIMENSION(3)         ::  reduce_l    !:
    144     REAL(wp), DIMENSION(nzb+1:nzt) ::  dxyz2_min   !: 
     141    REAL(wp), DIMENSION(2)         ::  uv_gtrans   !<
     142    REAL(wp), DIMENSION(2)         ::  uv_gtrans_l !<
     143    REAL(wp), DIMENSION(3)         ::  reduce      !<
     144    REAL(wp), DIMENSION(3)         ::  reduce_l    !<
     145    REAL(wp), DIMENSION(nzb+1:nzt) ::  dxyz2_min   !< 
    145146
    146147
Note: See TracChangeset for help on using the changeset viewer.