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 |
|
|
#include "abor1.intfb.h" |
56 |
|
|
#include "posnam.intfb.h" |
57 |
|
|
|
58 |
|
|
#include "namcape.h" |
59 |
|
|
|
60 |
|
|
! ---------------------------------------------------------------- |
61 |
|
|
!* 1. SET DEFAULT VALUES. |
62 |
|
|
! ------------------- |
63 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('SUCAPE',0,ZHOOK_HANDLE) |
64 |
|
1 |
NCAPEITER=NBITER |
65 |
|
1 |
NETAPES=2 |
66 |
|
1 |
GCAPERET=0._JPRB |
67 |
|
1 |
GCAPEPSD=30000._JPRB |
68 |
|
|
|
69 |
|
|
! ---------------------------------------------------------------- |
70 |
|
|
!* 2. MODIFIES DEFAULT VALUES. READ NAMELIST. |
71 |
|
|
! ------------------------ |
72 |
|
|
|
73 |
|
|
! Ce qui concerne NAMCAPE commente par MPL le 15.04.09 |
74 |
|
|
!CALL POSNAM(NULNAM,'NAMCAPE') |
75 |
|
|
!READ(NULNAM,NAMCAPE) |
76 |
|
|
|
77 |
✗✓ |
1 |
IF (NCAPEITER <= 0 ) CALL ABOR1('SUCAPE: INVALID VALUE FOR NCAPEITER') |
78 |
✗✓ |
1 |
IF (NETAPES <= 0 ) CALL ABOR1('SUCAPE: INVALID VALUE FOR NETAPES') |
79 |
✓✗✗✓
|
1 |
IF ((GCAPERET < 0.0_JPRB ) .OR. (GCAPERET > 1.0_JPRB )) & |
80 |
|
|
& CALL ABOR1('SUCAPE: INVALID VALUE FOR GCAPERET') |
81 |
✗✓ |
1 |
IF (GCAPEPSD <= 0.0_JPRB ) CALL ABOR1('SUCAPE: INVALID VALUE FOR GCAPEPSD') |
82 |
|
|
|
83 |
|
|
! ----------------------------------------------------------- |
84 |
|
|
!* 3. PRINT FINAL VALUES. |
85 |
|
|
! ------------------- |
86 |
|
|
|
87 |
|
|
WRITE(KULOUT,'('' NCAPEITER = '',I2,'' NETAPES = '',I2,'' GCAPERET = '',& |
88 |
|
1 |
& E13.6,'' GCAPEPSD = '',E13.6)') NCAPEITER, NETAPES, GCAPERET, GCAPEPSD |
89 |
|
|
|
90 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('SUCAPE',1,ZHOOK_HANDLE) |
91 |
|
1 |
END SUBROUTINE SUCAPE |