Changeset 2970 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Apr 13, 2018 3:09:23 PM (6 years ago)

Author:

suehring

Message:

Bugfix in large-scale forcing

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Remove un-necessary initialization of surface elements in old large-scale 
+! forcing mode
+! 
+! 2963 2018-04-12 14:47:44Z suehring
 ! Introduce index for vegetation/wall, pavement/green-wall and water/window 
 ! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
@@ -2089 +2093 @@
                             surf%shf(num_h) = wall_heatflux(0) *               &
                                                  heatflux_input_conversion(k-1)
-                         ENDIF
-!
-!--                      Initialize shf with data from external file LSF_DATA. Will 
-!--                      be done directly in ls_foring_surf
-!--                      Attention: Just a workaround, need to be revised!!!
-                         IF ( large_scale_forcing .AND. lsf_surf )  THEN
-!                             CALL ls_forcing_surf ( simulated_time )
-!                             surf%shf(num_h) = shf(j,i)  
                          ENDIF
                       ENDIF