From d6a533a686ff594df51b0679fa7bbda920ecd545 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 18 Nov 2016 16:12:57 +0100
Subject: [PATCH] M.Leriche 11/2016 , remove LRW_CH_EMIS
---
src/SURFEX/modd_ch_surfn.F90 | 6 ------
src/SURFEX/pgd_surf_atm.F90 | 3 +--
src/SURFEX/zoom_pgd_surf_atm.F90 | 3 +--
3 files changed, 2 insertions(+), 10 deletions(-)
diff --git a/src/SURFEX/modd_ch_surfn.F90 b/src/SURFEX/modd_ch_surfn.F90
index f0f3bff99..592d5d7a6 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 6a5ca9499..68f0c41ff 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 c516b2027..a94c0dc47 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)
!_______________________________________________________________________________
!
--
GitLab