Changeset 2750 for palm/trunk

Timestamp:

Jan 15, 2018 4:26:51 PM (7 years ago)

Author:

knoop

Message:

reduced linelength to meet Fortran standard 132 collumns line width

File:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -7181 +7181 @@
 
 !--           ground/wall/roof surface heat flux
-              surf_usm_v(l)%wshf_eb(m)   = - f_shf  * ( surf_usm_v(l)%pt1(m) - t_surf_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(0,m)               &
-                                           - f_shf_window  * ( surf_usm_v(l)%pt1(m) - t_surf_window_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(2,m)  &
-                                           - f_shf_green  * ( surf_usm_v(l)%pt1(m) - t_surf_green_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(1,m)
+              surf_usm_v(l)%wshf_eb(m)   =                                     &
+                 - f_shf  * ( surf_usm_v(l)%pt1(m) -                           &
+                 t_surf_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(0,m)       &
+                 - f_shf_window  * ( surf_usm_v(l)%pt1(m) -                    &
+                 t_surf_window_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(2,m)&
+                 - f_shf_green  * ( surf_usm_v(l)%pt1(m) -                     &
+                 t_surf_green_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(1,m)
 
 !