Changeset 4581 for LMDZ6/trunk/libf/phylmd

Timestamp:

Jun 20, 2023, 8:38:17 PM (20 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

File:

• LMDZ6/trunk/libf/phylmd/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