ol_read_atm_conf.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
SUBROUTINE ol_read_atm_conf (YSC, &
                             hsurf_filetype, hforcing_filetype,  &
                              pduration,                          &
                              ptstep_forc, kni, kyear,kmonth,     &
                              kday, ptime, plat, plon,            &
                              pzs, pzref, puref                   )  
!
!==================================================================
!!****  *OL_READ_ATM_CONF* - Initialization routine
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      F. Habets   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004
!!      Modified by P. Le Moigne (04/2005): cleaning and checking
!!      Modified by P. Le Moigne (04/2006): init_io_surf for nature
!!                  with GTMSK to read dimensions.
!==================================================================
!
!
USE modd_surfex_n, ONLY : surfex_t
!
USE modi_ol_read_atm_conf_netcdf
USE modi_ol_read_atm_conf_ascii
USE modd_surf_conf,      ONLY : cprogname
!==================================================================
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE(surfex_t), INTENT(INOUT) :: ysc
!
 CHARACTER(LEN=6), INTENT(IN)  :: hsurf_filetype
 CHARACTER(LEN=6), INTENT(IN)  :: hforcing_filetype
INTEGER,          INTENT(OUT) :: kni
INTEGER,          INTENT(OUT) :: kyear, kmonth, kday
REAL,             INTENT(OUT) :: pduration,ptstep_forc
REAL,             INTENT(OUT) :: ptime
REAL, DIMENSION(:),  POINTER  :: plat, plon
REAL, DIMENSION(:),  POINTER  :: pzs
REAL, DIMENSION(:),  POINTER  :: pzref, puref
REAL(KIND=JPRB) :: zhook_handle
!
!==================================================================
!
IF (lhook) CALL dr_hook('OL_READ_ATM_CONF',0,zhook_handle)
 cprogname = hsurf_filetype
!
IF (hforcing_filetype == 'NETCDF') THEN
!
 CALL ol_read_atm_conf_netcdf(ysc, &
                              hsurf_filetype,                     &
                                pduration,                          &
                                ptstep_forc, kni, kyear,kmonth,     &
                                kday, ptime, plat, plon,            &
                                pzs, pzref, puref                   )  
!
ELSE IF (hforcing_filetype == 'ASCII ' .OR. hforcing_filetype == 'BINARY') THEN
!
 CALL ol_read_atm_conf_ascii(ysc, &
                              hsurf_filetype,hforcing_filetype,   &
                                pduration,                          &
                                ptstep_forc, kni, kyear,kmonth,     &
                                kday, ptime, plat, plon,            &
                                pzs, pzref, puref                   )  
!                              
ENDIF
IF (lhook) CALL dr_hook('OL_READ_ATM_CONF',1,zhook_handle)
!
!==================================================================
!
END SUBROUTINE ol_read_atm_conf