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

    r1586 r1682  
    1  SUBROUTINE data_output_2d( mode, av )
    2 
     1!> @file 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:
     
    101100! Description:
    102101! ------------
    103 ! Data output of horizontal cross-sections in netCDF format or binary format
    104 ! compatible to old graphic software iso2d.
    105 ! Attention: The position of the sectional planes is still not always computed
    106 ! ---------  correctly. (zu is used always)!
     102!> Data output of horizontal cross-sections in netCDF format or binary format
     103!> compatible to old graphic software iso2d.
     104!> Attention: The position of the sectional planes is still not always computed
     105!> ---------  correctly. (zu is used always)!
    107106!------------------------------------------------------------------------------!
     107 SUBROUTINE data_output_2d( mode, av )
     108 
    108109
    109110    USE arrays_3d,                                                             &
     
    163164    IMPLICIT NONE
    164165
    165     CHARACTER (LEN=2)  ::  do2d_mode    !:
    166     CHARACTER (LEN=2)  ::  mode         !:
    167     CHARACTER (LEN=4)  ::  grid         !:
    168     CHARACTER (LEN=25) ::  section_chr  !:
    169     CHARACTER (LEN=50) ::  rtext        !:
     166    CHARACTER (LEN=2)  ::  do2d_mode    !<
     167    CHARACTER (LEN=2)  ::  mode         !<
     168    CHARACTER (LEN=4)  ::  grid         !<
     169    CHARACTER (LEN=25) ::  section_chr  !<
     170    CHARACTER (LEN=50) ::  rtext        !<
    170171   
    171     INTEGER(iwp) ::  av        !:
    172     INTEGER(iwp) ::  ngp       !:
    173     INTEGER(iwp) ::  file_id   !:
    174     INTEGER(iwp) ::  i         !:
    175     INTEGER(iwp) ::  if        !:
    176     INTEGER(iwp) ::  is        !:
    177     INTEGER(iwp) ::  iis       !:
    178     INTEGER(iwp) ::  j         !:
    179     INTEGER(iwp) ::  k         !:
    180     INTEGER(iwp) ::  l         !:
    181     INTEGER(iwp) ::  layer_xy  !:
    182     INTEGER(iwp) ::  n         !:
    183     INTEGER(iwp) ::  ns        !:
    184     INTEGER(iwp) ::  nzb_do    !: lower limit of the data field (usually nzb)
    185     INTEGER(iwp) ::  nzt_do    !: upper limit of the data field (usually nzt+1)
    186     INTEGER(iwp) ::  psi       !:
    187     INTEGER(iwp) ::  s         !:
    188     INTEGER(iwp) ::  sender    !:
    189     INTEGER(iwp) ::  ind(4)    !:
     172    INTEGER(iwp) ::  av        !<
     173    INTEGER(iwp) ::  ngp       !<
     174    INTEGER(iwp) ::  file_id   !<
     175    INTEGER(iwp) ::  i         !<
     176    INTEGER(iwp) ::  if        !<
     177    INTEGER(iwp) ::  is        !<
     178    INTEGER(iwp) ::  iis       !<
     179    INTEGER(iwp) ::  j         !<
     180    INTEGER(iwp) ::  k         !<
     181    INTEGER(iwp) ::  l         !<
     182    INTEGER(iwp) ::  layer_xy  !<
     183    INTEGER(iwp) ::  n         !<
     184    INTEGER(iwp) ::  ns        !<
     185    INTEGER(iwp) ::  nzb_do    !< lower limit of the data field (usually nzb)
     186    INTEGER(iwp) ::  nzt_do    !< upper limit of the data field (usually nzt+1)
     187    INTEGER(iwp) ::  psi       !<
     188    INTEGER(iwp) ::  s         !<
     189    INTEGER(iwp) ::  sender    !<
     190    INTEGER(iwp) ::  ind(4)    !<
    190191   
    191     LOGICAL ::  found          !:
    192     LOGICAL ::  resorted       !:
    193     LOGICAL ::  two_d          !:
     192    LOGICAL ::  found          !<
     193    LOGICAL ::  resorted       !<
     194    LOGICAL ::  two_d          !<
    194195   
    195     REAL(wp) ::  mean_r        !:
    196     REAL(wp) ::  s_r2          !:
    197     REAL(wp) ::  s_r3          !:
     196    REAL(wp) ::  mean_r        !<
     197    REAL(wp) ::  s_r2          !<
     198    REAL(wp) ::  s_r3          !<
    198199   
    199     REAL(wp), DIMENSION(:), ALLOCATABLE     ::  level_z             !:
    200     REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d            !:
    201     REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d_l          !:
    202     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_pf            !:
    203     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections   !:
    204     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections_l !:
     200    REAL(wp), DIMENSION(:), ALLOCATABLE     ::  level_z             !<
     201    REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d            !<
     202    REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d_l          !<
     203    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_pf            !<
     204    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections   !<
     205    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections_l !<
    205206
    206207#if defined( __parallel )
    207     REAL(wp), DIMENSION(:,:),   ALLOCATABLE ::  total_2d    !:
    208 #endif
    209     REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !:
     208    REAL(wp), DIMENSION(:,:),   ALLOCATABLE ::  total_2d    !<
     209#endif
     210    REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !<
    210211
    211212    NAMELIST /LOCAL/  rtext
Note: See TracChangeset for help on using the changeset viewer.