Changeset 4714 for palm


Ignore:
Timestamp:
Sep 29, 2020 12:47:35 PM (4 years ago)
Author:
eckhard
Message:

inifor: Fixed off-by-one indexing error for profile quantities

Location:
palm/trunk/UTIL/inifor/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_defs.f90

    r4675 r4714  
    214214    ACHAR( 10 ) // ' Copyright 2017-2020 Deutscher Wetterdienst Offenbach' !< Copyright notice
    215215 CHARACTER(LEN=*), PARAMETER ::  LOG_FILE_NAME = 'inifor.log' !< Name of INIFOR's log file
    216  CHARACTER(LEN=*), PARAMETER ::  VERSION = '2.1.0'            !< INIFOR version number
     216 CHARACTER(LEN=*), PARAMETER ::  VERSION = '2.1.1'            !< INIFOR version number
    217217 
    218218 END MODULE inifor_defs
  • palm/trunk/UTIL/inifor/src/inifor_grid.f90

    r4675 r4714  
    2626! -----------------
    2727! $Id$
     28! Minor logging corrections
     29!
     30!
     31! 4675 2020-09-11 10:00:26Z eckhard
    2832! Support for profile initialization of soil and for homogeneous (profile)
    2933!    boundary conditions, including respective command-line options
     
    516520    CALL validate_config( cfg )
    517521
    518     CALL report('setup_parameters', "atmosphere initialization mode: " // TRIM(cfg%ic_mode))
    519     CALL report('setup_parameters', "      soil initialization mode: " // TRIM(cfg%isc_mode))
    520     CALL report('setup_parameters', "                  forcing mode: " // TRIM(cfg%bc_mode))
    521     CALL report('setup_parameters', "                averaging mode: " // TRIM(cfg%averaging_mode))
    522     CALL report('setup_parameters', "               averaging angle: " // real_to_str(cfg%averaging_angle))
    523     CALL report('setup_parameters', "               averaging angle: " // real_to_str(cfg%averaging_angle))
    524     CALL report('setup_parameters', "                     data path: " // TRIM(cfg%input_path))
    525     CALL report('setup_parameters', "                      hhl file: " // TRIM(cfg%hhl_file))
    526     CALL report('setup_parameters', "                  soiltyp file: " // TRIM(cfg%soiltyp_file))
    527     CALL report('setup_parameters', "                 namelist file: " // TRIM(cfg%namelist_file))
    528     CALL report('setup_parameters', "              output data file: " // TRIM(output_file%name))
     522    CALL report('setup_parameters', "atmosphere initialization mode: " // TRIM( cfg%ic_mode ) )
     523    CALL report('setup_parameters', "      soil initialization mode: " // TRIM( cfg%isc_mode ) )
     524    CALL report('setup_parameters', "                  forcing mode: " // TRIM( cfg%bc_mode ) )
     525    CALL report('setup_parameters', "                averaging mode: " // TRIM( cfg%averaging_mode ) )
     526    CALL report('setup_parameters', "               averaging angle: " // TRIM( real_to_str( cfg%averaging_angle ) )// " deg" )
     527    CALL report('setup_parameters', "                     data path: " // TRIM( cfg%input_path ) )
     528    CALL report('setup_parameters', "                      hhl file: " // TRIM( cfg%hhl_file ) )
     529    CALL report('setup_parameters', "                  soiltyp file: " // TRIM( cfg%soiltyp_file ) )
     530    CALL report('setup_parameters', "                 namelist file: " // TRIM( cfg%namelist_file ) )
     531    CALL report('setup_parameters', "              output data file: " // TRIM( output_file%name ) )
    529532    IF (cfg%process_precipitation )  THEN
    530         CALL report('setup_parameters', "      precipitation: enabled")
     533        CALL report('setup_parameters', "                 precipitation: enabled" )
    531534    ELSE
    532         CALL report('setup_parameters', "      precipitation: disabled")
     535        CALL report('setup_parameters', "                 precipitation: disabled" )
    533536    ENDIF
    534     IF (cfg%debug )  CALL report('setup_parameters', "     debugging mode: enabled")
     537    IF (cfg%debug )  CALL report('setup_parameters', "     debugging mode: enabled" )
    535538
    536539    CALL log_runtime('time', 'init')
     
    16641667          message = "Averaging grid kind '" // TRIM(avg_grid%kind) // &
    16651668                    "' is not supported. Use 'scalar', 'u', or 'v'."
    1666           CALL inifor_abort('get_latlon_averaging_region', message)
     1669          CALL inifor_abort('init_averaging_grid', message)
    16671670
    16681671    END SELECT
  • palm/trunk/UTIL/inifor/src/inifor_transform.f90

    r4675 r4714  
    2626! -----------------
    2727! $Id$
     28! Fixed off-by-one indexing error for profile quantities
     29!
     30!
     31! 4675 2020-09-11 10:00:26Z eckhard
    2832! Improved code formatting
    2933!
     
    378382 SUBROUTINE interp_average_profile(source_array, profile_array, avg_grid)
    379383    TYPE(grid_definition), INTENT(IN)          ::  avg_grid
    380     REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array
     384    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array(0:,0:,:)
    381385    REAL(wp), DIMENSION(:), INTENT(OUT)        ::  profile_array
    382386
     
    435439
    436440    TYPE(grid_definition), INTENT(IN)          ::  avg_grid
    437     REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array
     441    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array(0:,0:,:)
    438442    REAL(wp), DIMENSION(:), INTENT(OUT)        ::  profile_array
    439443
     
    481485
    482486    TYPE(grid_definition), INTENT(IN)          ::  cosmo_grid, avg_grid
    483     REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  cosmo_pressure
     487    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  cosmo_pressure(0:,0:,:)
    484488    REAL(wp), DIMENSION(:), INTENT(OUT)        ::  profile_array
    485489
Note: See TracChangeset for help on using the changeset viewer.