Fix bug in cgs to mks conversion for tracer field

matsbn · Apr 9, 2024 · 178839e · 178839e
1 parent ff4cb9b
commit 178839e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cesm/thermf_cesm.F b/cesm/thermf_cesm.F
@@ -422,7 +422,8 @@ subroutine thermf_cesm(m,n,mm,nn,k1m,k1n)
         do j=1,jj
           do l=1,isp(j)
           do i=max(1,ifp(j,l)),min(ii,ilp(j,l))
-            trflx(nt,i,j)=-(trflx(nt,i,j)+trflxc)*L_mks2cgs
+            trflx(nt,i,j)=-(trflx(nt,i,j)+trflxc)
+     .                     *(kg2g*(M_mks2cgs/L_mks2cgs**2))
           enddo
           enddo
         enddo