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

Timestamp:

Mar 15, 2019 5:14:25 PM (5 years ago)

Author:

eckhard

Message:

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

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Defined netCDF variable names for COSMO grid
+! Bumped version number
+! 
+! 
+! 3779 2019-03-05 11:13:35Z eckhard
 ! Updated version number to 1.4.7, updated copyright note
 ! 
@@ -111 +116 @@
 
 ! 
-!-- COSMO-DE parameters
+!-- COSMO parameters
  INTEGER, PARAMETER  ::  WATER_ID = 9                !< Integer corresponding to the water soil type in COSMO-DE [-]
  REAL(dp), PARAMETER ::  EARTH_RADIUS = 6371229.0_dp !< Earth radius used in COSMO-DE [m]
@@ -134 +139 @@
  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]
 
+! 
+!-- 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'
+
 !
 !-- INIFOR parameters
@@ -140 +155 @@
  INTEGER, PARAMETER          ::  FORCING_STEP = 1             !< Number of hours between forcing time steps [h]
  REAL(dp), PARAMETER         ::  NUDGING_TAU = 21600.0_dp     !< Nudging relaxation time scale [s]
- CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.7'            !< INIFOR version number
+ CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.8'            !< INIFOR version number
  CHARACTER(LEN=*), PARAMETER ::  COPYRIGHT = 'Copyright 2017-2019 Leibniz Universitaet Hannover' // &
      ACHAR( 10 ) // ' Copyright 2017-2019 Deutscher Wetterdienst Offenbach' !< Copyright notice