variables not used

This commit is contained in:
Martin Diehl 2020-02-23 16:38:57 +01:00
parent 6a90796618
commit 49de01787d
2 changed files with 2 additions and 2 deletions

View File

@ -41,7 +41,7 @@ contains
!--------------------------------------------------------------------------------------------------
subroutine thermal_adiabatic_init
integer :: maxNinstance,o,h,NofMyHomog
integer :: maxNinstance,h,NofMyHomog
write(6,'(/,a)') ' <<<+- thermal_'//THERMAL_ADIABATIC_label//' init -+>>>'; flush(6)

View File

@ -42,7 +42,7 @@ contains
subroutine thermal_conduction_init
integer :: maxNinstance,o,NofMyHomog,h
integer :: maxNinstance,NofMyHomog,h
write(6,'(/,a)') ' <<<+- thermal_'//THERMAL_CONDUCTION_label//' init -+>>>'; flush(6)