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_patch(PVEG,PVEGTYPE) RESULT(PEMIS)
!
REAL, DIMENSION(:), INTENT (IN)     :: pveg
REAL, DIMENSION(:), INTENT (IN)     :: pvegtype  
!
REAL, DIMENSION(SIZE(PVEG))         :: pemis

END FUNCTION emis_from_veg_patch
!
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_patch(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))      :: 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_PATCH',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_PATCH',1,zhook_handle)
!
!-----------------------------------------------------------------
!
END FUNCTION emis_from_veg_patch