Skip to content

Commit b443875

Browse files
sbryngelsonprathi-wind
authored andcommitted
refac qbmm (MFlowCode#861)
1 parent 217817f commit b443875

File tree

2 files changed

+5
-7
lines changed

2 files changed

+5
-7
lines changed

CMakeLists.txt

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -136,17 +136,16 @@ if (CMAKE_Fortran_COMPILER_ID STREQUAL "GNU")
136136
add_compile_options(
137137
-Wall
138138
-Wextra
139-
-Wintrinsic-shadow
140-
-Wunderflow
141-
-Wrealloc-lhs
142-
-Wsurprising
143139
-fcheck=all,no-array-temps
144140
-fbacktrace
145141
-fimplicit-none
146142
-fsignaling-nans
147143
-finit-real=snan
148144
-finit-integer=-99999999
149-
#-ffpe-trap=invalid,zero,denormal,overflow
145+
-Wintrinsic-shadow
146+
-Wunderflow
147+
-Wrealloc-lhs
148+
-Wsurprising
150149
)
151150
endif()
152151

src/simulation/m_qbmm.fpp

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -563,8 +563,7 @@ contains
563563

564564
end subroutine s_compute_qbmm_rhs
565565

566-
!Coefficient array for non-polytropic model (pb and mv values are accounted in wght_pb and wght_mv)
567-
566+
!Coefficient array for non-polytropic model (pb and mv values are accounted in wght_pb and wght_mv)
568567
pure subroutine s_coeff_nonpoly(pres, rho, c, coeffs)
569568
#ifdef _CRAYFTN
570569
!DIR$ INLINEALWAYS s_coeff_nonpoly

0 commit comments

Comments
 (0)