Changeset 3997 for palm/trunk/UTIL/inifor/src/inifor_defs.f90

Timestamp:

May 23, 2019 12:35:57 PM (5 years ago)

Author:

eckhard

Message:

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

File:

• palm/trunk/UTIL/inifor/src/inifor_defs.f90 (modified) (3 diffs)

palm/trunk/UTIL/inifor/src/inifor_defs.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Defined netCDF attribute names for PALM origin coordinates
+! Make netCDF variable names constants
+! Bumped version number
+! 
+! 
+! 3867 2019-04-05 16:15:55Z eckhard
 ! Added parameter for INIFOR's log file name
 ! Use PALM's working precision
@@ -145 +151 @@
  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]
 
+!
+!-- PALM static driver attribute names (PIDS 1.9)
+CHARACTER(SNAME), PARAMETER ::  PIDS_ORIGIN_LON = 'origin_lon'
+CHARACTER(SNAME), PARAMETER ::  PIDS_ORIGIN_LAT = 'origin_lat'
+CHARACTER(SNAME), PARAMETER ::  PIDS_ORIGIN_Z   = 'origin_z'
+
 ! 
 !-- COSMO netCDF names
-CHARACTER(SNAME) ::  NC_DEPTH_NAME = 'depth_2'
-CHARACTER(SNAME) ::  NC_HHL_NAME = 'HHL'
-CHARACTER(SNAME) ::  NC_RLAT_NAME = 'rlat'
-CHARACTER(SNAME) ::  NC_RLON_NAME = 'rlon'
-CHARACTER(SNAME) ::  NC_ROTATED_POLE_NAME = 'rotated_pole'
-CHARACTER(SNAME) ::  NC_POLE_LATITUDE_NAME = 'grid_north_pole_latitude'
-CHARACTER(SNAME) ::  NC_POLE_LONGITUDE_NAME = 'grid_north_pole_longitude'
+CHARACTER(SNAME), PARAMETER ::  NC_DEPTH_NAME = 'depth_2'
+CHARACTER(SNAME), PARAMETER ::  NC_HHL_NAME = 'HHL'
+CHARACTER(SNAME), PARAMETER ::  NC_RLAT_NAME = 'rlat'
+CHARACTER(SNAME), PARAMETER ::  NC_RLON_NAME = 'rlon'
+CHARACTER(SNAME), PARAMETER ::  NC_ROTATED_POLE_NAME = 'rotated_pole'
+CHARACTER(SNAME), PARAMETER ::  NC_POLE_LATITUDE_NAME = 'grid_north_pole_latitude'
+CHARACTER(SNAME), PARAMETER ::  NC_POLE_LONGITUDE_NAME = 'grid_north_pole_longitude'
 
 !
@@ -164 +176 @@
     ACHAR( 10 ) // ' Copyright 2017-2019 Deutscher Wetterdienst Offenbach' !< Copyright notice
  CHARACTER(LEN=*), PARAMETER ::  LOG_FILE_NAME = 'inifor.log' !< Name of INIFOR's log file
- CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.9rc'          !< INIFOR version number
+ CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.9'            !< INIFOR version number
  
  END MODULE inifor_defs