Changeset 3557 for palm/trunk/UTIL/inifor/src/inifor_defs.f90
 Timestamp:
 Nov 22, 2018 4:01:22 PM (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/UTIL/inifor/src/inifor_defs.f90
r3537 r3557 26 26 !  27 27 ! $Id$ 28 ! Updated documentation 29 ! 30 ! 31 ! 3537 20181120 10:53:14Z eckhard 28 32 ! Bumped version number 29 33 ! … … 59 63 ! Authors: 60 64 !  61 ! @author Eckhard Kadasch65 !> @author Eckhard Kadasch (Deutscher Wetterdienst, Offenbach) 62 66 ! 63 67 ! Description: … … 68 72 69 73 IMPLICIT NONE 70 71 ! Parameters for type definitions 74 75 ! 76 ! Parameters for type definitions 72 77 INTEGER, PARAMETER :: dp = 8 !< double precision (8 bytes = 64 bits) 73 78 INTEGER, PARAMETER :: sp = 4 !< single precision (4 bytes = 32 bits) … … 78 83 INTEGER, PARAMETER :: DATE = 10 !< length of date strings 79 84 80 ! Trigonomentry 85 ! 86 ! Trigonomentry 81 87 REAL(dp), PARAMETER :: PI = 3.14159265358979323846264338_dp !< Ratio of a circle's circumference to its diamter [] 82 88 REAL(dp), PARAMETER :: TO_RADIANS = PI / 180.0_dp !< Conversion factor from degrees to radiant [] 83 89 REAL(dp), PARAMETER :: TO_DEGREES = 180.0_dp / PI !< Conversion factor from radians to degrees [] 84 90 85 ! COSMODE parameters 86 INTEGER, PARAMETER :: WATER_ID = 9 !< Integer corresponding to the water soil type in COSMODE [] 87 REAL(dp), PARAMETER :: EARTH_RADIUS = 6371229.0_dp !< Earth radius used in COSMODE [m] 88 REAL(dp), PARAMETER :: P_SL = 1e5_dp !< Reference pressure for computation of COSMODE's basic state pressure [Pa] 89 REAL(dp), PARAMETER :: T_SL = 288.15_dp !< Reference temperature for computation of COSMODE's basic state pressure [K] 90 REAL(dp), PARAMETER :: BETA = 42.0_dp !< logarithmic lapse rate, dT / d ln(p), for computation of COSMODE's basic state pressure [K] 91 REAL(dp), PARAMETER :: RD = 287.05_dp !< specific gas constant of dry air, used in computation of COSMODE's basic state [J/kg/K] 92 REAL(dp), PARAMETER :: RV = 461.51_dp !< specific gas constant of water vapor [J/kg/K] 93 REAL(dp), PARAMETER :: G = 9.80665_dp !< acceleration of Earth's gravity, used in computation of COSMODE's basic state [m/s/s] 94 REAL(dp), PARAMETER :: RHO_L = 1e3_dp !< density of liquid water, used to convert W_SO from [kg/m^2] to [m^3/m^3], in [kg/m^3] 95 REAL(dp), PARAMETER :: HECTO = 100_dp !< unit conversion factor from hPa to Pa 91 ! 92 ! COSMODE parameters 93 INTEGER, PARAMETER :: WATER_ID = 9 !< Integer corresponding to the water soil type in COSMODE [] 94 REAL(dp), PARAMETER :: EARTH_RADIUS = 6371229.0_dp !< Earth radius used in COSMODE [m] 95 REAL(dp), PARAMETER :: P_SL = 1e5_dp !< Reference pressure for computation of COSMODE's basic state pressure [Pa] 96 REAL(dp), PARAMETER :: T_SL = 288.15_dp !< Reference temperature for computation of COSMODE's basic state pressure [K] 97 REAL(dp), PARAMETER :: BETA = 42.0_dp !< logarithmic lapse rate, dT / d ln(p), for computation of COSMODE's basic 98 !< state pressure [K] 99 REAL(dp), PARAMETER :: RD = 287.05_dp !< specific gas constant of dry air, used in computation of COSMODE's basic 100 !< state [J/kg/K] 101 REAL(dp), PARAMETER :: RV = 461.51_dp !< specific gas constant of water vapor [J/kg/K] 102 REAL(dp), PARAMETER :: G = 9.80665_dp !< acceleration of Earth's gravity, used in computation of COSMODE's basic 103 !< state [m/s/s] 104 REAL(dp), PARAMETER :: RHO_L = 1e3_dp !< density of liquid water, used to convert W_SO from [kg/m^2] to [m^3/m^3], 105 !< in [kg/m^3] 106 REAL(dp), PARAMETER :: HECTO = 100_dp !< unit conversion factor from hPa to Pa 96 107 97 ! PALM4U parameters 98 REAL(dp), PARAMETER :: OMEGA = 7.29e5_dp !< angular velocity of Earth's rotation [s^1] 99 REAL(dp), PARAMETER :: P_REF = 1e5_dp !< Reference pressure for potential temperature [Pa] 100 REAL(dp), PARAMETER :: RD_PALM = 287.0_dp !< specific gas constant of dry air, used in computation of PALM4U's potential temperature [J/kg/K] 101 REAL(dp), PARAMETER :: CP_PALM = 1005.0_dp !< heat capacity of dry air at constant pressure, used in computation of PALM4U's potential temperature [J/kg/K] 108 ! 109 ! PALM4U parameters 110 REAL(dp), PARAMETER :: OMEGA = 7.29e5_dp !< angular velocity of Earth's rotation [s^1] 111 REAL(dp), PARAMETER :: P_REF = 1e5_dp !< Reference pressure for potential temperature [Pa] 112 REAL(dp), PARAMETER :: RD_PALM = 287.0_dp !< specific gas constant of dry air, used in computation of PALM4U's potential temperature [J/kg/K] 113 REAL(dp), PARAMETER :: CP_PALM = 1005.0_dp !< heat capacity of dry air at constant pressure, used in computation of PALM4U's potential temperature [J/kg/K] 102 114 103 ! INIFOR parameters 104 INTEGER, PARAMETER :: FILL_ITERATIONS = 5 !< Number of iterations for extrapolating soil data into COSMODE water cells [] 115 ! 116 ! INIFOR parameters 117 INTEGER, PARAMETER :: FILL_ITERATIONS = 5 !< Number of iterations for extrapolating soil data into COSMODE 118 !< water cells [] 105 119 INTEGER, PARAMETER :: FORCING_STEP = 1 !< Number of hours between forcing time steps [h] 106 120 REAL(dp), PARAMETER :: NUDGING_TAU = 21600.0_dp !< Nudging relaxation time scale [s]
Note: See TracChangeset
for help on using the changeset viewer.