1 |
|
|
MODULE SETUP_DIMS_MOD |
2 |
|
|
CONTAINS |
3 |
|
|
SUBROUTINE SETUP_DIMS |
4 |
|
|
|
5 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
6 |
|
|
|
7 |
|
|
USE TPM_DIM |
8 |
|
|
|
9 |
|
|
IMPLICIT NONE |
10 |
|
|
|
11 |
|
|
INTEGER(KIND=JPIM) :: JM,JN,ISPOLEG |
12 |
|
|
|
13 |
|
|
! ------------------------------------------------------------------ |
14 |
|
|
|
15 |
|
|
ISPOLEG = 0 |
16 |
|
|
DO JM=0,R%NSMAX |
17 |
|
|
DO JN=JM,R%NTMAX+1 |
18 |
|
|
ISPOLEG = ISPOLEG+1 |
19 |
|
|
ENDDO |
20 |
|
|
ENDDO |
21 |
|
|
R%NSPOLEG = ISPOLEG |
22 |
|
|
|
23 |
|
|
R%NSPEC_G = (R%NSMAX+1)*(R%NSMAX+2)/2 |
24 |
|
|
R%NSPEC2_G = R%NSPEC_G*2 |
25 |
|
|
|
26 |
|
|
R%NDGNH = (R%NDGL+1)/2 |
27 |
|
|
|
28 |
|
|
R%NLEI1 = R%NSMAX+4+MOD(R%NSMAX+4+1,2) |
29 |
|
|
R%NLEI3 = R%NDGNH+MOD(R%NDGNH+2,2) |
30 |
|
|
|
31 |
|
|
R%NLED3 = R%NTMAX+2+MOD(R%NTMAX+3,2) |
32 |
|
|
R%NLED4 = R%NTMAX+3+MOD(R%NTMAX+4,2) |
33 |
|
|
|
34 |
|
|
! ------------------------------------------------------------------ |
35 |
|
|
|
36 |
|
|
END SUBROUTINE SETUP_DIMS |
37 |
|
|
END MODULE SETUP_DIMS_MOD |