read_sson.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 read_sso_n (&
                              u, uss, &
                             hprogram)
!     ################################
!
!!****  *READ_SSO_n* - routine to read a file for
!!                         physiographic data file of model _n 
!!
!!    PURPOSE
!!    -------
!!       The purpose of this routine is to initialise the 
!!       physiographic data file.
!!
!!
!!**  METHOD
!!    ------
!!      The data are read in the initial surface file :
!!        - 2D physiographic data fields
!!          
!!      It does not read the grid definition. This should have been
!!      read already.
!!
!!    EXTERNAL
!!    --------
!!      
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2003
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
!
!
!
!
!
!
USE modd_surf_atm_n, ONLY : surf_atm_t
USE modd_surf_atm_sso_n, ONLY : surf_atm_sso_t
!
USE modi_read_surf
!
USE modd_surf_par, ONLY : xundef
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
!
!
!
TYPE(surf_atm_t), INTENT(INOUT) :: u
TYPE(surf_atm_sso_t), INTENT(INOUT) :: uss
!
 CHARACTER(LEN=6),  INTENT(IN)  :: hprogram ! calling program
!
!*       0.2   Declarations of local variables
!              -------------------------------
!

!
INTEGER           :: iresp          ! Error code after redding
! 
 CHARACTER(LEN=12) :: yrecfm         ! Name of the article to be read
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------
!
!*       2.     Orography :
!               ---------
!
!
IF (lhook) CALL dr_hook('READ_SSO_N',0,zhook_handle)
IF(.NOT.ASSOCIATED(uss%XAVG_ZS)) ALLOCATE(uss%XAVG_ZS(u%NSIZE_FULL))
yrecfm='AVG_ZS'
 CALL read_surf(&
                hprogram,yrecfm,uss%XAVG_ZS(:),iresp)
!
IF(.NOT.ASSOCIATED(uss%XSIL_ZS)) ALLOCATE(uss%XSIL_ZS(u%NSIZE_FULL))
yrecfm='SIL_ZS'
 CALL read_surf(&
                hprogram,yrecfm,uss%XSIL_ZS(:),iresp)
!
!
!*       3.     Subgrid Orography :
!               -----------------
!
!
IF(.NOT.ASSOCIATED(uss%XSSO_STDEV)) ALLOCATE(uss%XSSO_STDEV(u%NSIZE_FULL))
yrecfm='SSO_STDEV'
 CALL read_surf(&
                hprogram,yrecfm,uss%XSSO_STDEV(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XSSO_STDEV(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XMIN_ZS)) ALLOCATE(uss%XMIN_ZS(u%NSIZE_FULL))
yrecfm='MIN_ZS'
 CALL read_surf(&
                hprogram,yrecfm,uss%XMIN_ZS(:),iresp)
!
IF(.NOT.ASSOCIATED(uss%XMAX_ZS)) ALLOCATE(uss%XMAX_ZS(u%NSIZE_FULL))
yrecfm='MAX_ZS'
 CALL read_surf(&
                hprogram,yrecfm,uss%XMAX_ZS(:),iresp)
!
IF(.NOT.ASSOCIATED(uss%XSSO_ANIS)) ALLOCATE(uss%XSSO_ANIS(u%NSIZE_FULL))
yrecfm='SSO_ANIS'
 CALL read_surf(&
                hprogram,yrecfm,uss%XSSO_ANIS(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XSSO_ANIS(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XSSO_DIR)) ALLOCATE(uss%XSSO_DIR(u%NSIZE_FULL))
yrecfm='SSO_DIR'
 CALL read_surf(&
                hprogram,yrecfm,uss%XSSO_DIR(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XSSO_DIR(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XSSO_SLOPE)) ALLOCATE(uss%XSSO_SLOPE(u%NSIZE_FULL))
yrecfm='SSO_SLOPE'
 CALL read_surf(&
                hprogram,yrecfm,uss%XSSO_SLOPE(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XSSO_SLOPE(:) = xundef
!
!-------------------------------------------------------------------------------
!
!*       3.     Subgrid Orography roughness:
!               ---------------------------
!
!
IF(.NOT.ASSOCIATED(uss%XHO2IP)) ALLOCATE(uss%XHO2IP(u%NSIZE_FULL))
yrecfm='HO2IP'
 CALL read_surf(&
                hprogram,yrecfm,uss%XHO2IP(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XHO2IP(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XHO2JP)) ALLOCATE(uss%XHO2JP(u%NSIZE_FULL))
yrecfm='HO2JP'
 CALL read_surf(&
                hprogram,yrecfm,uss%XHO2JP(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XHO2JP(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XHO2IM)) ALLOCATE(uss%XHO2IM(u%NSIZE_FULL))
yrecfm='HO2IM'
 CALL read_surf(&
                hprogram,yrecfm,uss%XHO2IM(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XHO2IM(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XHO2JM)) ALLOCATE(uss%XHO2JM(u%NSIZE_FULL))
yrecfm='HO2JM'
 CALL read_surf(&
                hprogram,yrecfm,uss%XHO2JM(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XHO2JM(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XAOSIP)) ALLOCATE(uss%XAOSIP(u%NSIZE_FULL))
yrecfm='AOSIP'
 CALL read_surf(&
                hprogram,yrecfm,uss%XAOSIP(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XAOSIP(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XAOSJP)) ALLOCATE(uss%XAOSJP(u%NSIZE_FULL))
yrecfm='AOSJP'
 CALL read_surf(&
                hprogram,yrecfm,uss%XAOSJP(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XAOSJP(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XAOSIM)) ALLOCATE(uss%XAOSIM(u%NSIZE_FULL))
yrecfm='AOSIM'
 CALL read_surf(&
                hprogram,yrecfm,uss%XAOSIM(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XAOSIM(:) = xundef
!
IF(.NOT.ASSOCIATED(uss%XAOSJM)) ALLOCATE(uss%XAOSJM(u%NSIZE_FULL))
yrecfm='AOSJM'
 CALL read_surf(&
                hprogram,yrecfm,uss%XAOSJM(:),iresp)
WHERE (u%XSEA(:) == 1.) uss%XAOSJM(:) = xundef
IF (lhook) CALL dr_hook('READ_SSO_N',1,zhook_handle)
!
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE read_sso_n