| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | T | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TOld | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TT | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | Rhov | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | RhovOld | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | RhoT | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TD | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TDT | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TDTLast | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TDOld | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TDreport | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | RH | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | RHreport | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | EnthOld | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | EnthNew | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | EnthLast | |||
| integer, | public | :: | GSloopCounter | = | 0 | ||
| integer, | public | :: | GSloopErrorCount | = | 0 | ||
| real(kind=r64), | public | :: | MaxNodeDelTemp | = | 0.0d0 |
TYPE, PUBLIC :: SurfaceDataFD
REAL(r64), ALLOCATABLE, DIMENSION(:) :: T !
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TOld !
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TT
REAL(r64), ALLOCATABLE, DIMENSION(:) :: Rhov !
REAL(r64), ALLOCATABLE, DIMENSION(:) :: RhovOld !
REAL(r64), ALLOCATABLE, DIMENSION(:) :: RhoT
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TD !
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TDT !
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TDTLast
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TDOld !
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TDreport
REAL(r64), ALLOCATABLE, DIMENSION(:) :: RH
REAL(r64), ALLOCATABLE, DIMENSION(:) :: RHreport
REAL(r64), ALLOCATABLE, DIMENSION(:) :: EnthOld ! Current node enthalpy
REAL(r64), ALLOCATABLE, DIMENSION(:) :: EnthNew ! Node enthalpy at new time
REAL(r64), ALLOCATABLE, DIMENSION(:) :: EnthLast
INTEGER :: GSloopCounter = 0 ! count of inner loop iterations
INTEGER :: GSloopErrorCount = 0 ! recurring error counter
REAL(r64) :: MaxNodeDelTemp = 0.0d0 ! largest change in node temps after calc
END TYPE SurfaceDataFD