SURFEX v7.3
General documentation of Surfex
 All Classes Files Functions Variables Typedefs
/home/dasprezs/EXPORT_v7_3/src/OFFLIN/ol_read_atm_conf.F90
Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE OL_READ_ATM_CONF(HSURF_FILETYPE, HFORCING_FILETYPE,  &
00003                               PDURATION,                          &
00004                               PTSTEP_FORC, KNI, KYEAR,KMONTH,     &
00005                               KDAY, PTIME, PLAT, PLON,            &
00006                               PZS, PZREF, PUREF                   )  
00007 !
00008 !==================================================================
00009 !!****  *OL_READ_ATM_CONF* - Initialization routine
00010 !!
00011 !!    PURPOSE
00012 !!    -------
00013 !!
00014 !!**  METHOD
00015 !!    ------
00016 !!
00017 !!    EXTERNAL
00018 !!    --------
00019 !!
00020 !!
00021 !!    IMPLICIT ARGUMENTS
00022 !!    ------------------
00023 !!
00024 !!    REFERENCE
00025 !!    ---------
00026 !!
00027 !!
00028 !!    AUTHOR
00029 !!    ------
00030 !!      F. Habets   *Meteo France*      
00031 !!
00032 !!    MODIFICATIONS
00033 !!    -------------
00034 !!      Original    01/2004
00035 !!      Modified by P. Le Moigne (04/2005): cleaning and checking
00036 !!      Modified by P. Le Moigne (04/2006): init_io_surf for nature
00037 !!                  with GTMSK to read dimensions.
00038 !==================================================================
00039 USE MODI_OL_READ_ATM_CONF_NETCDF
00040 USE MODI_OL_READ_ATM_CONF_ASCII
00041 USE MODD_SURF_CONF,      ONLY : CPROGNAME
00042 !==================================================================
00043 !
00044 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00045 USE PARKIND1  ,ONLY : JPRB
00046 !
00047 IMPLICIT NONE
00048 !
00049  CHARACTER(LEN=6), INTENT(IN)  :: HSURF_FILETYPE
00050  CHARACTER(LEN=6), INTENT(IN)  :: HFORCING_FILETYPE
00051 INTEGER,          INTENT(OUT) :: KNI
00052 INTEGER,          INTENT(OUT) :: KYEAR, KMONTH, KDAY
00053 REAL,             INTENT(OUT) :: PDURATION,PTSTEP_FORC
00054 REAL,             INTENT(OUT) :: PTIME
00055 REAL, DIMENSION(:),  POINTER  :: PLAT, PLON
00056 REAL, DIMENSION(:),  POINTER  :: PZS
00057 REAL, DIMENSION(:),  POINTER  :: PZREF, PUREF
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !==================================================================
00061 !
00062 IF (LHOOK) CALL DR_HOOK('OL_READ_ATM_CONF',0,ZHOOK_HANDLE)
00063 CPROGNAME = HSURF_FILETYPE
00064 !
00065 IF (HFORCING_FILETYPE == 'NETCDF') THEN
00066 !
00067  CALL OL_READ_ATM_CONF_NETCDF(HSURF_FILETYPE,                     &
00068                                 PDURATION,                          &
00069                                 PTSTEP_FORC, KNI, KYEAR,KMONTH,     &
00070                                 KDAY, PTIME, PLAT, PLON,            &
00071                                 PZS, PZREF, PUREF                   )  
00072 !
00073 ELSE IF (HFORCING_FILETYPE == 'ASCII ' .OR. HFORCING_FILETYPE == 'BINARY') THEN
00074 !
00075  CALL OL_READ_ATM_CONF_ASCII (HSURF_FILETYPE,HFORCING_FILETYPE,   &
00076                                 PDURATION,                          &
00077                                 PTSTEP_FORC, KNI, KYEAR,KMONTH,     &
00078                                 KDAY, PTIME, PLAT, PLON,            &
00079                                 PZS, PZREF, PUREF                   )  
00080 !                              
00081 ENDIF
00082 IF (LHOOK) CALL DR_HOOK('OL_READ_ATM_CONF',1,ZHOOK_HANDLE)
00083 !
00084 !==================================================================
00085 !
00086 END SUBROUTINE OL_READ_ATM_CONF