LMDZ
yoe_mcica.F90
Go to the documentation of this file.
1 MODULE yoe_mcica
2 
3 USE parkind1 ,ONLY : jpim, jprb
4 
5 IMPLICIT NONE
6 
7 SAVE
8 !------------------------------------------------------------------------------
9 
10 REAL(KIND=JPRB) :: xcw(1000,140)
11 INTEGER(KIND=JPIM) :: nmci1, nmci2
12 
13 !------------------------------------------------------------------------------
14 
15 !$OMP THREADPRIVATE(nmci1,nmci2,xcw)
16 
17 END MODULE yoe_mcica
yoe_mcica::nmci1
integer(kind=jpim) nmci1
Definition: yoe_mcica.F90:11
yoe_mcica::xcw
real(kind=jprb), dimension(1000, 140) xcw
Definition: yoe_mcica.F90:10
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:31
yoe_mcica::nmci2
integer(kind=jpim) nmci2
Definition: yoe_mcica.F90:11
parkind1::jpim
integer, parameter jpim
Definition: parkind1.F90:13
yoe_mcica
Definition: yoe_mcica.F90:1