Changeset 281 for branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba

Timestamp:

2011-06-27T10:04:55+02:00 (13 years ago)

Author:

didier.solyga

Message:

Merge the externalized version with the last commits done on the trunk (see revisions 278,279 and 280)

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/intersurf.f90 (modified) (4 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/intersurf.f90

@@ -4581 +4581 @@
             & dt, hist_dt_stom, hori_id, hist_PFTaxis_id, &
             & hist_pool_10axis_id, hist_pool_100axis_id, &
-            & hist_pool_11axis_id, hist_pool_101axis_id)
+            & hist_pool_11axis_id, hist_pool_101axis_id, control_flags)
 ! deforestation axis added as arguments
 
@@ -4678 +4678 @@
        &  hist_dt, hist_hori_id, hist_PFTaxis_id, &
        & hist_pool_10axis_id, hist_pool_100axis_id, &
-       & hist_pool_11axis_id, hist_pool_101axis_id)
+       & hist_pool_11axis_id, hist_pool_101axis_id, control_flags)
     ! deforestation axis added as arguments
 
@@ -4706 +4706 @@
     INTEGER(i_std),INTENT(in) :: hist_pool_10axis_id,hist_pool_100axis_id
     INTEGER(i_std),INTENT(in) :: hist_pool_11axis_id,hist_pool_101axis_id
+    !- Flags that (de)activate parts of the model
+    TYPE(control_type), INTENT(in)             :: control_flags
     !-
     !- 1 local
@@ -4932 +4934 @@
          &               TRIM("Density of individuals                            "), &
          &               TRIM("1/ m^2              "), iim,jjm, hist_hori_id, &
+         &               nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
+
+    IF ( control_flags%ok_dgvm ) THEN    
+       ! Adaptation to climate
+       CALL histdef (hist_id_stom, &
+            &               TRIM("ADAPTATION          "), &
+            &               TRIM("Adaptation to climate (DGVM)                      "), &
+            &               TRIM("-                   "), iim,jjm, hist_hori_id, &
+            &               nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
+
+       ! Probability from regenerative
+       CALL histdef (hist_id_stom, &
+            &               TRIM("REGENERATION        "), &
+            &               TRIM("Probability from regenerative (DGVM)               "), &
+            &               TRIM("-                   "), iim,jjm, hist_hori_id, &
+            &               nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
+    ENDIF
+
+    ! crown area of individuals (m**2)
+    CALL histdef (hist_id_stom, &
+         &               TRIM("CN_IND              "), &
+         &               TRIM("crown area of individuals                         "), &
+         &               TRIM("m^2                 "), iim,jjm, hist_hori_id, &
+         &               nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
+
+    ! woodmass of individuals (gC)
+    CALL histdef (hist_id_stom, &
+         &               TRIM("WOODMASS_IND        "), &
+         &               TRIM("Woodmass of individuals                           "), &
+         &               TRIM("gC/pft              "), iim,jjm, hist_hori_id, &
          &               nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)