Last change
on this file since 4248 was
1999,
checked in by Laurent Fairhead, 10 years ago
|
Merged trunk changes r1920:1997 into testing branch
|
-
Property copyright set to
Name of program: LMDZ Creation date: 1984 Version: LMDZ5 License: CeCILL version 2 Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539 See the license file in the root directory
|
File size:
945 bytes
|
Line | |
---|
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 |
---|
Note: See
TracBrowser
for help on using the repository browser.