diff --git a/docs/TODO b/docs/TODO index 6b76ff762656c08e67de2813bd6fb3b82964318c..3c75ded6b079d8541595e7be7a74e073224f446f 100644 --- a/docs/TODO +++ b/docs/TODO @@ -48,7 +48,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 e47134825b076a345f312ccf3e0b3ce74f7e3237..a1c496c1f17091abdf59c284391be7f607c1083a 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