yommddh.F90

Go to the documentation of this file.

MODULE yommddh

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!     DIAGNOSTIQUES DOMAINES HORIZONTAUX
!     ----------------------------------

!     DIMENSIONS DES DIAGNOSTIQUES DDH
!     ---------------------------------
! === basic dimensions for reading NAMDDH ===
INTEGER(KIND=JPIM), PARAMETER :: jpdhnox=200
INTEGER(KIND=JPIM), PARAMETER :: jpdhxpu=5

!     JPDHNOX: Maximum number of user area
!     JPDHXPU: Maximum number of user or mask memory plans

INTEGER(KIND=JPIM) :: ndhkd
INTEGER(KIND=JPIM) :: ndhnpu
INTEGER(KIND=JPIM) :: ndhbpu(jpdhxpu)
INTEGER(KIND=JPIM) :: ndhbpx
INTEGER(KIND=JPIM) :: ndhnom
INTEGER(KIND=JPIM) :: ndhddx
INTEGER(KIND=JPIM) :: ndhidh
INTEGER(KIND=JPIM) :: ndhcs
INTEGER(KIND=JPIM) :: ndhcv
INTEGER(KIND=JPIM) :: ndhcvsu
INTEGER(KIND=JPIM) :: ndhcssu
INTEGER(KIND=JPIM) :: ndhcvsun
INTEGER(KIND=JPIM) :: ndhcvsul
!     NDHKD : NOMBRE DE BANDES DE LATITUDES
!     NDHNPU : NOMBRE DE MASQUES UTILISES NDHNPU .LE. JPDHXPU
!     NDHBPU(JPDHXPU) : NOMBRE DE DOMAINES CONTENU DANS CHAQUE MASQUE
!     NDHBPX : NOMBRE DE DOMAINE MAXIMAL PAR MASQUE
!                                         NDHBPX = MAX( NDHBPU )
!     NDHNOM : NOMBRE TOTALE DE DOMAINES LIMITES EN NOMENCLATURE
!                                         NDHNOM .LE. JPDHNOX
!     NDHDDX : NOMBRE MAXIMAL DE DOMAINES INTERNES POSSIBLES
!     NDHIDH : NOMBRE DE DOMAINES INTERNES ( OR DOMAINE 0 EVENTUEL )
!              INITIALISE PAR CALCUL DANS SUMDDH
!     NDHCS  : NOMBRE TOTAL DE CHAMPS AU SOL
!     NDHCV  : NOMBRE TOTAL DE CHAMPS EN PROFILS VERTICAUX
!     NDHCVSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS VERTICAUX
!              NDHCVSU EST IMPAIR ET VAUT 1 AU MOINS
!     NDHCSSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS AU SOL

!     INDICATEURS D ORGANISATION DE LA REPARTITION DES CHAMPS
!     ------------------------------------------------------------------
INTEGER(KIND=JPIM) :: ndhvv
INTEGER(KIND=JPIM) :: ndhfvd
INTEGER(KIND=JPIM) :: ndhfvp
INTEGER(KIND=JPIM) :: ndhvs
INTEGER(KIND=JPIM) :: ndhfsd
INTEGER(KIND=JPIM) :: ndhfsp
INTEGER(KIND=JPIM) :: ndhffs
INTEGER(KIND=JPIM) :: ndhvfs

INTEGER(KIND=JPIM) :: ndhvtls
INTEGER(KIND=JPIM) :: ndhftls
INTEGER(KIND=JPIM) :: ndhvtss
INTEGER(KIND=JPIM) :: ndhftss
INTEGER(KIND=JPIM) :: ndhvtts
INTEGER(KIND=JPIM) :: ndhftts
INTEGER(KIND=JPIM) :: ndhvtis
INTEGER(KIND=JPIM) :: ndhftis
INTEGER(KIND=JPIM) :: ndhvsss
INTEGER(KIND=JPIM) :: ndhfsss
INTEGER(KIND=JPIM) :: ndhviis
INTEGER(KIND=JPIM) :: ndhfiis
INTEGER(KIND=JPIM) :: ndhvwls
INTEGER(KIND=JPIM) :: ndhfwls

INTEGER(KIND=JPIM) :: ndhthk
INTEGER(KIND=JPIM) :: ndhvhk
INTEGER(KIND=JPIM) :: ndhfhkd
INTEGER(KIND=JPIM) :: ndhfhkp
INTEGER(KIND=JPIM) :: ndhtmc
INTEGER(KIND=JPIM) :: ndhvmc
INTEGER(KIND=JPIM) :: ndhfmcd
INTEGER(KIND=JPIM) :: ndhfmcp
INTEGER(KIND=JPIM) :: ndhten
INTEGER(KIND=JPIM) :: ndhven
INTEGER(KIND=JPIM) :: ndhfend
INTEGER(KIND=JPIM) :: ndhfenp
INTEGER(KIND=JPIM) :: ndhavd
INTEGER(KIND=JPIM) :: ndhbvd
INTEGER(KIND=JPIM) :: ndhavp
INTEGER(KIND=JPIM) :: ndhbvp
INTEGER(KIND=JPIM) :: ndhahkd
INTEGER(KIND=JPIM) :: ndhbhkd
INTEGER(KIND=JPIM) :: ndhahkp
INTEGER(KIND=JPIM) :: ndhbhkp
INTEGER(KIND=JPIM) :: ndhamcd
INTEGER(KIND=JPIM) :: ndhbmcd
INTEGER(KIND=JPIM) :: ndhamcp
INTEGER(KIND=JPIM) :: ndhbmcp
INTEGER(KIND=JPIM) :: ndhaend
INTEGER(KIND=JPIM) :: ndhbend
INTEGER(KIND=JPIM) :: ndhaenp
INTEGER(KIND=JPIM) :: ndhbenp

!   * LES INDICATEURS PRECEDES DE * SONT DES NOMBRES ATTACHES
!     AU CODE FORTRAN DE CALCUL SCIENTIFIQUE, ET NON DES
!     PARAMETRES AJUSTABLES AUX CIRCONSTANCES

!     NDHVV  : NOMBRE DE VARIABLES SUR LA VERTICALE
!     NDHFVD : NOMBRE DE FLUX+TENDANCES DYNAMIQUES SUR LA VERTICALE
!           DETAIL CI DESSOUS
!     NDHFVP : NOMBRE DE FLUX+TENDANCES PHYSIQUES SUR LA VERTICALE
!           DETAIL CI DESSOUS

!   * NDHVS  : NOMBRE DE VARIABLES AU SOL
!   * NDHFSD : NOMBRE DE FLUX DYNAMIQUES AU SOL
!   * NDHFSP : NOMBRE DE FLUX PHYSIQUES AU SOL
!   * NDHFFS : Number of free-style fluxes
!   * NDHVFS : Number of free-style variables

!   * NDHVTLS: Number of variables for individual tiles
!   * NDHFTLS: Number of fluxes for individual tiles
!   * NDHVTSS: Number of variables for snow energy budget
!   * NDHFTSS: Number of fluxes for snow energy budget
!   * NDHVTTS: Number of variables for soil energy budget
!   * NDHFTTS: Number of fluxes for soil energy budget
!   * NDHVTIS: Number of variables for sea ice energy budget
!   * NDHFTIS: Number of fluxes for sea ice energy budget
!   * NDHVSSS: Number of variables for snow water budget
!   * NDHFSSS: Number of fluxes for snow water budget
!   * NDHVIIS: Number of variables for interception layer water budget
!   * NDHFIIS: Number of fluxes for interception layer water budget
!   * NDHVWLS: Number of variables for soil water budget
!   * NDHFWLS: Number of fluxes for soil water budget

!     NDHTHK : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDHKS
!   * NDHVHK : NOMBRE DE VARIABLES SOUS LHDHKS
!   * NDHFHKD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDHKS
!   * NDHFHKP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDHKS

!     NDHTMC : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDMCI
!   * NDHVMC : NOMBRE DE VARIABLES SOUS LHDMCI
!   * NDHFMCD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDMCI
!   * NDHFMCP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDMCI

!     NDHTEN : NOMBRE TOTAL DE CHAMPS SOUS LHDENT
!   * NDHVEN : NOMBRE DE VARIABLES SOUS LHDENT
!   * NDHFEND: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDENT
!   * NDHFENP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDENT

!     NDHAVD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES
!     NDHBVD : NOMBRE TOTAL DE FLUX DYNAMIQUES
!     NDHAVP : NOMBRE TOTAL DE FLUX PHYSIQUES
!     NDHBVP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
!   * NDHAHKD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDHKS
!   * NDHBHKD : NOMBRE TOTAL DE FLUX DYNAMIQUES
!   * NDHAHKP : NOMBRE TOTAL DE FLUX PHYSIQUES
!   * NDHBHKP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
!   * NDHAMCD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDMCI
!   * NDHBMCD : NOMBRE TOTAL DE FLUX DYNAMIQUES
!   * NDHAMCP : NOMBRE TOTAL DE FLUX PHYSIQUES
!   * NDHBMCP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
!   * NDHAEND : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDENT
!   * NDHBEND : NOMBRE TOTAL DE FLUX DYNAMIQUES
!   * NDHAENP : NOMBRE TOTAL DE FLUX PHYSIQUES
!   * NDHBENP : NOMBRE TOTAL DE TENDANCES PHYSIQUES

!     IDENTIFICATION DES DOMAINES DE L UTILISATEUR
!     ------------------------------------------------------------------

INTEGER(KIND=JPIM) :: ndhzpr
REAL(KIND=JPRB) :: fnoddh(11,jpdhnox)
REAL(KIND=JPRB) :: bdeddh(10,jpdhnox)
REAL(KIND=JPRB) :: hdsfgl

!     FNODDH : DESCRIPTEURS DES DOMAINES LIMITES UTILISATEUR ACCEPTES
!           (1,-) : PLAN MEMOIRE (MASQUE)
!           (2,-) : NUMERO D ORDRE DANS LE PLAN
!          CES DEUX NOMBRES FORMENT LES COORDONNEES INTERNES DU DOMAINE
!           (3,-) A (10,-) : COORDONNEES (EN GAL LON, SIN(LAT) EN RD)
!                            SUIVANT LE TYPE (VOIR DOCUMENTATION)
!           (11,-) : TYPE DE DOMAINE

!     BDEDDH : DESCRIPTEUR BRUT LU SUR NAMELIST
!              (CERTAINS DOMAINES PEUVENT AVOIR ETE REJETES)
!           (1,-) : TYPE DE DOMAINE
!           (2,-) : PLAN MEMOIRE
!           (3,-) A (10,-) : COORDONNEES (EN GAL LON, LAT EN DEG)
!                            SUIVANT LE TYPE (VOIR DOCUMENTATION)
!     HDSFGL : VOIR CI DESSOUS
!     NDHZPR : INDICE DE LA BANDE ZONALE EVENTUELLEMENT IMPRIMEE

!     MASQUES DES DIAGNOSTIQUES DDH, POIDS POUR LES MOYENNES
!     ------------------------------------------------------------------

INTEGER(KIND=JPIM),ALLOCATABLE:: nddhla(:)
INTEGER(KIND=JPIM),ALLOCATABLE:: nddhpu(:,:)

INTEGER(KIND=JPIM),ALLOCATABLE:: nddhi(:)
!     -----
INTEGER(KIND=JPIM),ALLOCATABLE:: nlrddh(:,:)
INTEGER(KIND=JPIM),ALLOCATABLE:: nurddh(:,:,:)
!     -----
INTEGER(KIND=JPIM),ALLOCATABLE:: nlxddh(:)
INTEGER(KIND=JPIM),ALLOCATABLE:: nuxddh(:,:)
!     -----
REAL(KIND=JPRB),ALLOCATABLE:: hdsfla(:)
REAL(KIND=JPRB),ALLOCATABLE:: hdsfdu(:,:)
REAL(KIND=JPRB),ALLOCATABLE:: hdsf(:)

!     NDDHLA : MASQUE BANDES DE LATITUDES
!     NDDHPU : MASQUES POUR LES DOMAINES LIMITES ET LES POINTS

!     NDDHI : MASQUE DES DOMAINES INTERNES

!     NLRDDH : DISTRIBUTION DE CHAQUE BANDE DE LATITUDE EN DOMAINES INTERNES
!     NURDDH : DISTRIBUTION DE CHAQUE DOMAINE DE CHAQUE PLAN EN DOMAINES INTERNE

!     NLXDDH : BORNE DE LECTURE DE NLRDDH POUR CHAQUE BANDE
!     NUXDDH : BORNE DE LECTURE DE NURDDH POUR CHAQUE DOMAINE DE CHAQUE PLAN

!     HDSFLA : POIDS DE CHAQUE BANDE DE LATITUDE
!     HDSFDU : POIDS DE CHAQUE DOMAINE UTILISATEUR
!     HDSFGL : POIDS POUR LES MOYENNES GLOBALES
!     HDSF : POIDS DE CHAQUE POINT DE LA GRILLE PHYSIQUE

!     POINTEURS

! ---- DDH
!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(bdeddh,fnoddh,hdsfgl,ndhaend,ndhaenp,ndhahkd,ndhahkp,ndhamcd)
!$OMP THREADPRIVATE(ndhamcp,ndhavd,ndhavp,ndhbend,ndhbenp,ndhbhkd,ndhbhkp,ndhbmcd)
!$OMP THREADPRIVATE(ndhbmcp,ndhbpu,ndhbpx,ndhbvd,ndhbvp,ndhcs,ndhcssu,ndhcv,ndhcvsu)
!$OMP THREADPRIVATE(ndhcvsul,ndhcvsun,ndhddx,ndhfend,ndhfenp,ndhffs,ndhfhkd,ndhfhkp)
!$OMP THREADPRIVATE(ndhfiis,ndhfmcd,ndhfmcp,ndhfsd,ndhfsp,ndhfsss,ndhftis,ndhftls)
!$OMP THREADPRIVATE(ndhftss,ndhftts,ndhfvd,ndhfvp,ndhfwls,ndhidh,ndhkd,ndhnom,ndhnpu)
!$OMP THREADPRIVATE(ndhten,ndhthk,ndhtmc,ndhven,ndhvfs,ndhvhk,ndhviis,ndhvmc,ndhvs)
!$OMP THREADPRIVATE(ndhvsss,ndhvtis,ndhvtls,ndhvtss,ndhvtts,ndhvv,ndhvwls,ndhzpr)
!$OMP THREADPRIVATE(hdsf,hdsfdu,hdsfla,nddhi,nddhla,nddhpu,nlrddh,nlxddh,nurddh,nuxddh)
END MODULE yommddh