ol_read_atm_netcdf.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_netcdf (&
                                HSURF_FILETYPE,                            &
                                 PTA,PQA,PWIND,PDIR_SW,PSCA_SW,PLW,PSNOW,   &
                                 PRAIN,PPS,PCO2,PDIR                        )  
!**************************************************************************
!
!!    PURPOSE
!!    -------
!         Read in the netcdf file the atmospheric forcing for the actual time
!         step KFORC_STEP, and for the next one.
!         The two time step are needed for the time interpolation of the
!         forcing.
!         If the end of the file  is reached, set the two step to the last
!         values.
!         Return undef value if the variable is not present
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      F. Habets   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original     06/2003
!!      P. Le Moigne 10/2004: set INB to 2 because of revised temporal loop in offline.f90:
!!                            time evolution is done at the end of isba time step so first 
!!                            isba computation is done on first forcing time step
!!      P. Le Moigne 10/2005: consistency checking between orographies read from forcing 
!!                            file and from initial file

!          
!
!
!
!
USE modd_io_surf_ol, ONLY : xcount
USE modi_read_surf
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!
! global variables
!
!
REAL, DIMENSION(:,:),INTENT(OUT) :: PTA
REAL, DIMENSION(:,:),INTENT(OUT) :: PQA
REAL, DIMENSION(:,:),INTENT(OUT) :: PWIND
REAL, DIMENSION(:,:),INTENT(OUT) :: PDIR_SW
REAL, DIMENSION(:,:),INTENT(OUT) :: PSCA_SW
REAL, DIMENSION(:,:),INTENT(OUT) :: PLW
REAL, DIMENSION(:,:),INTENT(OUT) :: PSNOW
REAL, DIMENSION(:,:),INTENT(OUT) :: PRAIN
REAL, DIMENSION(:,:),INTENT(OUT) :: PPS
REAL, DIMENSION(:,:),INTENT(OUT) :: PCO2
REAL, DIMENSION(:,:),INTENT(OUT) :: PDIR
 CHARACTER(LEN=6)    ,INTENT(IN)  :: HSURF_FILETYPE

! local variables
INTEGER                          :: IRET
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!

IF (lhook) CALL dr_hook('OL_READ_ATM_NETCDF',0,zhook_handle)
 CALL read_surf(&
                'OFFLIN','Tair',      pta(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','Qair',      pqa(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','Wind',      pwind(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','LWdown',    plw(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','DIR_SWdown',pdir_sw(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','SCA_SWdown',psca_sw(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','Rainf',     prain(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','Snowf',     psnow(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','PSurf',     pps(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','Wind_DIR',  pdir(:,1:xcount),iret)
 CALL read_surf(&
                'OFFLIN','CO2air',    pco2(:,1:xcount),iret)
IF (lhook) CALL dr_hook('OL_READ_ATM_NETCDF',1,zhook_handle)

END SUBROUTINE ol_read_atm_netcdf