Ignore:
Timestamp:
Apr 13, 2018 3:09:23 PM (3 years ago)
Author:
suehring
Message:

Bugfix in large-scale forcing

File:
1 edited

Legend:

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

    r2963 r2970  
    2626! -----------------
    2727! $Id$
     28! Remove un-necessary initialization of surface elements in old large-scale
     29! forcing mode
     30!
     31! 2963 2018-04-12 14:47:44Z suehring
    2832! Introduce index for vegetation/wall, pavement/green-wall and water/window
    2933! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
     
    20892093                            surf%shf(num_h) = wall_heatflux(0) *               &
    20902094                                                 heatflux_input_conversion(k-1)
    2091                          ENDIF
    2092 !
    2093 !--                      Initialize shf with data from external file LSF_DATA. Will
    2094 !--                      be done directly in ls_foring_surf
    2095 !--                      Attention: Just a workaround, need to be revised!!!
    2096                          IF ( large_scale_forcing .AND. lsf_surf )  THEN
    2097 !                             CALL ls_forcing_surf ( simulated_time )
    2098 !                             surf%shf(num_h) = shf(j,i) 
    20992095                         ENDIF
    21002096                      ENDIF
Note: See TracChangeset for help on using the changeset viewer.