Skip to content
Snippets Groups Projects
Commit 486a324b authored by Victor Stepanenko's avatar Victor Stepanenko
Browse files

Removed comment

parent e352db95
Branches
Tags
No related merge requests found
Show whitespace changes
Inline Side-by-side
source/model/turb_mod.f90
+ 0
− 1
View file @ 486a324b
...@@ -996,7 +996,6 @@ allocate (rhotemp(1:M), rhosal(1:M)) ...@@ -996,7 +996,6 @@ allocate (rhotemp(1:M), rhosal(1:M))
do i = 1, M do i = 1, M
KT(i) = max(CEt(i)*E2(i)**2/(eps2(i) + ACCk),min_diff)*cw_m_row0 !E2, eps2 KT(i) = max(CEt(i)*E2(i)**2/(eps2(i) + ACCk),min_diff)*cw_m_row0 !E2, eps2
enddo enddo
!print*, maxval(KT)/cw_m_row0, maxval(k2), maxval(CEt), maxval(CE)
! Diagnostic calculation ! Diagnostic calculation
!Turbulent transport of TKE !Turbulent transport of TKE
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment