carbon_spinup.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
      SUBROUTINE carbon_spinup(TPTIME, IO )
!  
!     #######################################################################
!
!
!!****  *CARBON_SPINUP*  
!!
!!    PURPOSE
!!    -------
!     Number of times the accelerated subroutine is called  
!     for each time step  
!!**  METHOD
!!    ------
!
!!    EXTERNAL
!!    --------
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------ 
!!
!!      
!!    REFERENCE
!!    ---------
!!      
!!    AUTHOR
!!    ------
!!      R. Alkama           * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original      03/26/2012
!!
!-------------------------------------------------------------------------------
!
!*       0.     DECLARATIONS
!               ------------
!
USE modd_type_date_surf
!
USE modd_isba_options_n, ONLY : isba_options_t
!                              
USE modi_spinup_max
!                              
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE(date_time), INTENT(IN) :: TPTIME
TYPE(isba_options_t), INTENT(INOUT) :: IO
!
!*      0.    declarations of local variables
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('CARBON_SPINUP',0,zhook_handle)
!
!       1.     Initializations
!              ---------------
!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! number of times CARBON_SOIL subroutine is called for each time step
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
io%NSPINS =1
IF ( io%LSPINUPCARBS .AND. io%CPHOTO/='NON' .AND. io%CRESPSL=='CNT' ) THEN
   CALL spinup_max(io%XSPINMAXS,io%NNBYEARSPINS,io%NNBYEARSOLD,io%NSPINS)
ENDIF
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! number of times  WOOD carbon subroutine is called for each time step
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
io%NSPINW=1
IF ( io%LSPINUPCARBW .AND. io%CPHOTO=='NCB' ) THEN
   CALL spinup_max(io%XSPINMAXW,io%NNBYEARSPINW,io%NNBYEARSOLD,io%NSPINW)
ENDIF
!
IF (tptime%TDATE%MONTH == 1 .AND. tptime%TDATE%DAY==1 .AND. tptime%TIME == 0.0 )THEN
   io%NNBYEARSOLD = io%NNBYEARSOLD + 1
ENDIF
!
IF (lhook) CALL dr_hook('CARBON_SPINUP',1,zhook_handle)
!
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE