Changeset 7207


Ignore:
Timestamp:
05/31/21 17:59:46 (8 weeks ago)
Author:
agnes.ducharne
Message:

Bugfix of r7206 (the checks were wrong as compilation has been forgotten! Now, with bugfix, compilation is ok, and the 5d simulation is identical to the one with r7200).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/thermosoil.f90

    r7206 r7207  
    593593    INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical  
    594594                                                                              !! dimension towards the ground) (unitless) 
    595     REAL(i_std),DIMENSION (kjpindex), INTENT (in)         :: mcs              !! Saturated moisture content (m3/m3) 
     595    REAL(r_std),DIMENSION (kjpindex), INTENT (in)         :: mcs              !! Saturated moisture content (m3/m3) 
    596596    REAL(r_std),DIMENSION (kjpindex), INTENT (inout)      :: temp_sol_new     !! Surface temperature at the present time-step, 
    597597                                                                              !! Ts @tex ($K$) @endtex 
     
    749749    CALL thermosoil_coef (& 
    750750         kjpindex,      temp_sol_new,    snow,         njsc, & 
    751          mcs, frac_snow_veg, frac_snow_nobio, totfrac_nobio,      & 
     751         mcs, frac_snow_veg, frac_snow_nobio, totfrac_nobio, & 
    752752         snowdz,        snowrho,         snowtemp,     pb,   & 
    753753         ptn,                                                & 
     
    924924    REAL(r_std), DIMENSION (kjpindex), INTENT (in)         :: temp_sol_new !! soil surface temperature @tex ($K$) @endtex 
    925925    REAL(r_std), DIMENSION (kjpindex), INTENT (in)         :: snow         !! snow mass @tex ($Kg$) @endtex 
    926     INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: njsc         !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless) 
    927     REAL(r_std), DIMENSION (kjpindex), INTENT (in)         :: mcs          !! Saturated moisture content (m3/m3) 
     926    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: njsc         !! Index of the dominant soil textural class 
     927                                                                           !! in the grid cell (1-nscm, unitless) 
     928    REAL(r_std),DIMENSION (kjpindex), INTENT (in)         :: mcs          !! Saturated moisture content (m3/m3) 
    928929    REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: frac_snow_veg   !! Snow cover fraction on vegeted area 
    929930    REAL(r_std),DIMENSION (kjpindex,nnobio), INTENT(in)    :: frac_snow_nobio !! Snow cover fraction on non-vegeted area 
Note: See TracChangeset for help on using the changeset viewer.