Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
! ######spl
MODULE MODD_FIELDS_ADDRESS
! ######################
!
!!**** *MODD_FIELDS_ADDRESS* - declaration of fields adress in arrays, as parameter variables
!!
!! PURPOSE
!! -------
! To share fields adress in arrays
!
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
!! None
!!
!! REFERENCE
!! ---------
!!
!! AUTHOR
!! ------
!! Ryad El Khatib *Meteo France*
!!
!! MODIFICATIONS
!! -------------
!! Original 24-Aug-2021
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
IMPLICIT NONE
!
! Pointer of fields in microphysic species arrays. Microphysics species are
! usually counted as KRR=6 or KRR=7. The extra "zero" adress for potential
! temperature is a trick to improve vectorization when all these fields needs
! the same treatement.
INTEGER, PARAMETER :: & ! pointer of fields in microphysic species arrays :
& ITH=0, & ! Potential temperature
& IRV=1, & ! Water vapor
& IRC=2, & ! Cloud water
& IRR=3, & ! Rain water
& IRI=4, & ! Pristine ice
& IRS=5, & ! Snow/aggregate
& IRG=6, & ! Graupel
& IRH=7 ! Hail
!
END MODULE MODD_FIELDS_ADDRESS