module_INDX.F

1 !
2       MODULE MODULE_INDX
3 !----------------------------------------------------------------------
4 !----------------------------------------------------------------------
5 !
6 !***  INDEX INCREMENTS FOR MOVING TO NEIGHBORS ON THE E-GRID
7 !
8       INTEGER,ALLOCATABLE,DIMENSION(:) :: IHE,IHW,IVE,IVW,IRAD         &
9                                          ,IHEG,IHWG,IVEG,IVWG,IRADG
10 !----------------------------------------------------------------------
11 !
12 !***  INDEX INCREMENTS FOR 3RD INDEX IN WORKING ARRAYS IN PFDHT, DDAMP,
13 !***  ADVE, AND HDIFF.
14 !
15       INTEGER,ALLOCATABLE,DIMENSION(:,:,:) :: INDX3_WRK
16 !----------------------------------------------------------------------
17 !
18 !***  INCREMENTS TO J1_00 IN UPSTREAM HORIZONTAL ADVECTION.
19 !
20       INTEGER,DIMENSION(-2:2,-2:2) :: INC_UPS
21 !----------------------------------------------------------------------
22 !
23 !***  NUMBER OF POINTS NEEDED IN EACH ROW FOR UPSTREAM COMPUTATIONS
24 !
25       INTEGER,ALLOCATABLE,DIMENSION(:) :: N_IUP_H,N_IUP_V              &
26                                          ,N_IUP_ADH,N_IUP_ADV
27 !
28 !***  I VALUES IN EACH ROW NEEDED FOR UPSTREAM ADVECTION
29 !
30       INTEGER,ALLOCATABLE,DIMENSION(:,:) :: IUP_H,IUP_V,IUP_ADH,IUP_ADV
31 !----------------------------------------------------------------------
32 
33       CONTAINS
34          SUBROUTINE init_module_indx
35 #if 0
36             ALLOCATE(IHE(-2:NMM_MAX_DIM))
37             ALLOCATE(IHW(-2:NMM_MAX_DIM))
38             ALLOCATE(IVE(-2:NMM_MAX_DIM))
39             ALLOCATE(IVW(-2:NMM_MAX_DIM))
40             ALLOCATE(IRAD(-2:NMM_MAX_DIM))
41             ALLOCATE(IHEG(-2:NMM_MAX_DIM))
42             ALLOCATE(IHWG(-2:NMM_MAX_DIM))
43             ALLOCATE(IVEG(-2:NMM_MAX_DIM))
44             ALLOCATE(IVWG(-2:NMM_MAX_DIM))
45             ALLOCATE(IRADG(-2:NMM_MAX_DIM))
46             ALLOCATE(INDX3_WRK(-3:3,1:NMM_MAX_DIM,0:6))
47 #endif
48          END SUBROUTINE init_module_indx
49       END MODULE MODULE_INDX