Changeset 6189 for branches/ORCHIDEE_2_2


Ignore:
Timestamp:
2019-09-06T17:56:38+02:00 (5 years ago)
Author:
josefine.ghattas
Message:

As done in the trunk rev [6188]: Corrections done by A. Jornet. These errors crashed the model only in coupled mode with serveral treadds OMP.

Location:
branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/diffuco.f90

    r6019 r6189  
    15391539 
    15401540    cim(:,:)=zero 
     1541    leaf_ci(:,:,:) = zero 
    15411542 
    15421543    ! 

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/hydrol.f90

    r5805 r6189  
    68486848    REAL(r_std), DIMENSION(nbp_glo,nslm,nstm)  :: mc_read_glo1D         !! mc_read_glo2D on land-only vector form, in global 
    68496849    INTEGER(i_std), SAVE                       :: istart_mc !! start index to read from input file 
     6850!$OMP THREADPRIVATE(istart_mc) 
    68506851    INTEGER(i_std)                             :: iend                  !! end index to read from input file 
    68516852    INTEGER(i_std)                             :: i, j, ji, jg, jst, jsl!! loop index 
    68526853    INTEGER(i_std)                             :: iim_file, jjm_file, llm_file !! Dimensions in input file 
    68536854    INTEGER(i_std), SAVE                       :: ttm_mc      !! Time dimensions in input file 
     6855!$OMP THREADPRIVATE(ttm_mc) 
    68546856    INTEGER(i_std), SAVE                       :: mc_id        !! index for netcdf files 
     6857!$OMP THREADPRIVATE(mc_id) 
    68556858    LOGICAL, SAVE                              :: firsttime_mc=.TRUE. 
     6859!$OMP THREADPRIVATE(firsttime_mc) 
    68566860 
    68576861  
    … …  
    70567060    REAL(r_std), DIMENSION(nbp_glo,nsnow)      :: snowtemp_read_glo1D   !! snowdz_read_glo2D on land-only vector form, in global 
    70577061    INTEGER(i_std), SAVE                       ::  istart_snow!! start index to read from input file 
     7062!$OMP THREADPRIVATE(istart_snow) 
    70587063    INTEGER(i_std)                             :: iend                  !! end index to read from input file 
    70597064    INTEGER(i_std)                             :: i, j, ji, jg, jst, jsl!! loop index 
    70607065    INTEGER(i_std)                             :: iim_file, jjm_file, llm_file !! Dimensions in input file 
    70617066    INTEGER(i_std), SAVE                       :: ttm_snow      !! Time dimensions in input file 
     7067!$OMP THREADPRIVATE(ttm_snow) 
    70627068    INTEGER(i_std), SAVE                       :: snow_id        !! index for netcdf files 
     7069!$OMP THREADPRIVATE(snow_id) 
    70637070    LOGICAL, SAVE                              :: firsttime_snow=.TRUE. 
     7071!$OMP THREADPRIVATE(firsttime_snow) 
    70647072 
    70657073  

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing.f90

    r6102 r6189  
    267267  !$OMP THREADPRIVATE(max_lake_reservoir) 
    268268  INTEGER(i_std), SAVE                                       :: nb_coast_gridcells           !! Number of gridcells which can receive coastalflow 
     269!$OMP THREADPRIVATE(nb_coast_gridcells) 
    269270 
    270271 
Note: See TracChangeset for help on using the changeset viewer.