Gradient model coeff is updated

sinakhani · Sep 25, 2024 · 2e2c74d · 2e2c74d
1 parent b5e3262
commit 2e2c74d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/parameterizations/lateral/MOM_thickness_diffuse.F90 b/src/parameterizations/lateral/MOM_thickness_diffuse.F90
@@ -318,7 +318,7 @@ subroutine thickness_diffuse(h, uhtr, vhtr, tv, dt, G, GV, US, MEKE, VarMix, CDp
     if (CS%Grad_L_Scale > 0.0) then
       !$OMP do
       do k=1,nz ; do j=js,je ; do I=is-1,ie
-        KH_u(I,j,k) = 10.0*CS%Grad_L_Scale*VarMix%L2grad_u(I,j)*VarMix%UH_grad(I,j,k)
+        KH_u(I,j,k) = 1.0*CS%Grad_L_Scale*VarMix%L2grad_u(I,j)*VarMix%UH_grad(I,j,k)
 !!        print*, "KH_u=", KH_u(I,j,k)
       enddo ; enddo ; enddo
     endif
@@ -425,7 +425,7 @@ subroutine thickness_diffuse(h, uhtr, vhtr, tv, dt, G, GV, US, MEKE, VarMix, CDp
     if (CS%Grad_L_Scale > 0.0) then  !< Gradient model
       !$OMP do
       do k=1,nz ; do J=js-1,je ; do i=is,ie
-        KH_v(i,J,k) = 10.0*CS%Grad_L_Scale*VarMix%L2grad_v(i,J)*VarMix%VH_grad(i,J,k)
+        KH_v(i,J,k) = 1.0*CS%Grad_L_Scale*VarMix%L2grad_v(i,J)*VarMix%VH_grad(i,J,k)
 !!        print*, "KH_v=", KH_v(i,J,k)
       enddo ; enddo ; enddo
     endif