Ignore:
Timestamp:
Jan 22, 2018 5:17:47 PM (3 years ago)
Author:
kanani
Message:

Removal of chem directive, plus minor changes

File:
1 edited

Legend:

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

    r2765 r2766  
    2626! -----------------
    2727! $Id$
     28! Removed redundant commas, added some blanks
     29!
     30! 2765 2018-01-22 11:34:58Z maronga
    2831! Major bugfix in calculation of f_shf. Adjustment of roughness lengths in
    2932! building_pars
     
    58635866                                              start_index_on_file,             &
    58645867                                              end_index_on_file ,              &
    5865                                               nxlc, nysc,           ,          &
     5868                                              nxlc, nysc,                      &
    58665869                                              nys_on_file, nyn_on_file,        &
    5867                                               nxl_on_file,nxr_on_file )
     5870                                              nxl_on_file, nxr_on_file )
    58685871#else
    58695872                      IF ( kk == 1 )  THEN
     
    60226025                                              start_index_on_file,             &
    60236026                                              end_index_on_file ,              &
    6024                                               nxlc, nysc,           ,          &
     6027                                              nxlc, nysc,                      &
    60256028                                              nys_on_file, nyn_on_file,        &
    60266029                                              nxl_on_file,nxr_on_file )
     
    61356138                                              nxlf, nxrf, nysf, nynf,          &
    61366139                                              nys_on_file, nyn_on_file,        &
    6137                                               nxl_on_file,nxr_on_file )
     6140                                              nxl_on_file, nxr_on_file )
    61386141#endif
    61396142                   CASE ( 't_window_v(0)' )
     
    61526155                                              nxlf, nxrf, nysf, nynf,          &
    61536156                                              nys_on_file, nyn_on_file,        &
    6154                                               nxl_on_file,nxr_on_file )
     6157                                              nxl_on_file, nxr_on_file )
    61556158#else
    61566159                      IF ( kk == 1 )  THEN
     
    61816184                                              start_index_on_file,             &
    61826185                                              end_index_on_file ,              &
    6183                                               nxlc, nysc,           ,          &
     6186                                              nxlc, nysc,                      &
    61846187                                              nys_on_file, nyn_on_file,        &
    6185                                               nxl_on_file,nxr_on_file )
     6188                                              nxl_on_file, nxr_on_file )
    61866189#else
    61876190                      IF ( kk == 1 )  THEN
Note: See TracChangeset for help on using the changeset viewer.