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

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE INIT_PGD_SURF_ATM(HPROGRAM,HINIT,HATMFILE,HATMFILETYPE, &
00003                                KYEAR, KMONTH, KDAY, PTIME            )  
00004 !     #################################################################################
00005 !
00006 !!****  *INIT_PGD_SURF_ATM* - Call surface initialization for PGD fields only
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    REFERENCE
00015 !!    ---------
00016 !!      
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!     V. Masson 
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      Original    01/2004
00025 !!------------------------------------------------------------------
00026 !
00027 !
00028 !
00029 !
00030 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00031 USE PARKIND1  ,ONLY : JPRB
00032 !
00033 USE MODI_INIT_SURF_ATM_n
00034 !
00035 IMPLICIT NONE
00036 !
00037 !*      0.1    declarations of arguments
00038 !
00039  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00040  CHARACTER(LEN=3),   INTENT(IN)  :: HINIT     ! fields to initialize 'ALL', 'PRE', 'PGD'
00041  CHARACTER(LEN=28), INTENT(IN)   :: HATMFILE    ! name of the Atmospheric file
00042  CHARACTER(LEN=6),  INTENT(IN)   :: HATMFILETYPE! type of the Atmospheric file
00043 INTEGER,           INTENT(IN)   :: KYEAR       ! year
00044 INTEGER,           INTENT(IN)   :: KMONTH      ! month
00045 INTEGER,           INTENT(IN)   :: KDAY        ! day
00046 REAL,              INTENT(IN)   :: PTIME       ! time
00047 !
00048 !
00049 !*      0.2    declarations of local variables
00050 !
00051  CHARACTER(LEN=6), DIMENSION(0)  :: YSV       ! name of all scalar variables
00052 REAL,             DIMENSION(0)  :: ZCO2      ! CO2 concentration (kg/m3)
00053 REAL,             DIMENSION(0)  :: ZRHOA     ! air density (kg/m3)
00054 REAL,             DIMENSION(0)  :: ZZENITH   ! solar zenithal angle
00055 REAL,             DIMENSION(0)  :: ZAZIM     ! solar azimuthal angle (rad from N, clock)
00056 REAL,             DIMENSION(1)  :: ZSW_BANDS ! middle wavelength of each band
00057 REAL,             DIMENSION(0,1):: ZDIR_ALB  ! direct albedo for each band
00058 REAL,             DIMENSION(0,1):: ZSCA_ALB  ! diffuse albedo for each band
00059 REAL,             DIMENSION(0)  :: ZEMIS     ! emissivity
00060 REAL,             DIMENSION(0)  :: ZTSRAD    ! radiative temperature
00061 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00062 !-------------------------------------------------------------------------------------
00063 !
00064 !* initialization of PGD fields of output domain
00065 !
00066 IF (LHOOK) CALL DR_HOOK('INIT_PGD_SURF_ATM',0,ZHOOK_HANDLE)
00067  CALL INIT_SURF_ATM_n(HPROGRAM,HINIT,.FALSE.,                     &
00068                       0,0,1,                                     &
00069                       YSV,ZCO2,ZRHOA,                            &
00070                       ZZENITH,ZAZIM,ZSW_BANDS,ZDIR_ALB,ZSCA_ALB, &
00071                       ZEMIS,ZTSRAD,                              &
00072                       KYEAR, KMONTH, KDAY, PTIME,                &
00073                       HATMFILE,HATMFILETYPE, 'OK'                )  
00074 IF (LHOOK) CALL DR_HOOK('INIT_PGD_SURF_ATM',1,ZHOOK_HANDLE)
00075 
00076 !
00077 !-------------------------------------------------------------------------------------
00078 !
00079 END SUBROUTINE INIT_PGD_SURF_ATM