Skip to content
Snippets Groups Projects

Resolve "Expand Grid type construct to include material parameters"

Files
6
+ 2
2
@@ -2,8 +2,8 @@ module globe_data
use sptype, only: sprs2_dp, diag_sprs_dp
use constants, only: real12
implicit none
real(real12), dimension(:,:,:), allocatable :: T, TN, Told
real(real12), dimension(:), allocatable :: TD, TPD, TPPD
real(real12), dimension(:,:,:), allocatable :: TN
real(real12), dimension(:), allocatable :: TPD, TPPD
TYPE(sprs2_dp) :: ra !Techniqually rH
TYPE(diag_sprs_dp) :: da !Techniqually dH
Loading