M.Leriche 11/2016 , remove LRW_CH_EMIS
authorJuan Escobar <escj@aero.obs-mip.fr>
Fri, 18 Nov 2016 15:12:57 +0000 (16:12 +0100)
committerJuan Escobar <escj@aero.obs-mip.fr>
Fri, 18 Nov 2016 15:12:57 +0000 (16:12 +0100)
src/SURFEX/modd_ch_surfn.F90
src/SURFEX/pgd_surf_atm.F90
src/SURFEX/zoom_pgd_surf_atm.F90

index f0f3bff..592d5d7 100644 (file)
@@ -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
 
index 6a5ca94..68f0c41 100644 (file)
@@ -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
 !_______________________________________________________________________________
 !
index c516b20..a94c0dc 100644 (file)
@@ -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)
 !_______________________________________________________________________________
 !