Changeset 5871 for LMDZ6/branches/lmdz-snow/libf/phylmd/lmdz_call_blowing_snow.f90

Timestamp:

Nov 18, 2025, 11:04:21 AM (3 weeks ago)

Author:

evignon

Message:

slight changes on blowing snow

File:

• LMDZ6/branches/lmdz-snow/libf/phylmd/lmdz_call_blowing_snow.f90 (modified) (3 diffs)

LMDZ6/branches/lmdz-snow/libf/phylmd/lmdz_call_blowing_snow.f90

@@ -4 +4 @@
 contains
 
-subroutine call_blowing_snow_sublim_sedim(ngrid,nlay,dtime,temp,q,qbs,pplay,paprs, &
+subroutine call_blowing_snow_sublim_sedim(ngrid,nlay,dtime,ustar,temp,q,qbs,pplay,paprs, &
                                   dtemp_bs,dq_bs,dqbs_bs,bsfl,precip_bs)
 
@@ -15 +15 @@
 integer, intent(in)                     :: ngrid,nlay
 real, intent(in)                        :: dtime
+real, intent(in), dimension(ngrid)      :: ustar
 real, intent(in), dimension(ngrid,nlay) :: temp
 real, intent(in), dimension(ngrid,nlay) :: q
@@ -35 +36 @@
 
 
-call blowing_snow_sublim_sedim(ngrid,nlay,dtime,temp,q,qbs,pplay,paprs, &
+call blowing_snow_sublim_sedim(ngrid,nlay,dtime,ustar,temp,q,qbs,pplay,paprs, &
                                   dtemp_bs,dq_bs,dqbs_bs,bsfl,precip_bs)