Juan 22/05/2017:ch_init_emissionn.F90, J. Pianezze 04/17 wrong length of YCOMMENT...
authorJuan Escobar <escj@aero.obs-mip.fr>
Mon, 22 May 2017 09:02:12 +0000 (11:02 +0200)
committerJuan Escobar <escj@aero.obs-mip.fr>
Mon, 22 May 2017 09:16:44 +0000 (11:16 +0200)
src/SURFEX/ch_init_emissionn.F90

index a523bb0..2c5d09e 100644 (file)
@@ -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))