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

Go to the documentation of this file.
00001 !     ###########################################################
00002       SUBROUTINE ZOOM_PGD_NATURE(HPROGRAM,HINIFILE,HINIFILETYPE,HFILE,HFILETYPE, &
00003                                    OECOCLIMAP                                      )  
00004 !     ###########################################################
00005 
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!   This program prepares the physiographic data fields.
00010 !!
00011 !!    METHOD
00012 !!    ------
00013 !!   
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!
00022 !!    REFERENCE
00023 !!    ---------
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!
00028 !!    V. Masson                   Meteo-France
00029 !!
00030 !!    MODIFICATION
00031 !!    ------------
00032 !!
00033 !!    Original     13/10/03
00034 !----------------------------------------------------------------------------
00035 !
00036 !*    0.     DECLARATION
00037 !            -----------
00038 !
00039 USE MODD_SURF_ATM_n,       ONLY : CNATURE
00040 !
00041 !
00042 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00043 USE PARKIND1  ,ONLY : JPRB
00044 !
00045 USE MODI_ZOOM_PGD_ISBA
00046 !
00047 IMPLICIT NONE
00048 !
00049 !*    0.1    Declaration of dummy arguments
00050 !            ------------------------------
00051 !
00052  CHARACTER(LEN=6),     INTENT(IN)  :: HPROGRAM    ! program calling
00053  CHARACTER(LEN=28),    INTENT(IN)  :: HINIFILE    ! input atmospheric file name
00054  CHARACTER(LEN=6),     INTENT(IN)  :: HINIFILETYPE! input atmospheric file type
00055  CHARACTER(LEN=28),    INTENT(IN)  :: HFILE       ! output file name
00056  CHARACTER(LEN=6),     INTENT(IN)  :: HFILETYPE   ! output file type
00057 LOGICAL,              INTENT(IN)  :: OECOCLIMAP  ! flag to use ecoclimap
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !
00061 !*    0.2    Declaration of local variables
00062 !            ------------------------------
00063 !
00064 !------------------------------------------------------------------------------
00065 IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_NATURE',0,ZHOOK_HANDLE)
00066 IF (CNATURE=='NONE  ') THEN
00067   IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_NATURE',1,ZHOOK_HANDLE)
00068   RETURN
00069 ELSE IF (CNATURE=='FLUX  ') THEN
00070   IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_NATURE',1,ZHOOK_HANDLE)
00071   RETURN
00072 ELSE IF (CNATURE=='ISBA  ' .OR. CNATURE=='TSZ0') THEN
00073   CALL ZOOM_PGD_ISBA(HPROGRAM,HINIFILE,HINIFILETYPE,HFILE,HFILETYPE,OECOCLIMAP)
00074 END IF
00075 IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_NATURE',1,ZHOOK_HANDLE)
00076 !
00077 !_______________________________________________________________________________
00078 !
00079 END SUBROUTINE ZOOM_PGD_NATURE