SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/update_esm

Go to the documentation of this file.
00001 !     #######################################################################################
00002       SUBROUTINE UPDATE_ESM_SEAFLUX_n(HPROGRAM,KI,KSW,PZENITH,PDIR_ALB,PSCA_ALB,PEMIS,PTSRAD)
00003 !     #######################################################################################
00004 !
00005 !!****  *UPDATE_ESM_SEAFLUX_n* - routine to update SEAFLUX radiative properties in Earth
00006 !!                               System Model after the call to OASIS coupler in order 
00007 !!                               to close the energy budget between radiative scheme and surfex
00008 !!
00009 !!    PURPOSE
00010 !!    -------
00011 !!
00012 !!**  METHOD
00013 !!    ------
00014 !!
00015 !!    EXTERNAL
00016 !!    --------
00017 !!
00018 !!
00019 !!    IMPLICIT ARGUMENTS
00020 !!    ------------------
00021 !!
00022 !!    REFERENCE
00023 !!    ---------
00024 !!
00025 !!
00026 !!    AUTHOR
00027 !!    ------
00028 !!     B. Decharme 
00029 !!
00030 !!    MODIFICATIONS
00031 !!    -------------
00032 !!      Original    09/2009
00033 !-------------------------------------------------------------------------------
00034 !
00035 !*       0.    DECLARATIONS
00036 !              ------------
00037 !
00038 USE MODD_CSTS,           ONLY : XTTS
00039 USE MODD_SEAFLUX_n,      ONLY : XDIR_ALB, XSCA_ALB,   &
00040                                   XEMIS, XSST, CSEA_ALB  
00041 !
00042 USE MODI_UPDATE_RAD_SEAWAT
00043 !
00044 !
00045 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00046 USE PARKIND1  ,ONLY : JPRB
00047 !
00048 IMPLICIT NONE
00049 !
00050 !*       0.1   Declarations of arguments
00051 !              -------------------------
00052 !
00053  CHARACTER(LEN=6),                   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00054 INTEGER,                            INTENT(IN)  :: KI        ! number of points
00055 INTEGER,                            INTENT(IN)  :: KSW       ! number of short-wave spectral bands
00056 !
00057 REAL,             DIMENSION(KI),    INTENT(IN)  :: PZENITH   ! solar zenithal angle
00058 !
00059 REAL,             DIMENSION(KI,KSW),INTENT(OUT) :: PDIR_ALB  ! direct albedo for each band
00060 REAL,             DIMENSION(KI,KSW),INTENT(OUT) :: PSCA_ALB  ! diffuse albedo for each band
00061 REAL,             DIMENSION(KI),    INTENT(OUT) :: PEMIS     ! emissivity
00062 REAL,             DIMENSION(KI),    INTENT(OUT) :: PTSRAD    ! radiative temperature
00063 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00064 !
00065 !
00066 !*       0.2   Declarations of local variables
00067 !              -------------------------------
00068 !
00069 !-------------------------------------------------------------------------------
00070 !
00071 !
00072 !*            Albedo and emissivity on open sea and sea ice
00073 !             ---------------------------------------------
00074 !
00075 IF (LHOOK) CALL DR_HOOK('UPDATE_ESM_SEAFLUX_N',0,ZHOOK_HANDLE)
00076  CALL UPDATE_RAD_SEAWAT(CSEA_ALB,XSST,PZENITH,XTTS,XEMIS,XDIR_ALB,&
00077                          XSCA_ALB,PDIR_ALB,PSCA_ALB,PEMIS,PTSRAD   )  
00078 IF (LHOOK) CALL DR_HOOK('UPDATE_ESM_SEAFLUX_N',1,ZHOOK_HANDLE)
00079 !
00080 !-------------------------------------------------------------------------------
00081 !
00082 END SUBROUTINE UPDATE_ESM_SEAFLUX_n