src_parameters/control.f90:    INTEGER(i_std)                             :: jv            !! Local index variable
src_parameters/control.f90:    INTEGER(i_std)                             :: ier           !! Error handeling
src_parameters/.svn/text-base/constantes_mtc.f90.svn-base:  INTEGER(i_std), PARAMETER :: nvmc = 13                         !! Number of MTCS fixed in the code (unitless)
src_parameters/.svn/text-base/constantes_mtc.f90.svn-base:  INTEGER(i_std),PARAMETER, DIMENSION(nvmc) :: leaf_tab_mtc  =  &                 !! leaf type (1-4, unitless)
src_parameters/.svn/text-base/constantes_mtc.f90.svn-base:  INTEGER(i_std), PARAMETER, DIMENSION(nvmc) :: pref_soil_veg_mtc  =  &       !! The soil tile number for each vegetation
src_parameters/.svn/text-base/constantes_mtc.f90.svn-base:  INTEGER(i_std), PARAMETER, DIMENSION(nvmc) :: pheno_type_mtc  =  &     !! type of phenology (0-4, unitless)
src_parameters/.svn/text-base/control.f90.svn-base:    INTEGER(i_std)                             :: jv            !! Local index variable
src_parameters/.svn/text-base/control.f90.svn-base:    INTEGER(i_std)                             :: ier           !! Error handeling
src_parameters/.svn/text-base/constantes_soil.f90.svn-base:     INTEGER(i_std), PARAMETER      :: error_level = 3         !! Switch to 2 to turn fatal errors into warnings.(1-3, unitless)
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ntext=3                  !! Number of soil textures (Silt, Sand, Clay)
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nstm=3                   !! Number of soil tiles (unitless)
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nscm_fao=3               !! For FAO Classification (unitless)
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nscm_usda=12             !! For USDA Classification (unitless)
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), SAVE      :: nscm=nscm_fao            !! Default value for nscm
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imin = 1                                 !! Start for CWRR linearisation (unitless)
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nbint = 50                               !! Number of interval for CWRR linearisation (unitless)
src_parameters/.svn/text-base/constantes_soil_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imax = nbint+1                           !! Number of points for CWRR linearisation (unitless)
src_parameters/.svn/text-base/vertical_soil.f90.svn-base:    INTEGER(i_std), PARAMETER            :: nblayermax=500    !! Preset 500 for max. number of soil layers.
src_parameters/.svn/text-base/vertical_soil.f90.svn-base:    INTEGER(i_std)                       :: i, irev, iref, ntmp, ier
src_parameters/.svn/text-base/vertical_soil.f90.svn-base:    INTEGER(i_std)                       :: nbrefine          !! Related to refine at bottom. Work in progress...
src_parameters/.svn/text-base/vertical_soil.f90.svn-base:    INTEGER(i_std)                       :: nbcst             !! Related to refine at bottom. Work in progress...
src_parameters/.svn/text-base/vertical_soil.f90.svn-base:    INTEGER(i_std)                       :: igeo              !! Related to refine at bottom. Work in progress...
src_parameters/.svn/text-base/vertical_soil.f90.svn-base:    INTEGER(i_std), DIMENSION(1)         :: imin              !! Related to refine at bottom. Work in progress...
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER  :: spring_days_max = 40  !! Maximum number of days during which we watch for possible spring frost damage
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: undef_int = 999999999     !! undef integer for integer arrays (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ibare_sechiba = 1 !! Index for bare soil in Sechiba (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ivis = 1          !! index for albedo in visible range (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: inir = 2          !! index for albeod i near-infrared range (unitless) 
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nnobio = 1        !! Number of other surface types: land ice (lakes,cities, ...) (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iice = 1          !! Index for land ice (see nnobio) (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: classnb = 9       !! Levels of soil colour classification (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nleafages = 4     !! leaf age discretisation ( 1 = no discretisation )(unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ileaf = 1         !! Index for leaf compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: isapabove = 2     !! Index for sapwood above compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: isapbelow = 3     !! Index for sapwood below compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iheartabove = 4   !! Index for heartwood above compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iheartbelow = 5   !! Index for heartwood below compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iroot = 6         !! Index for roots compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifruit = 7        !! Index for fruits compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: icarbres = 8      !! Index for reserve compartment (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nparts = 8        !! Number of biomass compartments (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ivcmax = 1        !! Index for vcmax (assimilation parameters) (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: npco2 = 1         !! Number of assimilation parameters (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iabove = 1       !! Index for above part (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ibelow = 2       !! Index for below part (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nlevs = 2        !! Number of levels for trees and litter (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic = 1   !! Index for metabolic litter (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural = 2  !! Index for structural litter (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nlitt = 2        !! Number of levels for litter compartments (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive = 1      !! Index for active carbon pool (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow = 2        !! Index for slow carbon pool (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive = 3     !! Index for passive carbon pool (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ncarb = 3        !! Number of soil carbon pools (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifree = 1        !! Index for free soil dissolved organic carbon (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsorbed = 2    !! Index for adsorbed soil dissolved organic carbon (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ndoc = 2         !! Number of soil dissolved organic carbon pools (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: irunoff = 1      !! Index for runoff (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iflooded = 2     !! Index for flooding (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: idrainage = 3    !! Index for drainage (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nexp = 3         !! Number of DOC export pathways (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabo = 1      !! Index for aboveground metabolic litter pool(unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istrabo = 2      !! Index for aboveground structural litter pool(unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetbel = 3      !! Index for belowground metabolic litter pool(unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istrbel = 4      !! Index for belowground structural litter  pool(unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iact = 5         !! Index for active carbon pool (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islo = 6         !! Index for slow carbon pool (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipas = 7         !! Index for passive carbon pool (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: npool = 7        !! Number of soil carbon pools (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ico2 = 1         !! Index for CO2 (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: io2 = 2          !! Index for O2 (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ich4 = 3         !! Index for CH4 (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ngaz = 3         !! Number of gaz in soil (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nelements = 1    !! Number of isotopes considered
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: icarbon = 1      !! Index for carbon 
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nmbcomp=5
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iatm2land=1
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iland2atm=2
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ilat2out=3
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ilat2in=4
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipoolchange=5
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nbpools = 211                     !! Total number of carbon pools (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_above = 1            !! Index for structural litter above (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z1 = 2         !! Index for structural litter below at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z2 = 3         !! Index for structural litter below at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z3 = 4         !! Index for structural litter below at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z4 = 5         !! Index for structural litter below at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z5 = 6         !! Index for structural litter below at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z6 = 7         !! Index for structural litter below at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z7 = 8         !! Index for structural litter below at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z8 = 9         !! Index for structural litter below at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z9 = 10        !! Index for structural litter below at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z10 = 11       !! Index for structural litter below at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istructural_below_z11 = 12       !! Index for structural litter below at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_above = 13            !! Index for metabolic litter above (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z1 = 14         !! Index for metabolic litter below at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z2 = 15         !! Index for metabolic litter below at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z3 = 16         !! Index for metabolic litter below at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z4 = 17         !! Index for metabolic litter below at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z5 = 18         !! Index for metabolic litter below at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z6 = 19         !! Index for metabolic litter below at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z7 = 20         !! Index for metabolic litter below at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z8 = 21         !! Index for metabolic litter below at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z9 = 22         !! Index for metabolic litter below at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z10 = 23        !! Index for metabolic litter below at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: imetabolic_below_z11 = 24        !! Index for metabolic litter below at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z1 = 25             !! Index for active carbon pool at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z2 = 26             !! Index for active carbon pool at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z3 = 27             !! Index for active carbon pool at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z4 = 28             !! Index for active carbon pool at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z5 = 29             !! Index for active carbon pool at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z6 = 30             !! Index for active carbon pool at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z7 = 31             !! Index for active carbon pool at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z8 = 32             !! Index for active carbon pool at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z9 = 33             !! Index for active carbon pool at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z10 = 34            !! Index for active carbon pool at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iactive_pool_z11 = 35            !! Index for active carbon pool at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z1   = 36             !! Index for slow carbon pool at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z2   = 37             !! Index for slow carbon pool at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z3   = 38             !! Index for slow carbon pool at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z4   = 39             !! Index for slow carbon pool at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z5   = 40             !! Index for slow carbon pool at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z6   = 41             !! Index for slow carbon pool at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z7   = 42             !! Index for slow carbon pool at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z8   = 43             !! Index for slow carbon pool at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z9   = 44             !! Index for slow carbon pool at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z10   = 45            !! Index for slow carbon pool at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islow_pool_z11   = 46            !! Index for slow carbon pool at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z1 = 47            !! Index for passive carbon pool at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z2 = 48            !! Index for passive carbon pool at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z3 = 49            !! Index for passive carbon pool at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z4 = 50            !! Index for passive carbon pool at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z5 = 51            !! Index for passive carbon pool at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z6 = 52            !! Index for passive carbon pool at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z7 = 53            !! Index for passive carbon pool at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z8 = 54            !! Index for passive carbon pool at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z9 = 55            !! Index for passive carbon pool at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z10 = 56           !! Index for passive carbon pool at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipassive_pool_z11 = 57           !! Index for passive carbon pool at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metabo = 58            !! Index for free DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metabo = 59            !! Index for free DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metabo = 60            !! Index for free DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metabo = 61            !! Index for free DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metabo = 62            !! Index for free DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metabo = 63            !! Index for free DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metabo = 64            !! Index for free DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metabo = 65            !! Index for free DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metabo = 66            !! Index for free DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metabo = 67           !! Index for free DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metabo = 68           !! Index for free DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metabo = 69             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metabo = 70             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metabo = 71             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metabo = 72             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metabo = 73             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metabo = 74             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metabo = 75             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metabo = 76             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metabo = 77             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metabo = 78            !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metabo = 79            !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strabo = 80            !! Index for free DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strabo = 81            !! Index for free DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strabo = 82            !! Index for free DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strabo = 83            !! Index for free DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strabo = 84            !! Index for free DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strabo = 85            !! Index for free DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strabo = 86            !! Index for free DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strabo = 87            !! Index for free DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strabo = 88            !! Index for free DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strabo = 89           !! Index for free DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strabo = 90           !! Index for free DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strabo = 91             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strabo = 92             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strabo = 93             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strabo = 94             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strabo = 95             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strabo = 96             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strabo = 97             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strabo = 98             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strabo = 99             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strabo = 100           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strabo = 101           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metbel = 102            !! Index for free DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metbel = 103            !! Index for free DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metbel = 104            !! Index for free DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metbel = 105            !! Index for free DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metbel = 106            !! Index for free DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metbel = 107            !! Index for free DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metbel = 108            !! Index for free DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metbel = 109            !! Index for free DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metbel = 110            !! Index for free DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metbel = 111           !! Index for free DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metbel = 112           !! Index for free DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metbel = 113             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metbel = 114             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metbel = 115             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metbel = 116             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metbel = 117             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metbel = 118             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metbel = 119             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metbel = 120             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metbel = 121             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metbel = 122           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metbel = 123           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strbel = 124            !! Index for free DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strbel = 125            !! Index for free DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strbel = 126            !! Index for free DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strbel = 127            !! Index for free DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strbel = 128            !! Index for free DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strbel = 129            !! Index for free DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strbel = 130            !! Index for free DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strbel = 131            !! Index for free DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strbel = 132            !! Index for free DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strbel = 133           !! Index for free DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strbel = 134           !! Index for free DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strbel = 135             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strbel = 136             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strbel = 137             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strbel = 138             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strbel = 139             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strbel = 140             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strbel = 141             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strbel = 142             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strbel = 143             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strbel = 144           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strbel = 145           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_act = 146            !! Index for free DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_act = 147            !! Index for free DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_act = 148            !! Index for free DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_act = 149            !! Index for free DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_act = 150            !! Index for free DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_act = 151            !! Index for free DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_act = 152            !! Index for free DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_act = 153            !! Index for free DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_act = 154            !! Index for free DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_act = 155           !! Index for free DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_act = 156           !! Index for free DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_act = 157             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_act = 158             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_act = 159             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_act = 160             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_act = 161             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_act = 162             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_act = 163             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_act = 164             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_act = 165             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_act = 166           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_act = 167           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_slo = 168            !! Index for free DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_slo = 169            !! Index for free DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_slo = 170            !! Index for free DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_slo = 171            !! Index for free DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_slo = 172            !! Index for free DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_slo = 173            !! Index for free DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_slo = 174            !! Index for free DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_slo = 175            !! Index for free DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_slo = 176            !! Index for free DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_slo = 177           !! Index for free DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_slo = 178           !! Index for free DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_slo = 179             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_slo = 180             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_slo = 181             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_slo = 182             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_slo = 183             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_slo = 184             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_slo = 185             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_slo = 186             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_slo = 187             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_slo = 188           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_slo = 189           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_pas = 190            !! Index for free DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_pas = 191            !! Index for free DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_pas = 192            !! Index for free DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_pas = 193            !! Index for free DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_pas = 194            !! Index for free DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_pas = 195            !! Index for free DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_pas = 196            !! Index for free DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_pas = 197            !! Index for free DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_pas = 198            !! Index for free DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_pas = 199           !! Index for free DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_pas = 200           !! Index for free DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_pas = 201             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_pas = 202             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_pas = 203             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_pas = 204             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_pas = 205             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_pas = 206             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_pas = 207             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_pas = 208             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_pas = 209             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_pas = 210           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_pas = 211           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), SAVE      :: sro_bottom = 5                        !! Layer down to which DOC for surface runoff is taken (max=10)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ih2o = 1        !! index for water (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: idocl = 2       !! index for dissolved labile organic carbon (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: idocr = 3       !! index for dissolved refractory organic carbon (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ico2aq = 4      !! index for free dissolved carbon dioxide (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nflow = 4       !! number of compounds transported with water flows (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifastr = 1       !! index for fast reservoir (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: islowr = 2       !! index for slow reservoir (unitless)  
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: istreamr = 3     !! index for stream reservoir (unitless)  
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ifloodr = 4      !! index for flood reservoir (unitless) 
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: ipondr = 5       !! index for pond reservoir (unitless)  
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: naqsys = 5      !! number of aquatic systems considered (unitless) 
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), SAVE :: forcing_id                 !! Index of the forcing file (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), PARAMETER :: nsnow=3                  !! Number of levels in the snow for explicit snow scheme   
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), SAVE :: nlai = 20             !! Number of LAI levels (unitless)
src_parameters/.svn/text-base/constantes_var.f90.svn-base:  INTEGER(i_std), SAVE :: veget_year_orig = 0        !!  first year for landuse (number)
src_parameters/.svn/text-base/pft_parameters_var.f90.svn-base:  INTEGER(i_std), SAVE :: nvm = 13                               !! Number of vegetation types (2-N, unitless)
src_parameters/.svn/text-base/pft_parameters_var.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pft_to_mtc  !! Table of conversion : we associate one pft to one metaclass 
src_parameters/.svn/text-base/pft_parameters_var.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: leaf_tab       !! leaf type (1-4, unitless)
src_parameters/.svn/text-base/pft_parameters_var.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pref_soil_veg      !! Table which contains the correlation between the soil
src_parameters/.svn/text-base/pft_parameters_var.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pheno_type     !! type of phenology (0-4, unitless)
src_parameters/.svn/text-base/vertical_soil_var.f90.svn-base:  INTEGER(i_std), SAVE      :: ngrnd     !! Number of soil layer for thermo (unitless)
src_parameters/.svn/text-base/vertical_soil_var.f90.svn-base:  INTEGER(i_std), SAVE      :: nbdl      !! Number of diagnostic layers in the soil, not needed in CWRR (unitless)
src_parameters/.svn/text-base/vertical_soil_var.f90.svn-base:  INTEGER(i_std), SAVE      :: nslm      !! Number of levels in CWRR (unitless)
src_parameters/.svn/text-base/pft_parameters.f90.svn-base:   INTEGER(i_std) :: j                             !! Index (unitless)
src_parameters/.svn/text-base/pft_parameters.f90.svn-base:   INTEGER(i_std)                :: jv            !! Index (unitless) 
src_parameters/.svn/text-base/pft_parameters.f90.svn-base:   INTEGER(i_std) :: jv                   !! Index (untiless)
src_parameters/pft_parameters_var.f90:  INTEGER(i_std), SAVE :: nvm = 13                               !! Number of vegetation types (2-N, unitless)
src_parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pft_to_mtc  !! Table of conversion : we associate one pft to one metaclass 
src_parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: leaf_tab       !! leaf type (1-4, unitless)
src_parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pref_soil_veg      !! Table which contains the correlation between the soil
src_parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pheno_type     !! type of phenology (0-4, unitless)
src_parameters/pft_parameters.f90:   INTEGER(i_std) :: j                             !! Index (unitless)
src_parameters/pft_parameters.f90:   INTEGER(i_std)                :: jv            !! Index (unitless) 
src_parameters/pft_parameters.f90:   INTEGER(i_std) :: jv                   !! Index (untiless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER  :: spring_days_max = 40  !! Maximum number of days during which we watch for possible spring frost damage
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: undef_int = 999999999     !! undef integer for integer arrays (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ibare_sechiba = 1 !! Index for bare soil in Sechiba (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ivis = 1          !! index for albedo in visible range (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: inir = 2          !! index for albeod i near-infrared range (unitless) 
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nnobio = 1        !! Number of other surface types: land ice (lakes,cities, ...) (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iice = 1          !! Index for land ice (see nnobio) (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: classnb = 9       !! Levels of soil colour classification (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nleafages = 4     !! leaf age discretisation ( 1 = no discretisation )(unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ileaf = 1         !! Index for leaf compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: isapabove = 2     !! Index for sapwood above compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: isapbelow = 3     !! Index for sapwood below compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iheartabove = 4   !! Index for heartwood above compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iheartbelow = 5   !! Index for heartwood below compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iroot = 6         !! Index for roots compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifruit = 7        !! Index for fruits compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: icarbres = 8      !! Index for reserve compartment (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nparts = 8        !! Number of biomass compartments (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ivcmax = 1        !! Index for vcmax (assimilation parameters) (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: npco2 = 1         !! Number of assimilation parameters (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iabove = 1       !! Index for above part (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ibelow = 2       !! Index for below part (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nlevs = 2        !! Number of levels for trees and litter (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic = 1   !! Index for metabolic litter (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural = 2  !! Index for structural litter (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nlitt = 2        !! Number of levels for litter compartments (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive = 1      !! Index for active carbon pool (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow = 2        !! Index for slow carbon pool (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive = 3     !! Index for passive carbon pool (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ncarb = 3        !! Number of soil carbon pools (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifree = 1        !! Index for free soil dissolved organic carbon (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsorbed = 2    !! Index for adsorbed soil dissolved organic carbon (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ndoc = 2         !! Number of soil dissolved organic carbon pools (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: irunoff = 1      !! Index for runoff (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iflooded = 2     !! Index for flooding (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: idrainage = 3    !! Index for drainage (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nexp = 3         !! Number of DOC export pathways (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabo = 1      !! Index for aboveground metabolic litter pool(unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istrabo = 2      !! Index for aboveground structural litter pool(unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetbel = 3      !! Index for belowground metabolic litter pool(unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istrbel = 4      !! Index for belowground structural litter  pool(unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iact = 5         !! Index for active carbon pool (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islo = 6         !! Index for slow carbon pool (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipas = 7         !! Index for passive carbon pool (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: npool = 7        !! Number of soil carbon pools (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ico2 = 1         !! Index for CO2 (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: io2 = 2          !! Index for O2 (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ich4 = 3         !! Index for CH4 (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ngaz = 3         !! Number of gaz in soil (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nelements = 1    !! Number of isotopes considered
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: icarbon = 1      !! Index for carbon 
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nmbcomp=5
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iatm2land=1
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iland2atm=2
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ilat2out=3
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ilat2in=4
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipoolchange=5
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nbpools = 211                     !! Total number of carbon pools (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_above = 1            !! Index for structural litter above (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z1 = 2         !! Index for structural litter below at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z2 = 3         !! Index for structural litter below at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z3 = 4         !! Index for structural litter below at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z4 = 5         !! Index for structural litter below at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z5 = 6         !! Index for structural litter below at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z6 = 7         !! Index for structural litter below at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z7 = 8         !! Index for structural litter below at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z8 = 9         !! Index for structural litter below at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z9 = 10        !! Index for structural litter below at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z10 = 11       !! Index for structural litter below at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istructural_below_z11 = 12       !! Index for structural litter below at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_above = 13            !! Index for metabolic litter above (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z1 = 14         !! Index for metabolic litter below at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z2 = 15         !! Index for metabolic litter below at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z3 = 16         !! Index for metabolic litter below at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z4 = 17         !! Index for metabolic litter below at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z5 = 18         !! Index for metabolic litter below at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z6 = 19         !! Index for metabolic litter below at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z7 = 20         !! Index for metabolic litter below at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z8 = 21         !! Index for metabolic litter below at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z9 = 22         !! Index for metabolic litter below at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z10 = 23        !! Index for metabolic litter below at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: imetabolic_below_z11 = 24        !! Index for metabolic litter below at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z1 = 25             !! Index for active carbon pool at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z2 = 26             !! Index for active carbon pool at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z3 = 27             !! Index for active carbon pool at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z4 = 28             !! Index for active carbon pool at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z5 = 29             !! Index for active carbon pool at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z6 = 30             !! Index for active carbon pool at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z7 = 31             !! Index for active carbon pool at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z8 = 32             !! Index for active carbon pool at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z9 = 33             !! Index for active carbon pool at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z10 = 34            !! Index for active carbon pool at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iactive_pool_z11 = 35            !! Index for active carbon pool at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z1   = 36             !! Index for slow carbon pool at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z2   = 37             !! Index for slow carbon pool at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z3   = 38             !! Index for slow carbon pool at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z4   = 39             !! Index for slow carbon pool at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z5   = 40             !! Index for slow carbon pool at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z6   = 41             !! Index for slow carbon pool at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z7   = 42             !! Index for slow carbon pool at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z8   = 43             !! Index for slow carbon pool at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z9   = 44             !! Index for slow carbon pool at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z10   = 45            !! Index for slow carbon pool at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islow_pool_z11   = 46            !! Index for slow carbon pool at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z1 = 47            !! Index for passive carbon pool at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z2 = 48            !! Index for passive carbon pool at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z3 = 49            !! Index for passive carbon pool at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z4 = 50            !! Index for passive carbon pool at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z5 = 51            !! Index for passive carbon pool at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z6 = 52            !! Index for passive carbon pool at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z7 = 53            !! Index for passive carbon pool at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z8 = 54            !! Index for passive carbon pool at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z9 = 55            !! Index for passive carbon pool at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z10 = 56           !! Index for passive carbon pool at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipassive_pool_z11 = 57           !! Index for passive carbon pool at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metabo = 58            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metabo = 59            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metabo = 60            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metabo = 61            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metabo = 62            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metabo = 63            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metabo = 64            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metabo = 65            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metabo = 66            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metabo = 67           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metabo = 68           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metabo = 69             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metabo = 70             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metabo = 71             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metabo = 72             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metabo = 73             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metabo = 74             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metabo = 75             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metabo = 76             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metabo = 77             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metabo = 78            !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metabo = 79            !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strabo = 80            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strabo = 81            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strabo = 82            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strabo = 83            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strabo = 84            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strabo = 85            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strabo = 86            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strabo = 87            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strabo = 88            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strabo = 89           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strabo = 90           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strabo = 91             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strabo = 92             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strabo = 93             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strabo = 94             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strabo = 95             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strabo = 96             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strabo = 97             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strabo = 98             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strabo = 99             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strabo = 100           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strabo = 101           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metbel = 102            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metbel = 103            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metbel = 104            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metbel = 105            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metbel = 106            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metbel = 107            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metbel = 108            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metbel = 109            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metbel = 110            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metbel = 111           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metbel = 112           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metbel = 113             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metbel = 114             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metbel = 115             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metbel = 116             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metbel = 117             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metbel = 118             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metbel = 119             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metbel = 120             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metbel = 121             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metbel = 122           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metbel = 123           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strbel = 124            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strbel = 125            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strbel = 126            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strbel = 127            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strbel = 128            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strbel = 129            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strbel = 130            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strbel = 131            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strbel = 132            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strbel = 133           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strbel = 134           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strbel = 135             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strbel = 136             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strbel = 137             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strbel = 138             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strbel = 139             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strbel = 140             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strbel = 141             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strbel = 142             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strbel = 143             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strbel = 144           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strbel = 145           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_act = 146            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_act = 147            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_act = 148            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_act = 149            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_act = 150            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_act = 151            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_act = 152            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_act = 153            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_act = 154            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_act = 155           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_act = 156           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_act = 157             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_act = 158             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_act = 159             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_act = 160             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_act = 161             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_act = 162             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_act = 163             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_act = 164             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_act = 165             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_act = 166           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_act = 167           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_slo = 168            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_slo = 169            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_slo = 170            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_slo = 171            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_slo = 172            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_slo = 173            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_slo = 174            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_slo = 175            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_slo = 176            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_slo = 177           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_slo = 178           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_slo = 179             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_slo = 180             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_slo = 181             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_slo = 182             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_slo = 183             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_slo = 184             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_slo = 185             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_slo = 186             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_slo = 187             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_slo = 188           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_slo = 189           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_pas = 190            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_pas = 191            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_pas = 192            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_pas = 193            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_pas = 194            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_pas = 195            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_pas = 196            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_pas = 197            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_pas = 198            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_pas = 199           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_pas = 200           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_pas = 201             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_pas = 202             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_pas = 203             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_pas = 204             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_pas = 205             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_pas = 206             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_pas = 207             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_pas = 208             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_pas = 209             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_pas = 210           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_pas = 211           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), SAVE      :: sro_bottom = 5                        !! Layer down to which DOC for surface runoff is taken (max=10)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ih2o = 1        !! index for water (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: idocl = 2       !! index for dissolved labile organic carbon (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: idocr = 3       !! index for dissolved refractory organic carbon (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ico2aq = 4      !! index for free dissolved carbon dioxide (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nflow = 4       !! number of compounds transported with water flows (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifastr = 1       !! index for fast reservoir (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: islowr = 2       !! index for slow reservoir (unitless)  
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: istreamr = 3     !! index for stream reservoir (unitless)  
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ifloodr = 4      !! index for flood reservoir (unitless) 
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: ipondr = 5       !! index for pond reservoir (unitless)  
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: naqsys = 5      !! number of aquatic systems considered (unitless) 
src_parameters/constantes_var.old:  INTEGER(i_std), SAVE :: forcing_id                 !! Index of the forcing file (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), PARAMETER :: nsnow=3                  !! Number of levels in the snow for explicit snow scheme   
src_parameters/constantes_var.old:  INTEGER(i_std), SAVE :: nlai = 20             !! Number of LAI levels (unitless)
src_parameters/constantes_var.old:  INTEGER(i_std), SAVE :: veget_year_orig = 0        !!  first year for landuse (number)
src_parameters/vertical_soil.f90:    INTEGER(i_std), PARAMETER            :: nblayermax=500    !! Preset 500 for max. number of soil layers.
src_parameters/vertical_soil.f90:    INTEGER(i_std)                       :: i, irev, iref, ntmp, ier
src_parameters/vertical_soil.f90:    INTEGER(i_std)                       :: nbrefine          !! Related to refine at bottom. Work in progress...
src_parameters/vertical_soil.f90:    INTEGER(i_std)                       :: nbcst             !! Related to refine at bottom. Work in progress...
src_parameters/vertical_soil.f90:    INTEGER(i_std)                       :: igeo              !! Related to refine at bottom. Work in progress...
src_parameters/vertical_soil.f90:    INTEGER(i_std), DIMENSION(1)         :: imin              !! Related to refine at bottom. Work in progress...
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER  :: spring_days_max = 40  !! Maximum number of days during which we watch for possible spring frost damage
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: undef_int = 999999999     !! undef integer for integer arrays (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ibare_sechiba = 1 !! Index for bare soil in Sechiba (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ivis = 1          !! index for albedo in visible range (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: inir = 2          !! index for albeod i near-infrared range (unitless) 
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nnobio = 1        !! Number of other surface types: land ice (lakes,cities, ...) (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iice = 1          !! Index for land ice (see nnobio) (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: classnb = 9       !! Levels of soil colour classification (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nleafages = 4     !! leaf age discretisation ( 1 = no discretisation )(unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ileaf = 1         !! Index for leaf compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: isapabove = 2     !! Index for sapwood above compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: isapbelow = 3     !! Index for sapwood below compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iheartabove = 4   !! Index for heartwood above compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iheartbelow = 5   !! Index for heartwood below compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iroot = 6         !! Index for roots compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifruit = 7        !! Index for fruits compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: icarbres = 8      !! Index for reserve compartment (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nparts = 8        !! Number of biomass compartments (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ivcmax = 1        !! Index for vcmax (assimilation parameters) (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: npco2 = 1         !! Number of assimilation parameters (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iabove = 1       !! Index for above part (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ibelow = 2       !! Index for below part (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nlevs = 2        !! Number of levels for trees and litter (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic = 1   !! Index for metabolic litter (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural = 2  !! Index for structural litter (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nlitt = 2        !! Number of levels for litter compartments (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive = 1      !! Index for active carbon pool (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow = 2        !! Index for slow carbon pool (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive = 3     !! Index for passive carbon pool (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ncarb = 3        !! Number of soil carbon pools (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifree = 1        !! Index for free soil dissolved organic carbon (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsorbed = 2    !! Index for adsorbed soil dissolved organic carbon (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ndoc = 2         !! Number of soil dissolved organic carbon pools (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: irunoff = 1      !! Index for runoff (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iflooded = 2     !! Index for flooding (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: idrainage = 3    !! Index for drainage (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nexp = 3         !! Number of DOC export pathways (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabo = 1      !! Index for aboveground metabolic litter pool(unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istrabo = 2      !! Index for aboveground structural litter pool(unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetbel = 3      !! Index for belowground metabolic litter pool(unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istrbel = 4      !! Index for belowground structural litter  pool(unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iact = 5         !! Index for active carbon pool (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islo = 6         !! Index for slow carbon pool (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipas = 7         !! Index for passive carbon pool (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: npool = 7        !! Number of soil carbon pools (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ico2 = 1         !! Index for CO2 (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: io2 = 2          !! Index for O2 (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ich4 = 3         !! Index for CH4 (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ngaz = 3         !! Number of gaz in soil (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nelements = 1    !! Number of isotopes considered
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: icarbon = 1      !! Index for carbon 
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nmbcomp=5
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iatm2land=1
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iland2atm=2
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ilat2out=3
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ilat2in=4
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipoolchange=5
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nbpools = 211                     !! Total number of carbon pools (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_above = 1            !! Index for structural litter above (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z1 = 2         !! Index for structural litter below at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z2 = 3         !! Index for structural litter below at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z3 = 4         !! Index for structural litter below at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z4 = 5         !! Index for structural litter below at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z5 = 6         !! Index for structural litter below at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z6 = 7         !! Index for structural litter below at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z7 = 8         !! Index for structural litter below at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z8 = 9         !! Index for structural litter below at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z9 = 10        !! Index for structural litter below at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z10 = 11       !! Index for structural litter below at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z11 = 12       !! Index for structural litter below at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_above = 13            !! Index for metabolic litter above (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z1 = 14         !! Index for metabolic litter below at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z2 = 15         !! Index for metabolic litter below at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z3 = 16         !! Index for metabolic litter below at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z4 = 17         !! Index for metabolic litter below at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z5 = 18         !! Index for metabolic litter below at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z6 = 19         !! Index for metabolic litter below at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z7 = 20         !! Index for metabolic litter below at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z8 = 21         !! Index for metabolic litter below at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z9 = 22         !! Index for metabolic litter below at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z10 = 23        !! Index for metabolic litter below at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z11 = 24        !! Index for metabolic litter below at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z1 = 25             !! Index for active carbon pool at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z2 = 26             !! Index for active carbon pool at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z3 = 27             !! Index for active carbon pool at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z4 = 28             !! Index for active carbon pool at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z5 = 29             !! Index for active carbon pool at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z6 = 30             !! Index for active carbon pool at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z7 = 31             !! Index for active carbon pool at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z8 = 32             !! Index for active carbon pool at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z9 = 33             !! Index for active carbon pool at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z10 = 34            !! Index for active carbon pool at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z11 = 35            !! Index for active carbon pool at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z1   = 36             !! Index for slow carbon pool at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z2   = 37             !! Index for slow carbon pool at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z3   = 38             !! Index for slow carbon pool at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z4   = 39             !! Index for slow carbon pool at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z5   = 40             !! Index for slow carbon pool at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z6   = 41             !! Index for slow carbon pool at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z7   = 42             !! Index for slow carbon pool at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z8   = 43             !! Index for slow carbon pool at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z9   = 44             !! Index for slow carbon pool at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z10   = 45            !! Index for slow carbon pool at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z11   = 46            !! Index for slow carbon pool at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z1 = 47            !! Index for passive carbon pool at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z2 = 48            !! Index for passive carbon pool at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z3 = 49            !! Index for passive carbon pool at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z4 = 50            !! Index for passive carbon pool at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z5 = 51            !! Index for passive carbon pool at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z6 = 52            !! Index for passive carbon pool at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z7 = 53            !! Index for passive carbon pool at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z8 = 54            !! Index for passive carbon pool at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z9 = 55            !! Index for passive carbon pool at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z10 = 56           !! Index for passive carbon pool at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z11 = 57           !! Index for passive carbon pool at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metabo = 58            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metabo = 59            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metabo = 60            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metabo = 61            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metabo = 62            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metabo = 63            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metabo = 64            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metabo = 65            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metabo = 66            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metabo = 67           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metabo = 68           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metabo = 69             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metabo = 70             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metabo = 71             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metabo = 72             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metabo = 73             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metabo = 74             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metabo = 75             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metabo = 76             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metabo = 77             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metabo = 78            !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metabo = 79            !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strabo = 80            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strabo = 81            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strabo = 82            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strabo = 83            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strabo = 84            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strabo = 85            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strabo = 86            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strabo = 87            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strabo = 88            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strabo = 89           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strabo = 90           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strabo = 91             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strabo = 92             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strabo = 93             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strabo = 94             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strabo = 95             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strabo = 96             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strabo = 97             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strabo = 98             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strabo = 99             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strabo = 100           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strabo = 101           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metbel = 102            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metbel = 103            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metbel = 104            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metbel = 105            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metbel = 106            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metbel = 107            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metbel = 108            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metbel = 109            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metbel = 110            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metbel = 111           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metbel = 112           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metbel = 113             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metbel = 114             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metbel = 115             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metbel = 116             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metbel = 117             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metbel = 118             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metbel = 119             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metbel = 120             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metbel = 121             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metbel = 122           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metbel = 123           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strbel = 124            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strbel = 125            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strbel = 126            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strbel = 127            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strbel = 128            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strbel = 129            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strbel = 130            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strbel = 131            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strbel = 132            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strbel = 133           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strbel = 134           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strbel = 135             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strbel = 136             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strbel = 137             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strbel = 138             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strbel = 139             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strbel = 140             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strbel = 141             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strbel = 142             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strbel = 143             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strbel = 144           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strbel = 145           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_act = 146            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_act = 147            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_act = 148            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_act = 149            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_act = 150            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_act = 151            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_act = 152            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_act = 153            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_act = 154            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_act = 155           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_act = 156           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_act = 157             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_act = 158             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_act = 159             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_act = 160             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_act = 161             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_act = 162             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_act = 163             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_act = 164             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_act = 165             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_act = 166           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_act = 167           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_slo = 168            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_slo = 169            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_slo = 170            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_slo = 171            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_slo = 172            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_slo = 173            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_slo = 174            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_slo = 175            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_slo = 176            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_slo = 177           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_slo = 178           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_slo = 179             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_slo = 180             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_slo = 181             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_slo = 182             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_slo = 183             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_slo = 184             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_slo = 185             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_slo = 186             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_slo = 187             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_slo = 188           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_slo = 189           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_pas = 190            !! Index for free DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_pas = 191            !! Index for free DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_pas = 192            !! Index for free DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_pas = 193            !! Index for free DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_pas = 194            !! Index for free DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_pas = 195            !! Index for free DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_pas = 196            !! Index for free DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_pas = 197            !! Index for free DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_pas = 198            !! Index for free DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_pas = 199           !! Index for free DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_pas = 200           !! Index for free DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_pas = 201             !! Index for adsorbed DOC at 1st layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_pas = 202             !! Index for adsorbed DOC at 2nd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_pas = 203             !! Index for adsorbed DOC at 3rd layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_pas = 204             !! Index for adsorbed DOC at 4th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_pas = 205             !! Index for adsorbed DOC at 5th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_pas = 206             !! Index for adsorbed DOC at 6th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_pas = 207             !! Index for adsorbed DOC at 7th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_pas = 208             !! Index for adsorbed DOC at 8th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_pas = 209             !! Index for adsorbed DOC at 9th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_pas = 210           !! Index for adsorbed DOC at 10th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_pas = 211           !! Index for adsorbed DOC at 11th layer (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), SAVE      :: sro_bottom = 5                        !! Layer down to which DOC for surface runoff is taken (max=10)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ih2o = 1        !! index for water (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: idocl = 2       !! index for dissolved labile organic carbon (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: idocr = 3       !! index for dissolved refractory organic carbon (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ico2aq = 4      !! index for free dissolved carbon dioxide (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nflow = 4       !! number of compounds transported with water flows (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifastr = 1       !! index for fast reservoir (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islowr = 2       !! index for slow reservoir (unitless)  
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istreamr = 3     !! index for stream reservoir (unitless)  
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifloodr = 4      !! index for flood reservoir (unitless) 
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipondr = 5       !! index for pond reservoir (unitless)  
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: naqsys = 5      !! number of aquatic systems considered (unitless) 
src_parameters/constantes_var.f90:  INTEGER(i_std), SAVE :: forcing_id                 !! Index of the forcing file (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nsnow=3                  !! Number of levels in the snow for explicit snow scheme   
src_parameters/constantes_var.f90:  INTEGER(i_std), SAVE :: nlai = 20             !! Number of LAI levels (unitless)
src_parameters/constantes_var.f90:  INTEGER(i_std), SAVE :: veget_year_orig = 0        !!  first year for landuse (number)
src_parameters/constantes_mtc.f90:  INTEGER(i_std), PARAMETER :: nvmc = 13                         !! Number of MTCS fixed in the code (unitless)
src_parameters/constantes_mtc.f90:  INTEGER(i_std),PARAMETER, DIMENSION(nvmc) :: leaf_tab_mtc  =  &                 !! leaf type (1-4, unitless)
src_parameters/constantes_mtc.f90:  INTEGER(i_std), PARAMETER, DIMENSION(nvmc) :: pref_soil_veg_mtc  =  &       !! The soil tile number for each vegetation
src_parameters/constantes_mtc.f90:  INTEGER(i_std), PARAMETER, DIMENSION(nvmc) :: pheno_type_mtc  =  &     !! type of phenology (0-4, unitless)
src_parameters/constantes_soil.f90:     INTEGER(i_std), PARAMETER      :: error_level = 3         !! Switch to 2 to turn fatal errors into warnings.(1-3, unitless)
src_parameters/vertical_soil_var.f90:  INTEGER(i_std), SAVE      :: ngrnd     !! Number of soil layer for thermo (unitless)
src_parameters/vertical_soil_var.f90:  INTEGER(i_std), SAVE      :: nbdl      !! Number of diagnostic layers in the soil, not needed in CWRR (unitless)
src_parameters/vertical_soil_var.f90:  INTEGER(i_std), SAVE      :: nslm      !! Number of levels in CWRR (unitless)
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: ntext=3                  !! Number of soil textures (Silt, Sand, Clay)
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nstm=3                   !! Number of soil tiles (unitless)
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nscm_fao=3               !! For FAO Classification (unitless)
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nscm_usda=12             !! For USDA Classification (unitless)
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), SAVE      :: nscm=nscm_fao            !! Default value for nscm
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: imin = 1                                 !! Start for CWRR linearisation (unitless)
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nbint = 50                               !! Number of interval for CWRR linearisation (unitless)
src_parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: imax = nbint+1                           !! Number of points for CWRR linearisation (unitless)
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(inout)                   :: var                  !! Integer scalar to modify
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Initial value to stored
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                  !! 1D integer array to modify
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                 !! 1D integer array to modify
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put             !! 1D integer array to stored
src_sechiba/sechiba_io.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put              !! 1D integer array to stored
src_sechiba/sechiba_io.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                 !! 2D integer array to modify
src_sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(in)      :: val_put             !! 2D integer array to stored
src_sechiba/sechiba_io.f90:  INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)     :: val_tmp
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io.f90:  INTEGER(i_std)                              :: is_key
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Current time step number (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indices of the land grid points on the map 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                              :: kjit             !! Current time step number (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                              :: kjpindex         !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),INTENT (in)                              :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),INTENT (in)                              :: hist2_id         !! Second _history_ file identifier (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)        :: index            !! Indices of the land grid points on the map 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in)    :: indexveg         !! Indices of the PFT tiles / soil columns on 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                          :: ji,jv            !! Grid-cell and PFT indices (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjit             !! Current time step number (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex         !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),INTENT (in)                           :: rest_id          !! Restart file identifier 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                          :: kjit                !! Current time step number (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                          :: kjpindex            !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index               !! Indices of the land grid points on the map 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                          :: rest_id             !! _Restart_ file identifier (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                       :: ier                 !! To receive error flag during allocation
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                       :: ji,jv,ik            !! Indices for grid-cells, PFTs, and grid-cells 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex      !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                     :: ji,jv, jd     !! Indices for grid-cells, PFTs and diagnostic levels in 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex        !! Domain size  (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                           :: ji, jv          !! indices (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex           !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                       :: ji, jv             !! Grid-cell and PFT indices (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex   !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                :: ji,jv                 !!  Grid-cell and PFT indices (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                          :: ji, jst, jv       !! indices
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex       !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                      :: ji,jv, jd      !! Indices for grid-cells, PFTs and diagnostic levels in
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), PARAMETER                           :: nitermax = 100 !! Maximum number of iterations to dsg > dsp after 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                      :: niter          !! Counter of iterations to solve dsg > dsp after 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                      :: nbad           !! Number of negative total soil moisture cases 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                            :: kjpindex       !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                         :: ji, jv, jn
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                            :: kjpindex       !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: index          !! Indices of the points on the map
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                         :: ji, jv, jn     !!  Grid-cell, PFT and "nobio" fraction indices 
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: kjpindex    !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index       !! Indices of the points on the map (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                      :: ji          !! Grid-cell indices (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: kjpindex    !! Domain size (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index       !! Indices of the points on the map (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                      :: ji          !! Grid-cell indices (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std), INTENT (in)                          :: kjpindex         !! Domain size  (number of grid cells) (unitless)
src_sechiba/.svn/text-base/hydrolc.f90.svn-base:    INTEGER(i_std)                                       :: ji,jv            !! Indices for grid-cells and PFTs (unitless)
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(inout)                   :: var                  !! Integer scalar to modify
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Initial value to stored
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                  !! 1D integer array to modify
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                 !! 1D integer array to modify
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put             !! 1D integer array to stored
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put              !! 1D integer array to stored
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                 !! 2D integer array to modify
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(in)      :: val_put             !! 2D integer array to stored
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)     :: val_tmp
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io.f90.svn-base:  INTEGER(i_std)                              :: is_key
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! _Restart_ file identifier (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex,8),INTENT (in)  :: neighbours       !! Vector of neighbours for each 
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: hist_id          !! _History_ file identifier (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: hist2_id         !! _History_ file 2 identifier (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index          !! Indeces of the points on the map (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*(nlai+1)), INTENT (in) :: indexlai  !! Indeces of the points on the 3D map
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in) :: indexveg       !! Indeces of the points on the 3D map (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex,8),INTENT (in)  :: neighbours         !! Vector of neighbours for each 
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                           :: ilai
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! _Restart_ file identifier (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex, kjit   !! Domain size
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                      :: ji, jv
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                       :: ji, jv         !! Indices (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex   !! Domain size
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                           :: ji, jv
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex   !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                       :: ji, jv                               !! (-), (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex       !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                     :: ji, jv
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex   !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                     :: ji, jv
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !! Domain size (unitless)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                        :: ji, jv, jl, limit_photo             !! indices (unitless)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex)   :: ilai                                !! counter for loops on LAI levels (unitless)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                        :: nic,inic,icinic                     !! counter/indices (unitless)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex)   :: index_calc                          !! index (unitless)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                        :: nia,inia,nina,inina,iainia          !! counter/indices (unitless)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex)   :: index_assi,index_non_assi           !! indices (unitless)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex   !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                       :: ji, jv
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std)                                 :: ji           !! (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),INTENT(in)                     :: kjpindex          !! Domain size (-)
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    INTEGER(i_std),INTENT(in)                     :: kjpindex          !! Domain size (-)
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std)                                           :: ji, iv, jj,m,jv
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std) :: locjj
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:      INTEGER(i_std),INTENT(in)                                  :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:      INTEGER(i_std) :: ji,jj
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:         INTEGER(i_std),INTENT(in)                                 :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:         INTEGER(i_std)                                            :: ji,jj
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:     INTEGER(i_std),INTENT(in)                                           :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:     INTEGER(i_std),DIMENSION(nsnow,2)                                   :: locflag
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:     INTEGER(i_std)                                                      :: ji,jj,jjj
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:       INTEGER(i_std),INTENT(in)                              :: kjpindex            !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:       INTEGER(i_std)                                         :: ji,jj
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:     INTEGER(i_std), INTENT(in)                                 :: kjpindex     !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:     INTEGER(i_std)                                             :: ji,jj
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:      INTEGER(i_std), INTENT (in)                             :: kjpindex     !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:      INTEGER(i_std)                                          :: jj,ji, iv
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std), INTENT(in)                                     :: kjpindex     !! Domain size
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std)                                                 :: il,it,ji
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std)                                                 :: i,j, ix
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex     !! Domain size (unitless)
src_sechiba/.svn/text-base/explicitsnow.f90.svn-base:    INTEGER(i_std)                                           :: ji, jg
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:  INTEGER(i_std),PARAMETER :: max_temp=370           !! Maximum temperature for saturated humidity (K) and also used as 
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:  INTEGER(i_std),PARAMETER :: min_temp=100           !! Minimum temperature for saturated humidity (K)
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std),INTENT(in) :: kjpindex                   !! Domain size (unitless)
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std), DIMENSION(kjpindex) :: jt               !! Temporary array stocking the truncated temperatures in Kelvin 
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std)                      :: ji               !! indices (unitless)
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std)                      :: nbad             !! Number of points where the temperature is too high or too low
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std),DIMENSION(1)         :: lo               !! Temporary vector to mark the position of the highest temperature
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std)   :: jt              !! Temporary scalar stocking the truncated temperature in Kelvin 
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std),INTENT(in)                   :: kjpindex       !! Domain size (unitless)
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std),DIMENSION(kjpindex) :: jt                      !! Temporary array stocking the truncated temperatures
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std)                     :: ji                      !! Indice (unitless)
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std)                     :: nbad                    !! Number of points where the temperature is too high or too low
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std)  :: jt                       !! Index (unitless)
src_sechiba/.svn/text-base/qsat_moisture.f90.svn-base:      INTEGER(i_std) :: ji                             !! Indice(unitless)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:  INTEGER(i_std), SAVE                               :: printlev_loc            !! Write level to this module
src_sechiba/.svn/text-base/intersurf.f90.svn-base:  INTEGER(i_std), SAVE                               :: hist_id, rest_id        !! IDs for history and restart files
src_sechiba/.svn/text-base/intersurf.f90.svn-base:  INTEGER(i_std), SAVE                               :: hist2_id                !! ID for the second history files (Hi-frequency ?)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:  INTEGER(i_std), SAVE                               :: hist_id_stom, hist_id_stom_IPCC, rest_id_stom !! Dito for STOMATE
src_sechiba/.svn/text-base/intersurf.f90.svn-base:  INTEGER(i_std), SAVE                               :: itau_offset  !! This offset is used to phase the 
src_sechiba/.svn/text-base/intersurf.f90.svn-base:  INTEGER(i_std), SAVE                               :: nb_fields_in=-1   !!  Number of fields to give to the GCM
src_sechiba/.svn/text-base/intersurf.f90.svn-base:  INTEGER(i_std), SAVE                               :: nb_fields_out=-1  !!  Number of fields to get from the GCM
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: kjit            !! Time step number
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: iim, jjm        !! Dimension of input fields
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: kjpindex        !! Number of continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex          !! Index for continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                       :: i, j, ik
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                       :: ier
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                       :: itau_sechiba
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                              :: kjit            !! Time step number
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                              :: iim, jjm        !! Dimension of input fields
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                              :: kjpindex        !! Number of continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)        :: kindex          !! Index for continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: i, j, ik
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: ier
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: itau_sechiba
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                             :: kjit           !! Time step number
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                             :: iim_glo        !! Dimension of global fields
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                             :: jjm_glo        !! Dimension of global fields
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                             :: kjpindex       !! Number of continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: kindex         !! Index for continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in)      :: zneighbours    !! neighbours
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: i, j, ik
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: ier
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: itau_sechiba
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: kjit            !! Time step number
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: iim_glo         !! Dimension of global fields
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: jjm_glo         !! Dimension of global fields
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: kjpindex        !! Number of continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex          !! Index for continental points
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in)     :: zneighbours     !! neighbours
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: i, j, ik
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: ier
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std)                                        :: itau_sechiba
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    INTEGER(i_std), INTENT(in)                  :: istp      !! Time step of the restart file
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! Restart file identifier (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                                     :: ier
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjit             !! Time step number (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex         !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std),INTENT (in)                           :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std),INTENT (in)                           :: hist2_id         !! _history_ file 2 identifier (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index            !! Indeces of the points on the map (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std),DIMENSION(kjpindex*nvm), INTENT(in)   :: indexveg         !! Indeces of the points on the 3D map
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                                       :: ji,ii,iv
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: kjit             !! Time step number (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: kjpindex         !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std),INTENT (in)                        :: rest_id          !! Restart file identifier (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                                     :: ji
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                   :: ji
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                  :: ji
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                                               :: ji
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex          !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                                      :: ji, jv
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std)                                	     :: ji	       !! (-)
src_sechiba/.svn/text-base/enerbil.f90.svn-base:    INTEGER(i_std), INTENT(in)                         		:: kjpindex       !! Domain size (-)
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), PARAMETER                                  :: nbasmax=5                   !! The maximum number of basins we wish to have per grid box (truncation of the model) (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE                                       :: nbvmax                      !! The maximum number of basins we can handle at any time during the generation of the maps (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE                                       :: diagunit = 87               !! Diagnostic file unit (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE                                       :: nstep_FCO2 = 240            !! Segmentation steps per day used
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE                                       :: num_largest                 !! Number of largest river basins which should be treated as independently as rivers
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_loc            !! Grid into which the basin flows 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_loc           !! Basin in to which the water goes 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_loc         !! Number of basin into current one 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_loc          !! ID of basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_loc               !! Variable to diagnose the hydrographs
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_glo            !! Grid into which the basin flows 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_glo           !! Basin in to which the water goes 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_glo         !! Number of basin into current one 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_glo          !! ID of basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_glo               !! Variable to diagnose the hydrographs
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_togrid                !! Grid into which the basin flows 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_tobasin               !! Basin in to which the water goes 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_nbintobas             !! Number of basin into current one 
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: global_basinid              !! ID of basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:,:)            :: hydrodiag                   !! Variable to diagnose the hydrographs
src_sechiba/.svn/text-base/routing.f90.svn-base:  INTEGER(i_std), SAVE                                       :: floodtemp_lev                !! Temperature level to decide if 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                 :: ig
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                    :: ig, jv                  !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                    :: iflow                   !! Index (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                 :: iflow                !! Index (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: kjit           !! Time step number (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: nbpt           !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION (nbpt), INTENT(in) :: index          !! Indices of the points on the map (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: rest_id        !! Restart file identifier (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: iflow, ier, ig, ib, ipn(1) !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)        :: nbpt                      !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(8)                 :: igrd                      !! 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(2)                 :: ff                        !! 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(1)                 :: fi                        !! 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: ig, ib, ib2, ig2          !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: rtg, rtb, in              !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: ier                       !! Error handling 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: iflow, istep_FCO2         !! Indices (unitless) 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                      :: nbpt         !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: ig, iflow    !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)      :: nbpt               !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)      :: index(nbpt)        !! Indices of the points on the map (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT (in)      :: hist_id            !! Access to history file (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),INTENT (in)      :: hist2_id           !! Access to history file 2 (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: nbpt                !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: l_index(nbpt)       !! Indices of the points on the map (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nbasmax)      :: outids              !! IDs of river to which this basin contributes (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: pts                 !! List the points belonging to the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: ptbas               !! List the basin number for this point (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: outpt               !! Outflow point for each basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: nb_pts              !! Number of points in the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: topids              !! The IDs of the first num_largest basins (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_nb         !! Number of streams in basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_avehops    !! Average number of hops in streams (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_minhops    !! Minimum number of hops in streams (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_maxhops    !! Minimum number of hops in streams (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: lrivercode         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: ig, ib, og, ob, ign, ibn, ff(1), ic, icc, nb_small, idbas, slen, ii !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: ier                !! Error handling
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: name_found         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sortedrivs         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: longest_river       !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: nbmax               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: allstreams          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: tstreams, tslen, tpts, tptbas, tcode !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: ip             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: ls             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpts           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpbas          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tslen          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(ip,ls), INTENT(in) :: allstreams     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(ip), INTENT(out)   :: streamcode     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: ilev, cntsubbas, ib, ic, i, it, ilevmax, imaxlen, nbzero !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: tstreamcode(ip)!!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: indsubbas(ip)  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: iw(ip)         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: tdiff(ip)      !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: tmpjunc(4)     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: junction(4)    !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: ff(1)          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                               :: ll             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: nbpt                     !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest)      :: nb_pts                   !! Number of points in the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest)      :: topids                   !! The IDs of the first num_largest basins (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest)      :: sortedrivs               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lbasin_index             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lrivercode               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest,2)    :: outpt                    !! Outflow point for each basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_nb               !! Number of streams in basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_avehops          !! Average number of hops in streams (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_minhops          !! Minimum number of hops in streams (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_maxhops          !! Minimum number of hops in streams (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: icc, fid, iret, ierr_tot, ib, ij, ik, i, j, lcc !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: nlonid, nlatid, varid, varid2, varid3
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: dims(2)                  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: basincode(iim_g,jjm_g)   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),PARAMETER                    :: kind_r_diag=NF90_REAL8   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std),PARAMETER                    :: kind_i_diag=NF90_INT     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in) :: nbpt                          !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in) :: neighbours(nbpt,8)            !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/routing.f90.svn-base:!    INTEGER(i_std)    :: neighbours_tmp(nbpt,8)
src_sechiba/.svn/text-base/routing.f90.svn-base:!    INTEGER(i_std) :: i,j
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: iml, jml, lml, tml, fid, ib, ip, jp, fopt !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: itau(1)               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: nbi, nbj              !! Number of point in x and y within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: trip_bx               !! The trip field for each of the smaller boxes (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_bx              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: coast_pts             !! The coastal flow points (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_count           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_id              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_flowdir         !! Water flow directions in the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_grid          !! Type of outflow on the grid box (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_basin         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: inflow_number         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_basin          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_grid           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: nbcoastal             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: coastal_basin         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: nix, njx              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask                  !! Mask to exclude some points (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Indices of the points we need on the fine grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sub_pts               !! Number of high resolution points on this grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: nb_basin              !! Number of sub-basins (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                :: nwbas                 !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_inbxid          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_sz              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_bxout           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: basin_pts             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(2)                  :: diagbox = (/ 1, 2 /)  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)  :: nbpt                        !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)  :: iml                         !! X resolution of the high resolution grid
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)  :: jml                         !! Y resolution of the high resolution grid
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)  :: ib                          !! Current basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)  :: sub_pts(nbpt)               !! Number of high resolution points on this grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)  :: sub_index(nbpt,nbvmax,2)    !! Indices of the points we need on the fine grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out) :: nbi, nbj                    !! Number of point in x and y within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out) :: trip_bx(nbvmax,nbvmax)      !! The trip field for each of the smaller boxes (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out) :: basin_bx(nbvmax,nbvmax)     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)              :: ip, jp, ll(1), iloc, jloc   !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: nb_in             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)  :: nb_out            !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)               :: ipos              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(1) :: ll                !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)               :: ind(nb_in)        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)    :: nbi                          !! Number of point in x within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)    :: nbj                          !! Number of point in y within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(inout) :: trip(:,:)                    !! The trip field (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(inout) :: basin(:,:)                   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)   :: nb_basin                     !! Number of sub-basins (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)   :: basin_inbxid(nbvmax)         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)   :: basin_sz(nbvmax)             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)   :: basin_bxout(nbvmax)          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)   :: basin_pts(nbvmax, nbvmax, 2) !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)   :: coast_pts(nbvmax)            !! The coastal flow points (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: ibas, ilf, nbb, nb_in        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: bname(nbvmax)                !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: sz(nbvmax)                   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: pts(nbvmax,nbvmax,2)         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: nbout(nbvmax)                !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: new_nb                       !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: new_bname(nbvmax)            !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: new_sz(nbvmax)               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: new_pts(nbvmax,nbvmax,2)     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: itrans                       !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: trans(nbvmax)                !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: outdir(nbvmax)               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: tmpsz(nbvmax)                !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: ip, jp, jpp(1), ipb          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                :: sortind(nbvmax)              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: nbi                        !! Number of point in x within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: nbj                        !! Number of point in y within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: trip(:,:)                  !! The trip field (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: basin(:,:)                 !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: basin_inbxid               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: ip, jp, nbout, basin_sz, iborder !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp                   !! Temporary trip field which only contains the values for the basin on which we currently work (1)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow                  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow                    !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                      !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(8,2)             :: inc                        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: itodo, ill(1), icc, ismall, ibas, iip, jjp, ib, id !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax)          :: todopt                     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                 :: nbi, nbj             !! Number of point in x and y within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                 :: nbbasins             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                 :: basin_inbxid         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(inout)              :: trip(:,:)            !! The trip field (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(inout)              :: basin(:,:)           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)                :: nb                   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)                :: bname(nbvmax)        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)                :: sz(nbvmax)           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)                :: pts(nbvmax,nbvmax,2) !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: ip, jp, iip, jjp, ib, ibb, id, nbout !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: basin_sz             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: nb_in                !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp             !! Temporary trip field which only contains the values for the basin on which we currently work (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow            !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(8,2)             :: inc                  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                  :: iml          !! X resolution of the high resolution grid
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                  :: jml          !! Y resolution of the high resolution grid
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(8,2)  :: inc          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                  :: ip, jp, ib, ntripi, ntripj, cnt, trp !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                          :: nbi       !! Number of point in x within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                          :: nbj       !! Number of point in y within the grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)                :: trip      !! The trip field (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                          :: basin_sz  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                          :: basinid   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,2), INTENT(out)        :: outflow   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2), INTENT(out) :: trip_flow !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(out)                             :: nbout     !! 
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax), INTENT(out)          :: outsz     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(8,2)                          :: inc       !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                          :: ip, jp, ib, cnt, trp, totsz !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT (in)                :: nbpt                   !! Domain size (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT (in)                :: ib                     !! Current basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                 :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_bx                !! The trip field for each of the smaller boxes (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: nb_basin               !! Number of sub-basins (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_inbxid, basin_sz !! ID of basin, number of points in the basin
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: basin_pts              !! Points in each basin
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_bxout            !! outflow direction
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: coast_pts(nbvmax)      !! The coastal flow points (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: nwbas                  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt)            :: basin_count            !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_id               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_flowdir          !! Water flow directions in the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: outflow_grid           !! Type of outflow on the grid box (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt)            :: nbcoastal              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: coastal_basin          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                             :: ij, iz                 !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT (in)                    :: nbpt                  !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,8), INTENT (in) :: neighbours            !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: nwbas                 !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt)                :: basin_count           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_id              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_flowdir         !! Water flow directions in the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_grid          !! Type of outflow on the grid box (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_basin         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: inflow_number         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_basin          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_grid           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt)                :: nbcoastal             !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: coastal_basin         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: sp, sb, sbl, inp, bid, outdm1, outdp1 !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: dp1, dm1, dm1i, dp1i, bp1, bm1 !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: dop, bop              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: fbas(nwbas), nbfbas   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: ff(1)                 !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: nbpt          !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                       :: nwbas         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt), INTENT(in)          :: basin_count   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: basin_id      !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(inout) :: outflow_grid  !! Type of outflow on the grid box (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: outflow_basin !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                        :: ib, ij, ff(1), it, itt, igrif, ibasf, nboutflow !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt*nbvmax,2)              :: tmpindex     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                       :: pickmax = 200  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: nbpt           !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: nwbas          !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt)                 :: basin_count    !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_id       !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_flowdir  !! Water flow directions in the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_grid   !! Type of outflow on the grid box (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_basin  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: inflow_number  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_basin   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_grid    !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: ib, ij, ibf, ijf, igrif, ibasf, cnt, pold, bold, ff(2) !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: ii, kbas, sbas, ik, iter, ibt, obj !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(pickmax,2)            :: largest_basins !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(pickmax)              :: tmp_ids        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: multbas        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: iml(1)         !! X resolution of the high resolution grid
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(pickmax)              :: multbas_sz     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(pickmax,pickmax)      :: multbas_list   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                  :: nbtruncate     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), SAVE, ALLOCATABLE, DIMENSION(:) :: indextrunc     !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: tokill        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: totakeover    !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: nbpt          !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: ib            !! Current basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: nwbas         !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt)             :: basin_count   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_id      !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_flowdir !! Water flow directions in the basin (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_grid  !! Type of outflow on the grid box (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_basin !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: inflow_number !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_basin  !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_grid   !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                              :: inf, ibs, ing, inb, ibasf, igrif, it !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)             :: numlar              !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER              :: listleng=349        !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                         :: lenstr, i           !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                      :: ilake = 1             !! Number of type of lakes area (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                      :: idam = 2              !! Number of type of dams area (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                      :: iflood = 3            !! Number of type of floodplains area (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                      :: iswamp = 4            !! Number of type of swamps area (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                      :: isal = 5              !! Number of type of salines area (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                      :: ipond = 6             !! Number of type of ponds area (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), PARAMETER                      :: ntype = 6             !! Number of types of flooded surfaces (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: nbpt                  !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: index(nbpt)           !! Index on the global map.
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: hist_id               !! Access to history file (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: hist2_id              !! Access to history file 2 (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: nbpmax, nix, njx, fopt!! Idices, (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)    :: mask                  !! Mask to exclude some points (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: irrsub_index          !! Indices of the points we need on the fine grid (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: iml, jml, lml, tml, fid, ib, ip, jp, itype !! Indices (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)                                 :: itau(1)               !!
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std), INTENT(in) :: nbpt                       !! Domain size  (unitless)
src_sechiba/.svn/text-base/routing.f90.svn-base:    INTEGER(i_std)             :: ig, iflow            !! 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_veget       !! zero/one when veget fraction is zero/higher (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_soiltile    !! zero/one where soil tile is zero/higher (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! Restart file identifier
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),INTENT (in)                         :: hist2_id         !! _history_ file 2 identifier
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg        !! Indeces of the points on the 3D map for veg
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nstm), INTENT (in):: indexsoil      !! Indeces of the points on the 3D map for soil
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexlayer     !! Indeces of the points on the 3D map for soil layers
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexnbdl      !! Indeces of the points on the 3D map for of diagnostic soil layers
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: jst              !! Index of soil tiles (unitless, 1-3)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: jsl              !! Index of soil layers (unitless)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: ji, jv
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: itopmax          !! Indicating the layer corresponding to 0.1m depth
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex*imax)           :: mc_lin_axis_index
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                       :: jst, jsl
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: ier                   !! Error code
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: ji                    !! Index of land grid cells (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: jv                    !! Index of PFTs (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: jst                   !! Index of soil tiles (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: jsl                   !! Index of soil layers (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: jsc                   !! Index of soil texture (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), PARAMETER                          :: error_level = 3       !! Error level for consistency check
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                           :: ji, jv, jst,jsl
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size (number of grid cells) (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc          !! Index of the dominant soil textural class 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                      :: ji, jv        !! Grid-cell and PFT indices (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                      :: jst, jsc, jsl !! Soiltile, Soil Texture, and Soil layer indices (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                      :: i, jd         !! Index (1)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), PARAMETER                           :: error_level = 3 !! Error level for consistency check
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                      :: jiref           !! To identify the mc_lins where k_lin and d_lin 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                               :: ji, jv
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex    !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                           :: ji, jv
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                 :: ji,jv,jst
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !!
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                           :: ji, jv           !! Indices
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc             !! Index of the dominant soil textural class 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                 :: ji, jv, jsl, jst           !! indices
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: kjpindex        !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: ins
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                :: ji, jsl             !! Indices
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: ins             !! Soiltile index (1-nstm, unitless)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc            !! Index of the dominant soil textural class in grid cell 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                       :: ji,jsl
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: ins             !! index of soil type
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: jsl,ji
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: ins             !! number of soil type
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                     :: ji,jsl
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: ins              !! Index of soil type
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                    :: jsl,ji,i
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: kjpindex          !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                        :: ins               !! index of soil type
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std) :: jsl,ji
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                :: ji, jv, jsl, jst
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std)                                           :: ji, jv, jsl, jst, i, jd
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT (in)                          :: kjpindex     !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std) :: ji
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std) :: ji
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std) :: ji
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: kjpindex 
src_sechiba/.svn/text-base/hydrol.f90.svn-base:    INTEGER(i_std) :: jd, jh
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                        :: ier, i
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: rest_id,hist_id  !! Restart_ file and history file identifier 
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: hist2_id         !! history file 2 identifier (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indeces of the points on the map (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical 
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nbdl), INTENT (in) :: indexnbdl        !! Indeces of the points on the 3D map
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                        :: jv,ji,ii
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier(unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                  :: jg
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                           :: ier, ji, jg       !! Index (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: kjpindex     !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                         :: ji, jg
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                           :: ji, jg
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex       !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                      :: ji, jd, jg
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex    !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                       :: ji, jd, jg
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)                                 :: ji, jg
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: kjpindex
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std)  :: ji, jg
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std),INTENT(in)				:: kjpindex
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:      INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std) :: il, ils, ip, ix, iy, imin, jmin, ier
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std) :: iml, jml, lml, tml, fid
src_sechiba/.svn/text-base/thermosoilc.f90.svn-base:    INTEGER(i_std) :: itau(1)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), SAVE                             :: printlev_loc   !! local printlev for this module
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexveg       !! indexing array for the 3D fields of vegetation
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlai       !! indexing array for the 3D fields of vegetation
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnobio     !! indexing array for the 3D fields of other surfaces (ice,
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsoil      !! indexing array for the 3D fields of soil types (kjpindex*nstm)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexgrnd      !! indexing array for the 3D ground heat profiles (kjpindex*ngrnd)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlayer     !! indexing array for the 3D fields of soil layers in CWRR (kjpindex*nslm)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnbdl      !! indexing array for the 3D fields of diagnostic soil layers (kjpindex*nbdl)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexalb       !! indexing array for the 2 fields of albedo
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsnow      !! indexing array for the 3D fields snow layers
src_sechiba/.svn/text-base/sechiba.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std)                                           :: ji, jv		  !! Index (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std)                                           :: ji, jv, iflow     !! Index (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std)                                          :: ji, jv		  !! Index (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: kjpij              !! Total size of the un-compressed grid (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std)                                      :: ier                !! Check errors in memory allocation (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std)                                      :: ji, jv             !! Indeces (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT (in)                    :: kjpindex        !! Domain size - terrestrial pixels only (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std)                                 :: ji              !! Indices (unitless)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    INTEGER(i_std), INTENT (in)                       :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:  INTEGER(i_std), SAVE                            :: brk_flag = 0             !! Flag to consider bedrock: 0.no; 1.yes
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)                                        :: ier, i, jg
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: rest_id,hist_id  !! Restart_ file and history file identifier 
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: hist2_id         !! history file 2 identifier (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indeces of the points on the map (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical 
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)                                        :: jv,ji,ii
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier(unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: kjpindex     !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: njsc         !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)                                         :: ji, jg
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)                                           :: ji, jg
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: kjpindex      !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), DIMENSION (kjpindex), INTENT (in)          :: njsc          !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)                                             :: ji, jg, jst
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: kjpindex       !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)                                       :: ji, jd
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)                                 :: ji, jg
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: kjpindex
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)  :: ji, jg
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std)  :: lev3m  !! Closest interface level to 3m
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),INTENT(in)				:: kjpindex
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc       !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:      INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:      INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc     !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:      INTEGER(i_std)    				  :: ji,jg, jst     !! Index
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std) :: il, ils, ip, ix, iy, imin, jmin, ier
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std) :: iml, jml, lml, tml, fid
src_sechiba/.svn/text-base/thermosoil.f90.svn-base:    INTEGER(i_std) :: itau(1)
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:  INTEGER(i_std),PARAMETER         :: max_hist_level = 11     !! 
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(in)                  :: iim, jjm  !! Size in x and y of the data to be handeled
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT (in)                            :: kjpindex
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(in)                  :: istp_old  !! Time step counter
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(out)                 :: hist_id   !! History file identification for SECHIBA
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(out)                 :: hist2_id  !! History file 2 identification for SECHIBA
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(out)                 :: hist_id_stom, hist_id_stom_IPCC 
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_level, hist2_level     !! history output level (default is 10 => maximum output)
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: i, jst
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hori_id                      !! ID of the default horizontal longitude and latitude map.
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: vegax_id, laiax_id, solax_id, soltax_id, nobioax_id !! ID's for two vertical coordinates
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: soildiagax_id                !! ID for diagnostic soil levels
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: solayax_id                   !! ID for the vertical axis of the CWRR hydrology 
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hori_id2                      !! ID of the default horizontal longitude and latitude map.
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: vegax_id2, laiax_id2, solax_id2, soltax_id2, nobioax_id2, albax_id2 !! ID's for two vertical coordinates
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: solayax_id2                   !! ID for the vertical axis of the CWRR hydrology 
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: snowax_id                     !! ID for snow level axis
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_PFTaxis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_solax_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_pool_10axis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_pool_100axis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_pool_11axis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_pool_101axis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)     :: hist_IPCC_PFTaxis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)                         :: ier
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_id_stom
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: nvm
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: iim, jjm
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_hori_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_solax_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_pool_10axis_id,hist_pool_100axis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_pool_11axis_id,hist_pool_101axis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), PARAMETER  :: max_hist_level = 10
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)             :: hist_level
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_id_stom_IPCC
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: nvm
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: iim, jjm
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_hori_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(in)                  :: istp      !! Time step of the restart file
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(out)                 :: rest_id, rest_id_stom   !! ID of the restart file
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std), INTENT(out)                 :: itau_offset
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)              :: itau_dep
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std),PARAMETER    :: llm=1
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:    INTEGER(i_std)              :: yy, mm, dd
src_sechiba/.svn/text-base/slowproc.f90.svn-base:  INTEGER(i_std) , SAVE                              :: veget_update        !! update frequency in years for landuse (nb of years)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:  INTEGER(i_std), SAVE                               :: lcanop              !! canopy levels used for LAI
src_sechiba/.svn/text-base/slowproc.f90.svn-base:  INTEGER(i_std) , SAVE                              :: veget_year          !! year for vegetation update
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjit                !! Time step number
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpij               !! Total size of the un-compressed grid
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in)                           :: kjpindex            !! Domain size - terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                          :: rest_id             !! Restart file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                          :: rest_id_stom        !! STOMATE's _Restart_ file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                          :: hist_id_stom        !! STOMATE's _history_ file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in)                           :: hist_id_stom_IPCC   !! STOMATE's IPCC _history_ file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: IndexLand           !! Indices of the points on the land map
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg            !! Indices of the points on the vegetation (3D map ???) 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)  :: neighbours          !! neighoring grid points if land.
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(out)       :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                     :: j, jv                !! indices 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjit                !! Time step number
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpij               !! Total size of the un-compressed grid
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in)                           :: kjpindex            !! Domain size - terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                          :: rest_id,hist_id     !! _Restart_ file and _history_ file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                          :: hist2_id            !! _history_ file 2 identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                          :: rest_id_stom        !! STOMATE's _Restart_ file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                          :: hist_id_stom        !! STOMATE's _history_ file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in)                           :: hist_id_stom_IPCC   !! STOMATE's IPCC _history_ file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: IndexLand           !! Indices of the points on the land map
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg            !! Indices of the points on the vegetation (3D map ???) 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)  :: neighbours          !! neighoring grid points if land. In what ??? indices or geographical coordinates (lat/lon) ??? 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(inout)       :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                     :: j, jv, ji            !! indices 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in)                            :: kjpindex       !! Domain size - terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: IndexLand      !! Indices of the points on the land map
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(in)      :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT (in)                           :: kjit           !! Time step number
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT (in)                           :: kjpindex       !! Domain size - Terrestrial pixels only 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: IndexLand      !! Indices of the land points on the map
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)    :: neighbours     !! Vector of neighbours for each grid point 1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(out)                           :: lcanop         !! Number of Canopy level used to compute LAI
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(out)                           :: veget_update   !! update frequency in timesteps (years) for landuse
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(out)                           :: veget_year     !! first year for landuse   (year or index ???)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(out)      :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                        :: vtmp(1)           !! temporary variable
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                        :: j,l, jf           !! Indices
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                        :: ji, jv, ier,jst   !! Indices 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT (in)                                :: kjpindex       !! Domain size - terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                              :: ji, jv         !! Local indices
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: npts     !! Domain size- terrestrial pixels only 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: n_dim2   !! Number of PFTs 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: npts        !! Domain size- terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: n_dim2      !! Second dimension of the fields, which represents the number of PFTs
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: kjpindex    !! Domain size - terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                         :: ji, jv, jst !! indices 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex   !! Domain size - terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: lcanop     !! soil level used for LAI
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: mm, dd     !! Number of the month in the year and number of day of the month 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                      :: ji,jv      !! Local indices 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)          :: nbpt                  !! Number of points for which the data needs to be interpolated
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)         :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point 1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, it, jj, jv
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index !! the indexes from the grid boxes from the data that go into the 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: nix, njx
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: idi, nbvmax                               !! nbvmax : number of maximum vegetation map
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: nbpt            !! Number of points for which the data needs 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt,8), INTENT(in)         :: neighbours       !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)         :: veget_year            !! first year for landuse (0 == NO TIME AXIS)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, inobio, jv
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: nb_coord,nb_var, nb_gat,nb_dim
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)  :: itau
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: idi, nbvmax
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)          :: nbpt                  !! Number of points for which the data needs to be interpolated
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)          :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), PARAMETER  :: nolson = 94                    !! Number of Olson classes
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, vid
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),ALLOCATABLE, DIMENSION(:,:) :: sub_index
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: idi, jv, inear, nbvmax, nix, njx
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: iml             !! size of the vector
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(out)                  :: inear           !! location of the grid point from the 5km vegmap grid
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                               :: i
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), DIMENSION(1)                 :: ineartab
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)    :: nbpt                   !! Number of points for which the data needs to be interpolated
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)    :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)               :: nbvmax
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, ilf, nbexp
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: fopt                                  !! Nb of pts from the texture map within one ORCHIDEE grid-cell
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: itautmp(1)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index !! to associate the coordinates of the texture 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: solt       !! Texture the different points from the input texture map 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: solt2      !! Unused
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: nix, njx
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), PARAMETER :: nzobler = 7                !! Nb of texture classes according in the Zobler map
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)          :: nbpt                  ! Number of points for which the data needs to be interpolated
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)          :: neighbours(nbpt,8)    ! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)    :: iml, jml, lml, tml, fid, ib, ip, jp, vid
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)    :: idi, idi_last, nbvmax
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: nix, njx
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),PARAMETER :: nolson94 = 94                       !! Number of Olson vegetation types (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),PARAMETER :: nvm13 = 13                          !! Number of PFTS of ORCHIDEE (unitless) 
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in) :: nolson                             !! Number of Olson vegetation types (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: ib                                            !! Indice (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),PARAMETER :: nbtypes_zobler = 7                    !! Number of Zobler types (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in) :: nzobler                              !! Size of the array (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: ib                                              !! Indice (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),INTENT(in) :: nusda                               !! Size of the array (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std),PARAMETER :: nbtypes_usda = 12                    !! Number of USDA texture classes (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: n                                              !! Index (unitless)
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                      :: nbpt       ! Number of points for which the data needs to be interpolated
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std) :: ji, jn, jv, js
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std), INTENT(in)                           :: kjpindex      !! Domain size - terrestrial pixels only
src_sechiba/.svn/text-base/slowproc.f90.svn-base:    INTEGER(i_std)                                       :: ji, jv         !! Loop index
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (unitless) 
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), DIMENSION(kjpindex,8), INTENT (in) :: neighbours       !! Vector of neighbours for each 
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std)                      :: iml, jml, lml, tml, force_id
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std)                      :: ier
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: kjpindex         !! Domain size - terrestrial pixels only (unitless)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: kjit             !! Time step number (-) 
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std),INTENT (in)                                 :: hist_id          !! History file identifier (-)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std),INTENT (in)                                 :: hist2_id         !! History file 2 identifier (-)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)           :: index            !! Indeces of the points on the map (-)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*(nlai+1)), INTENT (in)  :: indexlai         !! Indeces of the points on the 3D map
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in)       :: indexveg         !! Indeces of the points on the 3D map (-)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std)                             :: ji, jv, jf, jl    !! Indices (unitless)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), INTENT(in)       :: nbpt                !! Number of points for which the data needs to be interpolated
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), INTENT(in)       :: neighbours(nbpt,8)  !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), INTENT(in)       :: nbpt                !! Number of points for which the data needs to be interpolated
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std), INTENT(in)       :: neighbours(nbpt,8)  !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, ilf, lastjp, nbexp
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std) :: itau(1)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    INTEGER(i_std) :: ier
src_sechiba/.svn/text-base/chemistry.f90.svn-base:     INTEGER(i_std), SAVE   :: nb_fields_out, nb_fields_in
src_sechiba/.svn/text-base/chemistry.f90.svn-base:     INTEGER(i_std)  :: i_fields_out, i_fields_in
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                       :: kjit             !! Time step number 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                       :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),INTENT (in)                       :: rest_id          !! _Restart_ file identifier
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in) :: index            !! Indeces of the points on the map
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in):: neighbours       !! neighoring grid points if land
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                       :: kjit             !! Time step number 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                       :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),INTENT (in)                       :: rest_id          !! _Restart_ file identifier
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),INTENT (in)                       :: hist_id          !! _History_ file identifier
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), OPTIONAL, INTENT (in)            :: hist2_id          !! _History_ file 2 identifier
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in) :: index            !! Indeces of the points on the map
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in):: neighbours       !! neighoring grid points if land
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                  :: kjit             !! Time step number 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                  :: kjpindex         !! Domain size
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std),INTENT (in)                  :: rest_id          !! Restart file identifier
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex         !! Domain size - Number of land pixels  (unitless) 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                      :: ji, jv           !! Indeces
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex        !! Domain size - Number of land pixels  (unitless)
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                      :: ji, jv, jb,iv   !! indices (unitless)
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Number of points for which the data needs to be 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                :: nbvmax                !! nbvmax for interpolation (unitless). It is the 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                :: iml, jml, lml, &
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                :: itau(1)               !! Help variables to read in file data
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Help variable to read file data and allocate memory
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask                  !! Help variable to read file data and allocate memory
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Number of points for which the data needs to be 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                :: nbvmax                !! nbvmax for interpolation (unitless). It is the 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                :: iml, jml, lml, tml    !! Indices
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                :: fid, ib, ip, jp, fopt !! Indices
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                :: ilf, ks, it           !! Indices
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Help variable to read file data and allocate memory
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size - Number of land pixels  (unitless) 
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                      :: jv            !! Loop index over PFTs (unitless)
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size - Number of land pixels  (unitless)
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                      :: jv            !! Loop index over PFTs (unitless)
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std), INTENT(in)                       :: kjpindex       !! Domain size - Number of land pixels  (unitless)
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                   :: ks             !! Index for visible and near-infraread range
src_sechiba/.svn/text-base/condveg.f90.svn-base:    INTEGER(i_std)                                   :: jv             !! Index for vegetative PFTs
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(inout)                   :: var                  !! Integer scalar to modify
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Initial value to stored
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                  !! 1D integer array to modify
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                 !! 1D integer array to modify
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put             !! 1D integer array to stored
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp_g
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put              !! 1D integer array to stored
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                 !! 2D integer array to modify
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), DIMENSION(:,:), INTENT(in)      :: val_put             !! 2D integer array to stored
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)     :: val_tmp
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                  :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                                     :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                               :: is_key
src_sechiba/.svn/text-base/sechiba_io_p.f90.svn-base:  INTEGER(i_std)                              :: is_key
src_sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
src_sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
src_sechiba/explicitsnow.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !! Domain size
src_sechiba/explicitsnow.f90:    INTEGER(i_std)                                           :: ji, iv, jj,m,jv
src_sechiba/explicitsnow.f90:    INTEGER(i_std) :: locjj
src_sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
src_sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
src_sechiba/explicitsnow.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/explicitsnow.f90:      INTEGER(i_std),INTENT(in)                                  :: kjpindex         !! Domain size
src_sechiba/explicitsnow.f90:      INTEGER(i_std) :: ji,jj
src_sechiba/explicitsnow.f90:         INTEGER(i_std),INTENT(in)                                 :: kjpindex         !! Domain size
src_sechiba/explicitsnow.f90:         INTEGER(i_std)                                            :: ji,jj
src_sechiba/explicitsnow.f90:     INTEGER(i_std),INTENT(in)                                           :: kjpindex         !! Domain size
src_sechiba/explicitsnow.f90:     INTEGER(i_std),DIMENSION(nsnow,2)                                   :: locflag
src_sechiba/explicitsnow.f90:     INTEGER(i_std)                                                      :: ji,jj,jjj
src_sechiba/explicitsnow.f90:       INTEGER(i_std),INTENT(in)                              :: kjpindex            !! Domain size
src_sechiba/explicitsnow.f90:       INTEGER(i_std)                                         :: ji,jj
src_sechiba/explicitsnow.f90:     INTEGER(i_std), INTENT(in)                                 :: kjpindex     !! Domain size
src_sechiba/explicitsnow.f90:     INTEGER(i_std)                                             :: ji,jj
src_sechiba/explicitsnow.f90:      INTEGER(i_std), INTENT (in)                             :: kjpindex     !! Domain size
src_sechiba/explicitsnow.f90:      INTEGER(i_std)                                          :: jj,ji, iv
src_sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                                     :: kjpindex     !! Domain size
src_sechiba/explicitsnow.f90:    INTEGER(i_std)                                                 :: il,it,ji
src_sechiba/explicitsnow.f90:    INTEGER(i_std)                                                 :: i,j, ix
src_sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex     !! Domain size (unitless)
src_sechiba/explicitsnow.f90:    INTEGER(i_std)                                           :: ji, jg
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjit             !! Time step number 
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjpindex         !! Domain size
src_sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                       :: rest_id          !! _Restart_ file identifier
src_sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in) :: index            !! Indeces of the points on the map
src_sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in):: neighbours       !! neighoring grid points if land
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjit             !! Time step number 
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjpindex         !! Domain size
src_sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                       :: rest_id          !! _Restart_ file identifier
src_sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                       :: hist_id          !! _History_ file identifier
src_sechiba/condveg.f90:    INTEGER(i_std), OPTIONAL, INTENT (in)            :: hist2_id          !! _History_ file 2 identifier
src_sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in) :: index            !! Indeces of the points on the map
src_sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in):: neighbours       !! neighoring grid points if land
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                  :: kjit             !! Time step number 
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                  :: kjpindex         !! Domain size
src_sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                  :: rest_id          !! Restart file identifier
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex         !! Domain size - Number of land pixels  (unitless) 
src_sechiba/condveg.f90:    INTEGER(i_std)                                      :: ji, jv           !! Indeces
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex        !! Domain size - Number of land pixels  (unitless)
src_sechiba/condveg.f90:    INTEGER(i_std)                                      :: ji, jv, jb,iv   !! indices (unitless)
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Number of points for which the data needs to be 
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
src_sechiba/condveg.f90:    INTEGER(i_std)                                :: nbvmax                !! nbvmax for interpolation (unitless). It is the 
src_sechiba/condveg.f90:    INTEGER(i_std)                                :: iml, jml, lml, &
src_sechiba/condveg.f90:    INTEGER(i_std)                                :: itau(1)               !! Help variables to read in file data
src_sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Help variable to read file data and allocate memory
src_sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask                  !! Help variable to read file data and allocate memory
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Number of points for which the data needs to be 
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
src_sechiba/condveg.f90:    INTEGER(i_std)                                :: nbvmax                !! nbvmax for interpolation (unitless). It is the 
src_sechiba/condveg.f90:    INTEGER(i_std)                                :: iml, jml, lml, tml    !! Indices
src_sechiba/condveg.f90:    INTEGER(i_std)                                :: fid, ib, ip, jp, fopt !! Indices
src_sechiba/condveg.f90:    INTEGER(i_std)                                :: ilf, ks, it           !! Indices
src_sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask
src_sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Help variable to read file data and allocate memory
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size - Number of land pixels  (unitless) 
src_sechiba/condveg.f90:    INTEGER(i_std)                                      :: jv            !! Loop index over PFTs (unitless)
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size - Number of land pixels  (unitless)
src_sechiba/condveg.f90:    INTEGER(i_std)                                      :: jv            !! Loop index over PFTs (unitless)
src_sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjpindex       !! Domain size - Number of land pixels  (unitless)
src_sechiba/condveg.f90:    INTEGER(i_std)                                   :: ks             !! Index for visible and near-infraread range
src_sechiba/condveg.f90:    INTEGER(i_std)                                   :: jv             !! Index for vegetative PFTs
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Current time step number (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indices of the land grid points on the map 
src_sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier 
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                              :: kjit             !! Current time step number (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                              :: kjpindex         !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                              :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier 
src_sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                              :: hist2_id         !! Second _history_ file identifier (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)        :: index            !! Indices of the land grid points on the map 
src_sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in)    :: indexveg         !! Indices of the PFT tiles / soil columns on 
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                          :: ji,jv            !! Grid-cell and PFT indices (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                           :: kjit             !! Current time step number (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex         !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id          !! Restart file identifier 
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: kjit                !! Current time step number (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: kjpindex            !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index               !! Indices of the land grid points on the map 
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: rest_id             !! _Restart_ file identifier (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ier                 !! To receive error flag during allocation
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ji,jv,ik            !! Indices for grid-cells, PFTs, and grid-cells 
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex      !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                     :: ji,jv, jd     !! Indices for grid-cells, PFTs and diagnostic levels in 
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex        !! Domain size  (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                           :: ji, jv          !! indices (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex           !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ji, jv             !! Grid-cell and PFT indices (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex   !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                :: ji,jv                 !!  Grid-cell and PFT indices (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                          :: ji, jst, jv       !! indices
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex       !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: ji,jv, jd      !! Indices for grid-cells, PFTs and diagnostic levels in
src_sechiba/hydrolc.f90:    INTEGER(i_std), PARAMETER                           :: nitermax = 100 !! Maximum number of iterations to dsg > dsp after 
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: niter          !! Counter of iterations to solve dsg > dsp after 
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: nbad           !! Number of negative total soil moisture cases 
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                            :: kjpindex       !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                         :: ji, jv, jn
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                            :: kjpindex       !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: index          !! Indices of the points on the map
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                         :: ji, jv, jn     !!  Grid-cell, PFT and "nobio" fraction indices 
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex    !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index       !! Indices of the points on the map (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: ji          !! Grid-cell indices (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex    !! Domain size (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index       !! Indices of the points on the map (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: ji          !! Grid-cell indices (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: kjpindex         !! Domain size  (number of grid cells) (unitless)
src_sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ji,jv            !! Indices for grid-cells and PFTs (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! _Restart_ file identifier (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex,8),INTENT (in)  :: neighbours       !! Vector of neighbours for each 
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: hist_id          !! _History_ file identifier (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: hist2_id         !! _History_ file 2 identifier (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index          !! Indeces of the points on the map (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex*(nlai+1)), INTENT (in) :: indexlai  !! Indeces of the points on the 3D map
src_sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in) :: indexveg       !! Indeces of the points on the 3D map (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex,8),INTENT (in)  :: neighbours         !! Vector of neighbours for each 
src_sechiba/diffuco.f90:    INTEGER(i_std)                           :: ilai
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! _Restart_ file identifier (-)
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex, kjit   !! Domain size
src_sechiba/diffuco.f90:    INTEGER(i_std)                                      :: ji, jv
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std)                                       :: ji, jv         !! Indices (-)
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex   !! Domain size
src_sechiba/diffuco.f90:    INTEGER(i_std)                                           :: ji, jv
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex   !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std)                                       :: ji, jv                               !! (-), (-)
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex       !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std)                                     :: ji, jv
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex   !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std)                                     :: ji, jv
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !! Domain size (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std)                        :: ji, jv, jl, limit_photo             !! indices (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std), DIMENSION(kjpindex)   :: ilai                                !! counter for loops on LAI levels (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std)                        :: nic,inic,icinic                     !! counter/indices (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std), DIMENSION(kjpindex)   :: index_calc                          !! index (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std)                        :: nia,inia,nina,inina,iainia          !! counter/indices (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std), DIMENSION(kjpindex)   :: index_assi,index_non_assi           !! indices (unitless)
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex   !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std)                                       :: ji, jv
src_sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std)                                 :: ji           !! (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),INTENT(in)                     :: kjpindex          !! Domain size (-)
src_sechiba/diffuco.f90:    INTEGER(i_std),INTENT(in)                     :: kjpindex          !! Domain size (-)
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                        :: ier, i
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id,hist_id  !! Restart_ file and history file identifier 
src_sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: hist2_id         !! history file 2 identifier (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indeces of the points on the map (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical 
src_sechiba/thermosoilc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nbdl), INTENT (in) :: indexnbdl        !! Indeces of the points on the 3D map
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                        :: jv,ji,ii
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier(unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                  :: jg
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                           :: ier, ji, jg       !! Index (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex     !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                         :: ji, jg
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                           :: ji, jg
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex       !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                      :: ji, jd, jg
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex    !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                       :: ji, jd, jg
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (unitless)
src_sechiba/thermosoilc.f90:    INTEGER(i_std)                                 :: ji, jg
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex
src_sechiba/thermosoilc.f90:    INTEGER(i_std)  :: ji, jg
src_sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT(in)				:: kjpindex
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/thermosoilc.f90:      INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/thermosoilc.f90:    INTEGER(i_std) :: il, ils, ip, ix, iy, imin, jmin, ier
src_sechiba/thermosoilc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid
src_sechiba/thermosoilc.f90:    INTEGER(i_std) :: itau(1)
src_sechiba/routing.f90:  INTEGER(i_std), PARAMETER                                  :: nbasmax=5                   !! The maximum number of basins we wish to have per grid box (truncation of the model) (unitless)
src_sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: nbvmax                      !! The maximum number of basins we can handle at any time during the generation of the maps (unitless)
src_sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: diagunit = 87               !! Diagnostic file unit (unitless)
src_sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: nstep_FCO2 = 240            !! Segmentation steps per day used
src_sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: num_largest                 !! Number of largest river basins which should be treated as independently as rivers
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_loc            !! Grid into which the basin flows 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_loc           !! Basin in to which the water goes 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_loc         !! Number of basin into current one 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_loc          !! ID of basin (unitless)
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_loc               !! Variable to diagnose the hydrographs
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_glo            !! Grid into which the basin flows 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_glo           !! Basin in to which the water goes 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_glo         !! Number of basin into current one 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_glo          !! ID of basin (unitless)
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_glo               !! Variable to diagnose the hydrographs
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_togrid                !! Grid into which the basin flows 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_tobasin               !! Basin in to which the water goes 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_nbintobas             !! Number of basin into current one 
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: global_basinid              !! ID of basin (unitless)
src_sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:,:)            :: hydrodiag                   !! Variable to diagnose the hydrographs
src_sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: floodtemp_lev                !! Temperature level to decide if 
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
src_sechiba/routing.f90:    INTEGER(i_std)                 :: ig
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
src_sechiba/routing.f90:    INTEGER(i_std)                    :: ig, jv                  !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                    :: iflow                   !! Index (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                 :: iflow                !! Index (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: kjit           !! Time step number (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: nbpt           !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION (nbpt), INTENT(in) :: index          !! Indices of the points on the map (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: rest_id        !! Restart file identifier (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                               :: iflow, ier, ig, ib, ipn(1) !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)        :: nbpt                      !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8)                 :: igrd                      !! 
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(2)                 :: ff                        !! 
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(1)                 :: fi                        !! 
src_sechiba/routing.f90:    INTEGER(i_std)                               :: ig, ib, ib2, ig2          !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                               :: rtg, rtb, in              !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                               :: ier                       !! Error handling 
src_sechiba/routing.f90:    INTEGER(i_std)                               :: iflow, istep_FCO2         !! Indices (unitless) 
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                      :: nbpt         !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: ig, iflow    !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)      :: nbpt               !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)      :: index(nbpt)        !! Indices of the points on the map (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT (in)      :: hist_id            !! Access to history file (unitless)
src_sechiba/routing.f90:    INTEGER(i_std),INTENT (in)      :: hist2_id           !! Access to history file 2 (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: nbpt                !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: l_index(nbpt)       !! Indices of the points on the map (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nbasmax)      :: outids              !! IDs of river to which this basin contributes (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: pts                 !! List the points belonging to the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: ptbas               !! List the basin number for this point (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: outpt               !! Outflow point for each basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: nb_pts              !! Number of points in the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: topids              !! The IDs of the first num_largest basins (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_nb         !! Number of streams in basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_avehops    !! Average number of hops in streams (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_minhops    !! Minimum number of hops in streams (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_maxhops    !! Minimum number of hops in streams (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: lrivercode         !!
src_sechiba/routing.f90:    INTEGER(i_std)                                :: ig, ib, og, ob, ign, ibn, ff(1), ic, icc, nb_small, idbas, slen, ii !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                :: ier                !! Error handling
src_sechiba/routing.f90:    INTEGER(i_std)                                :: name_found         !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sortedrivs         !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: longest_river       !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: nbmax               !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: allstreams          !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: tstreams, tslen, tpts, tptbas, tcode !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: ip             !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: ls             !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpts           !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpbas          !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tslen          !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip,ls), INTENT(in) :: allstreams     !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(out)   :: streamcode     !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: ilev, cntsubbas, ib, ic, i, it, ilevmax, imaxlen, nbzero !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: tstreamcode(ip)!!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: indsubbas(ip)  !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: iw(ip)         !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: tdiff(ip)      !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: tmpjunc(4)     !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: junction(4)    !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: ff(1)          !!
src_sechiba/routing.f90:    INTEGER(i_std)                               :: ll             !!
src_sechiba/routing.f90:    INTEGER(i_std)                              :: nbpt                     !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: nb_pts                   !! Number of points in the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: topids                   !! The IDs of the first num_largest basins (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: sortedrivs               !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lbasin_index             !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lrivercode               !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest,2)    :: outpt                    !! Outflow point for each basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_nb               !! Number of streams in basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_avehops          !! Average number of hops in streams (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_minhops          !! Minimum number of hops in streams (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_maxhops          !! Minimum number of hops in streams (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                              :: icc, fid, iret, ierr_tot, ib, ij, ik, i, j, lcc !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                              :: nlonid, nlatid, varid, varid2, varid3
src_sechiba/routing.f90:    INTEGER(i_std)                              :: dims(2)                  !!
src_sechiba/routing.f90:    INTEGER(i_std)                              :: basincode(iim_g,jjm_g)   !!
src_sechiba/routing.f90:    INTEGER(i_std),PARAMETER                    :: kind_r_diag=NF90_REAL8   !!
src_sechiba/routing.f90:    INTEGER(i_std),PARAMETER                    :: kind_i_diag=NF90_INT     !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in) :: nbpt                          !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in) :: neighbours(nbpt,8)            !! Vector of neighbours for each grid point 
src_sechiba/routing.f90:!    INTEGER(i_std)    :: neighbours_tmp(nbpt,8)
src_sechiba/routing.f90:!    INTEGER(i_std) :: i,j
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                :: iml, jml, lml, tml, fid, ib, ip, jp, fopt !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                :: itau(1)               !!
src_sechiba/routing.f90:    INTEGER(i_std)                                :: nbi, nbj              !! Number of point in x and y within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: trip_bx               !! The trip field for each of the smaller boxes (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_bx              !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: coast_pts             !! The coastal flow points (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_count           !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_id              !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_flowdir         !! Water flow directions in the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_grid          !! Type of outflow on the grid box (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_basin         !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: inflow_number         !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_basin          !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_grid           !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: nbcoastal             !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: coastal_basin         !!
src_sechiba/routing.f90:    INTEGER(i_std)                                :: nix, njx              !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask                  !! Mask to exclude some points (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Indices of the points we need on the fine grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sub_pts               !! Number of high resolution points on this grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                :: nb_basin              !! Number of sub-basins (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                :: nwbas                 !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_inbxid          !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_sz              !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_bxout           !!
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: basin_pts             !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(2)                  :: diagbox = (/ 1, 2 /)  !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: nbpt                        !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: iml                         !! X resolution of the high resolution grid
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: jml                         !! Y resolution of the high resolution grid
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: ib                          !! Current basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: sub_pts(nbpt)               !! Number of high resolution points on this grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: sub_index(nbpt,nbvmax,2)    !! Indices of the points we need on the fine grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out) :: nbi, nbj                    !! Number of point in x and y within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out) :: trip_bx(nbvmax,nbvmax)      !! The trip field for each of the smaller boxes (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out) :: basin_bx(nbvmax,nbvmax)     !!
src_sechiba/routing.f90:    INTEGER(i_std)              :: ip, jp, ll(1), iloc, jloc   !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)   :: nb_in             !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)  :: nb_out            !!
src_sechiba/routing.f90:    INTEGER(i_std)               :: ipos              !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(1) :: ll                !!
src_sechiba/routing.f90:    INTEGER(i_std)               :: ind(nb_in)        !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)    :: nbi                          !! Number of point in x within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)    :: nbj                          !! Number of point in y within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(inout) :: trip(:,:)                    !! The trip field (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(inout) :: basin(:,:)                   !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: nb_basin                     !! Number of sub-basins (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_inbxid(nbvmax)         !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_sz(nbvmax)             !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_bxout(nbvmax)          !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_pts(nbvmax, nbvmax, 2) !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: coast_pts(nbvmax)            !! The coastal flow points (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                :: ibas, ilf, nbb, nb_in        !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: bname(nbvmax)                !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: sz(nbvmax)                   !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: pts(nbvmax,nbvmax,2)         !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: nbout(nbvmax)                !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: new_nb                       !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: new_bname(nbvmax)            !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: new_sz(nbvmax)               !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: new_pts(nbvmax,nbvmax,2)     !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: itrans                       !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: trans(nbvmax)                !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: outdir(nbvmax)               !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: tmpsz(nbvmax)                !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: ip, jp, jpp(1), ipb          !!
src_sechiba/routing.f90:    INTEGER(i_std)                :: sortind(nbvmax)              !!
src_sechiba/routing.f90:    INTEGER(i_std)                             :: nbi                        !! Number of point in x within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                             :: nbj                        !! Number of point in y within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                             :: trip(:,:)                  !! The trip field (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                             :: basin(:,:)                 !!
src_sechiba/routing.f90:    INTEGER(i_std)                             :: basin_inbxid               !!
src_sechiba/routing.f90:    INTEGER(i_std)                             :: ip, jp, nbout, basin_sz, iborder !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp                   !! Temporary trip field which only contains the values for the basin on which we currently work (1)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow                  !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow                    !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                      !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)             :: inc                        !!
src_sechiba/routing.f90:    INTEGER(i_std)                             :: itodo, ill(1), icc, ismall, ibas, iip, jjp, ib, id !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: todopt                     !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: nbi, nbj             !! Number of point in x and y within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: nbbasins             !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: basin_inbxid         !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(inout)              :: trip(:,:)            !! The trip field (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(inout)              :: basin(:,:)           !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: nb                   !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: bname(nbvmax)        !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: sz(nbvmax)           !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: pts(nbvmax,nbvmax,2) !!
src_sechiba/routing.f90:    INTEGER(i_std)                             :: ip, jp, iip, jjp, ib, ibb, id, nbout !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                             :: basin_sz             !!
src_sechiba/routing.f90:    INTEGER(i_std)                             :: nb_in                !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp             !! Temporary trip field which only contains the values for the basin on which we currently work (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow            !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow              !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)             :: inc                  !!
src_sechiba/routing.f90:    INTEGER(i_std)                  :: iml          !! X resolution of the high resolution grid
src_sechiba/routing.f90:    INTEGER(i_std)                  :: jml          !! Y resolution of the high resolution grid
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)  :: inc          !!
src_sechiba/routing.f90:    INTEGER(i_std)                  :: ip, jp, ib, ntripi, ntripj, cnt, trp !!
src_sechiba/routing.f90:    INTEGER(i_std)                                          :: nbi       !! Number of point in x within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                          :: nbj       !! Number of point in y within the grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)                :: trip      !! The trip field (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                          :: basin_sz  !!
src_sechiba/routing.f90:    INTEGER(i_std)                                          :: basinid   !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,2), INTENT(out)        :: outflow   !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2), INTENT(out) :: trip_flow !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                             :: nbout     !! 
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax), INTENT(out)          :: outsz     !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)                          :: inc       !!
src_sechiba/routing.f90:    INTEGER(i_std)                                          :: ip, jp, ib, cnt, trp, totsz !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT (in)                :: nbpt                   !! Domain size (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT (in)                :: ib                     !! Current basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_bx                !! The trip field for each of the smaller boxes (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                             :: nb_basin               !! Number of sub-basins (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_inbxid, basin_sz !! ID of basin, number of points in the basin
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: basin_pts              !! Points in each basin
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_bxout            !! outflow direction
src_sechiba/routing.f90:    INTEGER(i_std)                             :: coast_pts(nbvmax)      !! The coastal flow points (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                             :: nwbas                  !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)            :: basin_count            !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_id               !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_flowdir          !! Water flow directions in the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: outflow_grid           !! Type of outflow on the grid box (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)            :: nbcoastal              !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: coastal_basin          !!
src_sechiba/routing.f90:    INTEGER(i_std)                             :: ij, iz                 !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT (in)                    :: nbpt                  !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,8), INTENT (in) :: neighbours            !!
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: nwbas                 !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)                :: basin_count           !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_id              !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_flowdir         !! Water flow directions in the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_grid          !! Type of outflow on the grid box (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_basin         !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: inflow_number         !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_basin          !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_grid           !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)                :: nbcoastal             !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: coastal_basin         !!
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: sp, sb, sbl, inp, bid, outdm1, outdp1 !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: dp1, dm1, dm1i, dp1i, bp1, bm1 !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: dop, bop              !!
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: fbas(nwbas), nbfbas   !!
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: ff(1)                 !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                           :: nbpt          !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                       :: nwbas         !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt), INTENT(in)          :: basin_count   !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: basin_id      !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(inout) :: outflow_grid  !! Type of outflow on the grid box (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: outflow_basin !!
src_sechiba/routing.f90:    INTEGER(i_std)                                        :: ib, ij, ff(1), it, itt, igrif, ibasf, nboutflow !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt*nbvmax,2)              :: tmpindex     !!
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                       :: pickmax = 200  !!
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: nbpt           !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: nwbas          !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)                 :: basin_count    !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_id       !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_flowdir  !! Water flow directions in the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_grid   !! Type of outflow on the grid box (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_basin  !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: inflow_number  !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_basin   !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_grid    !!
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: ib, ij, ibf, ijf, igrif, ibasf, cnt, pold, bold, ff(2) !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: ii, kbas, sbas, ik, iter, ibt, obj !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax,2)            :: largest_basins !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax)              :: tmp_ids        !!
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: multbas        !!
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: iml(1)         !! X resolution of the high resolution grid
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax)              :: multbas_sz     !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax,pickmax)      :: multbas_list   !!
src_sechiba/routing.f90:    INTEGER(i_std)                                  :: nbtruncate     !!
src_sechiba/routing.f90:    INTEGER(i_std), SAVE, ALLOCATABLE, DIMENSION(:) :: indextrunc     !!
src_sechiba/routing.f90:    INTEGER(i_std)                              :: tokill        !!
src_sechiba/routing.f90:    INTEGER(i_std)                              :: totakeover    !!
src_sechiba/routing.f90:    INTEGER(i_std)                              :: nbpt          !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                              :: ib            !! Current basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                              :: nwbas         !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)             :: basin_count   !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_id      !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_flowdir !! Water flow directions in the basin (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_grid  !! Type of outflow on the grid box (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_basin !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: inflow_number !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_basin  !!
src_sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_grid   !!
src_sechiba/routing.f90:    INTEGER(i_std)                              :: inf, ibs, ing, inb, ibasf, igrif, it !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)             :: numlar              !!
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER              :: listleng=349        !!
src_sechiba/routing.f90:    INTEGER(i_std)                         :: lenstr, i           !!
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: ilake = 1             !! Number of type of lakes area (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: idam = 2              !! Number of type of dams area (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: iflood = 3            !! Number of type of floodplains area (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: iswamp = 4            !! Number of type of swamps area (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: isal = 5              !! Number of type of salines area (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: ipond = 6             !! Number of type of ponds area (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: ntype = 6             !! Number of types of flooded surfaces (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: nbpt                  !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: index(nbpt)           !! Index on the global map.
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: hist_id               !! Access to history file (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: hist2_id              !! Access to history file 2 (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: nbpmax, nix, njx, fopt!! Idices, (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)    :: mask                  !! Mask to exclude some points (unitless)
src_sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: irrsub_index          !! Indices of the points we need on the fine grid (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: iml, jml, lml, tml, fid, ib, ip, jp, itype !! Indices (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)                                 :: itau(1)               !!
src_sechiba/routing.f90:    INTEGER(i_std), INTENT(in) :: nbpt                       !! Domain size  (unitless)
src_sechiba/routing.f90:    INTEGER(i_std)             :: ig, iflow            !! 
src_sechiba/hydrol.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_veget       !! zero/one when veget fraction is zero/higher (1)
src_sechiba/hydrol.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_soiltile    !! zero/one where soil tile is zero/higher (1)
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
src_sechiba/hydrol.old:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! Restart file identifier
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std),INTENT (in)                         :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier
src_sechiba/hydrol.old:    INTEGER(i_std),INTENT (in)                         :: hist2_id         !! _history_ file 2 identifier
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg        !! Indeces of the points on the 3D map for veg
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex*nstm), INTENT (in):: indexsoil      !! Indeces of the points on the 3D map for soil
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexlayer     !! Indeces of the points on the 3D map for soil layers
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexnbdl      !! Indeces of the points on the 3D map for of diagnostic soil layers
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: jst              !! Index of soil tiles (unitless, 1-3)
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: jsl              !! Index of soil layers (unitless)
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: ji, jv
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: itopmax          !! Indicating the layer corresponding to 0.1m depth
src_sechiba/hydrol.old:    INTEGER(i_std), DIMENSION(kjpindex*imax)           :: mc_lin_axis_index
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/hydrol.old:    INTEGER(i_std)                                       :: jst, jsl
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number 
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier 
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: ier                   !! Error code
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: ji                    !! Index of land grid cells (1)
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: jv                    !! Index of PFTs (1)
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: jst                   !! Index of soil tiles (1)
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: jsl                   !! Index of soil layers (1)
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: jsc                   !! Index of soil texture (1)
src_sechiba/hydrol.old:    INTEGER(i_std), PARAMETER                          :: error_level = 3       !! Error level for consistency check
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! domain size
src_sechiba/hydrol.old:    INTEGER(i_std)                           :: ji, jv, jst,jsl
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size (number of grid cells) (1)
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc          !! Index of the dominant soil textural class 
src_sechiba/hydrol.old:    INTEGER(i_std)                                      :: ji, jv        !! Grid-cell and PFT indices (1)
src_sechiba/hydrol.old:    INTEGER(i_std)                                      :: jst, jsc, jsl !! Soiltile, Soil Texture, and Soil layer indices (1)
src_sechiba/hydrol.old:    INTEGER(i_std)                                      :: i, jd         !! Index (1)
src_sechiba/hydrol.old:    INTEGER(i_std), PARAMETER                           :: error_level = 3 !! Error level for consistency check
src_sechiba/hydrol.old:    INTEGER(i_std)                                      :: jiref           !! To identify the mc_lins where k_lin and d_lin 
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std)                               :: ji, jv
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex    !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std)                                           :: ji, jv
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                            :: kjpindex 
src_sechiba/hydrol.old:    INTEGER(i_std)                                 :: ji,jv,jst
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !!
src_sechiba/hydrol.old:    INTEGER(i_std)                                           :: ji, jv           !! Indices
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc             !! Index of the dominant soil textural class 
src_sechiba/hydrol.old:    INTEGER(i_std)                                 :: ji, jv, jsl, jst           !! indices
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                        :: kjpindex        !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                        :: ins
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.old:    INTEGER(i_std)                                :: ji, jsl             !! Indices
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: ins             !! Soiltile index (1-nstm, unitless)
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc            !! Index of the dominant soil textural class in grid cell 
src_sechiba/hydrol.old:    INTEGER(i_std)                       :: ji,jsl
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: ins             !! index of soil type
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: jsl,ji
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                         :: ins             !! number of soil type
src_sechiba/hydrol.old:    INTEGER(i_std)                                     :: ji,jsl
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                        :: kjpindex         !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                        :: ins              !! Index of soil type
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.old:    INTEGER(i_std)                                    :: jsl,ji,i
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                        :: kjpindex          !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                        :: ins               !! index of soil type
src_sechiba/hydrol.old:    INTEGER(i_std) :: jsl,ji
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex
src_sechiba/hydrol.old:    INTEGER(i_std)                                :: ji, jv, jsl, jst
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.old:    INTEGER(i_std)                                           :: ji, jv, jsl, jst, i, jd
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT (in)                          :: kjpindex     !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std) :: ji
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
src_sechiba/hydrol.old:    INTEGER(i_std) :: ji
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
src_sechiba/hydrol.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
src_sechiba/hydrol.old:    INTEGER(i_std) :: ji
src_sechiba/hydrol.old:    INTEGER(i_std), INTENT(in)                             :: kjpindex 
src_sechiba/hydrol.old:    INTEGER(i_std) :: jd, jh
src_sechiba/hydrol.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_veget       !! zero/one when veget fraction is zero/higher (1)
src_sechiba/hydrol.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_soiltile    !! zero/one where soil tile is zero/higher (1)
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
src_sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! Restart file identifier
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier
src_sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                         :: hist2_id         !! _history_ file 2 identifier
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg        !! Indeces of the points on the 3D map for veg
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nstm), INTENT (in):: indexsoil      !! Indeces of the points on the 3D map for soil
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexlayer     !! Indeces of the points on the 3D map for soil layers
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexnbdl      !! Indeces of the points on the 3D map for of diagnostic soil layers
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jst              !! Index of soil tiles (unitless, 1-3)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsl              !! Index of soil layers (unitless)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ji, jv
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: itopmax          !! Indicating the layer corresponding to 0.1m depth
src_sechiba/hydrol.f90:    INTEGER(i_std), DIMENSION(kjpindex*imax)           :: mc_lin_axis_index
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/hydrol.f90:    INTEGER(i_std)                                       :: jst, jsl
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number 
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier 
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ier                   !! Error code
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ji                    !! Index of land grid cells (1)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jv                    !! Index of PFTs (1)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jst                   !! Index of soil tiles (1)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsl                   !! Index of soil layers (1)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsc                   !! Index of soil texture (1)
src_sechiba/hydrol.f90:    INTEGER(i_std), PARAMETER                          :: error_level = 3       !! Error level for consistency check
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! domain size
src_sechiba/hydrol.f90:    INTEGER(i_std)                           :: ji, jv, jst,jsl
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size (number of grid cells) (1)
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc          !! Index of the dominant soil textural class 
src_sechiba/hydrol.f90:    INTEGER(i_std)                                      :: ji, jv        !! Grid-cell and PFT indices (1)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                      :: jst, jsc, jsl !! Soiltile, Soil Texture, and Soil layer indices (1)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                      :: i, jd         !! Index (1)
src_sechiba/hydrol.f90:    INTEGER(i_std), PARAMETER                           :: error_level = 3 !! Error level for consistency check
src_sechiba/hydrol.f90:    INTEGER(i_std)                                      :: jiref           !! To identify the mc_lins where k_lin and d_lin 
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std)                               :: ji, jv
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex    !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std)                                           :: ji, jv
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex 
src_sechiba/hydrol.f90:    INTEGER(i_std)                                 :: ji,jv,jst
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !!
src_sechiba/hydrol.f90:    INTEGER(i_std)                                           :: ji, jv           !! Indices
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc             !! Index of the dominant soil textural class 
src_sechiba/hydrol.f90:    INTEGER(i_std)                                 :: ji, jv, jsl, jst           !! indices
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex        !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: ins
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                :: ji, jsl             !! Indices
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: ins             !! Soiltile index (1-nstm, unitless)
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc            !! Index of the dominant soil textural class in grid cell 
src_sechiba/hydrol.f90:    INTEGER(i_std)                       :: ji,jsl
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: ins             !! index of soil type
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsl,ji
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: ins             !! number of soil type
src_sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ji,jsl
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex         !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: ins              !! Index of soil type
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                    :: jsl,ji,i
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex          !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: ins               !! index of soil type
src_sechiba/hydrol.f90:    INTEGER(i_std) :: jsl,ji
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex
src_sechiba/hydrol.f90:    INTEGER(i_std)                                :: ji, jv, jsl, jst
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/hydrol.f90:    INTEGER(i_std)                                           :: ji, jv, jsl, jst, i, jd
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                          :: kjpindex     !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std) :: ji
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
src_sechiba/hydrol.f90:    INTEGER(i_std) :: ji
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
src_sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
src_sechiba/hydrol.f90:    INTEGER(i_std) :: ji
src_sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex 
src_sechiba/hydrol.f90:    INTEGER(i_std) :: jd, jh
src_sechiba/thermosoil.f90:  INTEGER(i_std), SAVE                            :: brk_flag = 0             !! Flag to consider bedrock: 0.no; 1.yes
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std)                                        :: ier, i, jg
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id,hist_id  !! Restart_ file and history file identifier 
src_sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: hist2_id         !! history file 2 identifier (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indeces of the points on the map (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical 
src_sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std)                                        :: jv,ji,ii
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier(unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex     !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: njsc         !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std)                                         :: ji, jg
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std)                                           :: ji, jg
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                                 :: kjpindex      !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std), DIMENSION (kjpindex), INTENT (in)          :: njsc          !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std)                                             :: ji, jg, jst
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex       !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std)                                       :: ji, jd
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std)                                 :: ji, jg
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex
src_sechiba/thermosoil.f90:    INTEGER(i_std)  :: ji, jg
src_sechiba/thermosoil.f90:    INTEGER(i_std)  :: lev3m  !! Closest interface level to 3m
src_sechiba/thermosoil.f90:    INTEGER(i_std),INTENT(in)				:: kjpindex
src_sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc       !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/thermosoil.f90:      INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/thermosoil.f90:      INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc     !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/thermosoil.f90:      INTEGER(i_std)    				  :: ji,jg, jst     !! Index
src_sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
src_sechiba/thermosoil.f90:    INTEGER(i_std) :: il, ils, ip, ix, iy, imin, jmin, ier
src_sechiba/thermosoil.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid
src_sechiba/thermosoil.f90:    INTEGER(i_std) :: itau(1)
src_sechiba/slowproc.f90:  INTEGER(i_std) , SAVE                              :: veget_update        !! update frequency in years for landuse (nb of years)
src_sechiba/slowproc.f90:  INTEGER(i_std), SAVE                               :: lcanop              !! canopy levels used for LAI
src_sechiba/slowproc.f90:  INTEGER(i_std) , SAVE                              :: veget_year          !! year for vegetation update
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjit                !! Time step number
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpij               !! Total size of the un-compressed grid
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: kjpindex            !! Domain size - terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id             !! Restart file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id_stom        !! STOMATE's _Restart_ file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: hist_id_stom        !! STOMATE's _history_ file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: hist_id_stom_IPCC   !! STOMATE's IPCC _history_ file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: IndexLand           !! Indices of the points on the land map
src_sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg            !! Indices of the points on the vegetation (3D map ???) 
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)  :: neighbours          !! neighoring grid points if land.
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(out)       :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std)                                     :: j, jv                !! indices 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjit                !! Time step number
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpij               !! Total size of the un-compressed grid
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: kjpindex            !! Domain size - terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id,hist_id     !! _Restart_ file and _history_ file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: hist2_id            !! _history_ file 2 identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id_stom        !! STOMATE's _Restart_ file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: hist_id_stom        !! STOMATE's _history_ file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: hist_id_stom_IPCC   !! STOMATE's IPCC _history_ file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: IndexLand           !! Indices of the points on the land map
src_sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg            !! Indices of the points on the vegetation (3D map ???) 
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)  :: neighbours          !! neighoring grid points if land. In what ??? indices or geographical coordinates (lat/lon) ??? 
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(inout)       :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std)                                     :: j, jv, ji            !! indices 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                            :: kjpindex       !! Domain size - terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: IndexLand      !! Indices of the points on the land map
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(in)      :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                           :: kjit           !! Time step number
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                           :: kjpindex       !! Domain size - Terrestrial pixels only 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                           :: rest_id        !! Restart file identifier
src_sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: IndexLand      !! Indices of the land points on the map
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)    :: neighbours     !! Vector of neighbours for each grid point 1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                           :: lcanop         !! Number of Canopy level used to compute LAI
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                           :: veget_update   !! update frequency in timesteps (years) for landuse
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                           :: veget_year     !! first year for landuse   (year or index ???)
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(out)      :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std)                                        :: vtmp(1)           !! temporary variable
src_sechiba/slowproc.f90:    INTEGER(i_std)                                        :: j,l, jf           !! Indices
src_sechiba/slowproc.f90:    INTEGER(i_std)                                        :: ji, jv, ier,jst   !! Indices 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                                :: kjpindex       !! Domain size - terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std)                                              :: ji, jv         !! Local indices
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: npts     !! Domain size- terrestrial pixels only 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: n_dim2   !! Number of PFTs 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                                 :: npts        !! Domain size- terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                                 :: n_dim2      !! Second dimension of the fields, which represents the number of PFTs
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex    !! Domain size - terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std)                                         :: ji, jv, jst !! indices 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex   !! Domain size - terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: lcanop     !! soil level used for LAI
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: mm, dd     !! Number of the month in the year and number of day of the month 
src_sechiba/slowproc.f90:    INTEGER(i_std)                                      :: ji,jv      !! Local indices 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: nbpt                  !! Number of points for which the data needs to be interpolated
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)         :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point 1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) 
src_sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, it, jj, jv
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index !! the indexes from the grid boxes from the data that go into the 
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/slowproc.f90:    INTEGER(i_std) :: nix, njx
src_sechiba/slowproc.f90:    INTEGER(i_std) :: idi, nbvmax                               !! nbvmax : number of maximum vegetation map
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                             :: nbpt            !! Number of points for which the data needs 
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(nbpt,8), INTENT(in)         :: neighbours       !! Vector of neighbours for each grid point 
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)         :: veget_year            !! first year for landuse (0 == NO TIME AXIS)
src_sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, inobio, jv
src_sechiba/slowproc.f90:    INTEGER(i_std) :: nb_coord,nb_var, nb_gat,nb_dim
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)  :: itau
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/slowproc.f90:    INTEGER(i_std) :: idi, nbvmax
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: nbpt                  !! Number of points for which the data needs to be interpolated
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
src_sechiba/slowproc.f90:    INTEGER(i_std), PARAMETER  :: nolson = 94                    !! Number of Olson classes
src_sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, vid
src_sechiba/slowproc.f90:    INTEGER(i_std),ALLOCATABLE, DIMENSION(:,:) :: sub_index
src_sechiba/slowproc.f90:    INTEGER(i_std) :: idi, jv, inear, nbvmax, nix, njx
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                   :: iml             !! size of the vector
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                  :: inear           !! location of the grid point from the 5km vegmap grid
src_sechiba/slowproc.f90:    INTEGER(i_std)                               :: i
src_sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(1)                 :: ineartab
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)    :: nbpt                   !! Number of points for which the data needs to be interpolated
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)    :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point 
src_sechiba/slowproc.f90:    INTEGER(i_std)               :: nbvmax
src_sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, ilf, nbexp
src_sechiba/slowproc.f90:    INTEGER(i_std) :: fopt                                  !! Nb of pts from the texture map within one ORCHIDEE grid-cell
src_sechiba/slowproc.f90:    INTEGER(i_std) :: itautmp(1)
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index !! to associate the coordinates of the texture 
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: solt       !! Texture the different points from the input texture map 
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: solt2      !! Unused
src_sechiba/slowproc.f90:    INTEGER(i_std) :: nix, njx
src_sechiba/slowproc.f90:    INTEGER(i_std), PARAMETER :: nzobler = 7                !! Nb of texture classes according in the Zobler map
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: nbpt                  ! Number of points for which the data needs to be interpolated
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: neighbours(nbpt,8)    ! Vector of neighbours for each grid point 
src_sechiba/slowproc.f90:    INTEGER(i_std)    :: iml, jml, lml, tml, fid, ib, ip, jp, vid
src_sechiba/slowproc.f90:    INTEGER(i_std)    :: idi, idi_last, nbvmax
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
src_sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index
src_sechiba/slowproc.f90:    INTEGER(i_std) :: nix, njx
src_sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nolson94 = 94                       !! Number of Olson vegetation types (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nvm13 = 13                          !! Number of PFTS of ORCHIDEE (unitless) 
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in) :: nolson                             !! Number of Olson vegetation types (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std) :: ib                                            !! Indice (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nbtypes_zobler = 7                    !! Number of Zobler types (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in) :: nzobler                              !! Size of the array (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std) :: ib                                              !! Indice (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in) :: nusda                               !! Size of the array (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nbtypes_usda = 12                    !! Number of USDA texture classes (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std) :: n                                              !! Index (unitless)
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                      :: nbpt       ! Number of points for which the data needs to be interpolated
src_sechiba/slowproc.f90:    INTEGER(i_std) :: ji, jn, jv, js
src_sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex      !! Domain size - terrestrial pixels only
src_sechiba/slowproc.f90:    INTEGER(i_std)                                       :: ji, jv         !! Loop index
src_sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: printlev_loc            !! Write level to this module
src_sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: hist_id, rest_id        !! IDs for history and restart files
src_sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: hist2_id                !! ID for the second history files (Hi-frequency ?)
src_sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: hist_id_stom, hist_id_stom_IPCC, rest_id_stom !! Dito for STOMATE
src_sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: itau_offset  !! This offset is used to phase the 
src_sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: nb_fields_in=-1   !!  Number of fields to give to the GCM
src_sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: nb_fields_out=-1  !!  Number of fields to get from the GCM
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjit            !! Time step number
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: iim, jjm        !! Dimension of input fields
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjpindex        !! Number of continental points
src_sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex          !! Index for continental points
src_sechiba/intersurf.f90:    INTEGER(i_std)                                       :: i, j, ik
src_sechiba/intersurf.f90:    INTEGER(i_std)                                       :: ier
src_sechiba/intersurf.f90:    INTEGER(i_std)                                       :: itau_sechiba
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                              :: kjit            !! Time step number
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                              :: iim, jjm        !! Dimension of input fields
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                              :: kjpindex        !! Number of continental points
src_sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)        :: kindex          !! Index for continental points
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: i, j, ik
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: ier
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: itau_sechiba
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: kjit           !! Time step number
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: iim_glo        !! Dimension of global fields
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: jjm_glo        !! Dimension of global fields
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: kjpindex       !! Number of continental points
src_sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: kindex         !! Index for continental points
src_sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in)      :: zneighbours    !! neighbours
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: i, j, ik
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: ier
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: itau_sechiba
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjit            !! Time step number
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: iim_glo         !! Dimension of global fields
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: jjm_glo         !! Dimension of global fields
src_sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjpindex        !! Number of continental points
src_sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex          !! Index for continental points
src_sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in)     :: zneighbours     !! neighbours
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: i, j, ik
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: ier
src_sechiba/intersurf.f90:    INTEGER(i_std)                                        :: itau_sechiba
src_sechiba/intersurf.f90:    INTEGER(i_std), INTENT(in)                  :: istp      !! Time step of the restart file
src_sechiba/qsat_moisture.f90:  INTEGER(i_std),PARAMETER :: max_temp=370           !! Maximum temperature for saturated humidity (K) and also used as 
src_sechiba/qsat_moisture.f90:  INTEGER(i_std),PARAMETER :: min_temp=100           !! Minimum temperature for saturated humidity (K)
src_sechiba/qsat_moisture.f90:      INTEGER(i_std),INTENT(in) :: kjpindex                   !! Domain size (unitless)
src_sechiba/qsat_moisture.f90:      INTEGER(i_std), DIMENSION(kjpindex) :: jt               !! Temporary array stocking the truncated temperatures in Kelvin 
src_sechiba/qsat_moisture.f90:      INTEGER(i_std)                      :: ji               !! indices (unitless)
src_sechiba/qsat_moisture.f90:      INTEGER(i_std)                      :: nbad             !! Number of points where the temperature is too high or too low
src_sechiba/qsat_moisture.f90:      INTEGER(i_std),DIMENSION(1)         :: lo               !! Temporary vector to mark the position of the highest temperature
src_sechiba/qsat_moisture.f90:      INTEGER(i_std)   :: jt              !! Temporary scalar stocking the truncated temperature in Kelvin 
src_sechiba/qsat_moisture.f90:      INTEGER(i_std),INTENT(in)                   :: kjpindex       !! Domain size (unitless)
src_sechiba/qsat_moisture.f90:      INTEGER(i_std),DIMENSION(kjpindex) :: jt                      !! Temporary array stocking the truncated temperatures
src_sechiba/qsat_moisture.f90:      INTEGER(i_std)                     :: ji                      !! Indice (unitless)
src_sechiba/qsat_moisture.f90:      INTEGER(i_std)                     :: nbad                    !! Number of points where the temperature is too high or too low
src_sechiba/qsat_moisture.f90:      INTEGER(i_std)  :: jt                       !! Index (unitless)
src_sechiba/qsat_moisture.f90:      INTEGER(i_std) :: ji                             !! Indice(unitless)
src_sechiba/sechiba.f90:  INTEGER(i_std), SAVE                             :: printlev_loc   !! local printlev for this module
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexveg       !! indexing array for the 3D fields of vegetation
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlai       !! indexing array for the 3D fields of vegetation
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnobio     !! indexing array for the 3D fields of other surfaces (ice,
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsoil      !! indexing array for the 3D fields of soil types (kjpindex*nstm)
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexgrnd      !! indexing array for the 3D ground heat profiles (kjpindex*ngrnd)
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlayer     !! indexing array for the 3D fields of soil layers in CWRR (kjpindex*nslm)
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnbdl      !! indexing array for the 3D fields of diagnostic soil layers (kjpindex*nbdl)
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexalb       !! indexing array for the 2 fields of albedo
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsnow      !! indexing array for the 3D fields snow layers
src_sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
src_sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/sechiba.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std)                                           :: ji, jv		  !! Index (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
src_sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/sechiba.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std)                                           :: ji, jv, iflow     !! Index (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/sechiba.f90:    INTEGER(i_std)                                          :: ji, jv		  !! Index (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: kjpij              !! Total size of the un-compressed grid (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std)                                      :: ier                !! Check errors in memory allocation (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std)                                      :: ji, jv             !! Indeces (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                    :: kjpindex        !! Domain size - terrestrial pixels only (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std)                                 :: ji              !! Indices (unitless)
src_sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                       :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-)
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map (-)
src_sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! Restart file identifier (-)
src_sechiba/enerbil.f90:    INTEGER(i_std)                                     :: ier
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                           :: kjit             !! Time step number (-)
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex         !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier (-)
src_sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                           :: hist2_id         !! _history_ file 2 identifier (-)
src_sechiba/enerbil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index            !! Indeces of the points on the map (-)
src_sechiba/enerbil.f90:    INTEGER(i_std),DIMENSION(kjpindex*nvm), INTENT(in)   :: indexveg         !! Indeces of the points on the 3D map
src_sechiba/enerbil.f90:    INTEGER(i_std)                                       :: ji,ii,iv
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                        :: kjit             !! Time step number (-)
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex         !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                        :: rest_id          !! Restart file identifier (-)
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std)                                     :: ji
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std)                   :: ji
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size
src_sechiba/enerbil.f90:    INTEGER(i_std)                  :: ji
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std)                                               :: ji
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex          !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std)                                      :: ji, jv
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (-)
src_sechiba/enerbil.f90:    INTEGER(i_std)                                	     :: ji	       !! (-)
src_sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         		:: kjpindex       !! Domain size (-)
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(inout)                   :: var                  !! Integer scalar to modify
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Initial value to stored
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                  !! 1D integer array to modify
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                 !! 1D integer array to modify
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put             !! 1D integer array to stored
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp_g
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: val_tmp
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put              !! 1D integer array to stored
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                 !! 2D integer array to modify
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(in)      :: val_put             !! 2D integer array to stored
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)     :: val_tmp
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                               :: is_key
src_sechiba/sechiba_io_p.f90:  INTEGER(i_std)                              :: is_key
src_sechiba/ioipslctrl.f90:  INTEGER(i_std),PARAMETER         :: max_hist_level = 11     !! 
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(in)                  :: iim, jjm  !! Size in x and y of the data to be handeled
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT (in)                            :: kjpindex
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(in)                  :: istp_old  !! Time step counter
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: hist_id   !! History file identification for SECHIBA
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: hist2_id  !! History file 2 identification for SECHIBA
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: hist_id_stom, hist_id_stom_IPCC 
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_level, hist2_level     !! history output level (default is 10 => maximum output)
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: i, jst
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hori_id                      !! ID of the default horizontal longitude and latitude map.
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: vegax_id, laiax_id, solax_id, soltax_id, nobioax_id !! ID's for two vertical coordinates
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: soildiagax_id                !! ID for diagnostic soil levels
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: solayax_id                   !! ID for the vertical axis of the CWRR hydrology 
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hori_id2                      !! ID of the default horizontal longitude and latitude map.
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: vegax_id2, laiax_id2, solax_id2, soltax_id2, nobioax_id2, albax_id2 !! ID's for two vertical coordinates
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: solayax_id2                   !! ID for the vertical axis of the CWRR hydrology 
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: snowax_id                     !! ID for snow level axis
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_PFTaxis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_solax_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_10axis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_100axis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_11axis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_101axis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_IPCC_PFTaxis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)                         :: ier
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_id_stom
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: nvm
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: iim, jjm
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_hori_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_solax_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_pool_10axis_id,hist_pool_100axis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_pool_11axis_id,hist_pool_101axis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), PARAMETER  :: max_hist_level = 10
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)             :: hist_level
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_id_stom_IPCC
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: nvm
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: iim, jjm
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_hori_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(in)                  :: istp      !! Time step of the restart file
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: rest_id, rest_id_stom   !! ID of the restart file
src_sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: itau_offset
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)              :: itau_dep
src_sechiba/ioipslctrl.f90:    INTEGER(i_std),PARAMETER    :: llm=1
src_sechiba/ioipslctrl.f90:    INTEGER(i_std)              :: yy, mm, dd
src_sechiba/routing.old:  INTEGER(i_std), PARAMETER                                  :: nbasmax=5                   !! The maximum number of basins we wish to have per grid box (truncation of the model) (unitless)
src_sechiba/routing.old:  INTEGER(i_std), SAVE                                       :: nbvmax                      !! The maximum number of basins we can handle at any time during the generation of the maps (unitless)
src_sechiba/routing.old:  INTEGER(i_std), SAVE                                       :: diagunit = 87               !! Diagnostic file unit (unitless)
src_sechiba/routing.old:  INTEGER(i_std), SAVE                                       :: nstep_FCO2 = 240            !! Segmentation steps per day used
src_sechiba/routing.old:  INTEGER(i_std), SAVE                                       :: num_largest                 !! Number of largest river basins which should be treated as independently as rivers
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_loc            !! Grid into which the basin flows 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_loc           !! Basin in to which the water goes 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_loc         !! Number of basin into current one 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_loc          !! ID of basin (unitless)
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_loc               !! Variable to diagnose the hydrographs
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_glo            !! Grid into which the basin flows 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_glo           !! Basin in to which the water goes 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_glo         !! Number of basin into current one 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_glo          !! ID of basin (unitless)
src_sechiba/routing.old:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_glo               !! Variable to diagnose the hydrographs
src_sechiba/routing.old:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_togrid                !! Grid into which the basin flows 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_tobasin               !! Basin in to which the water goes 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_nbintobas             !! Number of basin into current one 
src_sechiba/routing.old:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: global_basinid              !! ID of basin (unitless)
src_sechiba/routing.old:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:,:)            :: hydrodiag                   !! Variable to diagnose the hydrographs
src_sechiba/routing.old:  INTEGER(i_std), SAVE                                       :: floodtemp_lev                !! Temperature level to decide if 
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
src_sechiba/routing.old:    INTEGER(i_std)                 :: ig
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
src_sechiba/routing.old:    INTEGER(i_std)                    :: ig, jv                  !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                    :: iflow                   !! Index (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                 :: iflow                !! Index (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                   :: kjit           !! Time step number (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                   :: nbpt           !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION (nbpt), INTENT(in) :: index          !! Indices of the points on the map (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                   :: rest_id        !! Restart file identifier (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                               :: iflow, ier, ig, ib, ipn(1) !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)        :: nbpt                      !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(8)                 :: igrd                      !! 
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(2)                 :: ff                        !! 
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(1)                 :: fi                        !! 
src_sechiba/routing.old:    INTEGER(i_std)                               :: ig, ib, ib2, ig2          !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                               :: rtg, rtb, in              !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                               :: ier                       !! Error handling 
src_sechiba/routing.old:    INTEGER(i_std)                               :: iflow, istep_FCO2         !! Indices (unitless) 
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                      :: nbpt         !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                  :: ig, iflow    !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)      :: nbpt               !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)      :: index(nbpt)        !! Indices of the points on the map (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT (in)      :: hist_id            !! Access to history file (unitless)
src_sechiba/routing.old:    INTEGER(i_std),INTENT (in)      :: hist2_id           !! Access to history file 2 (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                   :: nbpt                !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                   :: l_index(nbpt)       !! Indices of the points on the map (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nbasmax)      :: outids              !! IDs of river to which this basin contributes (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: pts                 !! List the points belonging to the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: ptbas               !! List the basin number for this point (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: outpt               !! Outflow point for each basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: nb_pts              !! Number of points in the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: topids              !! The IDs of the first num_largest basins (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_nb         !! Number of streams in basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_avehops    !! Average number of hops in streams (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_minhops    !! Minimum number of hops in streams (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_maxhops    !! Minimum number of hops in streams (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: lrivercode         !!
src_sechiba/routing.old:    INTEGER(i_std)                                :: ig, ib, og, ob, ign, ibn, ff(1), ic, icc, nb_small, idbas, slen, ii !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                :: ier                !! Error handling
src_sechiba/routing.old:    INTEGER(i_std)                                :: name_found         !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sortedrivs         !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: longest_river       !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: nbmax               !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: allstreams          !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: tstreams, tslen, tpts, tptbas, tcode !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                   :: ip             !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                   :: ls             !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpts           !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpbas          !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tslen          !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(ip,ls), INTENT(in) :: allstreams     !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(ip), INTENT(out)   :: streamcode     !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: ilev, cntsubbas, ib, ic, i, it, ilevmax, imaxlen, nbzero !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: tstreamcode(ip)!!
src_sechiba/routing.old:    INTEGER(i_std)                               :: indsubbas(ip)  !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: iw(ip)         !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: tdiff(ip)      !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: tmpjunc(4)     !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: junction(4)    !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: ff(1)          !!
src_sechiba/routing.old:    INTEGER(i_std)                               :: ll             !!
src_sechiba/routing.old:    INTEGER(i_std)                              :: nbpt                     !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest)      :: nb_pts                   !! Number of points in the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest)      :: topids                   !! The IDs of the first num_largest basins (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest)      :: sortedrivs               !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lbasin_index             !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lrivercode               !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest,2)    :: outpt                    !! Outflow point for each basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_nb               !! Number of streams in basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_avehops          !! Average number of hops in streams (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_minhops          !! Minimum number of hops in streams (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_maxhops          !! Minimum number of hops in streams (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                              :: icc, fid, iret, ierr_tot, ib, ij, ik, i, j, lcc !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                              :: nlonid, nlatid, varid, varid2, varid3
src_sechiba/routing.old:    INTEGER(i_std)                              :: dims(2)                  !!
src_sechiba/routing.old:    INTEGER(i_std)                              :: basincode(iim_g,jjm_g)   !!
src_sechiba/routing.old:    INTEGER(i_std),PARAMETER                    :: kind_r_diag=NF90_REAL8   !!
src_sechiba/routing.old:    INTEGER(i_std),PARAMETER                    :: kind_i_diag=NF90_INT     !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in) :: nbpt                          !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in) :: neighbours(nbpt,8)            !! Vector of neighbours for each grid point 
src_sechiba/routing.old:!    INTEGER(i_std)    :: neighbours_tmp(nbpt,8)
src_sechiba/routing.old:!    INTEGER(i_std) :: i,j
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                :: iml, jml, lml, tml, fid, ib, ip, jp, fopt !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                :: itau(1)               !!
src_sechiba/routing.old:    INTEGER(i_std)                                :: nbi, nbj              !! Number of point in x and y within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: trip_bx               !! The trip field for each of the smaller boxes (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_bx              !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: coast_pts             !! The coastal flow points (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_count           !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_id              !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_flowdir         !! Water flow directions in the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_grid          !! Type of outflow on the grid box (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_basin         !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: inflow_number         !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_basin          !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_grid           !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: nbcoastal             !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: coastal_basin         !!
src_sechiba/routing.old:    INTEGER(i_std)                                :: nix, njx              !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask                  !! Mask to exclude some points (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Indices of the points we need on the fine grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sub_pts               !! Number of high resolution points on this grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                :: nb_basin              !! Number of sub-basins (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                :: nwbas                 !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_inbxid          !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_sz              !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_bxout           !!
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: basin_pts             !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(2)                  :: diagbox = (/ 1, 2 /)  !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)  :: nbpt                        !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)  :: iml                         !! X resolution of the high resolution grid
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)  :: jml                         !! Y resolution of the high resolution grid
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)  :: ib                          !! Current basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)  :: sub_pts(nbpt)               !! Number of high resolution points on this grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)  :: sub_index(nbpt,nbvmax,2)    !! Indices of the points we need on the fine grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out) :: nbi, nbj                    !! Number of point in x and y within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out) :: trip_bx(nbvmax,nbvmax)      !! The trip field for each of the smaller boxes (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out) :: basin_bx(nbvmax,nbvmax)     !!
src_sechiba/routing.old:    INTEGER(i_std)              :: ip, jp, ll(1), iloc, jloc   !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)   :: nb_in             !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)  :: nb_out            !!
src_sechiba/routing.old:    INTEGER(i_std)               :: ipos              !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(1) :: ll                !!
src_sechiba/routing.old:    INTEGER(i_std)               :: ind(nb_in)        !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)    :: nbi                          !! Number of point in x within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)    :: nbj                          !! Number of point in y within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(inout) :: trip(:,:)                    !! The trip field (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(inout) :: basin(:,:)                   !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)   :: nb_basin                     !! Number of sub-basins (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)   :: basin_inbxid(nbvmax)         !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)   :: basin_sz(nbvmax)             !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)   :: basin_bxout(nbvmax)          !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)   :: basin_pts(nbvmax, nbvmax, 2) !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)   :: coast_pts(nbvmax)            !! The coastal flow points (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                :: ibas, ilf, nbb, nb_in        !!
src_sechiba/routing.old:    INTEGER(i_std)                :: bname(nbvmax)                !!
src_sechiba/routing.old:    INTEGER(i_std)                :: sz(nbvmax)                   !!
src_sechiba/routing.old:    INTEGER(i_std)                :: pts(nbvmax,nbvmax,2)         !!
src_sechiba/routing.old:    INTEGER(i_std)                :: nbout(nbvmax)                !!
src_sechiba/routing.old:    INTEGER(i_std)                :: new_nb                       !!
src_sechiba/routing.old:    INTEGER(i_std)                :: new_bname(nbvmax)            !!
src_sechiba/routing.old:    INTEGER(i_std)                :: new_sz(nbvmax)               !!
src_sechiba/routing.old:    INTEGER(i_std)                :: new_pts(nbvmax,nbvmax,2)     !!
src_sechiba/routing.old:    INTEGER(i_std)                :: itrans                       !!
src_sechiba/routing.old:    INTEGER(i_std)                :: trans(nbvmax)                !!
src_sechiba/routing.old:    INTEGER(i_std)                :: outdir(nbvmax)               !!
src_sechiba/routing.old:    INTEGER(i_std)                :: tmpsz(nbvmax)                !!
src_sechiba/routing.old:    INTEGER(i_std)                :: ip, jp, jpp(1), ipb          !!
src_sechiba/routing.old:    INTEGER(i_std)                :: sortind(nbvmax)              !!
src_sechiba/routing.old:    INTEGER(i_std)                             :: nbi                        !! Number of point in x within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                             :: nbj                        !! Number of point in y within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                             :: trip(:,:)                  !! The trip field (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                             :: basin(:,:)                 !!
src_sechiba/routing.old:    INTEGER(i_std)                             :: basin_inbxid               !!
src_sechiba/routing.old:    INTEGER(i_std)                             :: ip, jp, nbout, basin_sz, iborder !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp                   !! Temporary trip field which only contains the values for the basin on which we currently work (1)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow                  !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow                    !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                      !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(8,2)             :: inc                        !!
src_sechiba/routing.old:    INTEGER(i_std)                             :: itodo, ill(1), icc, ismall, ibas, iip, jjp, ib, id !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax)          :: todopt                     !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                 :: nbi, nbj             !! Number of point in x and y within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                 :: nbbasins             !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                 :: basin_inbxid         !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(inout)              :: trip(:,:)            !! The trip field (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(inout)              :: basin(:,:)           !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)                :: nb                   !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)                :: bname(nbvmax)        !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)                :: sz(nbvmax)           !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)                :: pts(nbvmax,nbvmax,2) !!
src_sechiba/routing.old:    INTEGER(i_std)                             :: ip, jp, iip, jjp, ib, ibb, id, nbout !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                             :: basin_sz             !!
src_sechiba/routing.old:    INTEGER(i_std)                             :: nb_in                !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp             !! Temporary trip field which only contains the values for the basin on which we currently work (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow            !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow              !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(8,2)             :: inc                  !!
src_sechiba/routing.old:    INTEGER(i_std)                  :: iml          !! X resolution of the high resolution grid
src_sechiba/routing.old:    INTEGER(i_std)                  :: jml          !! Y resolution of the high resolution grid
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(8,2)  :: inc          !!
src_sechiba/routing.old:    INTEGER(i_std)                  :: ip, jp, ib, ntripi, ntripj, cnt, trp !!
src_sechiba/routing.old:    INTEGER(i_std)                                          :: nbi       !! Number of point in x within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                          :: nbj       !! Number of point in y within the grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)                :: trip      !! The trip field (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                          :: basin_sz  !!
src_sechiba/routing.old:    INTEGER(i_std)                                          :: basinid   !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,2), INTENT(out)        :: outflow   !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2), INTENT(out) :: trip_flow !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(out)                             :: nbout     !! 
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax), INTENT(out)          :: outsz     !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(8,2)                          :: inc       !!
src_sechiba/routing.old:    INTEGER(i_std)                                          :: ip, jp, ib, cnt, trp, totsz !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT (in)                :: nbpt                   !! Domain size (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT (in)                :: ib                     !! Current basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                 :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_bx                !! The trip field for each of the smaller boxes (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                             :: nb_basin               !! Number of sub-basins (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_inbxid, basin_sz !! ID of basin, number of points in the basin
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: basin_pts              !! Points in each basin
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_bxout            !! outflow direction
src_sechiba/routing.old:    INTEGER(i_std)                             :: coast_pts(nbvmax)      !! The coastal flow points (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                             :: nwbas                  !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt)            :: basin_count            !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_id               !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_flowdir          !! Water flow directions in the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: outflow_grid           !! Type of outflow on the grid box (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt)            :: nbcoastal              !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: coastal_basin          !!
src_sechiba/routing.old:    INTEGER(i_std)                             :: ij, iz                 !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT (in)                    :: nbpt                  !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,8), INTENT (in) :: neighbours            !!
src_sechiba/routing.old:    INTEGER(i_std)                                 :: nwbas                 !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt)                :: basin_count           !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_id              !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_flowdir         !! Water flow directions in the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_grid          !! Type of outflow on the grid box (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_basin         !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: inflow_number         !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_basin          !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_grid           !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt)                :: nbcoastal             !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: coastal_basin         !!
src_sechiba/routing.old:    INTEGER(i_std)                                 :: sp, sb, sbl, inp, bid, outdm1, outdp1 !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                 :: dp1, dm1, dm1i, dp1i, bp1, bm1 !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                 :: dop, bop              !!
src_sechiba/routing.old:    INTEGER(i_std)                                 :: fbas(nwbas), nbfbas   !!
src_sechiba/routing.old:    INTEGER(i_std)                                 :: ff(1)                 !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                           :: nbpt          !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                       :: nwbas         !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt), INTENT(in)          :: basin_count   !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: basin_id      !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(inout) :: outflow_grid  !! Type of outflow on the grid box (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: outflow_basin !!
src_sechiba/routing.old:    INTEGER(i_std)                                        :: ib, ij, ff(1), it, itt, igrif, ibasf, nboutflow !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt*nbvmax,2)              :: tmpindex     !!
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                       :: pickmax = 200  !!
src_sechiba/routing.old:    INTEGER(i_std)                                  :: nbpt           !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                  :: nwbas          !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt)                 :: basin_count    !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_id       !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_flowdir  !! Water flow directions in the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_grid   !! Type of outflow on the grid box (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_basin  !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: inflow_number  !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_basin   !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_grid    !!
src_sechiba/routing.old:    INTEGER(i_std)                                  :: ib, ij, ibf, ijf, igrif, ibasf, cnt, pold, bold, ff(2) !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                  :: ii, kbas, sbas, ik, iter, ibt, obj !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(pickmax,2)            :: largest_basins !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(pickmax)              :: tmp_ids        !!
src_sechiba/routing.old:    INTEGER(i_std)                                  :: multbas        !!
src_sechiba/routing.old:    INTEGER(i_std)                                  :: iml(1)         !! X resolution of the high resolution grid
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(pickmax)              :: multbas_sz     !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(pickmax,pickmax)      :: multbas_list   !!
src_sechiba/routing.old:    INTEGER(i_std)                                  :: nbtruncate     !!
src_sechiba/routing.old:    INTEGER(i_std), SAVE, ALLOCATABLE, DIMENSION(:) :: indextrunc     !!
src_sechiba/routing.old:    INTEGER(i_std)                              :: tokill        !!
src_sechiba/routing.old:    INTEGER(i_std)                              :: totakeover    !!
src_sechiba/routing.old:    INTEGER(i_std)                              :: nbpt          !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                              :: ib            !! Current basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                              :: nwbas         !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt)             :: basin_count   !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_id      !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_flowdir !! Water flow directions in the basin (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_grid  !! Type of outflow on the grid box (unitless)
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_basin !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: inflow_number !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_basin  !!
src_sechiba/routing.old:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_grid   !!
src_sechiba/routing.old:    INTEGER(i_std)                              :: inf, ibs, ing, inb, ibasf, igrif, it !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)             :: numlar              !!
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER              :: listleng=349        !!
src_sechiba/routing.old:    INTEGER(i_std)                         :: lenstr, i           !!
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                      :: ilake = 1             !! Number of type of lakes area (unitless)
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                      :: idam = 2              !! Number of type of dams area (unitless)
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                      :: iflood = 3            !! Number of type of floodplains area (unitless)
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                      :: iswamp = 4            !! Number of type of swamps area (unitless)
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                      :: isal = 5              !! Number of type of salines area (unitless)
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                      :: ipond = 6             !! Number of type of ponds area (unitless)
src_sechiba/routing.old:    INTEGER(i_std), PARAMETER                      :: ntype = 6             !! Number of types of flooded surfaces (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                     :: nbpt                  !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                     :: index(nbpt)           !! Index on the global map.
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                     :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                     :: hist_id               !! Access to history file (unitless)
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in)                     :: hist2_id              !! Access to history file 2 (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                 :: nbpmax, nix, njx, fopt!! Idices, (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)    :: mask                  !! Mask to exclude some points (unitless)
src_sechiba/routing.old:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: irrsub_index          !! Indices of the points we need on the fine grid (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                 :: iml, jml, lml, tml, fid, ib, ip, jp, itype !! Indices (unitless)
src_sechiba/routing.old:    INTEGER(i_std)                                 :: itau(1)               !!
src_sechiba/routing.old:    INTEGER(i_std), INTENT(in) :: nbpt                       !! Domain size  (unitless)
src_sechiba/routing.old:    INTEGER(i_std)             :: ig, iflow            !! 
src_sechiba/sechiba.old:  INTEGER(i_std), SAVE                             :: printlev_loc   !! local printlev for this module
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexveg       !! indexing array for the 3D fields of vegetation
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlai       !! indexing array for the 3D fields of vegetation
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnobio     !! indexing array for the 3D fields of other surfaces (ice,
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsoil      !! indexing array for the 3D fields of soil types (kjpindex*nstm)
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexgrnd      !! indexing array for the 3D ground heat profiles (kjpindex*ngrnd)
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlayer     !! indexing array for the 3D fields of soil layers in CWRR (kjpindex*nslm)
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnbdl      !! indexing array for the 3D fields of diagnostic soil layers (kjpindex*nbdl)
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexalb       !! indexing array for the 2 fields of albedo
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsnow      !! indexing array for the 3D fields snow layers
src_sechiba/sechiba.old:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
src_sechiba/sechiba.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/sechiba.old:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
src_sechiba/sechiba.old:    INTEGER(i_std)                                           :: ji, jv		  !! Index (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
src_sechiba/sechiba.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/sechiba.old:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
src_sechiba/sechiba.old:    INTEGER(i_std)                                           :: ji, jv, iflow     !! Index (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
src_sechiba/sechiba.old:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
src_sechiba/sechiba.old:    INTEGER(i_std)                                          :: ji, jv		  !! Index (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT (in)                         :: kjpij              !! Total size of the un-compressed grid (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std)                                      :: ier                !! Check errors in memory allocation (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std)                                      :: ji, jv             !! Indeces (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT (in)                    :: kjpindex        !! Domain size - terrestrial pixels only (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std)                                 :: ji              !! Indices (unitless)
src_sechiba/sechiba.old:    INTEGER(i_std), INTENT (in)                       :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
src_sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (unitless) 
src_sechiba/chemistry.f90:    INTEGER(i_std), DIMENSION(kjpindex,8), INTENT (in) :: neighbours       !! Vector of neighbours for each 
src_sechiba/chemistry.f90:    INTEGER(i_std)                      :: iml, jml, lml, tml, force_id
src_sechiba/chemistry.f90:    INTEGER(i_std)                      :: ier
src_sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)                                 :: kjpindex         !! Domain size - terrestrial pixels only (unitless)
src_sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)                                 :: kjit             !! Time step number (-) 
src_sechiba/chemistry.f90:    INTEGER(i_std),INTENT (in)                                 :: hist_id          !! History file identifier (-)
src_sechiba/chemistry.f90:    INTEGER(i_std),INTENT (in)                                 :: hist2_id         !! History file 2 identifier (-)
src_sechiba/chemistry.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)           :: index            !! Indeces of the points on the map (-)
src_sechiba/chemistry.f90:    INTEGER(i_std),DIMENSION (kjpindex*(nlai+1)), INTENT (in)  :: indexlai         !! Indeces of the points on the 3D map
src_sechiba/chemistry.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in)       :: indexveg         !! Indeces of the points on the 3D map (-)
src_sechiba/chemistry.f90:    INTEGER(i_std)                             :: ji, jv, jf, jl    !! Indices (unitless)
src_sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: nbpt                !! Number of points for which the data needs to be interpolated
src_sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: neighbours(nbpt,8)  !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: nbpt                !! Number of points for which the data needs to be interpolated
src_sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: neighbours(nbpt,8)  !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_sechiba/chemistry.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, ilf, lastjp, nbexp
src_sechiba/chemistry.f90:    INTEGER(i_std) :: itau(1)
src_sechiba/chemistry.f90:    INTEGER(i_std) :: ier
src_sechiba/chemistry.f90:     INTEGER(i_std), SAVE   :: nb_fields_out, nb_fields_in
src_sechiba/chemistry.f90:     INTEGER(i_std)  :: i_fields_out, i_fields_in
src_stomate/stomate_prescribe.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size (unitless)
src_stomate/stomate_prescribe.f90:    INTEGER(i_std)                                            :: i,j             !! index (unitless)
src_stomate/stomate_vmax.f90:    INTEGER(i_std), INTENT(in)                                 :: npts                    !! Domain size (unitless)
src_stomate/stomate_vmax.f90:    INTEGER(i_std)                                             :: j,m                     !! indices (unitless)
src_stomate/lpj_cover.f90:    INTEGER(i_std), INTENT(in)                                  :: npts             !! Domain size (unitless)  
src_stomate/lpj_cover.f90:    INTEGER(i_std)                                              :: i,j,k,m             !! Index (unitless)
src_stomate/.svn/text-base/lpj_pftinout.f90.svn-base:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size - number of pixels (unitless)            
src_stomate/.svn/text-base/lpj_pftinout.f90.svn-base:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)             :: neighbours      !! Indices of the 8 neighbours of each grid point
src_stomate/.svn/text-base/lpj_pftinout.f90.svn-base:    INTEGER(i_std)                                            :: i,j,m           !! indices      
src_stomate/.svn/text-base/lpj_pftinout.f90.svn-base:    INTEGER(i_std), DIMENSION(npts)                           :: n_present       !! number of adjacent grid cells where PFT is 
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:    INTEGER(i_std), INTENT(in)                                  :: npts                !! Domain size - number of grid pixels
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:    INTEGER(i_std)                                              :: i,j,k,l,m          !! Indices (unitless)
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:    INTEGER(i_std), INTENT(in)                          :: npts           !! Domain size - number of grid pixels (unitless)
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:    INTEGER(i_std)                                      :: j              !! Index (unitless)
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:   INTEGER(i_std)                         :: k,i,j                  !! Indices
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:   INTEGER(i_std)                         :: ind                    !! A local variable to know what is the index of the max value for the statistical function
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:   INTEGER(i_std), DIMENSION(npts)        :: ind_i                  !! A local variable to know what is the index of the max value for the 
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:   INTEGER(i_std)                         :: ier                    !! Check errors in netcdf call (unitless)
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
src_stomate/.svn/text-base/stomate_litter.f90.svn-base:    INTEGER(i_std), INTENT(in)                 :: npts            !! Domain size - number of land pixels (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                                          :: npts                 !! Domain size - number of grid 
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std)                                                      :: i,j,m                !! indices (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                                             :: npts                  !! Domain size - number of 
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                                             :: j                     !! PFT index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std)                                                         :: i                     !! index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std)                                           :: i                               !! index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: npts                    !! Domain size - number of grid cells 
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: j                       !! PFT index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std)                                           :: i                               !! index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std)                                           :: i                               !! index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std)                                           :: i               !! index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/.svn/text-base/stomate_phenology.f90.svn-base:    INTEGER(i_std)                                           :: i               !! index (unitless)
src_stomate/.svn/text-base/stomate_vmax.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: npts                    !! Domain size (unitless)
src_stomate/.svn/text-base/stomate_vmax.f90.svn-base:    INTEGER(i_std)                                             :: j,m                     !! indices (unitless)
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std),INTENT(in) :: npts
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std),INTENT(out) :: date
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std) :: j,k,l,m
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std),INTENT(in) :: npts
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std),INTENT(in) :: date
src_stomate/.svn/text-base/stomate_io.f90.svn-base:    INTEGER(i_std) :: j,k,l,m
src_stomate/.svn/text-base/lpj_fire.f90.svn-base:    INTEGER(i_std), INTENT(in)                                   :: npts                !! Domain size - number of pixels 
src_stomate/.svn/text-base/lpj_fire.f90.svn-base:    INTEGER(i_std)                                                :: j,k,m,l            !! Indeces
src_stomate/.svn/text-base/lpj_fire.f90.svn-base:    INTEGER(i_std), INTENT(in)                 :: npts             !! Domain size (unitless)
src_stomate/.svn/text-base/stomate_soilcarbon.f90.svn-base:    INTEGER(i_std), INTENT(in)                                        :: npts                  !! Domain size (unitless)
src_stomate/.svn/text-base/stomate_soilcarbon.f90.svn-base:    INTEGER(i_std)                                                :: k,kk,m,j,l,i,kkk !! Indices (unitless)
src_stomate/.svn/text-base/lpj_constraints.f90.svn-base:    INTEGER(i_std), INTENT(in)                      :: npts            !! Domain size (unitless)
src_stomate/.svn/text-base/lpj_constraints.f90.svn-base:    INTEGER(i_std)                                  :: j               !! Index
src_stomate/.svn/text-base/lpj_gap.f90.svn-base:    INTEGER(i_std), INTENT(in)                              :: npts                    !! Domain size (-)
src_stomate/.svn/text-base/lpj_gap.f90.svn-base:    INTEGER(i_std)                                          :: i, j,k,m                !! Indices
src_stomate/.svn/text-base/stomate_turnover.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: npts                 !! Domain size - number of grid cells 
src_stomate/.svn/text-base/stomate_turnover.f90.svn-base:    INTEGER(i_std)                                             :: j,m,k                !! Index (unitless)
src_stomate/.svn/text-base/lpj_crown.f90.svn-base:    INTEGER(i_std),INTENT(in)                         :: npts              !! Domain size (unitless) 
src_stomate/.svn/text-base/lpj_crown.f90.svn-base:    INTEGER(i_std)                                    :: j               !! Index
src_stomate/.svn/text-base/stomate_prescribe.f90.svn-base:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size (unitless)
src_stomate/.svn/text-base/stomate_prescribe.f90.svn-base:    INTEGER(i_std)                                            :: i,j             !! index (unitless)
src_stomate/.svn/text-base/stomate_alloc.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: npts			!! Domain size - number of grid cells 
src_stomate/.svn/text-base/stomate_alloc.f90.svn-base:    INTEGER(i_std)                                             :: i,j,l,m		!! Indices (unitless)
src_stomate/.svn/text-base/stomate_alloc.f90.svn-base:    INTEGER(i_std)                                             :: ier                   !! Error handling
src_stomate/.svn/text-base/lpj_cover.f90.svn-base:    INTEGER(i_std), INTENT(in)                                  :: npts             !! Domain size (unitless)  
src_stomate/.svn/text-base/lpj_cover.f90.svn-base:    INTEGER(i_std)                                              :: i,j,k,m             !! Index (unitless)
src_stomate/.svn/text-base/lpj_light.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: npts                     !! Domain size (unitless)      
src_stomate/.svn/text-base/lpj_light.f90.svn-base:    INTEGER(i_std)                                         :: i,j,k,m                  !! Index (unitless)    
src_stomate/.svn/text-base/lpj_light.f90.svn-base:    INTEGER(i_std)                                         :: optpft_wood              !! Which woody pft is maximum (unitless)   
src_stomate/.svn/text-base/stomate_season.f90.svn-base:    INTEGER(i_std), INTENT(in)                             :: npts              !! Domain size - number of grid cells (unitless)
src_stomate/.svn/text-base/stomate_season.f90.svn-base:    INTEGER(i_std)                                          :: j                        !! indices (unitless)
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: hori_index     !! Move to Horizontal indices
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: horipft_index  !! Horizontal + PFT indices
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: horisoillayer_index  !! Horizontal + soil layers indices
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip10_index   !! Horizontal + P10 indices
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip100_index  !! Horizontal + P100 indice
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip11_index   !! Horizontal + P11 indices
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip101_index  !! Horizontal + P101 indices
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std),SAVE :: itime                 !! time step
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std),SAVE :: hist_id_stomate       !! STOMATE history file ID
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std),SAVE :: hist_id_stomate_IPCC  !! STOMATE history file ID for IPCC output
src_stomate/.svn/text-base/stomate_data.f90.svn-base:  INTEGER(i_std),SAVE :: rest_id_stomate       !! STOMATE restart file ID
src_stomate/.svn/text-base/stomate_data.f90.svn-base:    INTEGER(i_std), INTENT(in)                   :: npts    !! [DISPENSABLE] Domain size (unitless)
src_stomate/.svn/text-base/stomate_data.f90.svn-base:    INTEGER(i_std)                               :: j       !! Index (unitless)
src_stomate/.svn/text-base/lpj_establish.f90.svn-base:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size - number of pixels (dimensionless)    
src_stomate/.svn/text-base/lpj_establish.f90.svn-base:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)             :: neighbours      !! indices of the 8 neighbours of each grid point 
src_stomate/.svn/text-base/lpj_establish.f90.svn-base:    INTEGER(i_std)                                            :: nfrontx         !! from how many sides is the grid box invaded
src_stomate/.svn/text-base/lpj_establish.f90.svn-base:    INTEGER(i_std)                                            :: nfronty         !! from how many sides is the grid box invaded
src_stomate/.svn/text-base/lpj_establish.f90.svn-base:    INTEGER(i_std)                                            :: nbtree          !! Number of PFT's which are trees
src_stomate/.svn/text-base/lpj_establish.f90.svn-base:    INTEGER(i_std)                                            :: i,j,k,m         !! indices (unitless)       
src_stomate/.svn/text-base/stomate_npp.f90.svn-base:    INTEGER(i_std), INTENT(in)                                :: npts             !! Domain size - number of pixels (unitless)
src_stomate/.svn/text-base/stomate_npp.f90.svn-base:    INTEGER(i_std)                                            :: i,j,k,l,m        !! Indeces(unitless)
src_stomate/.svn/text-base/stomate_npp.f90.svn-base:    INTEGER(i_std)                                            :: ier              !! Error handling
src_stomate/.svn/text-base/stomate_resp.f90.svn-base:    INTEGER(i_std), INTENT(in)                         :: npts      !! Domain size - number of grid cells (unitless)
src_stomate/.svn/text-base/stomate_resp.f90.svn-base:    INTEGER(i_std)                          :: i,j,k,l,m            !! Indeces (unitless)
src_stomate/.svn/text-base/stomate_resp.f90.svn-base:    INTEGER(i_std)                          :: ier                  !! Error handling 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                            :: date=0               !! Date (days) 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nforce               !! Number of states calculated for the soil forcing 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: isf                  !! Index for number of time steps that can be stored in 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nf_cumul             !! Number of years over which the average is calculated in
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std), SAVE                           :: spinup_period        !! Period of years used to calculate the resolution of the system for spinup analytic. 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),PARAMETER                           :: nparanmax=366       !! Maximum number of time steps per year for forcesoil
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: nparan              !! Number of time steps per year for forcesoil read from run definition (unitless) 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: nbyear=1            !! Number of years saved for forcesoil (unitless) 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: iatt                !! Time step of forcing of soil processes (iatt = 1 to ::nparan*::nbyear) 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: iatt_old=1          !! Previous ::iatt
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: nsfm                !! Number of time steps that can be stored in memory (unitless) 
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: nsft                !! Number of time steps in a year (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: iisf                !! Current pointer for teststomate (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),SAVE                                :: Cforcing_id         !! File identifer of file 2
src_stomate/.svn/text-base/stomate.f90.svn-base:  INTEGER(i_std),PARAMETER                           :: ndm = 12            !! Maximum number of dimensions (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier(unitless) 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! The indices of the terrestrial pixels only (unitless) 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM (unitless) 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: direct                   !! 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the pixels on the map. Stomate uses a 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: hist_id           !! ?? [DISPENSABLE] SECHIBA's _history_ file 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: hist2_id          !! ?? [DISPENSABLE] SECHIBA's _history_ file 2 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: direct                   !! ??
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the terrestrial pixels only (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                :: direct                   !! ??
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                    :: kjpij             !! Total size of the un-compressed grid, including 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                    :: kjpindex          !! Domain size - number of terrestrial pixels 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                    :: rest_id_stom      !! STOMATE's _Restart_ file identifier
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom      !! STOMATE's _history_ file identifier
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in):: index             !! Indices of the terrestrial pixels on the global 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                               :: ier               !! Check errors in netcdf call
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                               :: ji,j,ipd,l        !! Indices
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                             :: kjpindex        !! Domain size - terrestrial pixels only
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                                        :: j               !! Index (untiless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                        :: npts      !! Domain size (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                        :: n_dim2    !! 2nd dimension (1 or nvm)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in) :: kjpindex !! Domain size - terrestrial pixels only (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in) :: nsfm     !! Number of time steps that can be stored in memory (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in) :: nsft_loc !! Number of time steps in a year (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)            :: ier      !! Check errors in netcdf call
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: forcing_id  !! File identifer of forcing file, assigned when netcdf is created
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)      :: ibeg, iend  !! First and last time step to be written
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: ii          !! Index of isf where isf is the number of time steps that can be 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: iblocks     !! Index of block that is written
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: nblocks     !! Number of blocks that needs to be written
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: ier         !! Check errors in netcdf call
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst      !! First block in memory - changes with iblocks
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(0:2)  :: ilast       !! Last block in memory - changes with iblocks
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),PARAMETER       :: ndm = 11    !! Maximum number of dimensions
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(ndm)  :: start       !! First block to write
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: ndim        !! Dimensions of forcing to be added to the netCDF
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(ndm)  :: count_force !! Number of elements in each dimension  
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: vid         !! Variable identifer of netCDF
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)  :: forcing_id           !! File identifer of forcing file, assigned when netcdf is created
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)  :: nsfm                 !! Number of time steps stored in memory        
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: ii                !! Index of isf where isf is the number of time steps that can be stored in 
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: iblocks           !! Index of block that is written
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: nblocks           !! Number of blocks that needs to be written
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: ier               !! Check error of netcdf call
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst            !! First block in memory - changes with iblocks
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(0:2)  :: ilast             !! Last block in memory - changes with iblocks
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),PARAMETER       :: ndm = 11          !! Maximum number of dimensions
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(ndm)  :: start             !! First block to write
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: ndim              !! Dimensions of forcing to be added to the netCDF
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),DIMENSION(ndm)  :: count_force       !! Number of elements in each dimension
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                 :: vid               !! Variable identifer of netCDF
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std),INTENT(in)                    :: npts !! Domain size - number of pixels (unitless)
src_stomate/.svn/text-base/stomate.f90.svn-base:    INTEGER(i_std)                               :: j    !! index (unitless)
src_stomate/.svn/text-base/lpj_kill.f90.svn-base:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size (unitless)
src_stomate/.svn/text-base/lpj_kill.f90.svn-base:    INTEGER(i_std)                                            :: j,m             !! Indices       (unitless)
src_stomate/.svn/text-base/stomate_lpj.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: npts                 !! Domain size (unitless)
src_stomate/.svn/text-base/stomate_lpj.f90.svn-base:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)              :: neighbours           !! Indices of the 8 neighbours of each grid 
src_stomate/.svn/text-base/stomate_lpj.f90.svn-base:    INTEGER(i_std)                                         :: i, j, k, l, m    !! indices                       
src_stomate/.svn/text-base/stomate_lcchange.f90.svn-base:    INTEGER(i_std)                                            :: i, j, k, l, m    !! indices (unitless)
src_stomate/stomate_lpj.old:    INTEGER(i_std), INTENT(in)                                 :: npts                 !! Domain size (unitless)
src_stomate/stomate_lpj.old:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)              :: neighbours           !! Indices of the 8 neighbours of each grid 
src_stomate/stomate_lpj.old:    INTEGER(i_std)                                         :: i, j, k, l, m    !! indices                       
src_stomate/stomate_io.f90:    INTEGER(i_std),INTENT(in) :: npts
src_stomate/stomate_io.f90:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
src_stomate/stomate_io.f90:    INTEGER(i_std),INTENT(out) :: date
src_stomate/stomate_io.f90:    INTEGER(i_std) :: j,k,l,m
src_stomate/stomate_io.f90:    INTEGER(i_std),INTENT(in) :: npts
src_stomate/stomate_io.f90:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
src_stomate/stomate_io.f90:    INTEGER(i_std),INTENT(in) :: date
src_stomate/stomate_io.f90:    INTEGER(i_std) :: j,k,l,m
src_stomate/lpj_crown.f90:    INTEGER(i_std),INTENT(in)                         :: npts              !! Domain size (unitless) 
src_stomate/lpj_crown.f90:    INTEGER(i_std)                                    :: j               !! Index
src_stomate/lpj_gap.f90:    INTEGER(i_std), INTENT(in)                              :: npts                    !! Domain size (-)
src_stomate/lpj_gap.f90:    INTEGER(i_std)                                          :: i, j,k,m                !! Indices
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                                          :: npts                 !! Domain size - number of grid 
src_stomate/stomate_phenology.f90:    INTEGER(i_std)                                                      :: i,j,m                !! indices (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                                             :: npts                  !! Domain size - number of 
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                                             :: j                     !! PFT index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std)                                                         :: i                     !! index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i                               !! index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts                    !! Domain size - number of grid cells 
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j                       !! PFT index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i                               !! index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i                               !! index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i               !! index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
src_stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i               !! index (unitless)
src_stomate/stomate_soilcarbon.f90:    INTEGER(i_std), INTENT(in)                                        :: npts                  !! Domain size (unitless)
src_stomate/stomate_soilcarbon.f90:    INTEGER(i_std)                                                :: k,kk,m,j,l,i,kkk !! Indices (unitless)
src_stomate/lpj_light.f90:    INTEGER(i_std), INTENT(in)                             :: npts                     !! Domain size (unitless)      
src_stomate/lpj_light.f90:    INTEGER(i_std)                                         :: i,j,k,m                  !! Index (unitless)    
src_stomate/lpj_light.f90:    INTEGER(i_std)                                         :: optpft_wood              !! Which woody pft is maximum (unitless)   
src_stomate/lpj_constraints.f90:    INTEGER(i_std), INTENT(in)                      :: npts            !! Domain size (unitless)
src_stomate/lpj_constraints.f90:    INTEGER(i_std)                                  :: j               !! Index
src_stomate/lpj_establish.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size - number of pixels (dimensionless)    
src_stomate/lpj_establish.f90:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)             :: neighbours      !! indices of the 8 neighbours of each grid point 
src_stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: nfrontx         !! from how many sides is the grid box invaded
src_stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: nfronty         !! from how many sides is the grid box invaded
src_stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: nbtree          !! Number of PFT's which are trees
src_stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: i,j,k,m         !! indices (unitless)       
src_stomate/stomate_lcchange.f90:    INTEGER(i_std)                                            :: i, j, k, l, m    !! indices (unitless)
src_stomate/stomate_resp.f90:    INTEGER(i_std), INTENT(in)                         :: npts      !! Domain size - number of grid cells (unitless)
src_stomate/stomate_resp.f90:    INTEGER(i_std)                          :: i,j,k,l,m            !! Indeces (unitless)
src_stomate/stomate_resp.f90:    INTEGER(i_std)                          :: ier                  !! Error handling 
src_stomate/stomate_io.old:    INTEGER(i_std),INTENT(in) :: npts
src_stomate/stomate_io.old:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
src_stomate/stomate_io.old:    INTEGER(i_std),INTENT(out) :: date
src_stomate/stomate_io.old:    INTEGER(i_std) :: j,k,l,m
src_stomate/stomate_io.old:    INTEGER(i_std),INTENT(in) :: npts
src_stomate/stomate_io.old:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
src_stomate/stomate_io.old:    INTEGER(i_std),INTENT(in) :: date
src_stomate/stomate_io.old:    INTEGER(i_std) :: j,k,l,m
src_stomate/stomate_alloc.f90:    INTEGER(i_std), INTENT(in)                                 :: npts			!! Domain size - number of grid cells 
src_stomate/stomate_alloc.f90:    INTEGER(i_std)                                             :: i,j,l,m		!! Indices (unitless)
src_stomate/stomate_alloc.f90:    INTEGER(i_std)                                             :: ier                   !! Error handling
src_stomate/stomate.old:  INTEGER(i_std),SAVE                            :: date=0               !! Date (days) 
src_stomate/stomate.old:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nforce               !! Number of states calculated for the soil forcing 
src_stomate/stomate.old:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: isf                  !! Index for number of time steps that can be stored in 
src_stomate/stomate.old:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nf_cumul             !! Number of years over which the average is calculated in
src_stomate/stomate.old:  INTEGER(i_std), SAVE                           :: spinup_period        !! Period of years used to calculate the resolution of the system for spinup analytic. 
src_stomate/stomate.old:  INTEGER(i_std),PARAMETER                           :: nparanmax=366       !! Maximum number of time steps per year for forcesoil
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: nparan              !! Number of time steps per year for forcesoil read from run definition (unitless) 
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: nbyear=1            !! Number of years saved for forcesoil (unitless) 
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: iatt                !! Time step of forcing of soil processes (iatt = 1 to ::nparan*::nbyear) 
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: iatt_old=1          !! Previous ::iatt
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: nsfm                !! Number of time steps that can be stored in memory (unitless) 
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: nsft                !! Number of time steps in a year (unitless)
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: iisf                !! Current pointer for teststomate (unitless)
src_stomate/stomate.old:  INTEGER(i_std),SAVE                                :: Cforcing_id         !! File identifer of file 2
src_stomate/stomate.old:  INTEGER(i_std),PARAMETER                           :: ndm = 12            !! Maximum number of dimensions (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier(unitless) 
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! The indices of the terrestrial pixels only (unitless) 
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM (unitless) 
src_stomate/stomate.old:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/stomate.old:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/stomate.old:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/stomate.old:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/stomate.old:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/stomate.old:    INTEGER(i_std)                                :: direct                   !! 
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! 
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the pixels on the map. Stomate uses a 
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM 
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: hist_id           !! ?? [DISPENSABLE] SECHIBA's _history_ file 
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: hist2_id          !! ?? [DISPENSABLE] SECHIBA's _history_ file 2 
src_stomate/stomate.old:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/stomate.old:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/stomate.old:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/stomate.old:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/stomate.old:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/stomate.old:    INTEGER(i_std)                                :: direct                   !! ??
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the terrestrial pixels only (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/stomate.old:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/stomate.old:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/stomate.old:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/stomate.old:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/stomate.old:    INTEGER(i_std)                                :: direct                   !! ??
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                    :: kjpij             !! Total size of the un-compressed grid, including 
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                    :: kjpindex          !! Domain size - number of terrestrial pixels 
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                    :: rest_id_stom      !! STOMATE's _Restart_ file identifier
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom      !! STOMATE's _history_ file identifier
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in):: index             !! Indices of the terrestrial pixels on the global 
src_stomate/stomate.old:    INTEGER(i_std)                               :: ier               !! Check errors in netcdf call
src_stomate/stomate.old:    INTEGER(i_std)                               :: ji,j,ipd,l        !! Indices
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                             :: kjpindex        !! Domain size - terrestrial pixels only
src_stomate/stomate.old:    INTEGER(i_std)                                        :: j               !! Index (untiless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                        :: npts      !! Domain size (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                        :: n_dim2    !! 2nd dimension (1 or nvm)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in) :: kjpindex !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in) :: nsfm     !! Number of time steps that can be stored in memory (unitless)
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in) :: nsft_loc !! Number of time steps in a year (unitless)
src_stomate/stomate.old:    INTEGER(i_std)            :: ier      !! Check errors in netcdf call
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)      :: forcing_id  !! File identifer of forcing file, assigned when netcdf is created
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)      :: ibeg, iend  !! First and last time step to be written
src_stomate/stomate.old:    INTEGER(i_std)                 :: ii          !! Index of isf where isf is the number of time steps that can be 
src_stomate/stomate.old:    INTEGER(i_std)                 :: iblocks     !! Index of block that is written
src_stomate/stomate.old:    INTEGER(i_std)                 :: nblocks     !! Number of blocks that needs to be written
src_stomate/stomate.old:    INTEGER(i_std)                 :: ier         !! Check errors in netcdf call
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst      !! First block in memory - changes with iblocks
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(0:2)  :: ilast       !! Last block in memory - changes with iblocks
src_stomate/stomate.old:    INTEGER(i_std),PARAMETER       :: ndm = 11    !! Maximum number of dimensions
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(ndm)  :: start       !! First block to write
src_stomate/stomate.old:    INTEGER(i_std)                 :: ndim        !! Dimensions of forcing to be added to the netCDF
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(ndm)  :: count_force !! Number of elements in each dimension  
src_stomate/stomate.old:    INTEGER(i_std)                 :: vid         !! Variable identifer of netCDF
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)  :: forcing_id           !! File identifer of forcing file, assigned when netcdf is created
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)  :: nsfm                 !! Number of time steps stored in memory        
src_stomate/stomate.old:    INTEGER(i_std)                 :: ii                !! Index of isf where isf is the number of time steps that can be stored in 
src_stomate/stomate.old:    INTEGER(i_std)                 :: iblocks           !! Index of block that is written
src_stomate/stomate.old:    INTEGER(i_std)                 :: nblocks           !! Number of blocks that needs to be written
src_stomate/stomate.old:    INTEGER(i_std)                 :: ier               !! Check error of netcdf call
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst            !! First block in memory - changes with iblocks
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(0:2)  :: ilast             !! Last block in memory - changes with iblocks
src_stomate/stomate.old:    INTEGER(i_std),PARAMETER       :: ndm = 11          !! Maximum number of dimensions
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(ndm)  :: start             !! First block to write
src_stomate/stomate.old:    INTEGER(i_std)                 :: ndim              !! Dimensions of forcing to be added to the netCDF
src_stomate/stomate.old:    INTEGER(i_std),DIMENSION(ndm)  :: count_force       !! Number of elements in each dimension
src_stomate/stomate.old:    INTEGER(i_std)                 :: vid               !! Variable identifer of netCDF
src_stomate/stomate.old:    INTEGER(i_std),INTENT(in)                    :: npts !! Domain size - number of pixels (unitless)
src_stomate/stomate.old:    INTEGER(i_std)                               :: j    !! index (unitless)
src_stomate/lpj_pftinout.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size - number of pixels (unitless)            
src_stomate/lpj_pftinout.f90:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)             :: neighbours      !! Indices of the 8 neighbours of each grid point
src_stomate/lpj_pftinout.f90:    INTEGER(i_std)                                            :: i,j,m           !! indices      
src_stomate/lpj_pftinout.f90:    INTEGER(i_std), DIMENSION(npts)                           :: n_present       !! number of adjacent grid cells where PFT is 
src_stomate/stomate_npp.f90:    INTEGER(i_std), INTENT(in)                                :: npts             !! Domain size - number of pixels (unitless)
src_stomate/stomate_npp.f90:    INTEGER(i_std)                                            :: i,j,k,l,m        !! Indeces(unitless)
src_stomate/stomate_npp.f90:    INTEGER(i_std)                                            :: ier              !! Error handling
src_stomate/lpj_fire.f90:    INTEGER(i_std), INTENT(in)                                   :: npts                !! Domain size - number of pixels 
src_stomate/lpj_fire.f90:    INTEGER(i_std)                                                :: j,k,m,l            !! Indeces
src_stomate/lpj_fire.f90:    INTEGER(i_std), INTENT(in)                 :: npts             !! Domain size (unitless)
src_stomate/stomate_data.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: hori_index     !! Move to Horizontal indices
src_stomate/stomate_data.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: horipft_index  !! Horizontal + PFT indices
src_stomate/stomate_data.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: horisoillayer_index  !! Horizontal + soil layers indices
src_stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip10_index   !! Horizontal + P10 indices
src_stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip100_index  !! Horizontal + P100 indice
src_stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip11_index   !! Horizontal + P11 indices
src_stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip101_index  !! Horizontal + P101 indices
src_stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: itime                 !! time step
src_stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: hist_id_stomate       !! STOMATE history file ID
src_stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: hist_id_stomate_IPCC  !! STOMATE history file ID for IPCC output
src_stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: rest_id_stomate       !! STOMATE restart file ID
src_stomate/stomate_data.f90:    INTEGER(i_std), INTENT(in)                   :: npts    !! [DISPENSABLE] Domain size (unitless)
src_stomate/stomate_data.f90:    INTEGER(i_std)                               :: j       !! Index (unitless)
src_stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)                                  :: npts                !! Domain size - number of grid pixels
src_stomate/stomate_litter.f90:    INTEGER(i_std)                                              :: i,j,k,l,m          !! Indices (unitless)
src_stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)                          :: npts           !! Domain size - number of grid pixels (unitless)
src_stomate/stomate_litter.f90:    INTEGER(i_std)                                      :: j              !! Index (unitless)
src_stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
src_stomate/stomate_litter.f90:   INTEGER(i_std)                         :: k,i,j                  !! Indices
src_stomate/stomate_litter.f90:   INTEGER(i_std)                         :: ind                    !! A local variable to know what is the index of the max value for the statistical function
src_stomate/stomate_litter.f90:   INTEGER(i_std), DIMENSION(npts)        :: ind_i                  !! A local variable to know what is the index of the max value for the 
src_stomate/stomate_litter.f90:   INTEGER(i_std)                         :: ier                    !! Check errors in netcdf call (unitless)
src_stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
src_stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)                 :: npts            !! Domain size - number of land pixels (unitless)
src_stomate/stomate_lpj.f90:    INTEGER(i_std), INTENT(in)                                 :: npts                 !! Domain size (unitless)
src_stomate/stomate_lpj.f90:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)              :: neighbours           !! Indices of the 8 neighbours of each grid 
src_stomate/stomate_lpj.f90:    INTEGER(i_std)                                         :: i, j, k, l, m    !! indices                       
src_stomate/lpj_kill.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size (unitless)
src_stomate/lpj_kill.f90:    INTEGER(i_std)                                            :: j,m             !! Indices       (unitless)
src_stomate/stomate_litter.old:    INTEGER(i_std), INTENT(in)                                  :: npts                !! Domain size - number of grid pixels
src_stomate/stomate_litter.old:    INTEGER(i_std)                                              :: i,j,k,l,m          !! Indices (unitless)
src_stomate/stomate_litter.old:    INTEGER(i_std), INTENT(in)                          :: npts           !! Domain size - number of grid pixels (unitless)
src_stomate/stomate_litter.old:    INTEGER(i_std)                                      :: j              !! Index (unitless)
src_stomate/stomate_litter.old:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
src_stomate/stomate_litter.old:   INTEGER(i_std)                         :: k,i,j                  !! Indices
src_stomate/stomate_litter.old:   INTEGER(i_std)                         :: ind                    !! A local variable to know what is the index of the max value for the statistical function
src_stomate/stomate_litter.old:   INTEGER(i_std), DIMENSION(npts)        :: ind_i                  !! A local variable to know what is the index of the max value for the 
src_stomate/stomate_litter.old:   INTEGER(i_std)                         :: ier                    !! Check errors in netcdf call (unitless)
src_stomate/stomate_litter.old:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
src_stomate/stomate_litter.old:    INTEGER(i_std), INTENT(in)                 :: npts            !! Domain size - number of land pixels (unitless)
src_stomate/stomate_soilcarbon.old:    INTEGER(i_std), INTENT(in)                                        :: npts                  !! Domain size (unitless)
src_stomate/stomate_soilcarbon.old:    INTEGER(i_std)                                                :: k,kk,m,j,l,i,kkk !! Indices (unitless)
src_stomate/stomate_turnover.f90:    INTEGER(i_std), INTENT(in)                                 :: npts                 !! Domain size - number of grid cells 
src_stomate/stomate_turnover.f90:    INTEGER(i_std)                                             :: j,m,k                !! Index (unitless)
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                            :: date=0               !! Date (days) 
src_stomate/stomate.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nforce               !! Number of states calculated for the soil forcing 
src_stomate/stomate.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: isf                  !! Index for number of time steps that can be stored in 
src_stomate/stomate.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nf_cumul             !! Number of years over which the average is calculated in
src_stomate/stomate.f90:  INTEGER(i_std), SAVE                           :: spinup_period        !! Period of years used to calculate the resolution of the system for spinup analytic. 
src_stomate/stomate.f90:  INTEGER(i_std),PARAMETER                           :: nparanmax=366       !! Maximum number of time steps per year for forcesoil
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nparan              !! Number of time steps per year for forcesoil read from run definition (unitless) 
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nbyear=1            !! Number of years saved for forcesoil (unitless) 
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: iatt                !! Time step of forcing of soil processes (iatt = 1 to ::nparan*::nbyear) 
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: iatt_old=1          !! Previous ::iatt
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nsfm                !! Number of time steps that can be stored in memory (unitless) 
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nsft                !! Number of time steps in a year (unitless)
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: iisf                !! Current pointer for teststomate (unitless)
src_stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: Cforcing_id         !! File identifer of file 2
src_stomate/stomate.f90:  INTEGER(i_std),PARAMETER                           :: ndm = 12            !! Maximum number of dimensions (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier(unitless) 
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! The indices of the terrestrial pixels only (unitless) 
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM (unitless) 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/stomate.f90:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/stomate.f90:    INTEGER(i_std)                                :: direct                   !! 
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! 
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the pixels on the map. Stomate uses a 
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM 
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id           !! ?? [DISPENSABLE] SECHIBA's _history_ file 
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist2_id          !! ?? [DISPENSABLE] SECHIBA's _history_ file 2 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/stomate.f90:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/stomate.f90:    INTEGER(i_std)                                :: direct                   !! ??
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the terrestrial pixels only (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
src_stomate/stomate.f90:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
src_stomate/stomate.f90:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
src_stomate/stomate.f90:    INTEGER(i_std)                                :: direct                   !! ??
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: kjpij             !! Total size of the un-compressed grid, including 
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: kjpindex          !! Domain size - number of terrestrial pixels 
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: rest_id_stom      !! STOMATE's _Restart_ file identifier
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom      !! STOMATE's _history_ file identifier
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in):: index             !! Indices of the terrestrial pixels on the global 
src_stomate/stomate.f90:    INTEGER(i_std)                               :: ier               !! Check errors in netcdf call
src_stomate/stomate.f90:    INTEGER(i_std)                               :: ji,j,ipd,l        !! Indices
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                             :: kjpindex        !! Domain size - terrestrial pixels only
src_stomate/stomate.f90:    INTEGER(i_std)                                        :: j               !! Index (untiless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                        :: npts      !! Domain size (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                        :: n_dim2    !! 2nd dimension (1 or nvm)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in) :: kjpindex !! Domain size - terrestrial pixels only (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in) :: nsfm     !! Number of time steps that can be stored in memory (unitless)
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in) :: nsft_loc !! Number of time steps in a year (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)            :: ier      !! Check errors in netcdf call
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)      :: forcing_id  !! File identifer of forcing file, assigned when netcdf is created
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)      :: ibeg, iend  !! First and last time step to be written
src_stomate/stomate.f90:    INTEGER(i_std)                 :: ii          !! Index of isf where isf is the number of time steps that can be 
src_stomate/stomate.f90:    INTEGER(i_std)                 :: iblocks     !! Index of block that is written
src_stomate/stomate.f90:    INTEGER(i_std)                 :: nblocks     !! Number of blocks that needs to be written
src_stomate/stomate.f90:    INTEGER(i_std)                 :: ier         !! Check errors in netcdf call
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst      !! First block in memory - changes with iblocks
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ilast       !! Last block in memory - changes with iblocks
src_stomate/stomate.f90:    INTEGER(i_std),PARAMETER       :: ndm = 11    !! Maximum number of dimensions
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: start       !! First block to write
src_stomate/stomate.f90:    INTEGER(i_std)                 :: ndim        !! Dimensions of forcing to be added to the netCDF
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: count_force !! Number of elements in each dimension  
src_stomate/stomate.f90:    INTEGER(i_std)                 :: vid         !! Variable identifer of netCDF
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)  :: forcing_id           !! File identifer of forcing file, assigned when netcdf is created
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)  :: nsfm                 !! Number of time steps stored in memory        
src_stomate/stomate.f90:    INTEGER(i_std)                 :: ii                !! Index of isf where isf is the number of time steps that can be stored in 
src_stomate/stomate.f90:    INTEGER(i_std)                 :: iblocks           !! Index of block that is written
src_stomate/stomate.f90:    INTEGER(i_std)                 :: nblocks           !! Number of blocks that needs to be written
src_stomate/stomate.f90:    INTEGER(i_std)                 :: ier               !! Check error of netcdf call
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst            !! First block in memory - changes with iblocks
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ilast             !! Last block in memory - changes with iblocks
src_stomate/stomate.f90:    INTEGER(i_std),PARAMETER       :: ndm = 11          !! Maximum number of dimensions
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: start             !! First block to write
src_stomate/stomate.f90:    INTEGER(i_std)                 :: ndim              !! Dimensions of forcing to be added to the netCDF
src_stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: count_force       !! Number of elements in each dimension
src_stomate/stomate.f90:    INTEGER(i_std)                 :: vid               !! Variable identifer of netCDF
src_stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: npts !! Domain size - number of pixels (unitless)
src_stomate/stomate.f90:    INTEGER(i_std)                               :: j    !! index (unitless)
src_stomate/stomate_season.f90:    INTEGER(i_std), INTENT(in)                             :: npts              !! Domain size - number of grid cells (unitless)
src_stomate/stomate_season.f90:    INTEGER(i_std)                                          :: j                        !! indices (unitless)
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:      INTEGER(i_std), INTENT(in) :: n  !! size of the system (1-N, unitless)
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:      INTEGER(i_std) :: i,col,row,j,k,ii,jj        !! index (unitless)
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:      INTEGER(i_std), DIMENSION(n) :: index_pivot  !! vector containing the pivot index
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:      INTEGER(i_std), DIMENSION(n) :: index_col    !! vector containing the columns index
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:      INTEGER(i_std), DIMENSION(n) :: index_row    !! vector containing the rows index
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:    INTEGER(i_std), INTENT(in) :: npts                                             !! Number of continental grid cells (unitless)
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:    INTEGER(i_std), INTENT(in) :: nb_veget                                         !! Number of vegetation types (2-N, unitless)
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:    INTEGER(i_std), INTENT(in) :: nb_pools                                         !! Number of carbon pools (unitless)
src_global/.svn/text-base/gauss_jordan_method.f90.svn-base:    INTEGER(i_std) :: j                                      !! Index (unitless)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: nbpt                 ! Number of points for which the data needs to be interpolated
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   ! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: iml, jml             ! Size of the finer grid
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: mask(iml, jml)       ! Mask which retains only the significative points
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)    :: incmax              ! Maximum point of the fine grid we can store.
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(out)  :: indinc(nbpt,incmax,2)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: searchind
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std) :: fopt, fopt_max, ip, jp, ib, i, itmp, iprog, nbind
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std) :: minLon(1), maxLon(1)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: nbpt                 ! Number of points for which the data needs to be interpolated
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   ! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: iml                  ! Size of the finer grid
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)    :: incmax              ! Maximum point of the fine grid we can store.
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(out)  :: indinc(nbpt,incmax)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: searchind
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), DIMENSION(nbpt) :: fopt
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std) :: fopt_max, not_found_fopt
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std) :: ip, ib, i, j, itmp, iprog, nbind, pp, ipp
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std) :: ff(1), incp
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: fine_ind
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std) :: pos_pnt(5)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: nbpt                 
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: iml                 
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: nbvmax             
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(out)  :: sub_index(nbpt,nbvmax)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std)  :: sub_index_g(nbp_glo,nbvmax)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: nbpt                 
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: iml,jml                 
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: mask(iml, jml)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(in)   :: nbvmax             
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std), INTENT(out)  :: sub_index(nbpt,nbvmax,2)
src_global/.svn/text-base/interpol_help.f90.svn-base:    INTEGER(i_std)   :: sub_index_g(nbp_glo,nbvmax,2)
src_global/.svn/text-base/grid.f90.svn-base:  INTEGER(i_std), ALLOCATABLE, DIMENSION (:,:), SAVE :: neighbours
src_global/.svn/text-base/grid.f90.svn-base:  INTEGER(i_std), DIMENSION(8), SAVE, PRIVATE        :: rose
src_global/.svn/text-base/grid.f90.svn-base:  INTEGER(i_std), SAVE                  :: year, month, day
src_global/.svn/text-base/grid.f90.svn-base:  INTEGER(i_std), SAVE                  :: month_len
src_global/.svn/text-base/grid.f90.svn-base:  INTEGER(i_std), SAVE            :: year_length=0
src_global/.svn/text-base/grid.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: npts !! Number of local continental points 
src_global/.svn/text-base/grid.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: npts_glo
src_global/.svn/text-base/grid.f90.svn-base:    INTEGER(i_std), INTENT(in)                                 :: iim, jjm
src_global/.svn/text-base/grid.f90.svn-base:    INTEGER(i_std), DIMENSION(:), INTENT(in)                :: kindex    
src_global/.svn/text-base/grid.f90.svn-base:    INTEGER(i_std), DIMENSION(iim,jjm)                   :: correspondance
src_global/.svn/text-base/grid.f90.svn-base:    INTEGER(i_std)                                       :: ndefault_lon, ndefault_lat
src_global/.svn/text-base/grid.f90.svn-base:    INTEGER(i_std)                                       :: i,ip,jp, imm1, imp1, imm1l, imp1l, ii
src_global/grid.f90:  INTEGER(i_std), ALLOCATABLE, DIMENSION (:,:), SAVE :: neighbours
src_global/grid.f90:  INTEGER(i_std), DIMENSION(8), SAVE, PRIVATE        :: rose
src_global/grid.f90:  INTEGER(i_std), SAVE                  :: year, month, day
src_global/grid.f90:  INTEGER(i_std), SAVE                  :: month_len
src_global/grid.f90:  INTEGER(i_std), SAVE            :: year_length=0
src_global/grid.f90:    INTEGER(i_std), INTENT(in)                                 :: npts !! Number of local continental points 
src_global/grid.f90:    INTEGER(i_std), INTENT(in)                                 :: npts_glo
src_global/grid.f90:    INTEGER(i_std), INTENT(in)                                 :: iim, jjm
src_global/grid.f90:    INTEGER(i_std), DIMENSION(:), INTENT(in)                :: kindex    
src_global/grid.f90:    INTEGER(i_std), DIMENSION(iim,jjm)                   :: correspondance
src_global/grid.f90:    INTEGER(i_std)                                       :: ndefault_lon, ndefault_lat
src_global/grid.f90:    INTEGER(i_std)                                       :: i,ip,jp, imm1, imp1, imm1l, imp1l, ii
src_global/gauss_jordan_method.f90:      INTEGER(i_std), INTENT(in) :: n  !! size of the system (1-N, unitless)
src_global/gauss_jordan_method.f90:      INTEGER(i_std) :: i,col,row,j,k,ii,jj        !! index (unitless)
src_global/gauss_jordan_method.f90:      INTEGER(i_std), DIMENSION(n) :: index_pivot  !! vector containing the pivot index
src_global/gauss_jordan_method.f90:      INTEGER(i_std), DIMENSION(n) :: index_col    !! vector containing the columns index
src_global/gauss_jordan_method.f90:      INTEGER(i_std), DIMENSION(n) :: index_row    !! vector containing the rows index
src_global/gauss_jordan_method.f90:    INTEGER(i_std), INTENT(in) :: npts                                             !! Number of continental grid cells (unitless)
src_global/gauss_jordan_method.f90:    INTEGER(i_std), INTENT(in) :: nb_veget                                         !! Number of vegetation types (2-N, unitless)
src_global/gauss_jordan_method.f90:    INTEGER(i_std), INTENT(in) :: nb_pools                                         !! Number of carbon pools (unitless)
src_global/gauss_jordan_method.f90:    INTEGER(i_std) :: j                                      !! Index (unitless)
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 ! Number of points for which the data needs to be interpolated
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   ! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml, jml             ! Size of the finer grid
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: mask(iml, jml)       ! Mask which retains only the significative points
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)    :: incmax              ! Maximum point of the fine grid we can store.
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: indinc(nbpt,incmax,2)
src_global/interpol_help.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: searchind
src_global/interpol_help.f90:    INTEGER(i_std) :: fopt, fopt_max, ip, jp, ib, i, itmp, iprog, nbind
src_global/interpol_help.f90:    INTEGER(i_std) :: minLon(1), maxLon(1)
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 ! Number of points for which the data needs to be interpolated
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   ! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml                  ! Size of the finer grid
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)    :: incmax              ! Maximum point of the fine grid we can store.
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: indinc(nbpt,incmax)
src_global/interpol_help.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: searchind
src_global/interpol_help.f90:    INTEGER(i_std), DIMENSION(nbpt) :: fopt
src_global/interpol_help.f90:    INTEGER(i_std) :: fopt_max, not_found_fopt
src_global/interpol_help.f90:    INTEGER(i_std) :: ip, ib, i, j, itmp, iprog, nbind, pp, ipp
src_global/interpol_help.f90:    INTEGER(i_std) :: ff(1), incp
src_global/interpol_help.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: fine_ind
src_global/interpol_help.f90:    INTEGER(i_std) :: pos_pnt(5)
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml                 
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbvmax             
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: sub_index(nbpt,nbvmax)
src_global/interpol_help.f90:    INTEGER(i_std)  :: sub_index_g(nbp_glo,nbvmax)
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml,jml                 
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: mask(iml, jml)
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbvmax             
src_global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: sub_index(nbpt,nbvmax,2)
src_global/interpol_help.f90:    INTEGER(i_std)   :: sub_index_g(nbp_glo,nbvmax,2)
src_driver/getprec.f90:  IF (SELECTED_INT_KIND(range_int) /= i_std) THEN
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: kjpij,kjpindex                       !! # of total/land points
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indices                              !! index over land points
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indexveg
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std), DIMENSION(:),ALLOCATABLE  :: njsc
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indices_g                            !! Vector of indeces of land points, only known by root proc
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: iim,jjm,llm                          !! # of lon,lat and time-step in the restart 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: itau_dep,itau_fin,itau               !! First, last and current time step of SECHIBA 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: itau_len,itau_step                   !! Total length of the simulation and length 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: rest_id_sec,rest_id_sto              !! ID's of the restart files for the SECHIBA 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: hist_id_sec,hist_id_sec2             !! ID's of the history files of SECHIBA 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: hist_id_stom,hist_id_stom_IPCC       !! ID's of the history files of STOMATE 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: i,j,iv                               !! used as counters
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std),PARAMETER                  :: nbvarmax=200                         !! Maximum number of variables assumed in the 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: nbvar                                !! Number of variables present in the restart 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: varnbdim                             !! Number of dimensions of a variable 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std),PARAMETER                  :: varnbdim_max=20                      !! Maximum number of dimensions of a variable 
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: max_totsize,totsize_1step
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: totsize_tmp  
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: ji,jv,l
src_driver/.svn/text-base/teststomate.f90.svn-base:  INTEGER(i_std)                            :: printlev_loc
src_driver/.svn/text-base/getprec.f90.svn-base:  IF (SELECTED_INT_KIND(range_int) /= i_std) THEN
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std)                             :: iim,jjm                 !! Indices (unitless)
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std),PARAMETER                   :: llm = 1                 !! Vertical Layers (requested by restini routine) (unitless)
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std)                             :: kjpindex                !! Domain size (unitless)
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std)                             :: itau_dep,itau_len       !! Time step read in the restart file (?) 
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std)                             :: rest_id_sto             !! ID of the input restart file (unitless)
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE    :: indices                 !! Grid Point Index used per processor (unitless)
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE    :: indices_g               !! Grid Point Index for all processor (unitless)
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std),PARAMETER                   :: nbvarmax=800            !! maximum # of variables assumed in the stomate restart file 
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std)                             :: nbvar                   !! # of variables effectively present 
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std)                             :: varnbdim                !! # of dimensions of a given variable 
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std),PARAMETER                   :: varnbdim_max=20         !! maximal # of dimensions assumed for any variable 
src_driver/.svn/text-base/forcesoil.f90.svn-base:  INTEGER(i_std)                             :: ier,iret                !! Used for hangling errors 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: kjpij,kjpindex                       !! # of total/land points
src_driver/teststomate.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indices                              !! index over land points
src_driver/teststomate.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indexveg
src_driver/teststomate.f90:  INTEGER(i_std), DIMENSION(:),ALLOCATABLE  :: njsc
src_driver/teststomate.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indices_g                            !! Vector of indeces of land points, only known by root proc
src_driver/teststomate.f90:  INTEGER(i_std)                            :: iim,jjm,llm                          !! # of lon,lat and time-step in the restart 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: itau_dep,itau_fin,itau               !! First, last and current time step of SECHIBA 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: itau_len,itau_step                   !! Total length of the simulation and length 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: rest_id_sec,rest_id_sto              !! ID's of the restart files for the SECHIBA 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: hist_id_sec,hist_id_sec2             !! ID's of the history files of SECHIBA 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: hist_id_stom,hist_id_stom_IPCC       !! ID's of the history files of STOMATE 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: i,j,iv                               !! used as counters
src_driver/teststomate.f90:  INTEGER(i_std),PARAMETER                  :: nbvarmax=200                         !! Maximum number of variables assumed in the 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: nbvar                                !! Number of variables present in the restart 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: varnbdim                             !! Number of dimensions of a variable 
src_driver/teststomate.f90:  INTEGER(i_std),PARAMETER                  :: varnbdim_max=20                      !! Maximum number of dimensions of a variable 
src_driver/teststomate.f90:  INTEGER(i_std)                            :: max_totsize,totsize_1step
src_driver/teststomate.f90:  INTEGER(i_std)                            :: totsize_tmp  
src_driver/teststomate.f90:  INTEGER(i_std)                            :: ji,jv,l
src_driver/teststomate.f90:  INTEGER(i_std)                            :: printlev_loc
src_driver/forcesoil.f90:  INTEGER(i_std)                             :: iim,jjm                 !! Indices (unitless)
src_driver/forcesoil.f90:  INTEGER(i_std),PARAMETER                   :: llm = 1                 !! Vertical Layers (requested by restini routine) (unitless)
src_driver/forcesoil.f90:  INTEGER(i_std)                             :: kjpindex                !! Domain size (unitless)
src_driver/forcesoil.f90:  INTEGER(i_std)                             :: itau_dep,itau_len       !! Time step read in the restart file (?) 
src_driver/forcesoil.f90:  INTEGER(i_std)                             :: rest_id_sto             !! ID of the input restart file (unitless)
src_driver/forcesoil.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE    :: indices                 !! Grid Point Index used per processor (unitless)
src_driver/forcesoil.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE    :: indices_g               !! Grid Point Index for all processor (unitless)
src_driver/forcesoil.f90:  INTEGER(i_std),PARAMETER                   :: nbvarmax=800            !! maximum # of variables assumed in the stomate restart file 
src_driver/forcesoil.f90:  INTEGER(i_std)                             :: nbvar                   !! # of variables effectively present 
src_driver/forcesoil.f90:  INTEGER(i_std)                             :: varnbdim                !! # of dimensions of a given variable 
src_driver/forcesoil.f90:  INTEGER(i_std),PARAMETER                   :: varnbdim_max=20         !! maximal # of dimensions assumed for any variable 
src_driver/forcesoil.f90:  INTEGER(i_std)                             :: ier,iret                !! Used for hangling errors 
src_parallel/.svn/text-base/xios_orchidee.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: MPI_COMM_ORCH    !! Orchidee MPI communicator (from module mod_orchidee_mpi_data)
src_parallel/.svn/text-base/xios_orchidee.f90.svn-base:    INTEGER(i_std), INTENT(in)                            :: year, month, day !! Current date information
src_parallel/.svn/text-base/xios_orchidee.f90.svn-base:    INTEGER(i_std)                 :: i
src_parallel/.svn/text-base/xios_orchidee.f90.svn-base:    INTEGER(i_std)                 :: year0, month0, day0 !! Time origin date information
src_parallel/.svn/text-base/xios_orchidee.f90.svn-base:    INTEGER(i_std), INTENT(IN) :: itau_sechiba    !! Current time step of the model
src_parallel/.svn/text-base/xios_orchidee.f90.svn-base:    INTEGER(i_std), SAVE  :: offset               !! Offset to substract from itau_sechiba
src_parallel/.svn/text-base/xios_orchidee.f90.svn-base:    INTEGER(i_std)        :: itau_xios            !! Current time step for XIOS
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std), SAVE :: numout = 6
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE              :: nbp_mpi                         !! number of local continental points in each mpi group
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE              :: nbp_glo                         !! number of global continental points
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE              :: iim_g                           !! Dimension of global fields for longitude
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE              :: jjm_g                           !! Dimension of global fields for latitude
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE :: omp_size
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE :: omp_rank
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_nb
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_begin
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_end    
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE :: nbp_omp
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE :: nbp_omp_begin
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE :: nbp_omp_end
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE :: offset_omp
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),SAVE,ALLOCATABLE,DIMENSION(:) :: omp_function
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),ALLOCATABLE,DIMENSION(:),SAVE   :: index_g
src_parallel/.svn/text-base/mod_orchidee_para_var.F90.svn-base:  INTEGER(i_std),ALLOCATABLE,DIMENSION(:,:),SAVE :: neighbours_g
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(INOUT) :: Var
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: Var1
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(INOUT) :: Var(:)
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:)
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:,:)
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:,:,:)
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(nbp_glo) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(nbp_mpi) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)*SIZE(VarOut,3)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)*SIZE(VarOut,3)*SIZE(VarOut,4)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)*SIZE(VarIn,3)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)*SIZE(VarIn,3)*SIZE(VarIn,4)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)*SIZE(VarOut,4)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:,:)  :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)*SIZE(VarOut,4)*SIZE(VarOut,5)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)*SIZE(VarIn,4)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)*SIZE(VarIn,4)*SIZE(VarIn,5)) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN)  :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: Var1
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: Var2
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:)  :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:)  :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:)  :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(nb),INTENT(INOUT) :: Var
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp,dimsize) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp_mpi,dimsize) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(dimsize*nbp_glo) :: VarTmp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp_mpi,dimsize) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp,dimsize) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(dimsize*nbp_glo) :: VarTmp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp2D,dimsize) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(OUT),DIMENSION(iim*jj_nb,dimsize) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(dimsize*iim*jjm)   :: VarTmp1
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(ij_nb,dimsize)     :: VarTmp2
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN),DIMENSION(iim*jj_nb,dimsize)  :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp2D,dimsize) :: VarOut
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(ij_nb,dimsize)   :: VarTmp1
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(dimsize*iim*jjm) :: VarTmp2
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(nb),INTENT(IN) :: VarIn
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),DIMENSION(nb),INTENT(OUT) :: VarOut    
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/.svn/text-base/mod_orchidee_mpi_transfert.F90.svn-base:  INTEGER(i_std) :: ierr
src_parallel/.svn/text-base/mod_orchidee_para.F90.svn-base:    INTEGER(i_std), INTENT(IN) :: arg_nbp_lon
src_parallel/.svn/text-base/mod_orchidee_para.F90.svn-base:    INTEGER(i_std), INTENT(IN) :: arg_nbp_lat
src_parallel/.svn/text-base/mod_orchidee_para.F90.svn-base:    INTEGER(i_std), INTENT(IN),OPTIONAL :: arg_nbp_glo
src_parallel/.svn/text-base/mod_orchidee_mpi_data.F90.svn-base:    IF (i_std==i_4) THEN
src_parallel/.svn/text-base/mod_orchidee_mpi_data.F90.svn-base:    ELSEIF (i_std==i_8) THEN
src_parallel/.svn/text-base/mod_orchidee_omp_transfert.F90.svn-base:  INTEGER(i_std),SAVE,ALLOCATABLE,DIMENSION(:) :: omp_ibuffer
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(INOUT) :: Var
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: Var1
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(INOUT) :: Var(:)
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:)
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:,:)
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:,:,:)
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(nbp_glo) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(nbp_mpi) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)*SIZE(VarOut,3)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)*SIZE(VarOut,3)*SIZE(VarOut,4)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)*SIZE(VarIn,3)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)*SIZE(VarIn,3)*SIZE(VarIn,4)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)*SIZE(VarOut,4)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:,:)  :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)*SIZE(VarOut,4)*SIZE(VarOut,5)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)*SIZE(VarIn,4)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)*SIZE(VarIn,4)*SIZE(VarIn,5)) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN)  :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: Var1
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: Var2
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:)  :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:)  :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:)  :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:    INTEGER(i_std),DIMENSION(1) :: dummy
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(nb),INTENT(INOUT) :: Var
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp,dimsize) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp_mpi,dimsize) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(dimsize*nbp_glo) :: VarTmp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp_mpi,dimsize) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp,dimsize) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(dimsize*nbp_glo) :: VarTmp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp2D,dimsize) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(OUT),DIMENSION(iim*jj_nb,dimsize) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(dimsize*iim*jjm)   :: VarTmp1
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(ij_nb,dimsize)     :: VarTmp2
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN),DIMENSION(iim*jj_nb,dimsize)  :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp2D,dimsize) :: VarOut
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(ij_nb,dimsize)   :: VarTmp1
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(dimsize*iim*jjm) :: VarTmp2
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: dimsize
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nbp2D
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(nb),INTENT(IN) :: VarIn
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),DIMENSION(nb),INTENT(OUT) :: VarOut    
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std),INTENT(IN) :: nb
src_parallel/mod_orchidee_mpi_transfert.F90:  INTEGER(i_std) :: ierr
src_parallel/mod_orchidee_mpi_data.F90:    IF (i_std==i_4) THEN
src_parallel/mod_orchidee_mpi_data.F90:    ELSEIF (i_std==i_8) THEN
src_parallel/xios_orchidee.f90:    INTEGER(i_std), INTENT(in)                            :: MPI_COMM_ORCH    !! Orchidee MPI communicator (from module mod_orchidee_mpi_data)
src_parallel/xios_orchidee.f90:    INTEGER(i_std), INTENT(in)                            :: year, month, day !! Current date information
src_parallel/xios_orchidee.f90:    INTEGER(i_std)                 :: i
src_parallel/xios_orchidee.f90:    INTEGER(i_std)                 :: year0, month0, day0 !! Time origin date information
src_parallel/xios_orchidee.f90:    INTEGER(i_std), INTENT(IN) :: itau_sechiba    !! Current time step of the model
src_parallel/xios_orchidee.f90:    INTEGER(i_std), SAVE  :: offset               !! Offset to substract from itau_sechiba
src_parallel/xios_orchidee.f90:    INTEGER(i_std)        :: itau_xios            !! Current time step for XIOS
src_parallel/mod_orchidee_omp_transfert.F90:  INTEGER(i_std),SAVE,ALLOCATABLE,DIMENSION(:) :: omp_ibuffer
src_parallel/mod_orchidee_para.F90:    INTEGER(i_std), INTENT(IN) :: arg_nbp_lon
src_parallel/mod_orchidee_para.F90:    INTEGER(i_std), INTENT(IN) :: arg_nbp_lat
src_parallel/mod_orchidee_para.F90:    INTEGER(i_std), INTENT(IN),OPTIONAL :: arg_nbp_glo
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std), SAVE :: numout = 6
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE              :: nbp_mpi                         !! number of local continental points in each mpi group
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE              :: nbp_glo                         !! number of global continental points
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE              :: iim_g                           !! Dimension of global fields for longitude
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE              :: jjm_g                           !! Dimension of global fields for latitude
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE :: omp_size
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE :: omp_rank
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_nb
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_begin
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_end    
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE :: nbp_omp
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE :: nbp_omp_begin
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE :: nbp_omp_end
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE :: offset_omp
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),SAVE,ALLOCATABLE,DIMENSION(:) :: omp_function
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),ALLOCATABLE,DIMENSION(:),SAVE   :: index_g
src_parallel/mod_orchidee_para_var.F90:  INTEGER(i_std),ALLOCATABLE,DIMENSION(:,:),SAVE :: neighbours_g
.config/ppsrc/parameters/control.f90:    INTEGER(i_std)                             :: jv            !! Local index variable
.config/ppsrc/parameters/control.f90:    INTEGER(i_std)                             :: ier           !! Error handeling
.config/ppsrc/parameters/pft_parameters_var.f90:  INTEGER(i_std), SAVE :: nvm = 13                               !! Number of vegetation types (2-N, unitless)
.config/ppsrc/parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pft_to_mtc  !! Table of conversion : we associate one pft to one metaclass 
.config/ppsrc/parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: leaf_tab       !! leaf type (1-4, unitless)
.config/ppsrc/parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pref_soil_veg      !! Table which contains the correlation between the soil
.config/ppsrc/parameters/pft_parameters_var.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: pheno_type     !! type of phenology (0-4, unitless)
.config/ppsrc/parameters/pft_parameters.f90:   INTEGER(i_std) :: j                             !! Index (unitless)
.config/ppsrc/parameters/pft_parameters.f90:   INTEGER(i_std)                :: jv            !! Index (unitless) 
.config/ppsrc/parameters/pft_parameters.f90:   INTEGER(i_std) :: jv                   !! Index (untiless)
.config/ppsrc/parameters/vertical_soil.f90:    INTEGER(i_std), PARAMETER            :: nblayermax=500    !! Preset 500 for max. number of soil layers.
.config/ppsrc/parameters/vertical_soil.f90:    INTEGER(i_std)                       :: i, irev, iref, ntmp, ier
.config/ppsrc/parameters/vertical_soil.f90:    INTEGER(i_std)                       :: nbrefine          !! Related to refine at bottom. Work in progress...
.config/ppsrc/parameters/vertical_soil.f90:    INTEGER(i_std)                       :: nbcst             !! Related to refine at bottom. Work in progress...
.config/ppsrc/parameters/vertical_soil.f90:    INTEGER(i_std)                       :: igeo              !! Related to refine at bottom. Work in progress...
.config/ppsrc/parameters/vertical_soil.f90:    INTEGER(i_std), DIMENSION(1)         :: imin              !! Related to refine at bottom. Work in progress...
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER  :: spring_days_max = 40  !! Maximum number of days during which we watch for possible spring frost damage
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: undef_int = 999999999     !! undef integer for integer arrays (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ibare_sechiba = 1 !! Index for bare soil in Sechiba (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ivis = 1          !! index for albedo in visible range (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: inir = 2          !! index for albeod i near-infrared range (unitless) 
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nnobio = 1        !! Number of other surface types: land ice (lakes,cities, ...) (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iice = 1          !! Index for land ice (see nnobio) (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: classnb = 9       !! Levels of soil colour classification (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nleafages = 4     !! leaf age discretisation ( 1 = no discretisation )(unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ileaf = 1         !! Index for leaf compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: isapabove = 2     !! Index for sapwood above compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: isapbelow = 3     !! Index for sapwood below compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iheartabove = 4   !! Index for heartwood above compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iheartbelow = 5   !! Index for heartwood below compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iroot = 6         !! Index for roots compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifruit = 7        !! Index for fruits compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: icarbres = 8      !! Index for reserve compartment (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nparts = 8        !! Number of biomass compartments (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ivcmax = 1        !! Index for vcmax (assimilation parameters) (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: npco2 = 1         !! Number of assimilation parameters (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iabove = 1       !! Index for above part (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ibelow = 2       !! Index for below part (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nlevs = 2        !! Number of levels for trees and litter (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic = 1   !! Index for metabolic litter (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural = 2  !! Index for structural litter (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nlitt = 2        !! Number of levels for litter compartments (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive = 1      !! Index for active carbon pool (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow = 2        !! Index for slow carbon pool (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive = 3     !! Index for passive carbon pool (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ncarb = 3        !! Number of soil carbon pools (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifree = 1        !! Index for free soil dissolved organic carbon (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsorbed = 2    !! Index for adsorbed soil dissolved organic carbon (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ndoc = 2         !! Number of soil dissolved organic carbon pools (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: irunoff = 1      !! Index for runoff (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iflooded = 2     !! Index for flooding (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: idrainage = 3    !! Index for drainage (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nexp = 3         !! Number of DOC export pathways (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabo = 1      !! Index for aboveground metabolic litter pool(unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istrabo = 2      !! Index for aboveground structural litter pool(unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetbel = 3      !! Index for belowground metabolic litter pool(unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istrbel = 4      !! Index for belowground structural litter  pool(unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iact = 5         !! Index for active carbon pool (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islo = 6         !! Index for slow carbon pool (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipas = 7         !! Index for passive carbon pool (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: npool = 7        !! Number of soil carbon pools (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ico2 = 1         !! Index for CO2 (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: io2 = 2          !! Index for O2 (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ich4 = 3         !! Index for CH4 (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ngaz = 3         !! Number of gaz in soil (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nelements = 1    !! Number of isotopes considered
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: icarbon = 1      !! Index for carbon 
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nmbcomp=5
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iatm2land=1
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iland2atm=2
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ilat2out=3
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ilat2in=4
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipoolchange=5
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nbpools = 211                     !! Total number of carbon pools (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_above = 1            !! Index for structural litter above (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z1 = 2         !! Index for structural litter below at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z2 = 3         !! Index for structural litter below at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z3 = 4         !! Index for structural litter below at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z4 = 5         !! Index for structural litter below at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z5 = 6         !! Index for structural litter below at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z6 = 7         !! Index for structural litter below at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z7 = 8         !! Index for structural litter below at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z8 = 9         !! Index for structural litter below at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z9 = 10        !! Index for structural litter below at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z10 = 11       !! Index for structural litter below at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istructural_below_z11 = 12       !! Index for structural litter below at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_above = 13            !! Index for metabolic litter above (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z1 = 14         !! Index for metabolic litter below at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z2 = 15         !! Index for metabolic litter below at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z3 = 16         !! Index for metabolic litter below at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z4 = 17         !! Index for metabolic litter below at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z5 = 18         !! Index for metabolic litter below at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z6 = 19         !! Index for metabolic litter below at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z7 = 20         !! Index for metabolic litter below at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z8 = 21         !! Index for metabolic litter below at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z9 = 22         !! Index for metabolic litter below at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z10 = 23        !! Index for metabolic litter below at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: imetabolic_below_z11 = 24        !! Index for metabolic litter below at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z1 = 25             !! Index for active carbon pool at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z2 = 26             !! Index for active carbon pool at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z3 = 27             !! Index for active carbon pool at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z4 = 28             !! Index for active carbon pool at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z5 = 29             !! Index for active carbon pool at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z6 = 30             !! Index for active carbon pool at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z7 = 31             !! Index for active carbon pool at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z8 = 32             !! Index for active carbon pool at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z9 = 33             !! Index for active carbon pool at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z10 = 34            !! Index for active carbon pool at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iactive_pool_z11 = 35            !! Index for active carbon pool at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z1   = 36             !! Index for slow carbon pool at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z2   = 37             !! Index for slow carbon pool at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z3   = 38             !! Index for slow carbon pool at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z4   = 39             !! Index for slow carbon pool at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z5   = 40             !! Index for slow carbon pool at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z6   = 41             !! Index for slow carbon pool at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z7   = 42             !! Index for slow carbon pool at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z8   = 43             !! Index for slow carbon pool at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z9   = 44             !! Index for slow carbon pool at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z10   = 45            !! Index for slow carbon pool at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islow_pool_z11   = 46            !! Index for slow carbon pool at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z1 = 47            !! Index for passive carbon pool at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z2 = 48            !! Index for passive carbon pool at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z3 = 49            !! Index for passive carbon pool at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z4 = 50            !! Index for passive carbon pool at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z5 = 51            !! Index for passive carbon pool at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z6 = 52            !! Index for passive carbon pool at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z7 = 53            !! Index for passive carbon pool at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z8 = 54            !! Index for passive carbon pool at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z9 = 55            !! Index for passive carbon pool at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z10 = 56           !! Index for passive carbon pool at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipassive_pool_z11 = 57           !! Index for passive carbon pool at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metabo = 58            !! Index for free DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metabo = 59            !! Index for free DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metabo = 60            !! Index for free DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metabo = 61            !! Index for free DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metabo = 62            !! Index for free DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metabo = 63            !! Index for free DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metabo = 64            !! Index for free DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metabo = 65            !! Index for free DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metabo = 66            !! Index for free DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metabo = 67           !! Index for free DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metabo = 68           !! Index for free DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metabo = 69             !! Index for adsorbed DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metabo = 70             !! Index for adsorbed DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metabo = 71             !! Index for adsorbed DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metabo = 72             !! Index for adsorbed DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metabo = 73             !! Index for adsorbed DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metabo = 74             !! Index for adsorbed DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metabo = 75             !! Index for adsorbed DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metabo = 76             !! Index for adsorbed DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metabo = 77             !! Index for adsorbed DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metabo = 78            !! Index for adsorbed DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metabo = 79            !! Index for adsorbed DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strabo = 80            !! Index for free DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strabo = 81            !! Index for free DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strabo = 82            !! Index for free DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strabo = 83            !! Index for free DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strabo = 84            !! Index for free DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strabo = 85            !! Index for free DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strabo = 86            !! Index for free DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strabo = 87            !! Index for free DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strabo = 88            !! Index for free DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strabo = 89           !! Index for free DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strabo = 90           !! Index for free DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strabo = 91             !! Index for adsorbed DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strabo = 92             !! Index for adsorbed DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strabo = 93             !! Index for adsorbed DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strabo = 94             !! Index for adsorbed DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strabo = 95             !! Index for adsorbed DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strabo = 96             !! Index for adsorbed DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strabo = 97             !! Index for adsorbed DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strabo = 98             !! Index for adsorbed DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strabo = 99             !! Index for adsorbed DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strabo = 100           !! Index for adsorbed DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strabo = 101           !! Index for adsorbed DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_metbel = 102            !! Index for free DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_metbel = 103            !! Index for free DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_metbel = 104            !! Index for free DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_metbel = 105            !! Index for free DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_metbel = 106            !! Index for free DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_metbel = 107            !! Index for free DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_metbel = 108            !! Index for free DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_metbel = 109            !! Index for free DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_metbel = 110            !! Index for free DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_metbel = 111           !! Index for free DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_metbel = 112           !! Index for free DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_metbel = 113             !! Index for adsorbed DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_metbel = 114             !! Index for adsorbed DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_metbel = 115             !! Index for adsorbed DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_metbel = 116             !! Index for adsorbed DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_metbel = 117             !! Index for adsorbed DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_metbel = 118             !! Index for adsorbed DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_metbel = 119             !! Index for adsorbed DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_metbel = 120             !! Index for adsorbed DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_metbel = 121             !! Index for adsorbed DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_metbel = 122           !! Index for adsorbed DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_metbel = 123           !! Index for adsorbed DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_strbel = 124            !! Index for free DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_strbel = 125            !! Index for free DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_strbel = 126            !! Index for free DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_strbel = 127            !! Index for free DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_strbel = 128            !! Index for free DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_strbel = 129            !! Index for free DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_strbel = 130            !! Index for free DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_strbel = 131            !! Index for free DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_strbel = 132            !! Index for free DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_strbel = 133           !! Index for free DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_strbel = 134           !! Index for free DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_strbel = 135             !! Index for adsorbed DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_strbel = 136             !! Index for adsorbed DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_strbel = 137             !! Index for adsorbed DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_strbel = 138             !! Index for adsorbed DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_strbel = 139             !! Index for adsorbed DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_strbel = 140             !! Index for adsorbed DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_strbel = 141             !! Index for adsorbed DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_strbel = 142             !! Index for adsorbed DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_strbel = 143             !! Index for adsorbed DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_strbel = 144           !! Index for adsorbed DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_strbel = 145           !! Index for adsorbed DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_act = 146            !! Index for free DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_act = 147            !! Index for free DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_act = 148            !! Index for free DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_act = 149            !! Index for free DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_act = 150            !! Index for free DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_act = 151            !! Index for free DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_act = 152            !! Index for free DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_act = 153            !! Index for free DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_act = 154            !! Index for free DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_act = 155           !! Index for free DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_act = 156           !! Index for free DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_act = 157             !! Index for adsorbed DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_act = 158             !! Index for adsorbed DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_act = 159             !! Index for adsorbed DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_act = 160             !! Index for adsorbed DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_act = 161             !! Index for adsorbed DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_act = 162             !! Index for adsorbed DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_act = 163             !! Index for adsorbed DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_act = 164             !! Index for adsorbed DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_act = 165             !! Index for adsorbed DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_act = 166           !! Index for adsorbed DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_act = 167           !! Index for adsorbed DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_slo = 168            !! Index for free DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_slo = 169            !! Index for free DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_slo = 170            !! Index for free DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_slo = 171            !! Index for free DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_slo = 172            !! Index for free DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_slo = 173            !! Index for free DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_slo = 174            !! Index for free DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_slo = 175            !! Index for free DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_slo = 176            !! Index for free DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_slo = 177           !! Index for free DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_slo = 178           !! Index for free DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_slo = 179             !! Index for adsorbed DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_slo = 180             !! Index for adsorbed DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_slo = 181             !! Index for adsorbed DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_slo = 182             !! Index for adsorbed DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_slo = 183             !! Index for adsorbed DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_slo = 184             !! Index for adsorbed DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_slo = 185             !! Index for adsorbed DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_slo = 186             !! Index for adsorbed DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_slo = 187             !! Index for adsorbed DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_slo = 188           !! Index for adsorbed DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_slo = 189           !! Index for adsorbed DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z1_pas = 190            !! Index for free DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z2_pas = 191            !! Index for free DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z3_pas = 192            !! Index for free DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z4_pas = 193            !! Index for free DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z5_pas = 194            !! Index for free DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z6_pas = 195            !! Index for free DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z7_pas = 196            !! Index for free DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z8_pas = 197            !! Index for free DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z9_pas = 198            !! Index for free DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z10_pas = 199           !! Index for free DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifreedoc_pool_z11_pas = 200           !! Index for free DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z1_pas = 201             !! Index for adsorbed DOC at 1st layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z2_pas = 202             !! Index for adsorbed DOC at 2nd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z3_pas = 203             !! Index for adsorbed DOC at 3rd layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z4_pas = 204             !! Index for adsorbed DOC at 4th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z5_pas = 205             !! Index for adsorbed DOC at 5th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z6_pas = 206             !! Index for adsorbed DOC at 6th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z7_pas = 207             !! Index for adsorbed DOC at 7th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z8_pas = 208             !! Index for adsorbed DOC at 8th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z9_pas = 209             !! Index for adsorbed DOC at 9th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z10_pas = 210           !! Index for adsorbed DOC at 10th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: iadsdoc_pool_z11_pas = 211           !! Index for adsorbed DOC at 11th layer (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), SAVE      :: sro_bottom = 5                        !! Layer down to which DOC for surface runoff is taken (max=10)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ih2o = 1        !! index for water (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: idocl = 2       !! index for dissolved labile organic carbon (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: idocr = 3       !! index for dissolved refractory organic carbon (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ico2aq = 4      !! index for free dissolved carbon dioxide (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nflow = 4       !! number of compounds transported with water flows (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifastr = 1       !! index for fast reservoir (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: islowr = 2       !! index for slow reservoir (unitless)  
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: istreamr = 3     !! index for stream reservoir (unitless)  
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ifloodr = 4      !! index for flood reservoir (unitless) 
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: ipondr = 5       !! index for pond reservoir (unitless)  
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: naqsys = 5      !! number of aquatic systems considered (unitless) 
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), SAVE :: forcing_id                 !! Index of the forcing file (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), PARAMETER :: nsnow=3                  !! Number of levels in the snow for explicit snow scheme   
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), SAVE :: nlai = 20             !! Number of LAI levels (unitless)
.config/ppsrc/parameters/constantes_var.f90:  INTEGER(i_std), SAVE :: veget_year_orig = 0        !!  first year for landuse (number)
.config/ppsrc/parameters/constantes_mtc.f90:  INTEGER(i_std), PARAMETER :: nvmc = 13                         !! Number of MTCS fixed in the code (unitless)
.config/ppsrc/parameters/constantes_mtc.f90:  INTEGER(i_std),PARAMETER, DIMENSION(nvmc) :: leaf_tab_mtc  =  &                 !! leaf type (1-4, unitless)
.config/ppsrc/parameters/constantes_mtc.f90:  INTEGER(i_std), PARAMETER, DIMENSION(nvmc) :: pref_soil_veg_mtc  =  &       !! The soil tile number for each vegetation
.config/ppsrc/parameters/constantes_mtc.f90:  INTEGER(i_std), PARAMETER, DIMENSION(nvmc) :: pheno_type_mtc  =  &     !! type of phenology (0-4, unitless)
.config/ppsrc/parameters/constantes_soil.f90:     INTEGER(i_std), PARAMETER      :: error_level = 3         !! Switch to 2 to turn fatal errors into warnings.(1-3, unitless)
.config/ppsrc/parameters/vertical_soil_var.f90:  INTEGER(i_std), SAVE      :: ngrnd     !! Number of soil layer for thermo (unitless)
.config/ppsrc/parameters/vertical_soil_var.f90:  INTEGER(i_std), SAVE      :: nbdl      !! Number of diagnostic layers in the soil, not needed in CWRR (unitless)
.config/ppsrc/parameters/vertical_soil_var.f90:  INTEGER(i_std), SAVE      :: nslm      !! Number of levels in CWRR (unitless)
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: ntext=3                  !! Number of soil textures (Silt, Sand, Clay)
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nstm=3                   !! Number of soil tiles (unitless)
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nscm_fao=3               !! For FAO Classification (unitless)
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nscm_usda=12             !! For USDA Classification (unitless)
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), SAVE      :: nscm=nscm_fao            !! Default value for nscm
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: imin = 1                                 !! Start for CWRR linearisation (unitless)
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: nbint = 50                               !! Number of interval for CWRR linearisation (unitless)
.config/ppsrc/parameters/constantes_soil_var.f90:  INTEGER(i_std), PARAMETER :: imax = nbint+1                           !! Number of points for CWRR linearisation (unitless)
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(inout)                   :: var                  !! Integer scalar to modify
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Initial value to stored
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: val_tmp
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                  !! 1D integer array to modify
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: val_tmp
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                 !! 1D integer array to modify
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put             !! 1D integer array to stored
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: val_tmp
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put              !! 1D integer array to stored
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                 !! 2D integer array to modify
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(in)      :: val_put             !! 2D integer array to stored
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)     :: val_tmp
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io.f90:  INTEGER(i_std)                              :: is_key
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std)                                           :: ji, iv, jj,m,jv
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std) :: locjj
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
.config/ppsrc/sechiba/explicitsnow.f90:      INTEGER(i_std),INTENT(in)                                  :: kjpindex         !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:      INTEGER(i_std) :: ji,jj
.config/ppsrc/sechiba/explicitsnow.f90:         INTEGER(i_std),INTENT(in)                                 :: kjpindex         !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:         INTEGER(i_std)                                            :: ji,jj
.config/ppsrc/sechiba/explicitsnow.f90:     INTEGER(i_std),INTENT(in)                                           :: kjpindex         !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:     INTEGER(i_std),DIMENSION(nsnow,2)                                   :: locflag
.config/ppsrc/sechiba/explicitsnow.f90:     INTEGER(i_std)                                                      :: ji,jj,jjj
.config/ppsrc/sechiba/explicitsnow.f90:       INTEGER(i_std),INTENT(in)                              :: kjpindex            !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:       INTEGER(i_std)                                         :: ji,jj
.config/ppsrc/sechiba/explicitsnow.f90:     INTEGER(i_std), INTENT(in)                                 :: kjpindex     !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:     INTEGER(i_std)                                             :: ji,jj
.config/ppsrc/sechiba/explicitsnow.f90:      INTEGER(i_std), INTENT (in)                             :: kjpindex     !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:      INTEGER(i_std)                                          :: jj,ji, iv
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                                     :: kjpindex     !! Domain size
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std)                                                 :: il,it,ji
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std)                                                 :: i,j, ix
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex     !! Domain size (unitless)
.config/ppsrc/sechiba/explicitsnow.f90:    INTEGER(i_std)                                           :: ji, jg
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjit             !! Time step number 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjpindex         !! Domain size
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                       :: rest_id          !! _Restart_ file identifier
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in) :: index            !! Indeces of the points on the map
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in):: neighbours       !! neighoring grid points if land
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjit             !! Time step number 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjpindex         !! Domain size
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                       :: rest_id          !! _Restart_ file identifier
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                       :: hist_id          !! _History_ file identifier
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), OPTIONAL, INTENT (in)            :: hist2_id          !! _History_ file 2 identifier
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in) :: index            !! Indeces of the points on the map
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in):: neighbours       !! neighoring grid points if land
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                  :: kjit             !! Time step number 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                  :: kjpindex         !! Domain size
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std),INTENT (in)                  :: rest_id          !! Restart file identifier
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex         !! Domain size - Number of land pixels  (unitless) 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                      :: ji, jv           !! Indeces
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex        !! Domain size - Number of land pixels  (unitless)
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                      :: ji, jv, jb,iv   !! indices (unitless)
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Number of points for which the data needs to be 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                :: nbvmax                !! nbvmax for interpolation (unitless). It is the 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                :: iml, jml, lml, &
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                :: itau(1)               !! Help variables to read in file data
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Help variable to read file data and allocate memory
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask                  !! Help variable to read file data and allocate memory
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Number of points for which the data needs to be 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                :: nbvmax                !! nbvmax for interpolation (unitless). It is the 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                :: iml, jml, lml, tml    !! Indices
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                :: fid, ib, ip, jp, fopt !! Indices
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                :: ilf, ks, it           !! Indices
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Help variable to read file data and allocate memory
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size - Number of land pixels  (unitless) 
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                      :: jv            !! Loop index over PFTs (unitless)
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size - Number of land pixels  (unitless)
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                      :: jv            !! Loop index over PFTs (unitless)
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std), INTENT(in)                       :: kjpindex       !! Domain size - Number of land pixels  (unitless)
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                   :: ks             !! Index for visible and near-infraread range
.config/ppsrc/sechiba/condveg.f90:    INTEGER(i_std)                                   :: jv             !! Index for vegetative PFTs
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Current time step number (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indices of the land grid points on the map 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                              :: kjit             !! Current time step number (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                              :: kjpindex         !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                              :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                              :: hist2_id         !! Second _history_ file identifier (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)        :: index            !! Indices of the land grid points on the map 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in)    :: indexveg         !! Indices of the PFT tiles / soil columns on 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                          :: ji,jv            !! Grid-cell and PFT indices (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                           :: kjit             !! Current time step number (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex         !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id          !! Restart file identifier 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: kjit                !! Current time step number (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: kjpindex            !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index               !! Indices of the land grid points on the map 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: rest_id             !! _Restart_ file identifier (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ier                 !! To receive error flag during allocation
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ji,jv,ik            !! Indices for grid-cells, PFTs, and grid-cells 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex      !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                     :: ji,jv, jd     !! Indices for grid-cells, PFTs and diagnostic levels in 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex        !! Domain size  (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                           :: ji, jv          !! indices (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex           !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ji, jv             !! Grid-cell and PFT indices (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex   !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                :: ji,jv                 !!  Grid-cell and PFT indices (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                          :: ji, jst, jv       !! indices
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex       !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: ji,jv, jd      !! Indices for grid-cells, PFTs and diagnostic levels in
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), PARAMETER                           :: nitermax = 100 !! Maximum number of iterations to dsg > dsp after 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: niter          !! Counter of iterations to solve dsg > dsp after 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: nbad           !! Number of negative total soil moisture cases 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                            :: kjpindex       !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                         :: ji, jv, jn
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                            :: kjpindex       !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: index          !! Indices of the points on the map
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                         :: ji, jv, jn     !!  Grid-cell, PFT and "nobio" fraction indices 
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex    !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index       !! Indices of the points on the map (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: ji          !! Grid-cell indices (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex    !! Domain size (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index       !! Indices of the points on the map (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                      :: ji          !! Grid-cell indices (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std), INTENT (in)                          :: kjpindex         !! Domain size  (number of grid cells) (unitless)
.config/ppsrc/sechiba/hydrolc.f90:    INTEGER(i_std)                                       :: ji,jv            !! Indices for grid-cells and PFTs (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! _Restart_ file identifier (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex,8),INTENT (in)  :: neighbours       !! Vector of neighbours for each 
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: hist_id          !! _History_ file identifier (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: hist2_id         !! _History_ file 2 identifier (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index          !! Indeces of the points on the map (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex*(nlai+1)), INTENT (in) :: indexlai  !! Indeces of the points on the 3D map
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in) :: indexveg       !! Indeces of the points on the 3D map (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),DIMENSION (kjpindex,8),INTENT (in)  :: neighbours         !! Vector of neighbours for each 
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                           :: ilai
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-) 
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! _Restart_ file identifier (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex, kjit   !! Domain size
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                      :: ji, jv
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                       :: ji, jv         !! Indices (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex   !! Domain size
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                           :: ji, jv
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex   !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                       :: ji, jv                               !! (-), (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex       !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                     :: ji, jv
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex   !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                     :: ji, jv
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !! Domain size (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                        :: ji, jv, jl, limit_photo             !! indices (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), DIMENSION(kjpindex)   :: ilai                                !! counter for loops on LAI levels (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                        :: nic,inic,icinic                     !! counter/indices (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), DIMENSION(kjpindex)   :: index_calc                          !! index (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                        :: nia,inia,nina,inina,iainia          !! counter/indices (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), DIMENSION(kjpindex)   :: index_assi,index_non_assi           !! indices (unitless)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex   !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                       :: ji, jv
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std)                                 :: ji           !! (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),INTENT(in)                     :: kjpindex          !! Domain size (-)
.config/ppsrc/sechiba/diffuco.f90:    INTEGER(i_std),INTENT(in)                     :: kjpindex          !! Domain size (-)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                        :: ier, i
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id,hist_id  !! Restart_ file and history file identifier 
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: hist2_id         !! history file 2 identifier (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indeces of the points on the map (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical 
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nbdl), INTENT (in) :: indexnbdl        !! Indeces of the points on the 3D map
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                        :: jv,ji,ii
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier(unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                  :: jg
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                           :: ier, ji, jg       !! Index (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex     !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                         :: ji, jg
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                           :: ji, jg
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex       !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                      :: ji, jd, jg
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex    !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                       :: ji, jd, jg
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)                                 :: ji, jg
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std)  :: ji, jg
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std),INTENT(in)				:: kjpindex
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
.config/ppsrc/sechiba/thermosoilc.f90:      INTEGER(i_std), INTENT(in) :: kjpindex
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std) :: il, ils, ip, ix, iy, imin, jmin, ier
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid
.config/ppsrc/sechiba/thermosoilc.f90:    INTEGER(i_std) :: itau(1)
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), PARAMETER                                  :: nbasmax=5                   !! The maximum number of basins we wish to have per grid box (truncation of the model) (unitless)
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: nbvmax                      !! The maximum number of basins we can handle at any time during the generation of the maps (unitless)
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: diagunit = 87               !! Diagnostic file unit (unitless)
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: nstep_FCO2 = 240            !! Segmentation steps per day used
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: num_largest                 !! Number of largest river basins which should be treated as independently as rivers
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_loc            !! Grid into which the basin flows 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_loc           !! Basin in to which the water goes 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_loc         !! Number of basin into current one 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_loc          !! ID of basin (unitless)
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_loc               !! Variable to diagnose the hydrographs
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_togrid_glo            !! Grid into which the basin flows 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_tobasin_glo           !! Basin in to which the water goes 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: route_nbintobas_glo         !! Number of basin into current one 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:)  :: global_basinid_glo          !! ID of basin (unitless)
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, ALLOCATABLE, TARGET, DIMENSION(:,:,:):: hydrodiag_glo               !! Variable to diagnose the hydrographs
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_togrid                !! Grid into which the basin flows 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_tobasin               !! Basin in to which the water goes 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: route_nbintobas             !! Number of basin into current one 
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:)              :: global_basinid              !! ID of basin (unitless)
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE, POINTER, DIMENSION(:,:,:)            :: hydrodiag                   !! Variable to diagnose the hydrographs
.config/ppsrc/sechiba/routing.f90:  INTEGER(i_std), SAVE                                       :: floodtemp_lev                !! Temperature level to decide if 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                 :: ig
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist_id              !! Access to history file (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: hist2_id             !! Access to history file 2 (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: index(nbpt)          !! Indices of the points on the map (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: neighbours(nbpt,8)   !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                    :: ig, jv                  !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                    :: iflow                   !! Index (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: kjit                 !! Time step number (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)     :: nbpt                 !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT(in)      :: rest_id              !! Restart file identifier (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                 :: iflow                !! Index (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: kjit           !! Time step number (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: nbpt           !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION (nbpt), INTENT(in) :: index          !! Indices of the points on the map (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: rest_id        !! Restart file identifier (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: iflow, ier, ig, ib, ipn(1) !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)        :: nbpt                      !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8)                 :: igrd                      !! 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(2)                 :: ff                        !! 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(1)                 :: fi                        !! 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: ig, ib, ib2, ig2          !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: rtg, rtb, in              !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: ier                       !! Error handling 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: iflow, istep_FCO2         !! Indices (unitless) 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                      :: nbpt         !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: ig, iflow    !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)      :: nbpt               !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)      :: index(nbpt)        !! Indices of the points on the map (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT (in)      :: hist_id            !! Access to history file (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),INTENT (in)      :: hist2_id           !! Access to history file 2 (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: nbpt                !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: l_index(nbpt)       !! Indices of the points on the map (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nbasmax)      :: outids              !! IDs of river to which this basin contributes (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: pts                 !! List the points belonging to the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: ptbas               !! List the basin number for this point (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: outpt               !! Outflow point for each basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: nb_pts              !! Number of points in the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: topids              !! The IDs of the first num_largest basins (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_nb         !! Number of streams in basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_avehops    !! Average number of hops in streams (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_minhops    !! Minimum number of hops in streams (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: streams_maxhops    !! Minimum number of hops in streams (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: lrivercode         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: ig, ib, og, ob, ign, ibn, ff(1), ic, icc, nb_small, idbas, slen, ii !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: ier                !! Error handling
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: name_found         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sortedrivs         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: longest_river       !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: nbmax               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)  :: allstreams          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)    :: tstreams, tslen, tpts, tptbas, tcode !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: ip             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                   :: ls             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpts           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tpbas          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(in)    :: tslen          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip,ls), INTENT(in) :: allstreams     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(ip), INTENT(out)   :: streamcode     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: ilev, cntsubbas, ib, ic, i, it, ilevmax, imaxlen, nbzero !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: tstreamcode(ip)!!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: indsubbas(ip)  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: iw(ip)         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: tdiff(ip)      !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: tmpjunc(4)     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: junction(4)    !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: ff(1)          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                               :: ll             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: nbpt                     !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: nb_pts                   !! Number of points in the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: topids                   !! The IDs of the first num_largest basins (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: sortedrivs               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lbasin_index             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest,nbpt) :: lrivercode               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest,2)    :: outpt                    !! Outflow point for each basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_nb               !! Number of streams in basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_avehops          !! Average number of hops in streams (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_minhops          !! Minimum number of hops in streams (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(num_largest)      :: streams_maxhops          !! Minimum number of hops in streams (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: icc, fid, iret, ierr_tot, ib, ij, ik, i, j, lcc !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: nlonid, nlatid, varid, varid2, varid3
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: dims(2)                  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: basincode(iim_g,jjm_g)   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),PARAMETER                    :: kind_r_diag=NF90_REAL8   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std),PARAMETER                    :: kind_i_diag=NF90_INT     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in) :: nbpt                          !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in) :: neighbours(nbpt,8)            !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/routing.f90:!    INTEGER(i_std)    :: neighbours_tmp(nbpt,8)
.config/ppsrc/sechiba/routing.f90:!    INTEGER(i_std) :: i,j
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                    :: nbpt                  !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                    :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: iml, jml, lml, tml, fid, ib, ip, jp, fopt !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: itau(1)               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: nbi, nbj              !! Number of point in x and y within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: trip_bx               !! The trip field for each of the smaller boxes (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_bx              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: coast_pts             !! The coastal flow points (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_count           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_id              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: basin_flowdir         !! Water flow directions in the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_grid          !! Type of outflow on the grid box (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: outflow_basin         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: inflow_number         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_basin          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: inflow_grid           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: nbcoastal             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: coastal_basin         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: nix, njx              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)   :: mask                  !! Mask to exclude some points (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index             !! Indices of the points we need on the fine grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: sub_pts               !! Number of high resolution points on this grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: nb_basin              !! Number of sub-basins (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                :: nwbas                 !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_inbxid          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_sz              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)     :: basin_bxout           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: basin_pts             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(2)                  :: diagbox = (/ 1, 2 /)  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: nbpt                        !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: iml                         !! X resolution of the high resolution grid
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: jml                         !! Y resolution of the high resolution grid
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: ib                          !! Current basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: sub_pts(nbpt)               !! Number of high resolution points on this grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)  :: sub_index(nbpt,nbvmax,2)    !! Indices of the points we need on the fine grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out) :: nbi, nbj                    !! Number of point in x and y within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out) :: trip_bx(nbvmax,nbvmax)      !! The trip field for each of the smaller boxes (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out) :: basin_bx(nbvmax,nbvmax)     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)              :: ip, jp, ll(1), iloc, jloc   !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)   :: nb_in             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)  :: nb_out            !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)               :: ipos              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(1) :: ll                !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)               :: ind(nb_in)        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)    :: nbi                          !! Number of point in x within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)    :: nbj                          !! Number of point in y within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(inout) :: trip(:,:)                    !! The trip field (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(inout) :: basin(:,:)                   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: nb_basin                     !! Number of sub-basins (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_inbxid(nbvmax)         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_sz(nbvmax)             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_bxout(nbvmax)          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: basin_pts(nbvmax, nbvmax, 2) !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)   :: coast_pts(nbvmax)            !! The coastal flow points (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: ibas, ilf, nbb, nb_in        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: bname(nbvmax)                !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: sz(nbvmax)                   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: pts(nbvmax,nbvmax,2)         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: nbout(nbvmax)                !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: new_nb                       !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: new_bname(nbvmax)            !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: new_sz(nbvmax)               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: new_pts(nbvmax,nbvmax,2)     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: itrans                       !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: trans(nbvmax)                !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: outdir(nbvmax)               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: tmpsz(nbvmax)                !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: ip, jp, jpp(1), ipb          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                :: sortind(nbvmax)              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: nbi                        !! Number of point in x within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: nbj                        !! Number of point in y within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: trip(:,:)                  !! The trip field (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: basin(:,:)                 !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: basin_inbxid               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: ip, jp, nbout, basin_sz, iborder !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp                   !! Temporary trip field which only contains the values for the basin on which we currently work (1)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow                  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow                    !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                      !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)             :: inc                        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: itodo, ill(1), icc, ismall, ibas, iip, jjp, ib, id !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: todopt                     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: nbi, nbj             !! Number of point in x and y within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: nbbasins             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: basin_inbxid         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(inout)              :: trip(:,:)            !! The trip field (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(inout)              :: basin(:,:)           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: nb                   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: bname(nbvmax)        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: sz(nbvmax)           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                :: pts(nbvmax,nbvmax,2) !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: ip, jp, iip, jjp, ib, ibb, id, nbout !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: basin_sz             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: nb_in                !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_tmp             !! Temporary trip field which only contains the values for the basin on which we currently work (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: trip_flow            !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,2)        :: outflow              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: outsz                !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)             :: inc                  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                  :: iml          !! X resolution of the high resolution grid
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                  :: jml          !! Y resolution of the high resolution grid
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)  :: inc          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                  :: ip, jp, ib, ntripi, ntripj, cnt, trp !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                          :: nbi       !! Number of point in x within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                          :: nbj       !! Number of point in y within the grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)                :: trip      !! The trip field (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                          :: basin_sz  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                          :: basinid   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,2), INTENT(out)        :: outflow   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2), INTENT(out) :: trip_flow !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(out)                             :: nbout     !! 
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax), INTENT(out)          :: outsz     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(8,2)                          :: inc       !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                          :: ip, jp, ib, cnt, trp, totsz !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT (in)                :: nbpt                   !! Domain size (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT (in)                :: ib                     !! Current basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                 :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax)   :: trip_bx                !! The trip field for each of the smaller boxes (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: nb_basin               !! Number of sub-basins (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_inbxid, basin_sz !! ID of basin, number of points in the basin
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax,nbvmax,2) :: basin_pts              !! Points in each basin
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbvmax)          :: basin_bxout            !! outflow direction
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: coast_pts(nbvmax)      !! The coastal flow points (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: nwbas                  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)            :: basin_count            !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_id               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: basin_flowdir          !! Water flow directions in the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: outflow_grid           !! Type of outflow on the grid box (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)            :: nbcoastal              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)      :: coastal_basin          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                             :: ij, iz                 !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT (in)                    :: nbpt                  !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,8), INTENT (in) :: neighbours            !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: nwbas                 !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)                :: basin_count           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_id              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: basin_flowdir         !! Water flow directions in the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_grid          !! Type of outflow on the grid box (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: outflow_basin         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: inflow_number         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_basin          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nbvmax)   :: inflow_grid           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)                :: nbcoastal             !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)          :: coastal_basin         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: sp, sb, sbl, inp, bid, outdm1, outdp1 !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: dp1, dm1, dm1i, dp1i, bp1, bm1 !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: dop, bop              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: fbas(nwbas), nbfbas   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: ff(1)                 !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                           :: nbpt          !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                       :: nwbas         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt), INTENT(in)          :: basin_count   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: basin_id      !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(inout) :: outflow_grid  !! Type of outflow on the grid box (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in)    :: outflow_basin !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                        :: ib, ij, ff(1), it, itt, igrif, ibasf, nboutflow !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt*nbvmax,2)              :: tmpindex     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                       :: pickmax = 200  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: nbpt           !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: nwbas          !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)                 :: basin_count    !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_id       !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: basin_flowdir  !! Water flow directions in the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_grid   !! Type of outflow on the grid box (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: outflow_basin  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)           :: inflow_number  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_basin   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas)     :: inflow_grid    !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: ib, ij, ibf, ijf, igrif, ibasf, cnt, pold, bold, ff(2) !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: ii, kbas, sbas, ik, iter, ibt, obj !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax,2)            :: largest_basins !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax)              :: tmp_ids        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: multbas        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: iml(1)         !! X resolution of the high resolution grid
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax)              :: multbas_sz     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(pickmax,pickmax)      :: multbas_list   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                  :: nbtruncate     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), SAVE, ALLOCATABLE, DIMENSION(:) :: indextrunc     !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: tokill        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: totakeover    !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: nbpt          !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: ib            !! Current basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: nwbas         !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt)             :: basin_count   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_id      !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: basin_flowdir !! Water flow directions in the basin (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_grid  !! Type of outflow on the grid box (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: outflow_basin !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas)       :: inflow_number !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_basin  !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), DIMENSION(nbpt,nwbas,nwbas) :: inflow_grid   !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                              :: inf, ibs, ing, inb, ibasf, igrif, it !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)             :: numlar              !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER              :: listleng=349        !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                         :: lenstr, i           !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: ilake = 1             !! Number of type of lakes area (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: idam = 2              !! Number of type of dams area (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: iflood = 3            !! Number of type of floodplains area (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: iswamp = 4            !! Number of type of swamps area (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: isal = 5              !! Number of type of salines area (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: ipond = 6             !! Number of type of ponds area (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), PARAMETER                      :: ntype = 6             !! Number of types of flooded surfaces (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: nbpt                  !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: index(nbpt)           !! Index on the global map.
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: hist_id               !! Access to history file (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in)                     :: hist2_id              !! Access to history file 2 (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: nbpmax, nix, njx, fopt!! Idices, (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)    :: mask                  !! Mask to exclude some points (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: irrsub_index          !! Indices of the points we need on the fine grid (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: iml, jml, lml, tml, fid, ib, ip, jp, itype !! Indices (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)                                 :: itau(1)               !!
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std), INTENT(in) :: nbpt                       !! Domain size  (unitless)
.config/ppsrc/sechiba/routing.f90:    INTEGER(i_std)             :: ig, iflow            !! 
.config/ppsrc/sechiba/hydrol.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_veget       !! zero/one when veget fraction is zero/higher (1)
.config/ppsrc/sechiba/hydrol.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:,:) :: mask_soiltile    !! zero/one where soil tile is zero/higher (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! Restart file identifier
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                         :: hist2_id         !! _history_ file 2 identifier
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg        !! Indeces of the points on the 3D map for veg
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nstm), INTENT (in):: indexsoil      !! Indeces of the points on the 3D map for soil
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexlayer     !! Indeces of the points on the 3D map for soil layers
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex*nslm), INTENT (in):: indexnbdl      !! Indeces of the points on the 3D map for of diagnostic soil layers
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jst              !! Index of soil tiles (unitless, 1-3)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsl              !! Index of soil layers (unitless)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ji, jv
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: itopmax          !! Indicating the layer corresponding to 0.1m depth
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), DIMENSION(kjpindex*imax)           :: mc_lin_axis_index
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex       !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                       :: jst, jsl
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ier                   !! Error code
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ji                    !! Index of land grid cells (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jv                    !! Index of PFTs (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jst                   !! Index of soil tiles (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsl                   !! Index of soil layers (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsc                   !! Index of soil texture (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), PARAMETER                          :: error_level = 3       !! Error level for consistency check
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                           :: ji, jv, jst,jsl
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex      !! Domain size (number of grid cells) (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc          !! Index of the dominant soil textural class 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                      :: ji, jv        !! Grid-cell and PFT indices (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                      :: jst, jsc, jsl !! Soiltile, Soil Texture, and Soil layer indices (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                      :: i, jd         !! Index (1)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), PARAMETER                           :: error_level = 3 !! Error level for consistency check
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                      :: jiref           !! To identify the mc_lins where k_lin and d_lin 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                               :: ji, jv
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex    !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                           :: ji, jv
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                 :: ji,jv,jst
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex         !!
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                           :: ji, jv           !! Indices
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc             !! Index of the dominant soil textural class 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                 :: ji, jv, jsl, jst           !! indices
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex        !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: ins
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                :: ji, jsl             !! Indices
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: ins             !! Soiltile index (1-nstm, unitless)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: njsc            !! Index of the dominant soil textural class in grid cell 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                       :: ji,jsl
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: ins             !! index of soil type
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: jsl,ji
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex        !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                         :: ins             !! number of soil type
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                     :: ji,jsl
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex         !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: ins              !! Index of soil type
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)  :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                    :: jsl,ji,i
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex          !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                        :: ins               !! index of soil type
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std) :: jsl,ji
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                :: ji, jv, jsl, jst
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: njsc            !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std)                                           :: ji, jv, jsl, jst, i, jd
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                          :: kjpindex     !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std) :: ji
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std) :: ji
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT (in)                        :: kjpindex     !! Domain size
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index        !! Indeces of the points on the map
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std) :: ji
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex 
.config/ppsrc/sechiba/hydrol.f90:    INTEGER(i_std) :: jd, jh
.config/ppsrc/sechiba/thermosoil.f90:  INTEGER(i_std), SAVE                            :: brk_flag = 0             !! Flag to consider bedrock: 0.no; 1.yes
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)                                        :: ier, i, jg
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id,hist_id  !! Restart_ file and history file identifier 
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: hist2_id         !! history file 2 identifier (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: index            !! Indeces of the points on the map (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical 
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: njsc             !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)                                        :: jv,ji,ii
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjit             !! Time step number (unitless) 
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex         !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),INTENT (in)                            :: rest_id          !! Restart file identifier(unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex     !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: njsc         !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)                                         :: ji, jg
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)                                           :: ji, jg
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                                 :: kjpindex      !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), DIMENSION (kjpindex), INTENT (in)          :: njsc          !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)                                             :: ji, jg, jst
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                            :: kjpindex       !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)                                       :: ji, jd
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                     :: kjpindex     !! Domain size (unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)                                 :: ji, jg
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)  :: ji, jg
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std)  :: lev3m  !! Closest interface level to 3m
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),INTENT(in)				:: kjpindex
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc       !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/thermosoil.f90:      INTEGER(i_std), INTENT(in) :: kjpindex
.config/ppsrc/sechiba/thermosoil.f90:      INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: njsc     !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/thermosoil.f90:      INTEGER(i_std)    				  :: ji,jg, jst     !! Index
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std), INTENT(in) :: kjpindex
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std) :: il, ils, ip, ix, iy, imin, jmin, ier
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid
.config/ppsrc/sechiba/thermosoil.f90:    INTEGER(i_std) :: itau(1)
.config/ppsrc/sechiba/slowproc.f90:  INTEGER(i_std) , SAVE                              :: veget_update        !! update frequency in years for landuse (nb of years)
.config/ppsrc/sechiba/slowproc.f90:  INTEGER(i_std), SAVE                               :: lcanop              !! canopy levels used for LAI
.config/ppsrc/sechiba/slowproc.f90:  INTEGER(i_std) , SAVE                              :: veget_year          !! year for vegetation update
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjit                !! Time step number
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpij               !! Total size of the un-compressed grid
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: kjpindex            !! Domain size - terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id             !! Restart file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id_stom        !! STOMATE's _Restart_ file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: hist_id_stom        !! STOMATE's _history_ file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: hist_id_stom_IPCC   !! STOMATE's IPCC _history_ file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: IndexLand           !! Indices of the points on the land map
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg            !! Indices of the points on the vegetation (3D map ???) 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)  :: neighbours          !! neighoring grid points if land.
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(out)       :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                     :: j, jv                !! indices 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjit                !! Time step number
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpij               !! Total size of the un-compressed grid
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: kjpindex            !! Domain size - terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id,hist_id     !! _Restart_ file and _history_ file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: hist2_id            !! _history_ file 2 identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: rest_id_stom        !! STOMATE's _Restart_ file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                          :: hist_id_stom        !! STOMATE's _history_ file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                           :: hist_id_stom_IPCC   !! STOMATE's IPCC _history_ file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: IndexLand           !! Indices of the points on the land map
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in):: indexveg            !! Indices of the points on the vegetation (3D map ???) 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)  :: neighbours          !! neighoring grid points if land. In what ??? indices or geographical coordinates (lat/lon) ??? 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(inout)       :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                     :: j, jv, ji            !! indices 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: kjit           !! Time step number
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in)                            :: kjpindex       !! Domain size - terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id        !! Restart file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: IndexLand      !! Indices of the points on the land map
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(in)      :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                           :: kjit           !! Time step number
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                           :: kjpindex       !! Domain size - Terrestrial pixels only 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                           :: rest_id        !! Restart file identifier
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: IndexLand      !! Indices of the land points on the map
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)    :: neighbours     !! Vector of neighbours for each grid point 1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                           :: lcanop         !! Number of Canopy level used to compute LAI
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                           :: veget_update   !! update frequency in timesteps (years) for landuse
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                           :: veget_year     !! first year for landuse   (year or index ???)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(kjpindex), INTENT(out)      :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                        :: vtmp(1)           !! temporary variable
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                        :: j,l, jf           !! Indices
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                        :: ji, jv, ier,jst   !! Indices 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT (in)                                :: kjpindex       !! Domain size - terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                              :: ji, jv         !! Local indices
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: npts     !! Domain size- terrestrial pixels only 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: n_dim2   !! Number of PFTs 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                                 :: npts        !! Domain size- terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                                 :: n_dim2      !! Second dimension of the fields, which represents the number of PFTs
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                             :: kjpindex    !! Domain size - terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                         :: ji, jv, jst !! indices 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex   !! Domain size - terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: lcanop     !! soil level used for LAI
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                          :: mm, dd     !! Number of the month in the year and number of day of the month 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                      :: ji,jv      !! Local indices 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: nbpt                  !! Number of points for which the data needs to be interpolated
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)         :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point 1=N, 2=NE, 3=E, 4=SE, 5=S, 6=SW, 7=W, 8=NW) 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, it, jj, jv
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index !! the indexes from the grid boxes from the data that go into the 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: nix, njx
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: idi, nbvmax                               !! nbvmax : number of maximum vegetation map
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                             :: nbpt            !! Number of points for which the data needs 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(nbpt,8), INTENT(in)         :: neighbours       !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)         :: veget_year            !! first year for landuse (0 == NO TIME AXIS)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, inobio, jv
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: nb_coord,nb_var, nb_gat,nb_dim
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:)  :: itau
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: idi, nbvmax
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: nbpt                  !! Number of points for which the data needs to be interpolated
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: neighbours(nbpt,8)    !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), PARAMETER  :: nolson = 94                    !! Number of Olson classes
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, vid
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),ALLOCATABLE, DIMENSION(:,:) :: sub_index
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: idi, jv, inear, nbvmax, nix, njx
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                   :: iml             !! size of the vector
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(out)                  :: inear           !! location of the grid point from the 5km vegmap grid
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                               :: i
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), DIMENSION(1)                 :: ineartab
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)    :: nbpt                   !! Number of points for which the data needs to be interpolated
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)    :: neighbours(nbpt,8)     !! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)               :: nbvmax
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, ilf, nbexp
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: fopt                                  !! Nb of pts from the texture map within one ORCHIDEE grid-cell
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: itautmp(1)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:)  :: sub_index !! to associate the coordinates of the texture 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: solt       !! Texture the different points from the input texture map 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: solt2      !! Unused
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: nix, njx
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), PARAMETER :: nzobler = 7                !! Nb of texture classes according in the Zobler map
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: nbpt                  ! Number of points for which the data needs to be interpolated
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)          :: neighbours(nbpt,8)    ! Vector of neighbours for each grid point 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)    :: iml, jml, lml, tml, fid, ib, ip, jp, vid
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)    :: idi, idi_last, nbvmax
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: mask
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:,:) :: sub_index
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: nix, njx
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nolson94 = 94                       !! Number of Olson vegetation types (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nvm13 = 13                          !! Number of PFTS of ORCHIDEE (unitless) 
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in) :: nolson                             !! Number of Olson vegetation types (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: ib                                            !! Indice (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nbtypes_zobler = 7                    !! Number of Zobler types (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in) :: nzobler                              !! Size of the array (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: ib                                              !! Indice (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),INTENT(in) :: nusda                               !! Size of the array (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std),PARAMETER :: nbtypes_usda = 12                    !! Number of USDA texture classes (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: n                                              !! Index (unitless)
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                      :: nbpt       ! Number of points for which the data needs to be interpolated
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std) :: ji, jn, jv, js
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex      !! Domain size - terrestrial pixels only
.config/ppsrc/sechiba/slowproc.f90:    INTEGER(i_std)                                       :: ji, jv         !! Loop index
.config/ppsrc/sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: printlev_loc            !! Write level to this module
.config/ppsrc/sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: hist_id, rest_id        !! IDs for history and restart files
.config/ppsrc/sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: hist2_id                !! ID for the second history files (Hi-frequency ?)
.config/ppsrc/sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: hist_id_stom, hist_id_stom_IPCC, rest_id_stom !! Dito for STOMATE
.config/ppsrc/sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: itau_offset  !! This offset is used to phase the 
.config/ppsrc/sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: nb_fields_in=-1   !!  Number of fields to give to the GCM
.config/ppsrc/sechiba/intersurf.f90:  INTEGER(i_std), SAVE                               :: nb_fields_out=-1  !!  Number of fields to get from the GCM
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjit            !! Time step number
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: iim, jjm        !! Dimension of input fields
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjpindex        !! Number of continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex          !! Index for continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                       :: i, j, ik
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                       :: ier
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                       :: itau_sechiba
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                              :: kjit            !! Time step number
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                              :: iim, jjm        !! Dimension of input fields
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                              :: kjpindex        !! Number of continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)        :: kindex          !! Index for continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: i, j, ik
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: ier
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: itau_sechiba
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: kjit           !! Time step number
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: iim_glo        !! Dimension of global fields
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: jjm_glo        !! Dimension of global fields
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                             :: kjpindex       !! Number of continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: kindex         !! Index for continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in)      :: zneighbours    !! neighbours
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: i, j, ik
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: ier
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: itau_sechiba
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjit            !! Time step number
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: iim_glo         !! Dimension of global fields
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: jjm_glo         !! Dimension of global fields
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),INTENT (in)                            :: kjpindex        !! Number of continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex          !! Index for continental points
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std),DIMENSION (kjpindex,8), INTENT(in)     :: zneighbours     !! neighbours
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: i, j, ik
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: ier
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std)                                        :: itau_sechiba
.config/ppsrc/sechiba/intersurf.f90:    INTEGER(i_std), INTENT(in)                  :: istp      !! Time step of the restart file
.config/ppsrc/sechiba/qsat_moisture.f90:  INTEGER(i_std),PARAMETER :: max_temp=370           !! Maximum temperature for saturated humidity (K) and also used as 
.config/ppsrc/sechiba/qsat_moisture.f90:  INTEGER(i_std),PARAMETER :: min_temp=100           !! Minimum temperature for saturated humidity (K)
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std),INTENT(in) :: kjpindex                   !! Domain size (unitless)
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std), DIMENSION(kjpindex) :: jt               !! Temporary array stocking the truncated temperatures in Kelvin 
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std)                      :: ji               !! indices (unitless)
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std)                      :: nbad             !! Number of points where the temperature is too high or too low
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std),DIMENSION(1)         :: lo               !! Temporary vector to mark the position of the highest temperature
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std)   :: jt              !! Temporary scalar stocking the truncated temperature in Kelvin 
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std),INTENT(in)                   :: kjpindex       !! Domain size (unitless)
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std),DIMENSION(kjpindex) :: jt                      !! Temporary array stocking the truncated temperatures
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std)                     :: ji                      !! Indice (unitless)
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std)                     :: nbad                    !! Number of points where the temperature is too high or too low
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std)  :: jt                       !! Index (unitless)
.config/ppsrc/sechiba/qsat_moisture.f90:      INTEGER(i_std) :: ji                             !! Indice(unitless)
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), SAVE                             :: printlev_loc   !! local printlev for this module
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexveg       !! indexing array for the 3D fields of vegetation
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlai       !! indexing array for the 3D fields of vegetation
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnobio     !! indexing array for the 3D fields of other surfaces (ice,
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsoil      !! indexing array for the 3D fields of soil types (kjpindex*nstm)
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexgrnd      !! indexing array for the 3D ground heat profiles (kjpindex*ngrnd)
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexlayer     !! indexing array for the 3D fields of soil layers in CWRR (kjpindex*nslm)
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexnbdl      !! indexing array for the 3D fields of diagnostic soil layers (kjpindex*nbdl)
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexalb       !! indexing array for the 2 fields of albedo
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: indexsnow      !! indexing array for the 3D fields snow layers
.config/ppsrc/sechiba/sechiba.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION (:) :: njsc           !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std)                                           :: ji, jv		  !! Index (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id           !! _History_ file identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist2_id          !! _History_ file 2 identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id_stom      !! STOMATE's _Restart_ file identifier 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: hist_id_stom      !! STOMATE's _History_ file identifier 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT(in)                                :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file file 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), DIMENSION (kjpindex,8), INTENT(in)       :: neighbours        !! Neighboring grid points if land!(unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std)                                           :: ji, jv, iflow     !! Index (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjit              !! Time step number (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpij             !! Total size of the un-compressed grid 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex          !! Domain size - terrestrial pixels only 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),INTENT (in)                               :: rest_id           !! _Restart_ file identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)         :: index             !! Indices of the pixels on the map. 
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std)                                          :: ji, jv		  !! Index (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: kjit               !! Time step number (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: kjpij              !! Total size of the un-compressed grid (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                         :: rest_id            !! _Restart_ file identifier (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)    :: index              !! Indeces of the points on the map (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std)                                      :: ier                !! Check errors in memory allocation (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std)                                      :: ji, jv             !! Indeces (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                    :: kjpindex        !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std)                                 :: ji              !! Indices (unitless)
.config/ppsrc/sechiba/sechiba.f90:    INTEGER(i_std), INTENT (in)                       :: kjpindex           !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         :: kjit             !! Time step number (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)   :: index            !! Indeces of the points on the map (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                         :: rest_id          !! Restart file identifier (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                                     :: ier
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                           :: kjit             !! Time step number (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                           :: kjpindex         !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                           :: rest_id,hist_id  !! _Restart_ file and _history_ file identifier (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                           :: hist2_id         !! _history_ file 2 identifier (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)     :: index            !! Indeces of the points on the map (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std),DIMENSION(kjpindex*nvm), INTENT(in)   :: indexveg         !! Indeces of the points on the 3D map
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                                       :: ji,ii,iv
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                        :: kjit             !! Time step number (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                        :: kjpindex         !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std),INTENT (in)                        :: rest_id          !! Restart file identifier (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                                     :: ji
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                   :: ji
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                  :: ji
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex      !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                                               :: ji
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                          :: kjpindex          !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                                      :: ji, jv
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                               :: kjpindex       !! Domain size (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std)                                	     :: ji	       !! (-)
.config/ppsrc/sechiba/enerbil.f90:    INTEGER(i_std), INTENT(in)                         		:: kjpindex       !! Domain size (-)
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(inout)                   :: var                  !! Integer scalar to modify
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Initial value to stored
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: val_tmp
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                  !! 1D integer array to modify
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: val_tmp
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(inout)     :: var                 !! 1D integer array to modify
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put             !! 1D integer array to stored
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp_g
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_put              !! Scalar value to stored
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: val_tmp
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                  !! 2D integer array to modify
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp              !! Exceptional value
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:), INTENT(in)        :: val_put              !! 1D integer array to stored
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE,DIMENSION(:)        :: val_tmp
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(inout)   :: var                 !! 2D integer array to modify
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), INTENT(in)                      :: val_exp             !! Exceptional value
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), DIMENSION(:,:), INTENT(in)      :: val_put             !! 2D integer array to stored
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:)     :: val_tmp
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                  :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                                     :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                               :: is_key
.config/ppsrc/sechiba/sechiba_io_p.f90:  INTEGER(i_std)                              :: is_key
.config/ppsrc/sechiba/ioipslctrl.f90:  INTEGER(i_std),PARAMETER         :: max_hist_level = 11     !! 
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(in)                  :: iim, jjm  !! Size in x and y of the data to be handeled
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT (in)                            :: kjpindex
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)      :: kindex
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(in)                  :: istp_old  !! Time step counter
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: hist_id   !! History file identification for SECHIBA
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: hist2_id  !! History file 2 identification for SECHIBA
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: hist_id_stom, hist_id_stom_IPCC 
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_level, hist2_level     !! history output level (default is 10 => maximum output)
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: i, jst
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hori_id                      !! ID of the default horizontal longitude and latitude map.
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: vegax_id, laiax_id, solax_id, soltax_id, nobioax_id !! ID's for two vertical coordinates
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: soildiagax_id                !! ID for diagnostic soil levels
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: solayax_id                   !! ID for the vertical axis of the CWRR hydrology 
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hori_id2                      !! ID of the default horizontal longitude and latitude map.
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: vegax_id2, laiax_id2, solax_id2, soltax_id2, nobioax_id2, albax_id2 !! ID's for two vertical coordinates
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: solayax_id2                   !! ID for the vertical axis of the CWRR hydrology 
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: snowax_id                     !! ID for snow level axis
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_PFTaxis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_solax_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_10axis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_100axis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_11axis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_pool_101axis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)     :: hist_IPCC_PFTaxis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)                         :: ier
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_id_stom
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: nvm
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: iim, jjm
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_hori_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_solax_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_pool_10axis_id,hist_pool_100axis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_pool_11axis_id,hist_pool_101axis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), PARAMETER  :: max_hist_level = 10
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)             :: hist_level
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_id_stom_IPCC
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: nvm
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: iim, jjm
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_hori_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(in)                  :: istp      !! Time step of the restart file
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: rest_id, rest_id_stom   !! ID of the restart file
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std), INTENT(out)                 :: itau_offset
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)              :: itau_dep
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std),PARAMETER    :: llm=1
.config/ppsrc/sechiba/ioipslctrl.f90:    INTEGER(i_std)              :: yy, mm, dd
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)                         :: kjpindex         !! Domain size (unitless) 
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), DIMENSION(kjpindex,8), INTENT (in) :: neighbours       !! Vector of neighbours for each 
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std)                      :: iml, jml, lml, tml, force_id
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std)                      :: ier
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)                                 :: kjpindex         !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)                                 :: kjit             !! Time step number (-) 
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std),INTENT (in)                                 :: hist_id          !! History file identifier (-)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std),INTENT (in)                                 :: hist2_id         !! History file 2 identifier (-)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)           :: index            !! Indeces of the points on the map (-)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std),DIMENSION (kjpindex*(nlai+1)), INTENT (in)  :: indexlai         !! Indeces of the points on the 3D map
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std),DIMENSION (kjpindex*nvm), INTENT (in)       :: indexveg         !! Indeces of the points on the 3D map (-)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std)                             :: ji, jv, jf, jl    !! Indices (unitless)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: nbpt                !! Number of points for which the data needs to be interpolated
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: neighbours(nbpt,8)  !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: nbpt                !! Number of points for which the data needs to be interpolated
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std), INTENT(in)       :: neighbours(nbpt,8)  !! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std) :: iml, jml, lml, tml, fid, ib, ip, jp, ilf, lastjp, nbexp
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std) :: itau(1)
.config/ppsrc/sechiba/chemistry.f90:    INTEGER(i_std) :: ier
.config/ppsrc/sechiba/chemistry.f90:     INTEGER(i_std), SAVE   :: nb_fields_out, nb_fields_in
.config/ppsrc/sechiba/chemistry.f90:     INTEGER(i_std)  :: i_fields_out, i_fields_in
.config/ppsrc/global/grid.f90:  INTEGER(i_std), ALLOCATABLE, DIMENSION (:,:), SAVE :: neighbours
.config/ppsrc/global/grid.f90:  INTEGER(i_std), DIMENSION(8), SAVE, PRIVATE        :: rose
.config/ppsrc/global/grid.f90:  INTEGER(i_std), SAVE                  :: year, month, day
.config/ppsrc/global/grid.f90:  INTEGER(i_std), SAVE                  :: month_len
.config/ppsrc/global/grid.f90:  INTEGER(i_std), SAVE            :: year_length=0
.config/ppsrc/global/grid.f90:    INTEGER(i_std), INTENT(in)                                 :: npts !! Number of local continental points 
.config/ppsrc/global/grid.f90:    INTEGER(i_std), INTENT(in)                                 :: npts_glo
.config/ppsrc/global/grid.f90:    INTEGER(i_std), INTENT(in)                                 :: iim, jjm
.config/ppsrc/global/grid.f90:    INTEGER(i_std), DIMENSION(:), INTENT(in)                :: kindex    
.config/ppsrc/global/grid.f90:    INTEGER(i_std), DIMENSION(iim,jjm)                   :: correspondance
.config/ppsrc/global/grid.f90:    INTEGER(i_std)                                       :: ndefault_lon, ndefault_lat
.config/ppsrc/global/grid.f90:    INTEGER(i_std)                                       :: i,ip,jp, imm1, imp1, imm1l, imp1l, ii
.config/ppsrc/global/gauss_jordan_method.f90:      INTEGER(i_std), INTENT(in) :: n  !! size of the system (1-N, unitless)
.config/ppsrc/global/gauss_jordan_method.f90:      INTEGER(i_std) :: i,col,row,j,k,ii,jj        !! index (unitless)
.config/ppsrc/global/gauss_jordan_method.f90:      INTEGER(i_std), DIMENSION(n) :: index_pivot  !! vector containing the pivot index
.config/ppsrc/global/gauss_jordan_method.f90:      INTEGER(i_std), DIMENSION(n) :: index_col    !! vector containing the columns index
.config/ppsrc/global/gauss_jordan_method.f90:      INTEGER(i_std), DIMENSION(n) :: index_row    !! vector containing the rows index
.config/ppsrc/global/gauss_jordan_method.f90:    INTEGER(i_std), INTENT(in) :: npts                                             !! Number of continental grid cells (unitless)
.config/ppsrc/global/gauss_jordan_method.f90:    INTEGER(i_std), INTENT(in) :: nb_veget                                         !! Number of vegetation types (2-N, unitless)
.config/ppsrc/global/gauss_jordan_method.f90:    INTEGER(i_std), INTENT(in) :: nb_pools                                         !! Number of carbon pools (unitless)
.config/ppsrc/global/gauss_jordan_method.f90:    INTEGER(i_std) :: j                                      !! Index (unitless)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 ! Number of points for which the data needs to be interpolated
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   ! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml, jml             ! Size of the finer grid
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: mask(iml, jml)       ! Mask which retains only the significative points
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)    :: incmax              ! Maximum point of the fine grid we can store.
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: indinc(nbpt,incmax,2)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: searchind
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std) :: fopt, fopt_max, ip, jp, ib, i, itmp, iprog, nbind
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std) :: minLon(1), maxLon(1)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 ! Number of points for which the data needs to be interpolated
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   ! Vector of neighbours for each grid point (1=N, 2=E, 3=S, 4=W)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml                  ! Size of the finer grid
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)    :: incmax              ! Maximum point of the fine grid we can store.
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: indinc(nbpt,incmax)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:) :: searchind
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), DIMENSION(nbpt) :: fopt
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std) :: fopt_max, not_found_fopt
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std) :: ip, ib, i, j, itmp, iprog, nbind, pp, ipp
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std) :: ff(1), incp
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), ALLOCATABLE, DIMENSION(:,:) :: fine_ind
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std) :: pos_pnt(5)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml                 
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbvmax             
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: sub_index(nbpt,nbvmax)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std)  :: sub_index_g(nbp_glo,nbvmax)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbpt                 
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: neighbours(nbpt,8)   
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: iml,jml                 
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: mask(iml, jml)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(in)   :: nbvmax             
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std), INTENT(out)  :: sub_index(nbpt,nbvmax,2)
.config/ppsrc/global/interpol_help.f90:    INTEGER(i_std)   :: sub_index_g(nbp_glo,nbvmax,2)
.config/ppsrc/stomate/stomate_prescribe.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size (unitless)
.config/ppsrc/stomate/stomate_prescribe.f90:    INTEGER(i_std)                                            :: i,j             !! index (unitless)
.config/ppsrc/stomate/stomate_vmax.f90:    INTEGER(i_std), INTENT(in)                                 :: npts                    !! Domain size (unitless)
.config/ppsrc/stomate/stomate_vmax.f90:    INTEGER(i_std)                                             :: j,m                     !! indices (unitless)
.config/ppsrc/stomate/lpj_cover.f90:    INTEGER(i_std), INTENT(in)                                  :: npts             !! Domain size (unitless)  
.config/ppsrc/stomate/lpj_cover.f90:    INTEGER(i_std)                                              :: i,j,k,m             !! Index (unitless)
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std),INTENT(in) :: npts
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std),INTENT(out) :: date
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std) :: j,k,l,m
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std),INTENT(in) :: npts
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std),DIMENSION(npts),INTENT(in) :: index
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std),INTENT(in) :: date
.config/ppsrc/stomate/stomate_io.f90:    INTEGER(i_std) :: j,k,l,m
.config/ppsrc/stomate/lpj_crown.f90:    INTEGER(i_std),INTENT(in)                         :: npts              !! Domain size (unitless) 
.config/ppsrc/stomate/lpj_crown.f90:    INTEGER(i_std)                                    :: j               !! Index
.config/ppsrc/stomate/lpj_gap.f90:    INTEGER(i_std), INTENT(in)                              :: npts                    !! Domain size (-)
.config/ppsrc/stomate/lpj_gap.f90:    INTEGER(i_std)                                          :: i, j,k,m                !! Indices
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                                          :: npts                 !! Domain size - number of grid 
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std)                                                      :: i,j,m                !! indices (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                                             :: npts                  !! Domain size - number of 
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                                             :: j                     !! PFT index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std)                                                         :: i                     !! index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i                               !! index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts                    !! Domain size - number of grid cells 
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j                       !! PFT index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i                               !! index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i                               !! index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i               !! index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: npts            !! Domain size - number of grid cells (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std), INTENT(in)                               :: j               !! PFT index (unitless)
.config/ppsrc/stomate/stomate_phenology.f90:    INTEGER(i_std)                                           :: i               !! index (unitless)
.config/ppsrc/stomate/stomate_soilcarbon.f90:    INTEGER(i_std), INTENT(in)                                        :: npts                  !! Domain size (unitless)
.config/ppsrc/stomate/stomate_soilcarbon.f90:    INTEGER(i_std)                                                :: k,kk,m,j,l,i,kkk !! Indices (unitless)
.config/ppsrc/stomate/lpj_light.f90:    INTEGER(i_std), INTENT(in)                             :: npts                     !! Domain size (unitless)      
.config/ppsrc/stomate/lpj_light.f90:    INTEGER(i_std)                                         :: i,j,k,m                  !! Index (unitless)    
.config/ppsrc/stomate/lpj_light.f90:    INTEGER(i_std)                                         :: optpft_wood              !! Which woody pft is maximum (unitless)   
.config/ppsrc/stomate/lpj_constraints.f90:    INTEGER(i_std), INTENT(in)                      :: npts            !! Domain size (unitless)
.config/ppsrc/stomate/lpj_constraints.f90:    INTEGER(i_std)                                  :: j               !! Index
.config/ppsrc/stomate/lpj_establish.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size - number of pixels (dimensionless)    
.config/ppsrc/stomate/lpj_establish.f90:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)             :: neighbours      !! indices of the 8 neighbours of each grid point 
.config/ppsrc/stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: nfrontx         !! from how many sides is the grid box invaded
.config/ppsrc/stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: nfronty         !! from how many sides is the grid box invaded
.config/ppsrc/stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: nbtree          !! Number of PFT's which are trees
.config/ppsrc/stomate/lpj_establish.f90:    INTEGER(i_std)                                            :: i,j,k,m         !! indices (unitless)       
.config/ppsrc/stomate/stomate_lcchange.f90:    INTEGER(i_std)                                            :: i, j, k, l, m    !! indices (unitless)
.config/ppsrc/stomate/stomate_resp.f90:    INTEGER(i_std), INTENT(in)                         :: npts      !! Domain size - number of grid cells (unitless)
.config/ppsrc/stomate/stomate_resp.f90:    INTEGER(i_std)                          :: i,j,k,l,m            !! Indeces (unitless)
.config/ppsrc/stomate/stomate_resp.f90:    INTEGER(i_std)                          :: ier                  !! Error handling 
.config/ppsrc/stomate/stomate_alloc.f90:    INTEGER(i_std), INTENT(in)                                 :: npts			!! Domain size - number of grid cells 
.config/ppsrc/stomate/stomate_alloc.f90:    INTEGER(i_std)                                             :: i,j,l,m		!! Indices (unitless)
.config/ppsrc/stomate/stomate_alloc.f90:    INTEGER(i_std)                                             :: ier                   !! Error handling
.config/ppsrc/stomate/lpj_pftinout.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size - number of pixels (unitless)            
.config/ppsrc/stomate/lpj_pftinout.f90:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)             :: neighbours      !! Indices of the 8 neighbours of each grid point
.config/ppsrc/stomate/lpj_pftinout.f90:    INTEGER(i_std)                                            :: i,j,m           !! indices      
.config/ppsrc/stomate/lpj_pftinout.f90:    INTEGER(i_std), DIMENSION(npts)                           :: n_present       !! number of adjacent grid cells where PFT is 
.config/ppsrc/stomate/stomate_npp.f90:    INTEGER(i_std), INTENT(in)                                :: npts             !! Domain size - number of pixels (unitless)
.config/ppsrc/stomate/stomate_npp.f90:    INTEGER(i_std)                                            :: i,j,k,l,m        !! Indeces(unitless)
.config/ppsrc/stomate/stomate_npp.f90:    INTEGER(i_std)                                            :: ier              !! Error handling
.config/ppsrc/stomate/lpj_fire.f90:    INTEGER(i_std), INTENT(in)                                   :: npts                !! Domain size - number of pixels 
.config/ppsrc/stomate/lpj_fire.f90:    INTEGER(i_std)                                                :: j,k,m,l            !! Indeces
.config/ppsrc/stomate/lpj_fire.f90:    INTEGER(i_std), INTENT(in)                 :: npts             !! Domain size (unitless)
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: hori_index     !! Move to Horizontal indices
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: horipft_index  !! Horizontal + PFT indices
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:) :: horisoillayer_index  !! Horizontal + soil layers indices
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip10_index   !! Horizontal + P10 indices
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip100_index  !! Horizontal + P100 indice
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip11_index   !! Horizontal + P11 indices
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std), ALLOCATABLE, SAVE, DIMENSION(:) :: horip101_index  !! Horizontal + P101 indices
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: itime                 !! time step
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: hist_id_stomate       !! STOMATE history file ID
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: hist_id_stomate_IPCC  !! STOMATE history file ID for IPCC output
.config/ppsrc/stomate/stomate_data.f90:  INTEGER(i_std),SAVE :: rest_id_stomate       !! STOMATE restart file ID
.config/ppsrc/stomate/stomate_data.f90:    INTEGER(i_std), INTENT(in)                   :: npts    !! [DISPENSABLE] Domain size (unitless)
.config/ppsrc/stomate/stomate_data.f90:    INTEGER(i_std)                               :: j       !! Index (unitless)
.config/ppsrc/stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)                                  :: npts                !! Domain size - number of grid pixels
.config/ppsrc/stomate/stomate_litter.f90:    INTEGER(i_std)                                              :: i,j,k,l,m          !! Indices (unitless)
.config/ppsrc/stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)                          :: npts           !! Domain size - number of grid pixels (unitless)
.config/ppsrc/stomate/stomate_litter.f90:    INTEGER(i_std)                                      :: j              !! Index (unitless)
.config/ppsrc/stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
.config/ppsrc/stomate/stomate_litter.f90:   INTEGER(i_std)                         :: k,i,j                  !! Indices
.config/ppsrc/stomate/stomate_litter.f90:   INTEGER(i_std)                         :: ind                    !! A local variable to know what is the index of the max value for the statistical function
.config/ppsrc/stomate/stomate_litter.f90:   INTEGER(i_std), DIMENSION(npts)        :: ind_i                  !! A local variable to know what is the index of the max value for the 
.config/ppsrc/stomate/stomate_litter.f90:   INTEGER(i_std)                         :: ier                    !! Check errors in netcdf call (unitless)
.config/ppsrc/stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)               :: npts                !! Domain size - number of grid pixel (unitless)
.config/ppsrc/stomate/stomate_litter.f90:    INTEGER(i_std), INTENT(in)                 :: npts            !! Domain size - number of land pixels (unitless)
.config/ppsrc/stomate/stomate_lpj.f90:    INTEGER(i_std), INTENT(in)                                 :: npts                 !! Domain size (unitless)
.config/ppsrc/stomate/stomate_lpj.f90:    INTEGER(i_std), DIMENSION(npts,8), INTENT(in)              :: neighbours           !! Indices of the 8 neighbours of each grid 
.config/ppsrc/stomate/stomate_lpj.f90:    INTEGER(i_std)                                         :: i, j, k, l, m    !! indices                       
.config/ppsrc/stomate/lpj_kill.f90:    INTEGER(i_std), INTENT(in)                                :: npts            !! Domain size (unitless)
.config/ppsrc/stomate/lpj_kill.f90:    INTEGER(i_std)                                            :: j,m             !! Indices       (unitless)
.config/ppsrc/stomate/stomate_turnover.f90:    INTEGER(i_std), INTENT(in)                                 :: npts                 !! Domain size - number of grid cells 
.config/ppsrc/stomate/stomate_turnover.f90:    INTEGER(i_std)                                             :: j,m,k                !! Index (unitless)
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                            :: date=0               !! Date (days) 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nforce               !! Number of states calculated for the soil forcing 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: isf                  !! Index for number of time steps that can be stored in 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),ALLOCATABLE,SAVE,DIMENSION(:)   :: nf_cumul             !! Number of years over which the average is calculated in
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std), SAVE                           :: spinup_period        !! Period of years used to calculate the resolution of the system for spinup analytic. 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),PARAMETER                           :: nparanmax=366       !! Maximum number of time steps per year for forcesoil
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nparan              !! Number of time steps per year for forcesoil read from run definition (unitless) 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nbyear=1            !! Number of years saved for forcesoil (unitless) 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: iatt                !! Time step of forcing of soil processes (iatt = 1 to ::nparan*::nbyear) 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: iatt_old=1          !! Previous ::iatt
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nsfm                !! Number of time steps that can be stored in memory (unitless) 
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: nsft                !! Number of time steps in a year (unitless)
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: iisf                !! Current pointer for teststomate (unitless)
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),SAVE                                :: Cforcing_id         !! File identifer of file 2
.config/ppsrc/stomate/stomate.f90:  INTEGER(i_std),PARAMETER                           :: ndm = 12            !! Maximum number of dimensions (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier(unitless) 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! The indices of the terrestrial pixels only (unitless) 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM (unitless) 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: direct                   !! 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpij             !! Total size of the un-compressed grid (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: rest_id_stom      !! STOMATE's _Restart_ file identifier (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom      !! STOMATE's _history_ file identifier (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the pixels on the map. Stomate uses a 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex,8),INTENT(in) :: neighbours        !! Neighoring grid points if land for the DGVM 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist_id           !! ?? [DISPENSABLE] SECHIBA's _history_ file 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: hist2_id          !! ?? [DISPENSABLE] SECHIBA's _history_ file 2 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: direct                   !! ??
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjit              !! Time step number (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                       :: kjpindex          !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in)   :: index             !! Indices of the terrestrial pixels only (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: l,k,ji, jv, i, j, m      !! indices    
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: ier                      !! Check errors in netcdf call (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: max_totsize              !! Memory management - maximum memory size (Mb)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_1step            !! Memory management - memory required to store one 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: totsize_tmp              !! Memory management - memory required to store one 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: vid                      !! Variable identifer of netCDF (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: nneigh                   !! Number of neighbouring pixels
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                :: direct                   !! ??
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)                 :: d_id                     !! ??
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: kjpij             !! Total size of the un-compressed grid, including 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: kjpindex          !! Domain size - number of terrestrial pixels 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: rest_id_stom      !! STOMATE's _Restart_ file identifier
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom      !! STOMATE's _history_ file identifier
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: hist_id_stom_IPCC !! STOMATE's IPCC _history_ file identifier 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(kjpindex),INTENT(in):: index             !! Indices of the terrestrial pixels on the global 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                               :: ier               !! Check errors in netcdf call
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                               :: ji,j,ipd,l        !! Indices
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                             :: kjpindex        !! Domain size - terrestrial pixels only
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                                        :: j               !! Index (untiless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                        :: npts      !! Domain size (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                        :: n_dim2    !! 2nd dimension (1 or nvm)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in) :: kjpindex !! Domain size - terrestrial pixels only (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in) :: nsfm     !! Number of time steps that can be stored in memory (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in) :: nsft_loc !! Number of time steps in a year (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)            :: ier      !! Check errors in netcdf call
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)      :: forcing_id  !! File identifer of forcing file, assigned when netcdf is created
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)      :: ibeg, iend  !! First and last time step to be written
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: ii          !! Index of isf where isf is the number of time steps that can be 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: iblocks     !! Index of block that is written
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: nblocks     !! Number of blocks that needs to be written
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: ier         !! Check errors in netcdf call
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst      !! First block in memory - changes with iblocks
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ilast       !! Last block in memory - changes with iblocks
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),PARAMETER       :: ndm = 11    !! Maximum number of dimensions
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: start       !! First block to write
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: ndim        !! Dimensions of forcing to be added to the netCDF
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: count_force !! Number of elements in each dimension  
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: vid         !! Variable identifer of netCDF
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)  :: forcing_id           !! File identifer of forcing file, assigned when netcdf is created
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)  :: nsfm                 !! Number of time steps stored in memory        
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: ii                !! Index of isf where isf is the number of time steps that can be stored in 
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: iblocks           !! Index of block that is written
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: nblocks           !! Number of blocks that needs to be written
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: ier               !! Check error of netcdf call
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ifirst            !! First block in memory - changes with iblocks
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(0:2)  :: ilast             !! Last block in memory - changes with iblocks
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),PARAMETER       :: ndm = 11          !! Maximum number of dimensions
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: start             !! First block to write
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: ndim              !! Dimensions of forcing to be added to the netCDF
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),DIMENSION(ndm)  :: count_force       !! Number of elements in each dimension
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                 :: vid               !! Variable identifer of netCDF
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std),INTENT(in)                    :: npts !! Domain size - number of pixels (unitless)
.config/ppsrc/stomate/stomate.f90:    INTEGER(i_std)                               :: j    !! index (unitless)
.config/ppsrc/stomate/stomate_season.f90:    INTEGER(i_std), INTENT(in)                             :: npts              !! Domain size - number of grid cells (unitless)
.config/ppsrc/stomate/stomate_season.f90:    INTEGER(i_std)                                          :: j                        !! indices (unitless)
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std), SAVE :: numout = 6
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE              :: nbp_mpi                         !! number of local continental points in each mpi group
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE              :: nbp_glo                         !! number of global continental points
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE              :: iim_g                           !! Dimension of global fields for longitude
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE              :: jjm_g                           !! Dimension of global fields for latitude
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE :: omp_size
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE :: omp_rank
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_nb
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_begin
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE,DIMENSION(:),ALLOCATABLE :: nbp_omp_para_end    
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE :: nbp_omp
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE :: nbp_omp_begin
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE :: nbp_omp_end
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE :: offset_omp
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),SAVE,ALLOCATABLE,DIMENSION(:) :: omp_function
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),ALLOCATABLE,DIMENSION(:),SAVE   :: index_g
.config/ppsrc/parallel/mod_orchidee_para_var.f90:  INTEGER(i_std),ALLOCATABLE,DIMENSION(:,:),SAVE :: neighbours_g
.config/ppsrc/parallel/mod_orchidee_para.f90:    INTEGER(i_std), INTENT(IN) :: arg_nbp_lon
.config/ppsrc/parallel/mod_orchidee_para.f90:    INTEGER(i_std), INTENT(IN) :: arg_nbp_lat
.config/ppsrc/parallel/mod_orchidee_para.f90:    INTEGER(i_std), INTENT(IN),OPTIONAL :: arg_nbp_glo
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(INOUT) :: Var
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: Var1
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(INOUT) :: Var(:)
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:)
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:,:)
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(INOUT) :: Var(:,:,:,:)
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(nbp_glo) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(nbp_mpi) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)*SIZE(VarOut,3)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,2)*SIZE(VarOut,3)*SIZE(VarOut,4)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)*SIZE(VarIn,3)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,2)*SIZE(VarIn,3)*SIZE(VarIn,4)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)*SIZE(VarOut,4)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:,:)  :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarOut,3)*SIZE(VarOut,4)*SIZE(VarOut,5)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)*SIZE(VarIn,4)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1,SIZE(VarIn,3)*SIZE(VarIn,4)*SIZE(VarIn,5)) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN)  :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: Var1
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: Var2
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:)  :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:)  :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:)  :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:    INTEGER(i_std),DIMENSION(1) :: dummy
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nb
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(nb),INTENT(INOUT) :: Var
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nb
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nb
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nb
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp,dimsize) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp_mpi,dimsize) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(dimsize*nbp_glo) :: VarTmp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp_mpi,dimsize) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp,dimsize) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(dimsize*nbp_glo) :: VarTmp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1) :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp2D
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN),DIMENSION(nbp2D,dimsize) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(OUT),DIMENSION(iim*jj_nb,dimsize) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(dimsize*iim*jjm)   :: VarTmp1
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(ij_nb,dimsize)     :: VarTmp2
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp2D
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp2D
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)      :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp2D
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN),DIMENSION(iim*jj_nb,dimsize)  :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(OUT),DIMENSION(nbp2D,dimsize) :: VarOut
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(ij_nb,dimsize)   :: VarTmp1
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(dimsize*iim*jjm) :: VarTmp2
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp2D
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: dimsize
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nbp2D
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: displs
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(0:mpi_size-1)    :: counts
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: nb,i,ij,index_para,rank
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(nb),INTENT(IN) :: VarIn
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),DIMENSION(nb),INTENT(OUT) :: VarOut    
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nb
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std),INTENT(IN) :: nb
.config/ppsrc/parallel/mod_orchidee_mpi_transfert.f90:  INTEGER(i_std) :: ierr
.config/ppsrc/parallel/mod_orchidee_mpi_data.f90:    IF (i_std==i_4) THEN
.config/ppsrc/parallel/mod_orchidee_mpi_data.f90:    ELSEIF (i_std==i_8) THEN
.config/ppsrc/parallel/xios_orchidee.f90:    INTEGER(i_std), INTENT(in)                            :: MPI_COMM_ORCH    !! Orchidee MPI communicator (from module mod_orchidee_mpi_data)
.config/ppsrc/parallel/xios_orchidee.f90:    INTEGER(i_std), INTENT(in)                            :: year, month, day !! Current date information
.config/ppsrc/parallel/xios_orchidee.f90:    INTEGER(i_std)                 :: i
.config/ppsrc/parallel/xios_orchidee.f90:    INTEGER(i_std)                 :: year0, month0, day0 !! Time origin date information
.config/ppsrc/parallel/xios_orchidee.f90:    INTEGER(i_std), INTENT(IN) :: itau_sechiba    !! Current time step of the model
.config/ppsrc/parallel/xios_orchidee.f90:    INTEGER(i_std), SAVE  :: offset               !! Offset to substract from itau_sechiba
.config/ppsrc/parallel/xios_orchidee.f90:    INTEGER(i_std)        :: itau_xios            !! Current time step for 1
.config/ppsrc/orchidee_ol/getprec.f90:  IF (SELECTED_INT_KIND(range_int) /= i_std) THEN
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: kjpij,kjpindex                       !! # of total/land points
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indices                              !! index over land points
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indexveg
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std), DIMENSION(:),ALLOCATABLE  :: njsc
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE   :: indices_g                            !! Vector of indeces of land points, only known by root proc
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: iim,jjm,llm                          !! # of lon,lat and time-step in the restart 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: itau_dep,itau_fin,itau               !! First, last and current time step of SECHIBA 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: itau_len,itau_step                   !! Total length of the simulation and length 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: rest_id_sec,rest_id_sto              !! ID's of the restart files for the SECHIBA 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: hist_id_sec,hist_id_sec2             !! ID's of the history files of SECHIBA 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: hist_id_stom,hist_id_stom_IPCC       !! ID's of the history files of STOMATE 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: i,j,iv                               !! used as counters
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std),PARAMETER                  :: nbvarmax=200                         !! Maximum number of variables assumed in the 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: nbvar                                !! Number of variables present in the restart 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: varnbdim                             !! Number of dimensions of a variable 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std),PARAMETER                  :: varnbdim_max=20                      !! Maximum number of dimensions of a variable 
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: max_totsize,totsize_1step
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: totsize_tmp  
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: ji,jv,l
.config/ppsrc/orchidee_ol/teststomate.f90:  INTEGER(i_std)                            :: printlev_loc
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std)                             :: iim,jjm                 !! Indices (unitless)
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std),PARAMETER                   :: llm = 1                 !! Vertical Layers (requested by restini routine) (unitless)
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std)                             :: kjpindex                !! Domain size (unitless)
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std)                             :: itau_dep,itau_len       !! Time step read in the restart file (?) 
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std)                             :: rest_id_sto             !! ID of the input restart file (unitless)
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE    :: indices                 !! Grid Point Index used per processor (unitless)
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std),DIMENSION(:),ALLOCATABLE    :: indices_g               !! Grid Point Index for all processor (unitless)
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std),PARAMETER                   :: nbvarmax=800            !! maximum # of variables assumed in the stomate restart file 
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std)                             :: nbvar                   !! # of variables effectively present 
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std)                             :: varnbdim                !! # of dimensions of a given variable 
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std),PARAMETER                   :: varnbdim_max=20         !! maximal # of dimensions assumed for any variable 
.config/ppsrc/orchidee_ol/forcesoil.f90:  INTEGER(i_std)                             :: ier,iret                !! Used for hangling errors 
