Changeset 1976 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Jul 27, 2016 1:28:04 PM (5 years ago)

Author:

maronga

Message:

further modularization of land surface model (2D/3D output and restart data). Bugfix for restart runs without land surface model

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (8 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Removed some unneeded __rrtmg preprocessor directives
 ! 
 ! Former revisions:
@@ -832 +832 @@
                 ENDIF
 #endif
-
              ENDIF
-
 !
 !--          Subgridscale fluxes at the top surface
@@ -1447 +1445 @@
 
           IF ( radiation_scheme == 'rrtmg' )  THEN
-#if defined ( __rrtmg )
              hom(:,1,106,sr) = sums(:,106)            ! rad_lw_cs_hr
              hom(:,1,107,sr) = sums(:,107)            ! rad_lw_hr
@@ -1457 +1454 @@
              hom(:,1,112,sr) = sums(:,112)            ! rrtm_asdif
              hom(:,1,113,sr) = sums(:,113)            ! rrtm_asdir
-#endif
           ENDIF
-
-
        ENDIF
 
@@ -1643 +1637 @@
           ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr)          ! rad_sw_out
 
-#if defined ( __rrtmg )
           IF ( radiation_scheme == 'rrtmg' )  THEN
              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
           ENDIF
-#endif
 
        ENDIF
@@ -3619 +3611 @@
           ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr)          ! rad_sw_out
 
-#if defined ( __rrtmg )
           IF ( radiation_scheme == 'rrtmg' )  THEN
              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
           ENDIF
-#endif
 
        ENDIF