Directory: | ./ |
---|---|
File: | rad/sucape.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 13 | 14 | 92.9% |
Branches: | 7 | 14 | 50.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | 1 | SUBROUTINE SUCAPE(KULOUT) | |
2 | |||
3 | !**** *SUCAPE * - ROUTINE TO INITIALIZE THE VARIABLES FOR CAPE | ||
4 | ! AND CIN COMPUTATION | ||
5 | |||
6 | ! PURPOSE. | ||
7 | ! -------- | ||
8 | ! SET DEFAULT VALUES, THEN READS NAMELIST NAMCAPE | ||
9 | |||
10 | !** INTERFACE. | ||
11 | ! ---------- | ||
12 | ! *CALL* *SUCAPE(KULOUT)* | ||
13 | |||
14 | ! EXPLICIT ARGUMENTS : KULOUT | ||
15 | ! -------------------- | ||
16 | |||
17 | ! IMPLICIT ARGUMENTS : | ||
18 | ! -------------------- | ||
19 | ! COMMON YOMCAPE | ||
20 | ! COMMON YOMPHY | ||
21 | ! COMMON YOMLUN | ||
22 | |||
23 | ! METHOD. | ||
24 | ! ------- | ||
25 | |||
26 | ! EXTERNALS. | ||
27 | ! ---------- | ||
28 | |||
29 | ! REFERENCE. | ||
30 | ! ---------- | ||
31 | |||
32 | ! AUTHOR. | ||
33 | ! ------- | ||
34 | ! N.Pristov 03/2001 | ||
35 | |||
36 | ! MODIFICATIONS. | ||
37 | ! -------------- | ||
38 | ! ORIGINAL : 03/2001 | ||
39 | ! M.Hamrud 01-Oct-2003 CY28 Cleaning | ||
40 | !----------------------------------------------------------------------- | ||
41 | |||
42 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
43 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK | ||
44 | |||
45 | USE YOMCAPE , ONLY : NCAPEITER ,NETAPES ,GCAPERET ,GCAPEPSD | ||
46 | USE YOMPHY , ONLY : NBITER | ||
47 | ! Ce qui concerne NULNAM commente par MPL le 15.04.09 | ||
48 | !USE YOMLUN , ONLY : NULNAM | ||
49 | |||
50 | IMPLICIT NONE | ||
51 | |||
52 | INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT | ||
53 | REAL(KIND=JPRB) :: ZHOOK_HANDLE | ||
54 | |||
55 | INTERFACE | ||
56 | SUBROUTINE ABOR1(CDTEXT) | ||
57 | CHARACTER(LEN=*) :: CDTEXT | ||
58 | END SUBROUTINE ABOR1 | ||
59 | END INTERFACE | ||
60 | INTERFACE | ||
61 | SUBROUTINE POSNAM(KULNAM,CDNAML) | ||
62 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
63 | INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM | ||
64 | CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML | ||
65 | END SUBROUTINE POSNAM | ||
66 | END INTERFACE | ||
67 | |||
68 | NAMELIST/NAMCAPE/ NCAPEITER, NETAPES, GCAPERET, GCAPEPSD | ||
69 | |||
70 | ! ---------------------------------------------------------------- | ||
71 | !* 1. SET DEFAULT VALUES. | ||
72 | ! ------------------- | ||
73 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SUCAPE',0,ZHOOK_HANDLE) |
74 | 1 | NCAPEITER=NBITER | |
75 | 1 | NETAPES=2 | |
76 | 1 | GCAPERET=0._JPRB | |
77 | 1 | GCAPEPSD=30000._JPRB | |
78 | |||
79 | ! ---------------------------------------------------------------- | ||
80 | !* 2. MODIFIES DEFAULT VALUES. READ NAMELIST. | ||
81 | ! ------------------------ | ||
82 | |||
83 | ! Ce qui concerne NAMCAPE commente par MPL le 15.04.09 | ||
84 | !CALL POSNAM(NULNAM,'NAMCAPE') | ||
85 | !READ(NULNAM,NAMCAPE) | ||
86 | |||
87 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
|
1 | IF (NCAPEITER <= 0 ) CALL ABOR1('SUCAPE: INVALID VALUE FOR NCAPEITER') |
88 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
|
1 | IF (NETAPES <= 0 ) CALL ABOR1('SUCAPE: INVALID VALUE FOR NETAPES') |
89 |
2/4✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
|
1 | IF ((GCAPERET < 0.0_JPRB ) .OR. (GCAPERET > 1.0_JPRB )) & |
90 | ✗ | & CALL ABOR1('SUCAPE: INVALID VALUE FOR GCAPERET') | |
91 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
|
1 | IF (GCAPEPSD <= 0.0_JPRB ) CALL ABOR1('SUCAPE: INVALID VALUE FOR GCAPEPSD') |
92 | |||
93 | ! ----------------------------------------------------------- | ||
94 | !* 3. PRINT FINAL VALUES. | ||
95 | ! ------------------- | ||
96 | |||
97 | WRITE(KULOUT,'('' NCAPEITER = '',I2,'' NETAPES = '',I2,'' GCAPERET = '',& | ||
98 | 1 | & E13.6,'' GCAPEPSD = '',E13.6)') NCAPEITER, NETAPES, GCAPERET, GCAPEPSD | |
99 | |||
100 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SUCAPE',1,ZHOOK_HANDLE) |
101 | 1 | END SUBROUTINE SUCAPE | |
102 |