writesurf_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 writesurf_sso_n (DGU, U, &
                                   uss, &
                                  hprogram)
!     #################################
!
!!****  *WRITESURF_SSO_n* - writes orographic fields
!!
!!    PURPOSE
!!    -------
!!       
!!
!!
!!**  METHOD
!!    ------
!!      
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2003
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
!
!
!
!
USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
USE modd_surf_atm_n, ONLY : surf_atm_t
!
USE modd_surf_atm_sso_n, ONLY : surf_atm_sso_t
!
USE modi_write_surf
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
!
!
TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
TYPE(surf_atm_t), INTENT(INOUT) :: u
!
TYPE(surf_atm_sso_t), INTENT(INOUT) :: uss
!
 CHARACTER(LEN=6),  INTENT(IN)  :: hprogram ! program calling
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
INTEGER           :: iresp          ! IRESP  : return-code if a problem appears
 CHARACTER(LEN=12) :: yrecfm         ! Name of the article to be read
 CHARACTER(LEN=100):: ycomment       ! Comment string
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------
!
!*       1.     Orography :
!               ---------
!
!
IF (lhook) CALL dr_hook('WRITESURF_SSO_N',0,zhook_handle)
yrecfm='AVG_ZS'
ycomment='X_Y_AVG_ZS (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XAVG_ZS(:),iresp,hcomment=ycomment)
!
yrecfm='SIL_ZS'
ycomment='X_Y_SIL_ZS (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XSIL_ZS(:),iresp,hcomment=ycomment)
!
!-------------------------------------------------------------------------------
!
!*       2.     Subgrid Orography :
!               -----------------
!
yrecfm='SSO_STDEV'
ycomment='X_Y_SSO_STDEV (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XSSO_STDEV(:),iresp,hcomment=ycomment)
!
!
yrecfm='MIN_ZS'
ycomment='X_Y_MIN_ZS (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XMIN_ZS(:),iresp,hcomment=ycomment)
!
yrecfm='MAX_ZS'
ycomment='X_Y_MAX_ZS (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XMAX_ZS(:),iresp,hcomment=ycomment)
!
yrecfm='SSO_ANIS'
ycomment='X_Y_SSO_ANIS (-)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XSSO_ANIS(:),iresp,hcomment=ycomment)
!
yrecfm='SSO_DIR'
ycomment='X_Y_SSO_DIR (DEG)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XSSO_DIR(:),iresp,hcomment=ycomment)
!
yrecfm='SSO_SLOPE'
ycomment='X_Y_SSO_SLOPE (-)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XSSO_SLOPE(:),iresp,hcomment=ycomment)
!
!-------------------------------------------------------------------------------
!
!*       3.     Subgrid Orography roughness:
!               ---------------------------
!
!
yrecfm='HO2IP'
ycomment='X_Y_HO2IP (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XHO2IP(:),iresp,hcomment=ycomment)
!
yrecfm='HO2JP'
ycomment='X_Y_HO2JP (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XHO2JP(:),iresp,hcomment=ycomment)
!
yrecfm='HO2IM'
ycomment='X_Y_HO2IM (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XHO2IM(:),iresp,hcomment=ycomment)
!
yrecfm='HO2JM'
ycomment='X_Y_HO2JM (M)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XHO2JM(:),iresp,hcomment=ycomment)
!
yrecfm='AOSIP'
ycomment='X_Y_AOSIP (-)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XAOSIP(:),iresp,hcomment=ycomment)
!
yrecfm='AOSJP'
ycomment='X_Y_AOSJP (-)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XAOSJP(:),iresp,hcomment=ycomment)
!
yrecfm='AOSIM'
ycomment='X_Y_AOSIM (-)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XAOSIM(:),iresp,hcomment=ycomment)
!
yrecfm='AOSJM'
ycomment='X_Y_AOSJM (-)'
 CALL write_surf(dgu, u, &
                 hprogram,yrecfm,uss%XAOSJM(:),iresp,hcomment=ycomment)
IF (lhook) CALL dr_hook('WRITESURF_SSO_N',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE writesurf_sso_n