update coupling interface

massonseb · Jul 19, 2024 · 40e88b1 · 40e88b1
1 parent e75a359
commit 40e88b1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/phys/module_sf_sfclayrev.F b/phys/module_sf_sfclayrev.F
@@ -211,7 +211,7 @@ subroutine sfclayrev(u3d,v3d,t3d,qv3d,p3d,dz8w,                    &
                           rmol=rmol_hv,znt=znt_hv,ust=ust_hv,mavail=mavail_hv,                     &
                           zol=zol_hv,mol=mol_hv,regime=regime_hv,psim=psim_hv,                     &
                           psih=psih_hv,fm=fm_hv,fh=fh_hv,xland=xland_hv,lakemask=lakemask_hv,      &
-                          cha_coef=ch_coef_hv,                                                     &
+                          cha_coef=cha_coef_hv,                                                     &
                           hfx=hfx_hv,qfx=qfx_hv,tsk=tsk_hv,u10=u10_hv,                             &
                           v10=v10_hv,th2=th2_hv,t2=t2_hv,q2=q2_hv,flhc=flhc_hv,                    &
                           flqc=flqc_hv,qgh=qgh_hv,qsfc=qsfc_hv,lh=lh_hv,                           &