Ignore:
Timestamp:
Mar 26, 2018 9:39:22 AM (3 years ago)
Author:
maronga
Message:

renamed all Fortran NAMELISTS

File:
1 edited

Legend:

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

    r2921 r2932  
    2828! -----------------
    2929! $Id$
     30! renamed urban_surface_par to urban_surface_parameters
     31!
     32! 2921 2018-03-22 15:05:23Z Giersch
    3033! The activation of spinup has been moved to parin
    3134!
     
    51645167                           window_inner_temperature
    51655168
     5169       NAMELIST /urban_surface_parameters/                                     &
     5170                           building_type,                                      &
     5171                           land_category,                                      &
     5172                           naheatlayers,                                       &
     5173                           pedestrian_category,                                &
     5174                           roughness_concrete,                                 &
     5175                           read_wall_temp_3d,                                  &
     5176                           roof_category,                                      &
     5177                           urban_surface,                                      &
     5178                           usm_anthropogenic_heat,                             &
     5179                           usm_material_model,                                 &
     5180                           wall_category,                                      &
     5181                           indoor_model,                                       &
     5182                           wall_inner_temperature,                             &
     5183                           roof_inner_temperature,                             &
     5184                           soil_inner_temperature,                             &
     5185                           window_inner_temperature
    51665186!
    51675187!--    Try to find urban surface model package
    51685188       REWIND ( 11 )
    51695189       line = ' '
    5170        DO   WHILE ( INDEX( line, '&urban_surface_par' ) == 0 )
     5190       DO   WHILE ( INDEX( line, '&urban_surface_parameters' ) == 0 )
    51715191          READ ( 11, '(A)', END=10 )  line
    51725192       ENDDO
     
    51755195!
    51765196!--    Read user-defined namelist
    5177        READ ( 11, urban_surface_par )
     5197       READ ( 11, urban_surface_parameters )
    51785198!
    51795199!--    Set flag that indicates that the land surface model is switched on
    51805200       urban_surface = .TRUE.
    51815201
    5182 
    5183  10    CONTINUE
     5202       GOTO 12
     5203!
     5204!--    Try to find old namelist
     5205 10    REWIND ( 11 )
     5206       line = ' '
     5207       DO   WHILE ( INDEX( line, '&urban_surface_par' ) == 0 )
     5208          READ ( 11, '(A)', END=12 )  line
     5209       ENDDO
     5210       BACKSPACE ( 11 )
     5211
     5212!
     5213!--    Read user-defined namelist
     5214       READ ( 11, urban_surface_par )
     5215
     5216       message_string = 'namelist urban_surface_par is deprecated and will be ' // &
     5217                     'removed in near future. Please &use namelist ' //            &
     5218                     'urban_surface_parameters instead'
     5219       CALL message( 'usm_parin', 'PA0487', 0, 1, 0, 6, 0 )
     5220!
     5221!--    Set flag that indicates that the land surface model is switched on
     5222       urban_surface = .TRUE.
     5223
     5224 12    CONTINUE
    51845225
    51855226
Note: See TracChangeset for help on using the changeset viewer.