Changeset 667 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Dec 23, 2010 12:06:00 PM (13 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE
-
Property
svn:mergeinfo
set to
(toggle deleted branches)
/palm/branches/suehring 423-666 /palm/branches/letzel/masked_output/SOURCE 296-409
-
Property
svn:mergeinfo
set to
(toggle deleted branches)
-
palm/trunk/SOURCE/average_3d_data.f90
r484 r667 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng 7 7 ! 8 8 ! Former revisions: … … 58 58 59 59 CASE ( 'e' ) 60 DO i = nxl -1, nxr+161 DO j = nys -1, nyn+160 DO i = nxlg, nxrg 61 DO j = nysg, nyng 62 62 DO k = nzb, nzt+1 63 63 e_av(k,j,i) = e_av(k,j,i) / REAL( average_count_3d ) … … 67 67 68 68 CASE ( 'qsws*' ) 69 DO i = nxl -1, nxr+170 DO j = nys -1, nyn+169 DO i = nxlg, nxrg 70 DO j = nysg, nyng 71 71 qsws_av(j,i) = qsws_av(j,i) / REAL( average_count_3d ) 72 72 ENDDO … … 74 74 75 75 CASE ( 'lwp*' ) 76 DO i = nxl -1, nxr+177 DO j = nys -1, nyn+176 DO i = nxlg, nxrg 77 DO j = nysg, nyng 78 78 lwp_av(j,i) = lwp_av(j,i) / REAL( average_count_3d ) 79 79 ENDDO … … 81 81 82 82 CASE ( 'p' ) 83 DO i = nxl -1, nxr+184 DO j = nys -1, nyn+183 DO i = nxlg, nxrg 84 DO j = nysg, nyng 85 85 DO k = nzb, nzt+1 86 86 p_av(k,j,i) = p_av(k,j,i) / REAL( average_count_3d ) … … 108 108 109 109 CASE ( 'prr*' ) 110 DO i = nxl -1, nxr+1111 DO j = nys -1, nyn+1110 DO i = nxlg, nxrg 111 DO j = nysg, nyng 112 112 precipitation_rate_av(j,i) = precipitation_rate_av(j,i) / & 113 113 REAL( average_count_3d ) … … 116 116 117 117 CASE ( 'pt' ) 118 DO i = nxl -1, nxr+1119 DO j = nys -1, nyn+1118 DO i = nxlg, nxrg 119 DO j = nysg, nyng 120 120 DO k = nzb, nzt+1 121 121 pt_av(k,j,i) = pt_av(k,j,i) / REAL( average_count_3d ) … … 125 125 126 126 CASE ( 'q' ) 127 DO i = nxl -1, nxr+1128 DO j = nys -1, nyn+1127 DO i = nxlg, nxrg 128 DO j = nysg, nyng 129 129 DO k = nzb, nzt+1 130 130 q_av(k,j,i) = q_av(k,j,i) / REAL( average_count_3d ) … … 134 134 135 135 CASE ( 'ql' ) 136 DO i = nxl -1, nxr+1137 DO j = nys -1, nyn+1136 DO i = nxlg, nxrg 137 DO j = nysg, nyng 138 138 DO k = nzb, nzt+1 139 139 ql_av(k,j,i) = ql_av(k,j,i) / REAL( average_count_3d ) … … 143 143 144 144 CASE ( 'ql_c' ) 145 DO i = nxl -1, nxr+1146 DO j = nys -1, nyn+1145 DO i = nxlg, nxrg 146 DO j = nysg, nyng 147 147 DO k = nzb, nzt+1 148 148 ql_c_av(k,j,i) = ql_c_av(k,j,i) / REAL( average_count_3d ) … … 152 152 153 153 CASE ( 'ql_v' ) 154 DO i = nxl -1, nxr+1155 DO j = nys -1, nyn+1154 DO i = nxlg, nxrg 155 DO j = nysg, nyng 156 156 DO k = nzb, nzt+1 157 157 ql_v_av(k,j,i) = ql_v_av(k,j,i) / REAL( average_count_3d ) … … 161 161 162 162 CASE ( 'ql_vp' ) 163 DO i = nxl -1, nxr+1164 DO j = nys -1, nyn+1163 DO i = nxlg, nxrg 164 DO j = nysg, nyng 165 165 DO k = nzb, nzt+1 166 166 ql_vp_av(k,j,i) = ql_vp_av(k,j,i) / & … … 171 171 172 172 CASE ( 'qv' ) 173 DO i = nxl -1, nxr+1174 DO j = nys -1, nyn+1173 DO i = nxlg, nxrg 174 DO j = nysg, nyng 175 175 DO k = nzb, nzt+1 176 176 qv_av(k,j,i) = qv_av(k,j,i) / REAL( average_count_3d ) … … 180 180 181 181 CASE ( 'rho' ) 182 DO i = nxl -1, nxr+1183 DO j = nys -1, nyn+1182 DO i = nxlg, nxrg 183 DO j = nysg, nyng 184 184 DO k = nzb, nzt+1 185 185 rho_av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d ) … … 189 189 190 190 CASE ( 's' ) 191 DO i = nxl -1, nxr+1192 DO j = nys -1, nyn+1191 DO i = nxlg, nxrg 192 DO j = nysg, nyng 193 193 DO k = nzb, nzt+1 194 194 s_av(k,j,i) = s_av(k,j,i) / REAL( average_count_3d ) … … 198 198 199 199 CASE ( 'sa' ) 200 DO i = nxl -1, nxr+1201 DO j = nys -1, nyn+1200 DO i = nxlg, nxrg 201 DO j = nysg, nyng 202 202 DO k = nzb, nzt+1 203 203 sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d ) … … 207 207 208 208 CASE ( 'shf*' ) 209 DO i = nxl -1, nxr+1210 DO j = nys -1, nyn+1209 DO i = nxlg, nxrg 210 DO j = nysg, nyng 211 211 shf_av(j,i) = shf_av(j,i) / REAL( average_count_3d ) 212 212 ENDDO … … 214 214 215 215 CASE ( 't*' ) 216 DO i = nxl -1, nxr+1217 DO j = nys -1, nyn+1216 DO i = nxlg, nxrg 217 DO j = nysg, nyng 218 218 ts_av(j,i) = ts_av(j,i) / REAL( average_count_3d ) 219 219 ENDDO … … 221 221 222 222 CASE ( 'u' ) 223 DO i = nxl -1, nxr+1224 DO j = nys -1, nyn+1223 DO i = nxlg, nxrg 224 DO j = nysg, nyng 225 225 DO k = nzb, nzt+1 226 226 u_av(k,j,i) = u_av(k,j,i) / REAL( average_count_3d ) … … 230 230 231 231 CASE ( 'u*' ) 232 DO i = nxl -1, nxr+1233 DO j = nys -1, nyn+1232 DO i = nxlg, nxrg 233 DO j = nysg, nyng 234 234 us_av(j,i) = us_av(j,i) / REAL( average_count_3d ) 235 235 ENDDO … … 237 237 238 238 CASE ( 'v' ) 239 DO i = nxl -1, nxr+1240 DO j = nys -1, nyn+1239 DO i = nxlg, nxrg 240 DO j = nysg, nyng 241 241 DO k = nzb, nzt+1 242 242 v_av(k,j,i) = v_av(k,j,i) / REAL( average_count_3d ) … … 246 246 247 247 CASE ( 'vpt' ) 248 DO i = nxl -1, nxr+1249 DO j = nys -1, nyn+1248 DO i = nxlg, nxrg 249 DO j = nysg, nyng 250 250 DO k = nzb, nzt+1 251 251 vpt_av(k,j,i) = vpt_av(k,j,i) / REAL( average_count_3d ) … … 255 255 256 256 CASE ( 'w' ) 257 DO i = nxl -1, nxr+1258 DO j = nys -1, nyn+1257 DO i = nxlg, nxrg 258 DO j = nysg, nyng 259 259 DO k = nzb, nzt+1 260 260 w_av(k,j,i) = w_av(k,j,i) / REAL( average_count_3d ) … … 264 264 265 265 CASE ( 'z0*' ) 266 DO i = nxl -1, nxr+1267 DO j = nys -1, nyn+1266 DO i = nxlg, nxrg 267 DO j = nysg, nyng 268 268 z0_av(j,i) = z0_av(j,i) / REAL( average_count_3d ) 269 269 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.