| Directory: | ./ |
|---|---|
| File: | rad/suclop.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 34 | 34 | 100.0% |
| Branches: | 2 | 4 | 50.0% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | 1 | SUBROUTINE SUCLOP | |
| 2 | |||
| 3 | !**** *SUCLOP* - INITIALIZE COMMON YOECLOP | ||
| 4 | |||
| 5 | ! PURPOSE. | ||
| 6 | ! -------- | ||
| 7 | ! INITIALIZE YOMCLOP, WITH CLOUD OPTICAL PARAMETERS | ||
| 8 | |||
| 9 | !** INTERFACE. | ||
| 10 | ! ---------- | ||
| 11 | ! *CALL* SUCLOP | ||
| 12 | ! FROM *SUECRAD* | ||
| 13 | |||
| 14 | ! EXPLICIT ARGUMENTS : | ||
| 15 | ! -------------------- | ||
| 16 | ! NONE | ||
| 17 | |||
| 18 | ! IMPLICIT ARGUMENTS : | ||
| 19 | ! -------------------- | ||
| 20 | ! COMMON YOECLOP | ||
| 21 | |||
| 22 | ! METHOD. | ||
| 23 | ! ------- | ||
| 24 | ! SEE DOCUMENTATION | ||
| 25 | |||
| 26 | ! EXTERNALS. | ||
| 27 | ! ---------- | ||
| 28 | ! NONE | ||
| 29 | |||
| 30 | ! REFERENCE. | ||
| 31 | ! ---------- | ||
| 32 | ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE | ||
| 33 | ! "INTEGRATED FORECASTING SYSTEM" | ||
| 34 | |||
| 35 | ! AUTHOR. | ||
| 36 | ! ------- | ||
| 37 | ! JEAN-JACQUES MORCRETTE *ECMWF* | ||
| 38 | |||
| 39 | ! MODIFICATIONS. | ||
| 40 | ! -------------- | ||
| 41 | ! ORIGINAL : 92-02-29 | ||
| 42 | ! M.Hamrud 01-Oct-2003 CY28 Cleaning | ||
| 43 | ! ------------------------------------------------------------------ | ||
| 44 | |||
| 45 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
| 46 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK | ||
| 47 | |||
| 48 | USE YOECLOP , ONLY : RYFWCA ,RYFWCB ,RYFWCC ,RYFWCD ,& | ||
| 49 | & RYFWCE ,RYFWCF ,REBCUA ,REBCUB ,REBCUC ,& | ||
| 50 | & REBCUD ,REBCUE ,REBCUF ,REBCUG ,REBCUH ,& | ||
| 51 | & REFFIA ,REFFIB ,RTIW ,RRIW | ||
| 52 | |||
| 53 | IMPLICIT NONE | ||
| 54 | |||
| 55 | ! ---------------------------------------------------------------- | ||
| 56 | |||
| 57 | !* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992 | ||
| 58 | |||
| 59 | ! SW : 2 spectral intervals | ||
| 60 | |||
| 61 | REAL(KIND=JPRB) :: ZHOOK_HANDLE | ||
| 62 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SUCLOP',0,ZHOOK_HANDLE) |
| 63 | 1 | REBCUA(1)= 3.448E-03_JPRB | |
| 64 | 1 | REBCUA(2)= 3.448E-03_JPRB | |
| 65 | 1 | REBCUB(1)= 2.431_JPRB | |
| 66 | 1 | REBCUB(2)= 2.431_JPRB | |
| 67 | 1 | REBCUC(1)= 0.99999_JPRB | |
| 68 | 1 | REBCUC(2)= 0.975634_JPRB | |
| 69 | 1 | REBCUD(1)= 0._JPRB | |
| 70 | 1 | REBCUD(2)= 2.487E-04_JPRB | |
| 71 | 1 | REBCUE(1)= 0.7661_JPRB | |
| 72 | 1 | REBCUE(2)= 0.7866_JPRB | |
| 73 | 1 | REBCUF(1)= 5.851E-04_JPRB | |
| 74 | 1 | REBCUF(2)= 5.937E-04_JPRB | |
| 75 | |||
| 76 | ! LW : spectrally averaged with reference Planck function at 257 K | ||
| 77 | |||
| 78 | 1 | REBCUG= 1.07677_JPRB | |
| 79 | 1 | REBCUH= 0.00267_JPRB | |
| 80 | |||
| 81 | ! Ice particle Effective Radius as a function of LWC | ||
| 82 | |||
| 83 | 1 | REFFIA= 40._JPRB | |
| 84 | 1 | REFFIB= 0._JPRB | |
| 85 | |||
| 86 | !* Water cloud properties - from Fouquart (1987) | ||
| 87 | |||
| 88 | ! SW : 2 spectral intervals: parameters as a function of Reff | ||
| 89 | |||
| 90 | 1 | RYFWCA(1)= 0._JPRB | |
| 91 | 1 | RYFWCA(2)= 0._JPRB | |
| 92 | 1 | RYFWCB(1)= 1.5_JPRB | |
| 93 | 1 | RYFWCB(2)= 1.5_JPRB | |
| 94 | 1 | RYFWCC(1)= 0.9999_JPRB | |
| 95 | 1 | RYFWCC(2)= 0.9988_JPRB | |
| 96 | 1 | RYFWCD(1)= 5.000E-04_JPRB | |
| 97 | 1 | RYFWCD(2)= 2.500E-03_JPRB | |
| 98 | 1 | RYFWCE(1)= 0.5_JPRB | |
| 99 | 1 | RYFWCE(2)= 0.05_JPRB | |
| 100 | 1 | RYFWCF(1)= 0.865_JPRB | |
| 101 | 1 | RYFWCF(2)= 0.910_JPRB | |
| 102 | |||
| 103 | !* Liquid/Solid water transition | ||
| 104 | |||
| 105 | 1 | RTIW= 263._JPRB | |
| 106 | 1 | RRIW= 20._JPRB | |
| 107 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SUCLOP',1,ZHOOK_HANDLE) |
| 108 | |||
| 109 | ! ------------------------------------------------------------------ | ||
| 110 | |||
| 111 | 1 | END SUBROUTINE SUCLOP | |
| 112 |