Changeset 2753 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Jan 16, 2018 2:16:49 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r2718 r2753 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Tile approach for spectral albedo implemented. 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 1165 1168 m = surf_def_h(0)%start_index(j,i) 1166 1169 sums_l(nzb,108,tn) = sums_l(nzb,108,tn) + & 1167 surf_def_h(0)%rrtm_aldif(m) * rmask(j,i,sr)1170 surf_def_h(0)%rrtm_aldif(0,m) * rmask(j,i,sr) 1168 1171 sums_l(nzb,109,tn) = sums_l(nzb,109,tn) + & 1169 surf_def_h(0)%rrtm_aldir(m) * rmask(j,i,sr)1172 surf_def_h(0)%rrtm_aldir(0,m) * rmask(j,i,sr) 1170 1173 sums_l(nzb,110,tn) = sums_l(nzb,110,tn) + & 1171 surf_def_h(0)%rrtm_asdif(m) * rmask(j,i,sr)1174 surf_def_h(0)%rrtm_asdif(0,m) * rmask(j,i,sr) 1172 1175 sums_l(nzb,111,tn) = sums_l(nzb,111,tn) + & 1173 surf_def_h(0)%rrtm_asdir(m) * rmask(j,i,sr)1176 surf_def_h(0)%rrtm_asdir(0,m) * rmask(j,i,sr) 1174 1177 ENDIF 1175 1178 IF ( surf_lsm_h%end_index(j,i) >= & … … 1177 1180 m = surf_lsm_h%start_index(j,i) 1178 1181 sums_l(nzb,108,tn) = sums_l(nzb,108,tn) + & 1179 surf_lsm_h%rrtm_aldif(m) * rmask(j,i,sr) 1182 SUM( surf_lsm_h%frac(:,m) * & 1183 surf_lsm_h%rrtm_aldif(:,m) ) * rmask(j,i,sr) 1180 1184 sums_l(nzb,109,tn) = sums_l(nzb,109,tn) + & 1181 surf_lsm_h%rrtm_aldir(m) * rmask(j,i,sr) 1185 SUM( surf_lsm_h%frac(:,m) * & 1186 surf_lsm_h%rrtm_aldir(:,m) ) * rmask(j,i,sr) 1182 1187 sums_l(nzb,110,tn) = sums_l(nzb,110,tn) + & 1183 surf_lsm_h%rrtm_asdif(m) * rmask(j,i,sr) 1188 SUM( surf_lsm_h%frac(:,m) * & 1189 surf_lsm_h%rrtm_asdif(:,m) ) * rmask(j,i,sr) 1184 1190 sums_l(nzb,111,tn) = sums_l(nzb,111,tn) + & 1185 surf_lsm_h%rrtm_asdir(m) * rmask(j,i,sr) 1191 SUM( surf_lsm_h%frac(:,m) * & 1192 surf_lsm_h%rrtm_asdir(:,m) ) * rmask(j,i,sr) 1186 1193 ENDIF 1187 1194 IF ( surf_usm_h%end_index(j,i) >= & … … 1189 1196 m = surf_usm_h%start_index(j,i) 1190 1197 sums_l(nzb,108,tn) = sums_l(nzb,108,tn) + & 1191 surf_usm_h%rrtm_aldif(m) * rmask(j,i,sr) 1198 SUM( surf_usm_h%frac(:,m) * & 1199 surf_usm_h%rrtm_aldif(:,m) ) * rmask(j,i,sr) 1192 1200 sums_l(nzb,109,tn) = sums_l(nzb,109,tn) + & 1193 surf_usm_h%rrtm_aldir(m) * rmask(j,i,sr) 1201 SUM( surf_usm_h%frac(:,m) * & 1202 surf_usm_h%rrtm_aldir(:,m) ) * rmask(j,i,sr) 1194 1203 sums_l(nzb,110,tn) = sums_l(nzb,110,tn) + & 1195 surf_usm_h%rrtm_asdif(m) * rmask(j,i,sr) 1204 SUM( surf_usm_h%frac(:,m) * & 1205 surf_usm_h%rrtm_asdif(:,m) ) * rmask(j,i,sr) 1196 1206 sums_l(nzb,111,tn) = sums_l(nzb,111,tn) + & 1197 surf_usm_h%rrtm_asdir(m) * rmask(j,i,sr) 1207 SUM( surf_usm_h%frac(:,m) * & 1208 surf_usm_h%rrtm_asdir(:,m) ) * rmask(j,i,sr) 1198 1209 ENDIF 1199 1210
Note: See TracChangeset
for help on using the changeset viewer.