Gaelle 12/06/2018 : bug chimie

b4b90557 · Gaelle DELAUTIER · 1516d7ce · b4b90557
Commit b4b90557 authored 6 years ago by Gaelle DELAUTIER
--- a/src/SURFEX/init_surf_atmn.F90
+++ b/src/SURFEX/init_surf_atmn.F90
@@ -401,7 +401,7 @@ ENDIF
 !
 CALL READ_SURF(HPROGRAM,'CH_EMIS',YSC%CHU%LCH_EMIS,IRESP)
 !
-IF (YSC%CHU%LCH_EMIS .AND. YSC%CHU%LCH_SURF_EMIS) THEN
+IF (YSC%CHU%LCH_EMIS) THEN
  !
  IF ( IVERSION<7 .OR. IVERSION==7 .AND. IBUGFIX<3 ) THEN
    YSC%CHU%CCH_EMIS='AGGR'