SURFEX v7.3
General documentation of Surfex
|
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