emis_from_veg.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.
!#######################
MODULE modi_emis_from_veg
!#######################
!
INTERFACE emis_from_veg
!
    FUNCTION emis_from_veg_0d(PVEG,PVEGTYPE) RESULT(PEMIS)
!
REAL,                 INTENT(IN) :: PVEG         ! vegetatino fraction
REAL,   DIMENSION(:), INTENT(IN) :: PVEGTYPE     ! type of vegetation
!
REAL                             :: PEMIS        ! emissivity
!
END FUNCTION emis_from_veg_0d
!
!
    FUNCTION emis_from_veg_1d(PVEG,PVEGTYPE) RESULT(PEMIS)
!
REAL,   DIMENSION(:),   INTENT(IN) :: PVEG         ! vegetation fraction
REAL,   DIMENSION(:,:), INTENT(IN) :: PVEGTYPE     ! type of vegetation
!
REAL,   DIMENSION(SIZE(PVEG))      :: PEMIS        ! emissivity
!
END FUNCTION emis_from_veg_1d
!
!
    FUNCTION emis_from_veg_2d(PVEG,PVEGTYPE) RESULT(PEMIS)
!
REAL,   DIMENSION(:,:),   INTENT(IN) :: PVEG         ! vegetation fraction
REAL,   DIMENSION(:,:,:), INTENT(IN) :: PVEGTYPE     ! type of vegetation
!
REAL,   DIMENSION(SIZE(PVEG,1),SIZE(PVEG,2)) :: PEMIS! emissivity
!
END FUNCTION emis_from_veg_2d
!
   FUNCTION emis_from_veg_vegtype(PVEG) RESULT(PEMIS)
!
REAL, DIMENSION(:), INTENT (IN)     :: PVEG
!
REAL, DIMENSION(SIZE(PVEG))         :: PEMIS

END FUNCTION emis_from_veg_vegtype
!
END INTERFACE
!
END MODULE modi_emis_from_veg
!
!   ####################################################
    FUNCTION emis_from_veg_0d(PVEG,PVEGTYPE) RESULT(PEMIS)
!   ####################################################
!!
!!    PURPOSE
!!    -------
!
!     Calculates averaged emissivity on natural surfaces
!              
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!    none
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!      
!!    none
!!
!!    REFERENCE
!!    ---------
!!
!!      
!!    AUTHOR
!!    ------
!!
!!      V. Masson and A. Boone          * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    25/03/99
!!
!-------------------------------------------------------------------------------
!
!*       0.     DECLARATIONS
!               ------------
!
USE modd_data_cover_par, ONLY : nvt_snow
USE modd_isba_par,       ONLY : xemissoil, xemisveg
USE modd_snow_par,       ONLY : xemissn
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
REAL,                 INTENT(IN) :: PVEG         ! vegetation fraction
REAL,   DIMENSION(:), INTENT(IN) :: PVEGTYPE     ! type of vegetation
!
REAL                             :: PEMIS        ! emissivity
!
!*      0.2    declarations of local variables
!
REAL :: ZEMISSOIL                  ! soil emissivity
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-----------------------------------------------------------------
!
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_0D',0,zhook_handle)
zemissoil =   xemissn   *     pvegtype(nvt_snow) &
              + xemissoil * (1.-pvegtype(nvt_snow))  
!
pemis   =   xemisveg  *     pveg     &
            + zemissoil * (1.-pveg)  
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_0D',1,zhook_handle)
!
!-----------------------------------------------------------------
!
END FUNCTION emis_from_veg_0d
!
!   ####################################################
    FUNCTION emis_from_veg_1d(PVEG,PVEGTYPE) RESULT(PEMIS)
!   ####################################################
!!
!!    PURPOSE
!!    -------
!
!     Calculates averaged emissivity on natural surfaces
!              
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!    none
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!      
!!    none
!!
!!    REFERENCE
!!    ---------
!!
!!      
!!    AUTHOR
!!    ------
!!
!!      V. Masson and A. Boone          * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    25/03/99
!!
!-------------------------------------------------------------------------------
!
!*       0.     DECLARATIONS
!               ------------
!
USE modd_data_cover_par, ONLY : nvt_snow
USE modd_isba_par,       ONLY : xemissoil, xemisveg
USE modd_snow_par,       ONLY : xemissn
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
REAL,   DIMENSION(:),   INTENT(IN) :: PVEG         ! vegetation fraction
REAL,   DIMENSION(:,:), INTENT(IN) :: PVEGTYPE     ! type of vegetation
!
REAL,   DIMENSION(SIZE(PVEG))      :: PEMIS        ! emissivity
!
!*      0.2    declarations of local variables
!
REAL,   DIMENSION(SIZE(PVEG))      :: ZEMISSOIL    ! soil emissivity
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-----------------------------------------------------------------
!
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_1D',0,zhook_handle)
zemissoil(:) =   xemissn   *     pvegtype(:,nvt_snow) &
                + xemissoil * (1.-pvegtype(:,nvt_snow))  
!
pemis(:)   =   xemisveg  *     pveg(:)     &
               + zemissoil * (1.-pveg(:))  
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_1D',1,zhook_handle)
!
!-----------------------------------------------------------------
!
END FUNCTION emis_from_veg_1d
!
!   ####################################################
    FUNCTION emis_from_veg_2d(PVEG,PVEGTYPE) RESULT(PEMIS)
!   ####################################################
!!
!!    PURPOSE
!!    -------
!
!     Calculates averaged emissivity on natural surfaces
!              
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!    none
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!      
!!    none
!!
!!    REFERENCE
!!    ---------
!!
!!      
!!    AUTHOR
!!    ------
!!
!!      V. Masson and A. Boone          * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    25/03/99
!!
!-------------------------------------------------------------------------------
!
!*       0.     DECLARATIONS
!               ------------
!
USE modd_surf_par,       ONLY : xundef
USE modd_data_cover_par, ONLY : nvt_snow
USE modd_isba_par,       ONLY : xemissoil, xemisveg
USE modd_snow_par,       ONLY : xemissn
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
REAL,   DIMENSION(:,:),   INTENT(IN) :: PVEG         ! vegetation fraction
REAL,   DIMENSION(:,:,:), INTENT(IN) :: PVEGTYPE     ! type of vegetation
!
REAL,   DIMENSION(SIZE(PVEG,1),SIZE(PVEG,2)) :: PEMIS! emissivity
!
!*      0.2    declarations of local variables
!
REAL,   DIMENSION(SIZE(PVEG,1),SIZE(PVEG,2)) :: ZEMISSOIL ! soil emissivity
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-----------------------------------------------------------------
!
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_2D',0,zhook_handle)
zemissoil(:,:) =   xemissn   *     pvegtype(:,:,nvt_snow) &
                   + xemissoil * (1.-pvegtype(:,:,nvt_snow))  
!
pemis(:,:)   =   xemisveg  *     pveg(:,:)     &
                 + zemissoil * (1.-pveg(:,:))  
!
WHERE (pveg(:,:) == xundef)
  pemis(:,:) = xundef
END WHERE
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_2D',1,zhook_handle)
!-----------------------------------------------------------------
!
END FUNCTION emis_from_veg_2d
!
!   ####################################################
    FUNCTION emis_from_veg_vegtype(PVEG) RESULT(PEMIS)
!   ####################################################
!!
!!    PURPOSE
!!    -------
!
!     Calculates averaged emissivity on natural surfaces
!              
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!    none
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!      
!!    none
!!
!!    REFERENCE
!!    ---------
!!
!!      
!!    AUTHOR
!!    ------
!!
!!      V. Masson and A. Boone          * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    25/03/99
!!
!-------------------------------------------------------------------------------
!
!*       0.     DECLARATIONS
!               ------------
!
USE modd_surf_par,       ONLY : xundef
USE modd_data_cover_par, ONLY : nvt_snow
USE modd_isba_par,       ONLY : xemissoil, xemisveg
USE modd_snow_par,       ONLY : xemissn
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
REAL,   DIMENSION(:),   INTENT(IN) :: PVEG         ! vegetation fraction
!
REAL,   DIMENSION(SIZE(PVEG))      :: PEMIS        ! emissivity
!
!*      0.2    declarations of local variables
!
REAL,   DIMENSION(SIZE(PVEG))      :: ZEMISSOIL    ! soil emissivity
!
INTEGER :: JJ
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-----------------------------------------------------------------
!
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_VEGTYPE',0,zhook_handle)
!
pemis(:) = xundef
!
DO jj = 1,SIZE(pemis)
  IF (pveg(jj)/=xundef) THEN
    IF (jj/=nvt_snow) THEN
      pemis(jj) = xemisveg * pveg(jj) + xemissoil * (1.-pveg(jj))  
    ELSE
      pemis(jj) = xemissn
    ENDIF
  ENDIF
ENDDO
!
IF (lhook) CALL dr_hook('MODI_EMIS_FROM_VEG:EMIS_FROM_VEG_VEGTYPE',1,zhook_handle)
!
!-----------------------------------------------------------------
!
END FUNCTION emis_from_veg_vegtype