Changeset 2766 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Jan 22, 2018 5:17:47 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r2765 r2766 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Removed redundant commas, added some blanks 29 ! 30 ! 2765 2018-01-22 11:34:58Z maronga 28 31 ! Major bugfix in calculation of f_shf. Adjustment of roughness lengths in 29 32 ! building_pars … … 5863 5866 start_index_on_file, & 5864 5867 end_index_on_file , & 5865 nxlc, nysc, ,&5868 nxlc, nysc, & 5866 5869 nys_on_file, nyn_on_file, & 5867 nxl_on_file, nxr_on_file )5870 nxl_on_file, nxr_on_file ) 5868 5871 #else 5869 5872 IF ( kk == 1 ) THEN … … 6022 6025 start_index_on_file, & 6023 6026 end_index_on_file , & 6024 nxlc, nysc, ,&6027 nxlc, nysc, & 6025 6028 nys_on_file, nyn_on_file, & 6026 6029 nxl_on_file,nxr_on_file ) … … 6135 6138 nxlf, nxrf, nysf, nynf, & 6136 6139 nys_on_file, nyn_on_file, & 6137 nxl_on_file, nxr_on_file )6140 nxl_on_file, nxr_on_file ) 6138 6141 #endif 6139 6142 CASE ( 't_window_v(0)' ) … … 6152 6155 nxlf, nxrf, nysf, nynf, & 6153 6156 nys_on_file, nyn_on_file, & 6154 nxl_on_file, nxr_on_file )6157 nxl_on_file, nxr_on_file ) 6155 6158 #else 6156 6159 IF ( kk == 1 ) THEN … … 6181 6184 start_index_on_file, & 6182 6185 end_index_on_file , & 6183 nxlc, nysc, ,&6186 nxlc, nysc, & 6184 6187 nys_on_file, nyn_on_file, & 6185 nxl_on_file, nxr_on_file )6188 nxl_on_file, nxr_on_file ) 6186 6189 #else 6187 6190 IF ( kk == 1 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.