Changeset 1322 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Mar 20, 2014 4:38:49 PM (10 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/average_3d_data.f90 (modified) (31 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r1321 r1322 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! REAL functions provided with KIND-attribute 23 23 ! 24 24 ! Former revisions: … … 99 99 DO j = nysg, nyng 100 100 DO k = nzb, nzt+1 101 e_av(k,j,i) = e_av(k,j,i) / REAL( average_count_3d )101 e_av(k,j,i) = e_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 102 102 ENDDO 103 103 ENDDO … … 107 107 DO i = nxlg, nxrg 108 108 DO j = nysg, nyng 109 qsws_av(j,i) = qsws_av(j,i) / REAL( average_count_3d )109 qsws_av(j,i) = qsws_av(j,i) / REAL( average_count_3d, KIND=wp ) 110 110 ENDDO 111 111 ENDDO … … 115 115 DO j = nysg, nyng 116 116 DO k = nzb, nzt+1 117 lpt_av(k,j,i) = lpt_av(k,j,i) / REAL( average_count_3d )117 lpt_av(k,j,i) = lpt_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 118 118 ENDDO 119 119 ENDDO … … 123 123 DO i = nxlg, nxrg 124 124 DO j = nysg, nyng 125 lwp_av(j,i) = lwp_av(j,i) / REAL( average_count_3d )125 lwp_av(j,i) = lwp_av(j,i) / REAL( average_count_3d, KIND=wp ) 126 126 ENDDO 127 127 ENDDO … … 131 131 DO j = nysg, nyng 132 132 DO k = nzb, nzt+1 133 nr_av(k,j,i) = nr_av(k,j,i) / REAL( average_count_3d )133 nr_av(k,j,i) = nr_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 134 134 ENDDO 135 135 ENDDO … … 140 140 DO j = nysg, nyng 141 141 DO k = nzb, nzt+1 142 p_av(k,j,i) = p_av(k,j,i) / REAL( average_count_3d )142 p_av(k,j,i) = p_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 143 143 ENDDO 144 144 ENDDO … … 149 149 DO j = nys, nyn 150 150 DO k = nzb, nzt+1 151 pc_av(k,j,i) = pc_av(k,j,i) / REAL( average_count_3d )151 pc_av(k,j,i) = pc_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 152 152 ENDDO 153 153 ENDDO … … 158 158 DO j = nys, nyn 159 159 DO k = nzb, nzt+1 160 pr_av(k,j,i) = pr_av(k,j,i) / REAL( average_count_3d )160 pr_av(k,j,i) = pr_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 161 161 ENDDO 162 162 ENDDO … … 167 167 DO j = nysg, nyng 168 168 precipitation_rate_av(j,i) = precipitation_rate_av(j,i) / & 169 REAL( average_count_3d )169 REAL( average_count_3d, KIND=wp ) 170 170 ENDDO 171 171 ENDDO … … 175 175 DO j = nysg, nyng 176 176 DO k = nzb, nzt+1 177 pt_av(k,j,i) = pt_av(k,j,i) / REAL( average_count_3d )177 pt_av(k,j,i) = pt_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 178 178 ENDDO 179 179 ENDDO … … 184 184 DO j = nysg, nyng 185 185 DO k = nzb, nzt+1 186 q_av(k,j,i) = q_av(k,j,i) / REAL( average_count_3d )186 q_av(k,j,i) = q_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 187 187 ENDDO 188 188 ENDDO … … 193 193 DO j = nysg, nyng 194 194 DO k = nzb, nzt+1 195 qc_av(k,j,i) = qc_av(k,j,i) / REAL( average_count_3d )195 qc_av(k,j,i) = qc_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 196 196 ENDDO 197 197 ENDDO … … 202 202 DO j = nysg, nyng 203 203 DO k = nzb, nzt+1 204 ql_av(k,j,i) = ql_av(k,j,i) / REAL( average_count_3d )204 ql_av(k,j,i) = ql_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 205 205 ENDDO 206 206 ENDDO … … 211 211 DO j = nysg, nyng 212 212 DO k = nzb, nzt+1 213 ql_c_av(k,j,i) = ql_c_av(k,j,i) / REAL( average_count_3d )213 ql_c_av(k,j,i) = ql_c_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 214 214 ENDDO 215 215 ENDDO … … 220 220 DO j = nysg, nyng 221 221 DO k = nzb, nzt+1 222 ql_v_av(k,j,i) = ql_v_av(k,j,i) / REAL( average_count_3d )222 ql_v_av(k,j,i) = ql_v_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 223 223 ENDDO 224 224 ENDDO … … 230 230 DO k = nzb, nzt+1 231 231 ql_vp_av(k,j,i) = ql_vp_av(k,j,i) / & 232 REAL( average_count_3d )232 REAL( average_count_3d, KIND=wp ) 233 233 ENDDO 234 234 ENDDO … … 239 239 DO j = nysg, nyng 240 240 DO k = nzb, nzt+1 241 qr_av(k,j,i) = qr_av(k,j,i) / REAL( average_count_3d )241 qr_av(k,j,i) = qr_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 242 242 ENDDO 243 243 ENDDO … … 248 248 DO j = nysg, nyng 249 249 DO k = nzb, nzt+1 250 qv_av(k,j,i) = qv_av(k,j,i) / REAL( average_count_3d )250 qv_av(k,j,i) = qv_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 251 251 ENDDO 252 252 ENDDO … … 257 257 DO j = nysg, nyng 258 258 DO k = nzb, nzt+1 259 rho_av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d )259 rho_av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 260 260 ENDDO 261 261 ENDDO … … 266 266 DO j = nysg, nyng 267 267 DO k = nzb, nzt+1 268 s_av(k,j,i) = s_av(k,j,i) / REAL( average_count_3d )268 s_av(k,j,i) = s_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 269 269 ENDDO 270 270 ENDDO … … 275 275 DO j = nysg, nyng 276 276 DO k = nzb, nzt+1 277 sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d )277 sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 278 278 ENDDO 279 279 ENDDO … … 283 283 DO i = nxlg, nxrg 284 284 DO j = nysg, nyng 285 shf_av(j,i) = shf_av(j,i) / REAL( average_count_3d )285 shf_av(j,i) = shf_av(j,i) / REAL( average_count_3d, KIND=wp ) 286 286 ENDDO 287 287 ENDDO … … 290 290 DO i = nxlg, nxrg 291 291 DO j = nysg, nyng 292 ts_av(j,i) = ts_av(j,i) / REAL( average_count_3d )292 ts_av(j,i) = ts_av(j,i) / REAL( average_count_3d, KIND=wp ) 293 293 ENDDO 294 294 ENDDO … … 298 298 DO j = nysg, nyng 299 299 DO k = nzb, nzt+1 300 u_av(k,j,i) = u_av(k,j,i) / REAL( average_count_3d )300 u_av(k,j,i) = u_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 301 301 ENDDO 302 302 ENDDO … … 306 306 DO i = nxlg, nxrg 307 307 DO j = nysg, nyng 308 us_av(j,i) = us_av(j,i) / REAL( average_count_3d )308 us_av(j,i) = us_av(j,i) / REAL( average_count_3d, KIND=wp ) 309 309 ENDDO 310 310 ENDDO … … 314 314 DO j = nysg, nyng 315 315 DO k = nzb, nzt+1 316 v_av(k,j,i) = v_av(k,j,i) / REAL( average_count_3d )316 v_av(k,j,i) = v_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 317 317 ENDDO 318 318 ENDDO … … 323 323 DO j = nysg, nyng 324 324 DO k = nzb, nzt+1 325 vpt_av(k,j,i) = vpt_av(k,j,i) / REAL( average_count_3d )325 vpt_av(k,j,i) = vpt_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 326 326 ENDDO 327 327 ENDDO … … 332 332 DO j = nysg, nyng 333 333 DO k = nzb, nzt+1 334 w_av(k,j,i) = w_av(k,j,i) / REAL( average_count_3d )334 w_av(k,j,i) = w_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 335 335 ENDDO 336 336 ENDDO … … 340 340 DO i = nxlg, nxrg 341 341 DO j = nysg, nyng 342 z0_av(j,i) = z0_av(j,i) / REAL( average_count_3d )342 z0_av(j,i) = z0_av(j,i) / REAL( average_count_3d, KIND=wp ) 343 343 ENDDO 344 344 ENDDO … … 347 347 DO i = nxlg, nxrg 348 348 DO j = nysg, nyng 349 z0h_av(j,i) = z0h_av(j,i) / REAL( average_count_3d )349 z0h_av(j,i) = z0h_av(j,i) / REAL( average_count_3d, KIND=wp ) 350 350 ENDDO 351 351 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.
