We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent de8aee2 commit 69d27d7Copy full SHA for 69d27d7
Source/wall.f90
@@ -3904,7 +3904,6 @@ SUBROUTINE TGA_ANALYSIS(NM)
3904
3905
IF (TGA_DT<0._EB) TGA_DT = 0.1_EB*ONE_D%RHO_C_S(1)*ONE_D%LAYER_THICKNESS(1)/SF%H_FIXED
3906
N_TGA = NINT((TGA_FINAL_TEMPERATURE-TMPA)/(TGA_HEATING_RATE*TGA_DT))
3907
-WRITE(*,*) N_TGA,TGA_DT
3908
3909
! If a .stop file exists, only do a few time steps to check for errors
3910
0 commit comments