Changeset 5638 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Apr 30, 2025, 10:36:12 AM (2 months ago)

Author:

fhourdin

Message:

Subgrid wind SPLA -> phylmdiso

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90 ¶

@@ -5388 +5388 @@
 
 IF (CPPKEY_DUST) THEN
-    !  Avec SPLA, iflag_phytrac est forcé =1
-    CALL       phytracr_spl ( debut,lafin , jD_cur,jH_cur,iflag_con,       &  ! I
-                      pdtphys,ftsol,                                   &  ! I
-                      t,q_seri,paprs,pplay,RHcl,                  &  ! I
-                      pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,          &  ! I
-                      coefh(1:klon,1:klev,is_ave), cdragh, cdragm, u1, v1,                 &  ! I
-                      u_seri, v_seri, latitude_deg, longitude_deg,  &
-                      pphis,pctsrf,pmflxr,pmflxs,prfl,psfl,            &  ! I
-                      da,phi,phi2,d1a,dam,mp,ep,sigd,sij,clw,elij,     &  ! I
-                      epmlmMm,eplaMm,upwd,dnwd,itop_con,ibas_con,      &  ! I
-                      ev,wdtrainAS,  wdtrainM,wght_cvfd,              &  ! I
-                      fm_therm, entr_therm, rneb,                      &  ! I
-                      beta_prec_fisrt,beta_prec, & !I
-                      zu10m,zv10m,wstar,ale_bl,ale_wake,               &  ! I
-                      nsurfwind,surf_wind_value, surf_wind_proba,      & ! I
+    ! Avec SPLA, iflag_phytrac est forcé =1
+
+    CALL       phytracr_spl ( debut,lafin , jD_cur,jH_cur,iflag_con,       &
+                      pdtphys,ftsol,                                       &
+                      t,q_seri,paprs,pplay,RHcl,                           &
+                      pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,              &
+                      coefh(1:klon,1:klev,is_ave), cdragh, cdragm, u1, v1, &  
+                      u_seri, v_seri, latitude_deg, longitude_deg,         &
+                      pphis,pctsrf,pmflxr,pmflxs,prfl,psfl,                &
+                      da,phi,phi2,d1a,dam,mp,ep,sigd,sij,clw,elij,         &
+                      epmlmMm,eplaMm,upwd,dnwd,itop_con,ibas_con,          &
+                      ev,wdtrainA,  wdtrainM,wght_cvfd,                    &
+                      fm_therm, entr_therm, rneb,                          &
+                      beta_prec_fisrt,beta_prec,                           &
+                      zu10m,zv10m,wstar,ale_bl,ale_wake,                   &
+                      nsurfwind,surf_wind_value, surf_wind_proba,          &
                       d_tr_dyn,tr_seri)