Changeset 1701 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Nov 2, 2015 7:43:04 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r1692 r1701 1196 1196 sums_l(k,108,tn) = sums_l(k,108,tn) + rad_sw_cs_hr(k,j,i) & 1197 1197 * rmask(j,i,sr) 1198 sums_l(k,109,tn) = sums_l(k,10 8,tn) + rad_sw_hr(k,j,i) &1198 sums_l(k,109,tn) = sums_l(k,109,tn) + rad_sw_hr(k,j,i) & 1199 1199 * rmask(j,i,sr) 1200 1200 ENDDO … … 1401 1401 1402 1402 IF ( radiation_scheme == 'rrtmg' ) THEN 1403 #if defined ( __rrtmg ) 1403 1404 hom(:,1,106,sr) = sums(:,106) ! rad_lw_cs_hr 1404 1405 hom(:,1,107,sr) = sums(:,107) ! rad_lw_hr … … 1406 1407 hom(:,1,109,sr) = sums(:,109) ! rad_sw_hr 1407 1408 1408 #if defined ( __rrtmg )1409 1409 hom(:,1,110,sr) = sums(:,110) ! rrtm_aldif 1410 1410 hom(:,1,111,sr) = sums(:,111) ! rrtm_aldir … … 1588 1588 ts_value(dots_rad+1,sr) = hom(nzb,1,102,sr) ! rad_lw_in 1589 1589 ts_value(dots_rad+2,sr) = hom(nzb,1,103,sr) ! rad_lw_out 1590 ts_value(dots_rad+3,sr) = hom(nzb,1,104,sr) ! rad_ lw_in1591 ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr) ! rad_ lw_out1590 ts_value(dots_rad+3,sr) = hom(nzb,1,104,sr) ! rad_sw_in 1591 ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr) ! rad_sw_out 1592 1592 1593 1593 #if defined ( __rrtmg ) … … 3529 3529 ts_value(dots_rad+1,sr) = hom(nzb,1,102,sr) ! rad_lw_in 3530 3530 ts_value(dots_rad+2,sr) = hom(nzb,1,103,sr) ! rad_lw_out 3531 ts_value(dots_rad+3,sr) = hom(nzb,1,104,sr) ! rad_ lw_in3532 ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr) ! rad_ lw_out3531 ts_value(dots_rad+3,sr) = hom(nzb,1,104,sr) ! rad_sw_in 3532 ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr) ! rad_sw_out 3533 3533 3534 3534 #if defined ( __rrtmg )
Note: See TracChangeset
for help on using the changeset viewer.