Ignore:
Timestamp:
Mar 15, 2019 5:14:25 PM (3 years ago)
Author:
eckhard
Message:

inifor: Read COSMO rotated pole from dataset, check if PALM domain exceeds COSMO domain

File:
1 edited

Legend:

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

    r3779 r3801  
    2626! -----------------
    2727! $Id$
     28! Defined netCDF variable names for COSMO grid
     29! Bumped version number
     30!
     31!
     32! 3779 2019-03-05 11:13:35Z eckhard
    2833! Updated version number to 1.4.7, updated copyright note
    2934!
     
    111116
    112117!
    113 !-- COSMO-DE parameters
     118!-- COSMO parameters
    114119 INTEGER, PARAMETER  ::  WATER_ID = 9                !< Integer corresponding to the water soil type in COSMO-DE [-]
    115120 REAL(dp), PARAMETER ::  EARTH_RADIUS = 6371229.0_dp !< Earth radius used in COSMO-DE [m]
     
    134139 REAL(dp), PARAMETER ::  CP_PALM = 1005.0_dp  !< heat capacity of dry air at constant pressure, used in computation of PALM-4U's potential temperature [J/kg/K]
    135140
     141!
     142!-- COSMO netCDF names
     143CHARACTER(SNAME) ::  NC_DEPTH_NAME = 'depth_2'
     144CHARACTER(SNAME) ::  NC_HHL_NAME = 'HHL'
     145CHARACTER(SNAME) ::  NC_RLAT_NAME = 'rlat'
     146CHARACTER(SNAME) ::  NC_RLON_NAME = 'rlon'
     147CHARACTER(SNAME) ::  NC_ROTATED_POLE_NAME = 'rotated_pole'
     148CHARACTER(SNAME) ::  NC_POLE_LATITUDE_NAME = 'grid_north_pole_latitude'
     149CHARACTER(SNAME) ::  NC_POLE_LONGITUDE_NAME = 'grid_north_pole_longitude'
     150
    136151!
    137152!-- INIFOR parameters
     
    140155 INTEGER, PARAMETER          ::  FORCING_STEP = 1             !< Number of hours between forcing time steps [h]
    141156 REAL(dp), PARAMETER         ::  NUDGING_TAU = 21600.0_dp     !< Nudging relaxation time scale [s]
    142  CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.7'            !< INIFOR version number
     157 CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.8'            !< INIFOR version number
    143158 CHARACTER(LEN=*), PARAMETER ::  COPYRIGHT = 'Copyright 2017-2019 Leibniz Universitaet Hannover' // &
    144159     ACHAR( 10 ) // ' Copyright 2017-2019 Deutscher Wetterdienst Offenbach' !< Copyright notice
Note: See TracChangeset for help on using the changeset viewer.