Changeset 4916 for LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Apr 22, 2024, 9:06:52 PM (4 weeks ago)

Author:

evignon

Message:

correction formulation de l'erosion de la neige soufflee suite aux investigations de Nicolas Chiabrando,
prise en compte d'un temps d'erosion de la neige fraiche nouvellement accumulee

File:

• LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1915 +1915 @@
 ! For blowing snow:
     IF (ok_bs) THEN
-     ! following Bintanja et al 2000, part II
+     ! following Bintanja et al 2000, part II and Vionnet V PhD thesis
      ! we assume that the eddy diffsivity coefficient for
-     ! suspended particles is larger than Km by a factor zeta_bs
-     ! which is equal to 3 by default
+     ! suspended particles is a fraction of Kh 
      do k=1,klev
         do j=1,knon
-           ycoefqbs(j,k)=ycoefm(j,k)*zeta_bs 
+           ycoefqbs(j,k)=ycoefh(j,k)*zeta_bs 
         enddo
      enddo