Changeset 1682 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (8 years ago)
- 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 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: … … 86 85 ! Description: 87 86 ! ------------ 88 ! Check if file unit is open. If not, open file and, if necessary, write a89 ! 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. 90 89 !------------------------------------------------------------------------------! 90 SUBROUTINE check_open( file_id ) 91 91 92 92 93 USE arrays_3d, & … … 123 124 IMPLICIT NONE 124 125 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 !< 150 151 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 !< 175 176 176 177
Note: See TracChangeset
for help on using the changeset viewer.