Changeset 4581

Timestamp:

Jun 20, 2023, 8:38:17 PM (11 months ago)

Author:

evignon

Message:

(derni?) ajustement et correction de l'initialisation de la neige soufflee
dans phyetat0_mod
dans le cadre de la mise au point de la nouvelle testing
Lionel et Etienne

Location:

LMDZ6/trunk/libf

Files:

• phylmd/phyetat0_mod.F90 (modified) (2 diffs)
• phylmdiso/phyetat0_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90

@@ -334 +334 @@
   IF (ok_bs) THEN
      found=phyetat0_get(bs_fall,"bs_f","blowing snow fall",0.)
+  ELSE
+     bs_fall(:)=0.
   ENDIF
 !=======================================================================
@@ -398 +400 @@
   ancien_ok=ancien_ok.AND.phyetat0_get(prsw_ancien,"PRSWANCIEN","PRSWANCIEN",0.)
 
+  ! cas specifique des variables de la neige soufflee
   IF (ok_bs) THEN
      ancien_ok=ancien_ok.AND.phyetat0_get(qbs_ancien,"QBSANCIEN","QBSANCIEN",0.)
      ancien_ok=ancien_ok.AND.phyetat0_get(prbsw_ancien,"PRBSWANCIEN","PRBSWANCIEN",0.)
+  ELSE
+     qbs_ancien(:,:)=0.
+     prbsw_ancien(:)=0.
   ENDIF
 

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -348 +348 @@
   found=phyetat0_get(snow_fall,"snow_f","snow fall",0.)
   found=phyetat0_get(rain_fall,"rain_f","rain fall",0.)
+
   IF (ok_bs) THEN
      found=phyetat0_get(bs_fall,"bs_f","blowing snow fall",0.)
+  ELSE
+     bs_fall(:)=0.
   ENDIF
 
@@ -414 +417 @@
   ancien_ok=ancien_ok.AND.phyetat0_get(prsw_ancien,"PRSWANCIEN","PRSWANCIEN",0.)
 
+  ! cas specifique des variables de la neige soufflee
   IF (ok_bs) THEN
      ancien_ok=ancien_ok.AND.phyetat0_get(qbs_ancien,"QBSANCIEN","QBSANCIEN",0.)
      ancien_ok=ancien_ok.AND.phyetat0_get(prbsw_ancien,"PRBSWANCIEN","PRBSWANCIEN",0.)
+  ELSE
+     qbs_ancien(:,:)=0.
+     prbsw_ancien(:)=0.
   ENDIF