From b6bfbe1aabc94c00f3748121417baf8843fe70df Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Mon, 22 May 2017 11:02:12 +0200
Subject: [PATCH] Juan 22/05/2017:ch_init_emissionn.F90, J. Pianezze 04/17
wrong length of YCOMMENT (100 instead of 40)
---
src/SURFEX/ch_init_emissionn.F90 | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/SURFEX/ch_init_emissionn.F90 b/src/SURFEX/ch_init_emissionn.F90
index a523bb052..2c5d09e93 100644
--- a/src/SURFEX/ch_init_emissionn.F90
+++ b/src/SURFEX/ch_init_emissionn.F90
@@ -27,6 +27,7 @@
!! D.Gazen 01/12/03 change emissions handling for surf. externalization
!! P.Tulet 01/01/04 introduction of rhodref for externalization
!! M.Leriche & V. Masson 05/16 bug in write emis fields for nest
+!! J. Pianezze 04/17 wrong length of YCOMMENT (100 instead of 40)
!-----------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -65,13 +66,12 @@ CHARACTER(LEN=28), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry agg
!
INTEGER :: IRESP ! File
INTEGER :: ILUOUT ! output listing logical unit
- CHARACTER (LEN=16) :: YRECFM ! management
- CHARACTER (LEN=100) :: YCOMMENT ! variables
+CHARACTER (LEN=LEN_HREC) :: YRECFM ! management
+CHARACTER (LEN=40) :: YCOMMENT ! variables
INTEGER :: JSPEC ! Loop index for cover data
INTEGER :: IIND1,IIND2 ! Indices counter
-!
- CHARACTER(LEN=40) :: YSPEC_NAME ! species name
- CHARACTER(LEN=LEN_HREC), DIMENSION(:),ALLOCATABLE :: YEMIS_NAME ! offline emitted species name
+CHARACTER(LEN=40) :: YSPEC_NAME ! species name
+CHARACTER(LEN=LEN_HREC), DIMENSION(:),ALLOCATABLE :: YEMIS_NAME ! species name
INTEGER,DIMENSION(:),ALLOCATABLE :: INBTIMES! number of emission times array
INTEGER,DIMENSION(:),ALLOCATABLE :: ITIMES ! emission times for a species
INTEGER,DIMENSION(:),ALLOCATABLE :: IOFFNDX ! index array of offline emission species
@@ -185,7 +185,7 @@ DO JSPEC = 1,NEMISPEC_NBR ! Loop on the number of species
CEMIS_AREA(JSPEC) = YSURF
!
!* 2. Simple reading of emission fields
-
+!
IF (HINIT /= "ALL") THEN
YRECFM='E_'//TRIM(ADJUSTL(YSPEC_NAME))
ALLOCATE(ZWORK2D(KLU,INBTS))
--
GitLab