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

    r1552 r1682  
    1  SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d, nzb_do, nzt_do )
    2 
     1!> @file user_data_output_2d.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    4443! Description:
    4544! ------------
    46 ! Resorts the user-defined output quantity with indices (k,j,i) to a
    47 ! temporary array with indices (i,j,k) and sets the grid on which it is defined.
    48 ! Allowed values for grid are "zu" and "zw".
     45!> Resorts the user-defined output quantity with indices (k,j,i) to a
     46!> temporary array with indices (i,j,k) and sets the grid on which it is defined.
     47!> Allowed values for grid are "zu" and "zw".
    4948!------------------------------------------------------------------------------!
     49 SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d, nzb_do, nzt_do )
     50 
    5051
    5152    USE indices
     
    5758    IMPLICIT NONE
    5859
    59     CHARACTER (LEN=*) ::  grid     !:
    60     CHARACTER (LEN=*) ::  variable !:
     60    CHARACTER (LEN=*) ::  grid     !<
     61    CHARACTER (LEN=*) ::  variable !<
    6162
    62     INTEGER(iwp) ::  av !:
    63     INTEGER(iwp) ::  i  !:
    64     INTEGER(iwp) ::  j  !:
    65     INTEGER(iwp) ::  k  !:
    66     INTEGER(iwp) ::  nzb_do !: lower limit of the domain (usually nzb)
    67     INTEGER(iwp) ::  nzt_do !: upper limit of the domain (usually nzt+1)
     63    INTEGER(iwp) ::  av !<
     64    INTEGER(iwp) ::  i  !<
     65    INTEGER(iwp) ::  j  !<
     66    INTEGER(iwp) ::  k  !<
     67    INTEGER(iwp) ::  nzb_do !< lower limit of the domain (usually nzb)
     68    INTEGER(iwp) ::  nzt_do !< upper limit of the domain (usually nzt+1)
    6869
    69     LOGICAL      ::  found !:
    70     LOGICAL      ::  two_d !: flag parameter that indicates 2D variables (horizontal cross sections)
     70    LOGICAL      ::  found !<
     71    LOGICAL      ::  two_d !< flag parameter that indicates 2D variables (horizontal cross sections)
    7172
    72     REAL(wp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nzt+1) ::  local_pf !:
     73    REAL(wp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nzt+1) ::  local_pf !<
    7374
    7475
Note: See TracChangeset for help on using the changeset viewer.