Ignore:
Timestamp:
May 23, 2019 12:35:57 PM (2 years ago)
Author:
eckhard
Message:

inifor: Read origin_z from static driver if given; alert user to warnings

File:
1 edited

Legend:

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

    r3867 r3997  
    2626! -----------------
    2727! $Id$
     28! Defined netCDF attribute names for PALM origin coordinates
     29! Make netCDF variable names constants
     30! Bumped version number
     31!
     32!
     33! 3867 2019-04-05 16:15:55Z eckhard
    2834! Added parameter for INIFOR's log file name
    2935! Use PALM's working precision
     
    145151 REAL(wp), PARAMETER ::  CP_PALM = 1005.0_wp  !< heat capacity of dry air at constant pressure, used in computation of PALM-4U's potential temperature [J/kg/K]
    146152
     153!
     154!-- PALM static driver attribute names (PIDS 1.9)
     155CHARACTER(SNAME), PARAMETER ::  PIDS_ORIGIN_LON = 'origin_lon'
     156CHARACTER(SNAME), PARAMETER ::  PIDS_ORIGIN_LAT = 'origin_lat'
     157CHARACTER(SNAME), PARAMETER ::  PIDS_ORIGIN_Z   = 'origin_z'
     158
    147159!
    148160!-- COSMO netCDF names
    149 CHARACTER(SNAME) ::  NC_DEPTH_NAME = 'depth_2'
    150 CHARACTER(SNAME) ::  NC_HHL_NAME = 'HHL'
    151 CHARACTER(SNAME) ::  NC_RLAT_NAME = 'rlat'
    152 CHARACTER(SNAME) ::  NC_RLON_NAME = 'rlon'
    153 CHARACTER(SNAME) ::  NC_ROTATED_POLE_NAME = 'rotated_pole'
    154 CHARACTER(SNAME) ::  NC_POLE_LATITUDE_NAME = 'grid_north_pole_latitude'
    155 CHARACTER(SNAME) ::  NC_POLE_LONGITUDE_NAME = 'grid_north_pole_longitude'
     161CHARACTER(SNAME), PARAMETER ::  NC_DEPTH_NAME = 'depth_2'
     162CHARACTER(SNAME), PARAMETER ::  NC_HHL_NAME = 'HHL'
     163CHARACTER(SNAME), PARAMETER ::  NC_RLAT_NAME = 'rlat'
     164CHARACTER(SNAME), PARAMETER ::  NC_RLON_NAME = 'rlon'
     165CHARACTER(SNAME), PARAMETER ::  NC_ROTATED_POLE_NAME = 'rotated_pole'
     166CHARACTER(SNAME), PARAMETER ::  NC_POLE_LATITUDE_NAME = 'grid_north_pole_latitude'
     167CHARACTER(SNAME), PARAMETER ::  NC_POLE_LONGITUDE_NAME = 'grid_north_pole_longitude'
    156168
    157169!
     
    164176    ACHAR( 10 ) // ' Copyright 2017-2019 Deutscher Wetterdienst Offenbach' !< Copyright notice
    165177 CHARACTER(LEN=*), PARAMETER ::  LOG_FILE_NAME = 'inifor.log' !< Name of INIFOR's log file
    166  CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.9rc'          !< INIFOR version number
     178 CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.9          !< INIFOR version number
    167179 
    168180 END MODULE inifor_defs
Note: See TracChangeset for help on using the changeset viewer.