modd_slope_effect.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.
!     ######################
MODULE modd_slope_effect
!     ######################
!
!!****  *MODD_SLOPE_EFFECT - declaration of parameters relative to
!! computations of slopes and aspect effects on direct shortwave
!radiations 
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      V. Vionnet   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       15/04/11
!!!                03/14  : M Lafaysse, modifs for optimization and parallelization
!*       0.   DECLARATIONS
!             ------------
!
!
IMPLICIT NONE


INTEGER                            :: nnx !  number of points in X direction for large domain (all processors) + 1 line left, right, up, down
INTEGER                            :: nny !  number of points in Y direction for large domain (all processors) + 1 line left, right, up, down

INTEGER                            :: nix=0 !  number of points in X direction for complete domain (all processors)
INTEGER                            :: niy=0 !  number of points in Y direction for complete domain (all processors)

INTEGER,SAVE                       :: nnxloc !  number of points in X direction for large domain (this processor) + 1 line left, right, up, down
INTEGER,SAVE                       :: nnyloc !  number of points in Y direction for large domain (this processor) + 1 line left, right, up, down
INTEGER,SAVE                       :: nixloc !  number of points in X direction for complete domain (this processor)
INTEGER,SAVE                       :: niyloc !  number of points in Y direction for complete domain (this processor)


INTEGER,SAVE::nindx1_x,nindx2_x,nindx1_y,nindx2_y

LOGICAL :: lrevertgrid

REAL, DIMENSION(:,:),ALLOCATABLE :: xzsl   ! orography in a 2D array
REAL, DIMENSION(:,:),ALLOCATABLE :: xzs_xy ! orography at southwest corner of the mesh 
REAL, DIMENSION(:),ALLOCATABLE :: xxhat  ! X coordinate
REAL, DIMENSION(:),ALLOCATABLE :: xyhat  ! Y coordinate

REAL, DIMENSION(:),ALLOCATABLE :: xxhat_thread  ! X coordinate
REAL, DIMENSION(:),ALLOCATABLE :: xyhat_thread  ! Y coordinate

REAL, DIMENSION(:,:,:),ALLOCATABLE                   :: xslopazi ! azimuthal slope angle
REAL, DIMENSION(:,:,:),ALLOCATABLE                   :: xslopang ! vertical slope angle
REAL, DIMENSION(:,:,:),ALLOCATABLE                   :: xsurf_triangle ! surface of triangles

!idem for local processor
REAL,DIMENSION(:,:),ALLOCATABLE::xzs_thread,xzs_xy_thread
REAL,DIMENSION(:,:,:),ALLOCATABLE::xslopang_thread,xslopazi_thread,xsurf_triangle_thread

END MODULE modd_slope_effect