diff --git a/src/SURFEX/modd_ch_surfn.F90 b/src/SURFEX/modd_ch_surfn.F90
index f0f3bff99f1d3277b0d9d0a1ee6c1c6091ec2472..592d5d7a6242ff16f4db762a3ecbe26635f7a7ec 100644
--- a/src/SURFEX/modd_ch_surfn.F90
+++ b/src/SURFEX/modd_ch_surfn.F90
@@ -57,8 +57,6 @@ TYPE CH_SURF_t
                                                        ! are used
   LOGICAL  :: LCH_EMIS                                 ! T : chemical emissions
                                                        ! are present in the file
-  LOGICAL  :: LRW_CH_EMIS                              ! flag to call read and
-                                                       ! write emissions routine
 !
 END TYPE CH_SURF_t
 
@@ -78,8 +76,6 @@ LOGICAL, POINTER :: LCH_SURF_EMIS=>NULL()
 !$OMP THREADPRIVATE(LCH_SURF_EMIS)
 LOGICAL, POINTER :: LCH_EMIS=>NULL()
 !$OMP THREADPRIVATE(LCH_EMIS)
-LOGICAL, POINTER :: LRW_CH_EMIS=>NULL()
-!$OMP THREADPRIVATE(LRW_CH_EMIS)
 
 CONTAINS
 
@@ -104,7 +100,6 @@ CCHEM_SURF_FILE=>CH_SURF_MODEL(KTO)%CCHEM_SURF_FILE
 XCONVERSION=>CH_SURF_MODEL(KTO)%XCONVERSION
 LCH_SURF_EMIS=>CH_SURF_MODEL(KTO)%LCH_SURF_EMIS
 LCH_EMIS=>CH_SURF_MODEL(KTO)%LCH_EMIS
-LRW_CH_EMIS=>CH_SURF_MODEL(KTO)%LRW_CH_EMIS
 IF (LHOOK) CALL DR_HOOK('MODD_CH_SURF_N:CH_SURF_GOTO_MODEL',1,ZHOOK_HANDLE)
 
 END SUBROUTINE CH_SURF_GOTO_MODEL
@@ -124,7 +119,6 @@ CH_SURF_MODEL(:)%CCH_EMIS=' '
 CH_SURF_MODEL(:)%CCHEM_SURF_FILE=' '
 CH_SURF_MODEL(:)%LCH_SURF_EMIS=.FALSE.
 CH_SURF_MODEL(:)%LCH_EMIS=.FALSE.
-CH_SURF_MODEL(:)%LRW_CH_EMIS=.FALSE.
 IF (LHOOK) CALL DR_HOOK("MODD_CH_SURF_N:CH_SURF_ALLOC",1,ZHOOK_HANDLE)
 END SUBROUTINE CH_SURF_ALLOC
 
diff --git a/src/SURFEX/pgd_surf_atm.F90 b/src/SURFEX/pgd_surf_atm.F90
index 6a5ca94990f82115af98f8b88c74efc8008a4354..68f0c41ff0618df7ddbf0ce1083be778c467021e 100644
--- a/src/SURFEX/pgd_surf_atm.F90
+++ b/src/SURFEX/pgd_surf_atm.F90
@@ -51,7 +51,7 @@ USE MODD_SURF_ATM_n,      ONLY : CNATURE, CSEA, CWATER, CTOWN,     &
                                  NSIZE_FULL
 USE MODD_SURF_ATM_GRID_n, ONLY : CGRID, XGRID_PAR, NGRID_PAR, XLAT, &
                                  XLON, XMESH_SIZE, XJPDIR   
-USE MODD_CH_SURF_n,       ONLY : LCH_EMIS, LRW_CH_EMIS, CCH_EMIS
+USE MODD_CH_SURF_n,       ONLY : LCH_EMIS, CCH_EMIS
 !
 USE MODI_GET_LUOUT
 USE MODI_READ_PGD_ARRANGE_COVER
@@ -202,7 +202,6 @@ IF (CCH_EMIS=='SNAP') THEN
   CALL PGD_CHEMISTRY_SNAP(HPROGRAM,LCH_EMIS)
 ELSE IF (CCH_EMIS=='AGGR') THEN
   CALL PGD_CHEMISTRY(HPROGRAM,LCH_EMIS)
-  LRW_CH_EMIS = .FALSE.
 ENDIF
 !_______________________________________________________________________________
 !
diff --git a/src/SURFEX/zoom_pgd_surf_atm.F90 b/src/SURFEX/zoom_pgd_surf_atm.F90
index c516b20273bcaa3293cc078a1276782f8c37c188..a94c0dc471d36fde6a5afc634dcd4ea668c0b0a2 100644
--- a/src/SURFEX/zoom_pgd_surf_atm.F90
+++ b/src/SURFEX/zoom_pgd_surf_atm.F90
@@ -46,7 +46,7 @@ USE MODD_SURF_ATM_n,      ONLY : CNATURE, CSEA, CWATER, CTOWN, &
                                    NDIM_TOWN,NDIM_WATER,         &
                                    XNATURE, NDIM_FULL, LGARDEN,  &
                                    LECOCLIMAP
-USE MODD_CH_SURF_n,       ONLY : LCH_EMIS, LRW_CH_EMIS
+USE MODD_CH_SURF_n,       ONLY : LCH_EMIS
 USE MODD_DUMMY_SURF_FIELDS_n, ONLY : NDUMMY_NBR
 !
 USE MODI_INI_CSTS
@@ -186,7 +186,6 @@ NDUMMY_NBR = 0
 !             ------------------------
 !
 LCH_EMIS = .FALSE.
-LRW_CH_EMIS = .FALSE.
 IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_SURF_ATM',1,ZHOOK_HANDLE)
 !_______________________________________________________________________________
 !