From e458a3bbb9ddb090ec7ed2fceccb25217c355062 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Wed, 17 Sep 2014 09:33:47 +0000
Subject: [PATCH] J.Durand (09/2014) : add activation of chemical deposition if
LCH_EMIS=F
---
src/SURFEX/init_surf_atmn.F90 | 19 +++++++++++++------
1 file changed, 13 insertions(+), 6 deletions(-)
diff --git a/src/SURFEX/init_surf_atmn.F90 b/src/SURFEX/init_surf_atmn.F90
index f2628c100..c83cdf3de 100644
--- a/src/SURFEX/init_surf_atmn.F90
+++ b/src/SURFEX/init_surf_atmn.F90
@@ -49,6 +49,7 @@ SUBROUTINE INIT_SURF_ATM_n(HPROGRAM,HINIT, OLAND_USE, &
!! (S. Queguiner) 2011 Modif chemistry (2.4)
!! (B. Decharme) 2013 Read grid only once in AROME case
!! (G. Tanguy) 2013 Add IF(ALLOCATED(NMASK_FULL)) before deallocate
+!! (J.Durand) 2014 add activation of chemical deposition if LCH_EMIS=F
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -417,15 +418,21 @@ IF (LCH_EMIS) THEN
CALL CH_INIT_SNAP_n(HPROGRAM,NSIZE_FULL,HINIT,ICH,PRHOA)
END IF
ENDIF
- !
- !* 2.5 Initialization of dry deposition scheme (chemistry)
- !
- IF (HINIT=='ALL') CALL CH_INIT_DEPCONST(ICH,ILUOUT,CSV(NSV_CHSBEG:NSV_CHSEND))
- !
CALL CLOSE_NAMELIST(HPROGRAM,ICH)
- !
ENDIF
!
+END IF
+ !
+ !* 2.5 Initialization of dry deposition scheme (chemistry)
+ !
+!
+IF (NBEQ .GT. 0) THEN
+ CALL OPEN_NAMELIST(HPROGRAM,ICH,HFILE=CCHEM_SURF_FILE)
+
+ IF (HINIT=='ALL') CALL CH_INIT_DEPCONST(ICH,ILUOUT,CSV(NSV_CHSBEG:NSV_CHSEND))
+!
+ CALL CLOSE_NAMELIST(HPROGRAM,ICH)
+!
END IF
!
!* 2.5 Subgrid orography
--
GitLab