1 |
|
|
MODULE SET_RESOL_MOD |
2 |
|
|
CONTAINS |
3 |
|
|
SUBROUTINE SET_RESOL(KRESOL) |
4 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
5 |
|
|
|
6 |
|
|
USE TPM_GEN |
7 |
|
|
USE TPM_DIM |
8 |
|
|
USE TPM_TRANS |
9 |
|
|
USE TPM_DISTR |
10 |
|
|
USE TPM_GEOMETRY |
11 |
|
|
USE TPM_FIELDS |
12 |
|
|
USE TPM_FFT |
13 |
|
|
USE ABORT_TRANS_MOD |
14 |
|
|
|
15 |
|
|
IMPLICIT NONE |
16 |
|
|
|
17 |
|
|
! Declaration of arguments |
18 |
|
|
|
19 |
|
|
INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL |
20 |
|
|
|
21 |
|
|
! Local varaibles |
22 |
|
|
INTEGER(KIND=JPIM) :: IRESOL |
23 |
|
|
|
24 |
|
|
! ------------------------------------------------------------------ |
25 |
|
|
|
26 |
|
|
IRESOL = 1 |
27 |
|
|
IF(PRESENT(KRESOL)) THEN |
28 |
|
|
IF(KRESOL < 1 .OR. KRESOL > NMAX_RESOL) THEN |
29 |
|
|
WRITE(NOUT,*)'SET_RESOL: UNKNOWN RESOLUTION ',KRESOL,NMAX_RESOL |
30 |
|
|
CALL ABORT_TRANS('SET_RESOL:KRESOL < 1 .OR. KRESOL > NMAX_RESOL') |
31 |
|
|
ENDIF |
32 |
|
|
IRESOL = KRESOL |
33 |
|
|
ENDIF |
34 |
|
|
IF(IRESOL /= NCUR_RESOL) THEN |
35 |
|
|
NCUR_RESOL = IRESOL |
36 |
|
|
R => DIM_RESOL(NCUR_RESOL) |
37 |
|
|
F => FIELDS_RESOL(NCUR_RESOL) |
38 |
|
|
G => GEOM_RESOL(NCUR_RESOL) |
39 |
|
|
D => DISTR_RESOL(NCUR_RESOL) |
40 |
|
|
T => FFT_RESOL(NCUR_RESOL) |
41 |
|
|
ENDIF |
42 |
|
|
|
43 |
|
|
END SUBROUTINE SET_RESOL |
44 |
|
|
END MODULE SET_RESOL_MOD |