Changeset 1682 for palm/trunk/SOURCE/read_3d_binary.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- 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 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ----------------- 22 ! 21 ! Code annotations made doxygen readable 23 22 ! 24 23 ! Former revisions: … … 75 74 ! Description: 76 75 ! ------------ 77 ! Binary input of variables and arrays from restart file76 !> Binary input of variables and arrays from restart file 78 77 !------------------------------------------------------------------------------! 78 SUBROUTINE read_3d_binary 79 79 80 80 81 USE arrays_3d, & … … 134 135 CHARACTER (LEN=20) :: field_chr 135 136 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 !< 174 175 175 176 REAL(wp) :: rdummy 176 177 177 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: tmp_2d ! :temporary array for storing 2D data178 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: tmp_3d ! :temporary array for storing 3D data179 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: tmp_3d_soil1! :temporary array for storing 3D soil model data180 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: tmp_3d_soil2! :temporary array for storing 3D soil model data181 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 !< 195 196 196 197
Note: See TracChangeset
for help on using the changeset viewer.