Changeset 2750 for palm/trunk


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

Legend:

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

    r2746 r2750  
    71817181
    71827182!--           ground/wall/roof surface heat flux
    7183               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)               &
    7184                                            - 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)  &
    7185                                            - 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)
     7183              surf_usm_v(l)%wshf_eb(m)   =                                     &
     7184                 - f_shf  * ( surf_usm_v(l)%pt1(m) -                           &
     7185                 t_surf_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(0,m)       &
     7186                 - f_shf_window  * ( surf_usm_v(l)%pt1(m) -                    &
     7187                 t_surf_window_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(2,m)&
     7188                 - f_shf_green  * ( surf_usm_v(l)%pt1(m) -                     &
     7189                 t_surf_green_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(1,m)
    71867190
    71877191!           
Note: See TracChangeset for help on using the changeset viewer.