1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
C Copyright 1981-2007 ECMWF
C
C Licensed under the GNU Lesser General Public License which
C incorporates the terms and conditions of version 3 of the GNU
C General Public License.
C See LICENSE and gpl-3.0.txt for details.
C
#define INT_MISSING -2147483647
INTEGER FUNCTION SETREP(OUTREP)
C
C---->
C*****SEREP*
C
C PURPOSE
C -------
C reset LNOREPR to original value
C reset some other values in common block
C LNOREPR - Flag to say whether or not user specified NOREPR
C
C Function argument
C
INTEGER OUTREP
#include "parim.h"
#include "nifld.common"
#include "nofld.common"
SETREP = 0
IF(OUTREP.EQ.1) THEN
LNOREPR = .FALSE.
IF(.NOT.LNOAREA) THEN
NOAREA(1) = 0
NOAREA(2) = 0
NOAREA(3) = 0
NOAREA(4) = 0
CALL INTLOG(JP_DEBUG,'SETREP: AREA has been reseted'
X ,JPQUIET)
ENDIF
CALL INTLOG(JP_DEBUG,'SETREP: LNOREPR has been reseted'
X ,JPQUIET)
ENDIF
NIWE = 0
NINS = 0
CALL INTLOG(JP_DEBUG,'SETREP: NIWE,NINS has been reseted'
X ,JPQUIET)
cs NOACC = 0
cs CALL INTLOG(JP_DEBUG,'SETREP: NOACC has been reseted'
cs X ,JPQUIET)
NOLEVEL = 0
CALL INTLOG(JP_DEBUG,'SETREP: NOLEVEL has been reseted'
X ,JPQUIET)
LOCEAN = .FALSE.
CALL INTLOG(JP_DEBUG,'SETREP: LOCEAN has been reseted'
X ,JPQUIET)
LPREC = .FALSE.
CALL INTLOG(JP_DEBUG,'SETREP: LPREC has been reseted'
X ,JPQUIET)
LIMISSA = .FALSE.
LIMISSV = .FALSE.
RMISSGV = REAL(INT_MISSING)
CALL INTLOG(JP_DEBUG,'SETREP: LIMISSV has been reseted'
X ,JPQUIET)
cs LNOROTA = .FALSE.
cs CALL INTLOG(JP_DEBUG,'SETREP: LNOROTA has been reseted'
cs X ,JPQUIET)
C
RETURN
END
|
