Ignore:
Timestamp:
Oct 7, 2015 11:56:08 PM (8 years ago)
Author:
knoop
Message:

Code annotations made doxygen readable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r1552 r1682  
    1 SUBROUTINE check_open( file_id )
    2 
     1!> @file check_open.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    8685! Description:
    8786! ------------
    88 ! Check if file unit is open. If not, open file and, if necessary, write a
    89 ! header or start other initializing actions, respectively.
     87!> Check if file unit is open. If not, open file and, if necessary, write a
     88!> header or start other initializing actions, respectively.
    9089!------------------------------------------------------------------------------!
     90SUBROUTINE check_open( file_id )
     91 
    9192
    9293    USE arrays_3d,                                                             &
     
    123124    IMPLICIT NONE
    124125
    125     CHARACTER (LEN=2)   ::  mask_char               !:
    126     CHARACTER (LEN=2)   ::  suffix                  !:
    127     CHARACTER (LEN=20)  ::  xtext = 'time in s'     !:
    128     CHARACTER (LEN=30)  ::  filename                !:
    129     CHARACTER (LEN=40)  ::  avs_coor_file           !:
    130     CHARACTER (LEN=40)  ::  avs_coor_file_localname !:
    131     CHARACTER (LEN=40)  ::  avs_data_file_localname !:
    132     CHARACTER (LEN=80)  ::  rtext                   !:
    133     CHARACTER (LEN=100) ::  avs_coor_file_catalog   !:
    134     CHARACTER (LEN=100) ::  avs_data_file_catalog   !:
    135     CHARACTER (LEN=100) ::  batch_scp               !:
    136     CHARACTER (LEN=100) ::  line                    !:
    137     CHARACTER (LEN=400) ::  command                 !:
    138 
    139     INTEGER(iwp) ::  av          !:
    140     INTEGER(iwp) ::  numline = 1 !:
    141     INTEGER(iwp) ::  cranz       !:
    142     INTEGER(iwp) ::  file_id     !:
    143     INTEGER(iwp) ::  i           !:
    144     INTEGER(iwp) ::  iaddres     !:
    145     INTEGER(iwp) ::  iusern      !:
    146     INTEGER(iwp) ::  j           !:
    147     INTEGER(iwp) ::  k           !:
    148     INTEGER(iwp) ::  legpos = 1  !:
    149     INTEGER(iwp) ::  timodex = 1 !:
     126    CHARACTER (LEN=2)   ::  mask_char               !<
     127    CHARACTER (LEN=2)   ::  suffix                  !<
     128    CHARACTER (LEN=20)  ::  xtext = 'time in s'     !<
     129    CHARACTER (LEN=30)  ::  filename                !<
     130    CHARACTER (LEN=40)  ::  avs_coor_file           !<
     131    CHARACTER (LEN=40)  ::  avs_coor_file_localname !<
     132    CHARACTER (LEN=40)  ::  avs_data_file_localname !<
     133    CHARACTER (LEN=80)  ::  rtext                   !<
     134    CHARACTER (LEN=100) ::  avs_coor_file_catalog   !<
     135    CHARACTER (LEN=100) ::  avs_data_file_catalog   !<
     136    CHARACTER (LEN=100) ::  batch_scp               !<
     137    CHARACTER (LEN=100) ::  line                    !<
     138    CHARACTER (LEN=400) ::  command                 !<
     139
     140    INTEGER(iwp) ::  av          !<
     141    INTEGER(iwp) ::  numline = 1 !<
     142    INTEGER(iwp) ::  cranz       !<
     143    INTEGER(iwp) ::  file_id     !<
     144    INTEGER(iwp) ::  i           !<
     145    INTEGER(iwp) ::  iaddres     !<
     146    INTEGER(iwp) ::  iusern      !<
     147    INTEGER(iwp) ::  j           !<
     148    INTEGER(iwp) ::  k           !<
     149    INTEGER(iwp) ::  legpos = 1  !<
     150    INTEGER(iwp) ::  timodex = 1 !<
    150151   
    151     INTEGER(iwp), DIMENSION(10) ::  klist !:
    152 
    153     LOGICAL ::  avs_coor_file_found = .FALSE. !:
    154     LOGICAL ::  avs_data_file_found = .FALSE. !:
    155     LOGICAL ::  datleg = .TRUE.               !:
    156     LOGICAL ::  get_filenames                 !:
    157     LOGICAL ::  grid = .TRUE.                 !:
    158     LOGICAL ::  netcdf_extend                 !:
    159     LOGICAL ::  rand = .TRUE.                 !:
    160     LOGICAL ::  swap = .TRUE.                 !:
    161     LOGICAL ::  twoxa = .TRUE.                !:
    162     LOGICAL ::  twoya = .TRUE.                !:
    163 
    164     REAL(wp) ::  ansx = -999.999_wp !:
    165     REAL(wp) ::  ansy = -999.999_wp !:
    166     REAL(wp) ::  gwid = 0.1_wp      !:
    167     REAL(wp) ::  rlegfak = 1.5_wp   !:
    168     REAL(wp) ::  sizex = 250.0_wp   !:
    169     REAL(wp) ::  sizey = 40.0_wp    !:
    170     REAL(wp) ::  texfac = 1.5_wp    !:
    171 
    172     REAL(wp), DIMENSION(:), ALLOCATABLE      ::  eta !:
    173     REAL(wp), DIMENSION(:), ALLOCATABLE      ::  ho  !:
    174     REAL(wp), DIMENSION(:), ALLOCATABLE      ::  hu  !:
     152    INTEGER(iwp), DIMENSION(10) ::  klist !<
     153
     154    LOGICAL ::  avs_coor_file_found = .FALSE. !<
     155    LOGICAL ::  avs_data_file_found = .FALSE. !<
     156    LOGICAL ::  datleg = .TRUE.               !<
     157    LOGICAL ::  get_filenames                 !<
     158    LOGICAL ::  grid = .TRUE.                 !<
     159    LOGICAL ::  netcdf_extend                 !<
     160    LOGICAL ::  rand = .TRUE.                 !<
     161    LOGICAL ::  swap = .TRUE.                 !<
     162    LOGICAL ::  twoxa = .TRUE.                !<
     163    LOGICAL ::  twoya = .TRUE.                !<
     164
     165    REAL(wp) ::  ansx = -999.999_wp !<
     166    REAL(wp) ::  ansy = -999.999_wp !<
     167    REAL(wp) ::  gwid = 0.1_wp      !<
     168    REAL(wp) ::  rlegfak = 1.5_wp   !<
     169    REAL(wp) ::  sizex = 250.0_wp   !<
     170    REAL(wp) ::  sizey = 40.0_wp    !<
     171    REAL(wp) ::  texfac = 1.5_wp    !<
     172
     173    REAL(wp), DIMENSION(:), ALLOCATABLE      ::  eta !<
     174    REAL(wp), DIMENSION(:), ALLOCATABLE      ::  ho  !<
     175    REAL(wp), DIMENSION(:), ALLOCATABLE      ::  hu  !<
    175176 
    176177
Note: See TracChangeset for help on using the changeset viewer.