Changeset 1976 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Jul 27, 2016 1:28:04 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r1961 r1976 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Removed some unneeded __rrtmg preprocessor directives 22 22 ! 23 23 ! Former revisions: … … 832 832 ENDIF 833 833 #endif 834 835 834 ENDIF 836 837 835 ! 838 836 !-- Subgridscale fluxes at the top surface … … 1447 1445 1448 1446 IF ( radiation_scheme == 'rrtmg' ) THEN 1449 #if defined ( __rrtmg )1450 1447 hom(:,1,106,sr) = sums(:,106) ! rad_lw_cs_hr 1451 1448 hom(:,1,107,sr) = sums(:,107) ! rad_lw_hr … … 1457 1454 hom(:,1,112,sr) = sums(:,112) ! rrtm_asdif 1458 1455 hom(:,1,113,sr) = sums(:,113) ! rrtm_asdir 1459 #endif1460 1456 ENDIF 1461 1462 1463 1457 ENDIF 1464 1458 … … 1643 1637 ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr) ! rad_sw_out 1644 1638 1645 #if defined ( __rrtmg )1646 1639 IF ( radiation_scheme == 'rrtmg' ) THEN 1647 1640 ts_value(dots_rad+5,sr) = hom(nzb,1,110,sr) ! rrtm_aldif … … 1650 1643 ts_value(dots_rad+8,sr) = hom(nzb,1,113,sr) ! rrtm_asdir 1651 1644 ENDIF 1652 #endif1653 1645 1654 1646 ENDIF … … 3619 3611 ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr) ! rad_sw_out 3620 3612 3621 #if defined ( __rrtmg )3622 3613 IF ( radiation_scheme == 'rrtmg' ) THEN 3623 3614 ts_value(dots_rad+5,sr) = hom(nzb,1,106,sr) ! rrtm_aldif … … 3626 3617 ts_value(dots_rad+8,sr) = hom(nzb,1,109,sr) ! rrtm_asdir 3627 3618 ENDIF 3628 #endif3629 3619 3630 3620 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.