Skip to content
Snippets Groups Projects
Commit db27ef71 authored by Fuchs, Niels's avatar Fuchs, Niels
Browse files

changed enthalpy declaration

parent 31613cd1
Branches debug_summertime_expulsion
No related tags found
1 merge request!3Changes in layer dynamics and enthalpy calculations
Show whitespace changes
Inline Side-by-side
Showing
with 220 additions and 219 deletions
mo_data.f90
+ 220
− 219
View file @ db27ef71
...@@ -21,6 +21,7 @@ ...@@ -21,6 +21,7 @@
!! @par Revision History !! @par Revision History
!! Initialized by Philipp Griewank, IMPRS (2010-07-14) \n !! Initialized by Philipp Griewank, IMPRS (2010-07-14) \n
!! Add several variables by Niels Fuchs, MPIMET (2017-03-01) !! Add several variables by Niels Fuchs, MPIMET (2017-03-01)
!! edited by Niels Fuchs, UHH (2024-05-03), corrected Enthalpy declaration (before specific and total enthalpy were confused)
!! !!
MODULE mo_data MODULE mo_data
...@@ -31,8 +32,8 @@ MODULE mo_data ...@@ -31,8 +32,8 @@ MODULE mo_data
!----Arrays !----Arrays
REAL(wp), DIMENSION(:), ALLOCATABLE :: H !< Enthalpy [J] REAL(wp), DIMENSION(:), ALLOCATABLE :: H !< specific Enthalpy [J/kg]
REAL(wp), DIMENSION(:), ALLOCATABLE :: H_abs !< specific Enthalpy [J/kg] REAL(wp), DIMENSION(:), ALLOCATABLE :: H_abs !< total Enthalpy [J]
REAL(wp), DIMENSION(:), ALLOCATABLE :: Q !< Heat in layer [J] REAL(wp), DIMENSION(:), ALLOCATABLE :: Q !< Heat in layer [J]
REAL(wp), DIMENSION(:), ALLOCATABLE :: fl_Q !< Heat flux between layers [J/s] REAL(wp), DIMENSION(:), ALLOCATABLE :: fl_Q !< Heat flux between layers [J/s]
REAL(wp), DIMENSION(:), ALLOCATABLE :: T !< Temperature [C] REAL(wp), DIMENSION(:), ALLOCATABLE :: T !< Temperature [C]
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment