Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/flow_statistics.f90

    r1961 r1976  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Removed some unneeded __rrtmg preprocessor directives
    2222!
    2323! Former revisions:
     
    832832                ENDIF
    833833#endif
    834 
    835834             ENDIF
    836 
    837835!
    838836!--          Subgridscale fluxes at the top surface
     
    14471445
    14481446          IF ( radiation_scheme == 'rrtmg' )  THEN
    1449 #if defined ( __rrtmg )
    14501447             hom(:,1,106,sr) = sums(:,106)            ! rad_lw_cs_hr
    14511448             hom(:,1,107,sr) = sums(:,107)            ! rad_lw_hr
     
    14571454             hom(:,1,112,sr) = sums(:,112)            ! rrtm_asdif
    14581455             hom(:,1,113,sr) = sums(:,113)            ! rrtm_asdir
    1459 #endif
    14601456          ENDIF
    1461 
    1462 
    14631457       ENDIF
    14641458
     
    16431637          ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr)          ! rad_sw_out
    16441638
    1645 #if defined ( __rrtmg )
    16461639          IF ( radiation_scheme == 'rrtmg' )  THEN
    16471640             ts_value(dots_rad+5,sr) = hom(nzb,1,110,sr)          ! rrtm_aldif
     
    16501643             ts_value(dots_rad+8,sr) = hom(nzb,1,113,sr)          ! rrtm_asdir
    16511644          ENDIF
    1652 #endif
    16531645
    16541646       ENDIF
     
    36193611          ts_value(dots_rad+4,sr) = hom(nzb,1,105,sr)          ! rad_sw_out
    36203612
    3621 #if defined ( __rrtmg )
    36223613          IF ( radiation_scheme == 'rrtmg' )  THEN
    36233614             ts_value(dots_rad+5,sr) = hom(nzb,1,106,sr)          ! rrtm_aldif
     
    36263617             ts_value(dots_rad+8,sr) = hom(nzb,1,109,sr)          ! rrtm_asdir
    36273618          ENDIF
    3628 #endif
    36293619
    36303620       ENDIF
Note: See TracChangeset for help on using the changeset viewer.