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

    r1586 r1682  
    1  SUBROUTINE read_3d_binary
    2 
     1!> @file read_3d_binary.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    7574! Description:
    7675! ------------
    77 ! Binary input of variables and arrays from restart file
     76!> Binary input of variables and arrays from restart file
    7877!------------------------------------------------------------------------------!
     78 SUBROUTINE read_3d_binary
     79 
    7980
    8081    USE arrays_3d,                                                             &
     
    134135    CHARACTER (LEN=20) ::  field_chr
    135136
    136     INTEGER(iwp) ::  files_to_be_opened  !:
    137     INTEGER(iwp) ::  i                   !:
    138     INTEGER(iwp) ::  j                   !:
    139     INTEGER(iwp) ::  k                   !:
    140     INTEGER(iwp) ::  myid_on_file        !:
    141     INTEGER(iwp) ::  numprocs_on_file    !:
    142     INTEGER(iwp) ::  nxlc                !:
    143     INTEGER(iwp) ::  nxlf                !:
    144     INTEGER(iwp) ::  nxlpr               !:
    145     INTEGER(iwp) ::  nxl_on_file         !:
    146     INTEGER(iwp) ::  nxrc                !:
    147     INTEGER(iwp) ::  nxrf                !:
    148     INTEGER(iwp) ::  nxrpr               !:
    149     INTEGER(iwp) ::  nxr_on_file         !:
    150     INTEGER(iwp) ::  nync                !:
    151     INTEGER(iwp) ::  nynf                !:
    152     INTEGER(iwp) ::  nynpr               !:
    153     INTEGER(iwp) ::  nyn_on_file         !:
    154     INTEGER(iwp) ::  nysc                !:
    155     INTEGER(iwp) ::  nysf                !:
    156     INTEGER(iwp) ::  nyspr               !:
    157     INTEGER(iwp) ::  nys_on_file         !:
    158     INTEGER(iwp) ::  nzb_on_file         !:
    159     INTEGER(iwp) ::  nzt_on_file         !:
    160     INTEGER(iwp) ::  offset_x            !:
    161     INTEGER(iwp) ::  offset_y            !:
    162     INTEGER(iwp) ::  shift_x             !:
    163     INTEGER(iwp) ::  shift_y             !:
    164 
    165     INTEGER(iwp), DIMENSION(numprocs_previous_run) ::  file_list       !:
    166     INTEGER(iwp), DIMENSION(numprocs_previous_run) ::  overlap_count   !:
    167 
    168     INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nxlfa      !:
    169     INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nxrfa      !:
    170     INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nynfa      !:
    171     INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nysfa      !:
    172     INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  offset_xa  !:
    173     INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  offset_ya  !:
     137    INTEGER(iwp) ::  files_to_be_opened  !<
     138    INTEGER(iwp) ::  i                   !<
     139    INTEGER(iwp) ::  j                   !<
     140    INTEGER(iwp) ::  k                   !<
     141    INTEGER(iwp) ::  myid_on_file        !<
     142    INTEGER(iwp) ::  numprocs_on_file    !<
     143    INTEGER(iwp) ::  nxlc                !<
     144    INTEGER(iwp) ::  nxlf                !<
     145    INTEGER(iwp) ::  nxlpr               !<
     146    INTEGER(iwp) ::  nxl_on_file         !<
     147    INTEGER(iwp) ::  nxrc                !<
     148    INTEGER(iwp) ::  nxrf                !<
     149    INTEGER(iwp) ::  nxrpr               !<
     150    INTEGER(iwp) ::  nxr_on_file         !<
     151    INTEGER(iwp) ::  nync                !<
     152    INTEGER(iwp) ::  nynf                !<
     153    INTEGER(iwp) ::  nynpr               !<
     154    INTEGER(iwp) ::  nyn_on_file         !<
     155    INTEGER(iwp) ::  nysc                !<
     156    INTEGER(iwp) ::  nysf                !<
     157    INTEGER(iwp) ::  nyspr               !<
     158    INTEGER(iwp) ::  nys_on_file         !<
     159    INTEGER(iwp) ::  nzb_on_file         !<
     160    INTEGER(iwp) ::  nzt_on_file         !<
     161    INTEGER(iwp) ::  offset_x            !<
     162    INTEGER(iwp) ::  offset_y            !<
     163    INTEGER(iwp) ::  shift_x             !<
     164    INTEGER(iwp) ::  shift_y             !<
     165
     166    INTEGER(iwp), DIMENSION(numprocs_previous_run) ::  file_list       !<
     167    INTEGER(iwp), DIMENSION(numprocs_previous_run) ::  overlap_count   !<
     168
     169    INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nxlfa      !<
     170    INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nxrfa      !<
     171    INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nynfa      !<
     172    INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  nysfa      !<
     173    INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  offset_xa  !<
     174    INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  offset_ya  !<
    174175
    175176    REAL(wp) ::  rdummy
    176177
    177     REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  tmp_2d      !: temporary array for storing 2D data
    178     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d      !: temporary array for storing 3D data
    179     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_soil1!: temporary array for storing 3D soil model data
    180     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_soil2!: temporary array for storing 3D soil model data
    181     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul   !:
    182     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwun   !:
    183     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwur   !:
    184     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwus   !:
    185     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvl   !:
    186     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvn   !:
    187     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvr   !:
    188     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvs   !:
    189     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwl   !:
    190     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwn   !:
    191     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwr   !:
    192     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwws   !:
    193 
    194     REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::  tmp_4d     !:
     178    REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  tmp_2d      !< temporary array for storing 2D data
     179    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d      !< temporary array for storing 3D data
     180    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_soil1!< temporary array for storing 3D soil model data
     181    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_soil2!< temporary array for storing 3D soil model data
     182    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul   !<
     183    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwun   !<
     184    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwur   !<
     185    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwus   !<
     186    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvl   !<
     187    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvn   !<
     188    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvr   !<
     189    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvs   !<
     190    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwl   !<
     191    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwn   !<
     192    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwr   !<
     193    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwws   !<
     194
     195    REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::  tmp_4d     !<
    195196
    196197
Note: See TracChangeset for help on using the changeset viewer.