diff --git a/docs/TODO b/docs/TODO index 65478ac76781c5b6615fe3b0f58f1ff986993ce7..46bf4632a8e15699b72d0c639169aef776895fa2 100644 --- a/docs/TODO +++ b/docs/TODO @@ -45,7 +45,6 @@ Pb identifiés à corriger plus tard: => à corriger - seules quelques options sont testées avec les cas test (par exemple, il faudrait tester RMC01 mais l'option n'est pas remontée en namelist) - - les options CMF_CLOUD='STAT' et LOSIGAMS=.FALSE. semblent cassées en 48 original - arome/ini_cmfshall devrait s'appeler ini_param_mfshall - th_r_from_thl_rt appelée partout, il faudrait limiter à OTEST - doute sur le codage de MODD_PRECISION diff --git a/src/arome/ext/apl_arome.F90 b/src/arome/ext/apl_arome.F90 index 6ba354755e97d9054acaca75ea1cf2ac13248c4b..66b261ad8be0240d6c980b03dc245614c8aaf1b8 100644 --- a/src/arome/ext/apl_arome.F90 +++ b/src/arome/ext/apl_arome.F90 @@ -1410,10 +1410,16 @@ IF (LMICRO.OR.LTURB.OR.LLMSE.OR.LKFBCONV) THEN ENDIF !initialise convective mas flux for subgrid condensation coming !from previous time step convection scheme - IF ( LKFBCONV.AND.LOSUBG_COND.AND..NOT.LOSIGMAS) THEN - DO JLEV = 1, KLEV - ZMFM_(KIDIA:KFDIA,JLEV)=PSIGM(KIDIA:KFDIA,JLEV) - ENDDO + IF (LOSUBG_COND.AND..NOT.LOSIGMAS) THEN + IF (LKFBCONV) THEN + DO JLEV = 1, KLEV + ZMFM_(KIDIA:KFDIA,JLEV)=PSIGM(KIDIA:KFDIA,JLEV) + ENDDO + ELSE + DO JLEV = 1, KLEV + ZMFM_(KIDIA:KFDIA,JLEV)=0._JPRB + ENDDO + ENDIF ENDIF !!! initialisation des variables d etat MNH �t @@ -1593,6 +1599,12 @@ IF (LMICRO) THEN ENDDO ENDIF PEZDIAG(KIDIA:KFDIA,1:KLEV,1:3)=0._JPRB + ELSE + DO JLEV = 1, KLEV + ZRC_MF_(KIDIA:KFDIA,JLEV)=0._JPRB + ZRI_MF_(KIDIA:KFDIA,JLEV)=0._JPRB + ZCF_MF_(KIDIA:KFDIA,JLEV)=0._JPRB + ENDDO ENDIF IF (MOD(KSTEP+1,NPRINTFR)==0) THEN