Changeset 7207 for branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/thermosoil.f90

Timestamp:

2021-05-31T17:59:46+02:00 (3 years 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:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/thermosoil.f90 (modified) (3 diffs)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/thermosoil.f90

@@ -593 +593 @@
     INTEGER(i_std),DIMENSION (kjpindex*ngrnd), INTENT (in):: indexgrnd        !! Indeces of the points on the 3D map (vertical 
                                                                               !! dimension towards the ground) (unitless)
-    REAL(i_std),DIMENSION (kjpindex), INTENT (in)         :: mcs              !! Saturated moisture content (m3/m3)
+    REAL(r_std),DIMENSION (kjpindex), INTENT (in)         :: mcs              !! Saturated moisture content (m3/m3)
     REAL(r_std),DIMENSION (kjpindex), INTENT (inout)      :: temp_sol_new     !! Surface temperature at the present time-step,
                                                                               !! Ts @tex ($K$) @endtex
@@ -749 +749 @@
     CALL thermosoil_coef (&
          kjpindex,      temp_sol_new,    snow,         njsc, &
-         mcs, frac_snow_veg, frac_snow_nobio, totfrac_nobio,      &
+         mcs, frac_snow_veg, frac_snow_nobio, totfrac_nobio, &
          snowdz,        snowrho,         snowtemp,     pb,   &
          ptn,                                                &
@@ -924 +924 @@
     REAL(r_std), DIMENSION (kjpindex), INTENT (in)         :: temp_sol_new !! soil surface temperature @tex ($K$) @endtex
     REAL(r_std), DIMENSION (kjpindex), INTENT (in)         :: snow         !! snow mass @tex ($Kg$) @endtex
-    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: njsc         !! Index of the dominant soil textural class in the grid cell (1-nscm, unitless)
-    REAL(r_std), DIMENSION (kjpindex), INTENT (in)         :: mcs          !! Saturated moisture content (m3/m3)
+    INTEGER(i_std),DIMENSION (kjpindex), INTENT (in)       :: njsc         !! Index of the dominant soil textural class
+                                                                           !! in the grid cell (1-nscm, unitless)
+    REAL(r_std),DIMENSION (kjpindex), INTENT (in)         :: mcs          !! Saturated moisture content (m3/m3)
     REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: frac_snow_veg   !! Snow cover fraction on vegeted area
     REAL(r_std),DIMENSION (kjpindex,nnobio), INTENT(in)    :: frac_snow_nobio !! Snow cover fraction on non-vegeted area