| Line |
Branch |
Exec |
Source |
| 1 |
|
|
!OPTIONS XOPT(NOEVAL) |
| 2 |
|
✗ |
SUBROUTINE SUCLOP15 |
| 3 |
|
|
|
| 4 |
|
|
!**** *SUCLOP15* - INITIALIZE COMMON YOMCLOP15 |
| 5 |
|
|
!**** FROZEN VERSION (CYCLE 15) OF SUCLOP |
| 6 |
|
|
|
| 7 |
|
|
! PURPOSE. |
| 8 |
|
|
! -------- |
| 9 |
|
|
! INITIALIZE YOMCLOP15, WITH CLOUD OPTICAL PARAMETERS |
| 10 |
|
|
|
| 11 |
|
|
!** INTERFACE. |
| 12 |
|
|
! ---------- |
| 13 |
|
|
! *CALL* SUCLOP15 |
| 14 |
|
|
! FROM *SUPHEC* |
| 15 |
|
|
|
| 16 |
|
|
! EXPLICIT ARGUMENTS : |
| 17 |
|
|
! -------------------- |
| 18 |
|
|
! NONE |
| 19 |
|
|
|
| 20 |
|
|
! IMPLICIT ARGUMENTS : |
| 21 |
|
|
! -------------------- |
| 22 |
|
|
! COMMON YOMCLOP15 |
| 23 |
|
|
|
| 24 |
|
|
! METHOD. |
| 25 |
|
|
! ------- |
| 26 |
|
|
! SEE DOCUMENTATION |
| 27 |
|
|
|
| 28 |
|
|
! EXTERNALS. |
| 29 |
|
|
! ---------- |
| 30 |
|
|
! NONE |
| 31 |
|
|
|
| 32 |
|
|
! REFERENCE. |
| 33 |
|
|
! ---------- |
| 34 |
|
|
! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE |
| 35 |
|
|
! "INTEGRATED FORECASTING SYSTEM" |
| 36 |
|
|
|
| 37 |
|
|
! AUTHOR. |
| 38 |
|
|
! ------- |
| 39 |
|
|
! 96-11: Ph. Dandin. Meteo-France |
| 40 |
|
|
! ORIGINAL : J.-J. MORCRETTE *ECMWF* |
| 41 |
|
|
|
| 42 |
|
|
! MODIFICATIONS. |
| 43 |
|
|
! -------------- |
| 44 |
|
|
! M.Hamrud 01-Oct-2003 CY28 Cleaning |
| 45 |
|
|
! P. Marquet 14-Feb-2006 REFFWIA15 + NAMCLOP15 introduced |
| 46 |
|
|
|
| 47 |
|
|
! ------------------------------------------------------------------ |
| 48 |
|
|
|
| 49 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
| 50 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
| 51 |
|
|
|
| 52 |
|
|
! Ce qui concerne NULNAM commente par MPL le 15.04.09 |
| 53 |
|
|
!USE YOMLUN , ONLY : NULNAM, NULOUT |
| 54 |
|
|
USE YOMLUN , ONLY : NULOUT |
| 55 |
|
|
USE YOMCLOP15, ONLY : RYFWCA15 ,RYFWCB15 ,RYFWCC15 ,RYFWCD15 ,& |
| 56 |
|
|
& RYFWCE15 ,RYFWCF15 ,REBCUA15 ,REBCUB15 ,REBCUC15 ,& |
| 57 |
|
|
& REBCUD15 ,REBCUE15 ,REBCUF15 ,REBCUG15 ,REBCUH15 ,& |
| 58 |
|
|
& REFFIA15 ,REFFIB15 ,RTIW15 ,RRIW15 ,REFFWIA15 |
| 59 |
|
|
|
| 60 |
|
|
IMPLICIT NONE |
| 61 |
|
|
|
| 62 |
|
|
INTERFACE |
| 63 |
|
|
SUBROUTINE POSNAM(KULNAM,CDNAML) |
| 64 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
| 65 |
|
|
INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM |
| 66 |
|
|
CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML |
| 67 |
|
|
END SUBROUTINE POSNAM |
| 68 |
|
|
END INTERFACE |
| 69 |
|
|
! ------------------------------------------------------------------ |
| 70 |
|
|
NAMELIST/NAMCLOP15/ REFFWIA15 |
| 71 |
|
|
! ------------------------------------------------------------------ |
| 72 |
|
|
|
| 73 |
|
|
|
| 74 |
|
|
!* 1. Set default values. |
| 75 |
|
|
! ------------------- |
| 76 |
|
|
|
| 77 |
|
|
!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992 |
| 78 |
|
|
|
| 79 |
|
|
! SW : 2 spectral intervals |
| 80 |
|
|
|
| 81 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
| 82 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SUCLOP15',0,ZHOOK_HANDLE) |
| 83 |
|
✗ |
REBCUA15(1)= 3.448E-03_JPRB |
| 84 |
|
✗ |
REBCUA15(2)= 3.448E-03_JPRB |
| 85 |
|
✗ |
REBCUB15(1)= 2.431_JPRB |
| 86 |
|
✗ |
REBCUB15(2)= 2.431_JPRB |
| 87 |
|
✗ |
REBCUC15(1)= 0.99999_JPRB |
| 88 |
|
✗ |
REBCUC15(2)= 0.975634_JPRB |
| 89 |
|
✗ |
REBCUD15(1)= 0._JPRB |
| 90 |
|
✗ |
REBCUD15(2)= 2.487E-04_JPRB |
| 91 |
|
✗ |
REBCUE15(1)= 0.7661_JPRB |
| 92 |
|
✗ |
REBCUE15(2)= 0.7866_JPRB |
| 93 |
|
✗ |
REBCUF15(1)= 5.851E-04_JPRB |
| 94 |
|
✗ |
REBCUF15(2)= 5.937E-04_JPRB |
| 95 |
|
|
|
| 96 |
|
|
! LW : spectrally averaged with reference Planck function at 257 K |
| 97 |
|
|
|
| 98 |
|
✗ |
REBCUG15= 1.07677_JPRB |
| 99 |
|
✗ |
REBCUH15= 0.00267_JPRB |
| 100 |
|
|
|
| 101 |
|
|
! Ice particle Effective Radius as a function of LWC |
| 102 |
|
|
|
| 103 |
|
✗ |
REFFIA15= 40._JPRB |
| 104 |
|
✗ |
REFFIB15= 0._JPRB |
| 105 |
|
|
|
| 106 |
|
|
! Water and Ice particle Effective Radius in the RADLSW15 formulae |
| 107 |
|
|
|
| 108 |
|
✗ |
REFFWIA15= 10._JPRB |
| 109 |
|
|
|
| 110 |
|
|
!* Water cloud properties - from Fouquart (1987) |
| 111 |
|
|
|
| 112 |
|
|
! SW : 2 spectral intervals: parameters as a function of Reff |
| 113 |
|
|
|
| 114 |
|
✗ |
RYFWCA15(1)= 0._JPRB |
| 115 |
|
✗ |
RYFWCA15(2)= 0._JPRB |
| 116 |
|
✗ |
RYFWCB15(1)= 1.5_JPRB |
| 117 |
|
✗ |
RYFWCB15(2)= 1.5_JPRB |
| 118 |
|
✗ |
RYFWCC15(1)= 0.9999_JPRB |
| 119 |
|
✗ |
RYFWCC15(2)= 0.9988_JPRB |
| 120 |
|
✗ |
RYFWCD15(1)= 5.000E-04_JPRB |
| 121 |
|
✗ |
RYFWCD15(2)= 2.500E-03_JPRB |
| 122 |
|
✗ |
RYFWCE15(1)= 0.5_JPRB |
| 123 |
|
✗ |
RYFWCE15(2)= 0.05_JPRB |
| 124 |
|
✗ |
RYFWCF15(1)= 0.865_JPRB |
| 125 |
|
✗ |
RYFWCF15(2)= 0.910_JPRB |
| 126 |
|
|
|
| 127 |
|
|
!* Liquid/Solid water transition |
| 128 |
|
|
|
| 129 |
|
✗ |
RTIW15= 263._JPRB |
| 130 |
|
✗ |
RRIW15= 20._JPRB |
| 131 |
|
|
|
| 132 |
|
|
|
| 133 |
|
|
!* 2. Modify default values. |
| 134 |
|
|
! ---------------------- |
| 135 |
|
|
|
| 136 |
|
|
! Ce qui concerne NAMCLOP15 commente par MPL le 15.04.09 |
| 137 |
|
|
!CALL POSNAM(NULNAM,'NAMCLOP15') |
| 138 |
|
|
!READ (NULNAM, NAMCLOP15) |
| 139 |
|
|
|
| 140 |
|
|
|
| 141 |
|
|
!* 3. Print final values. |
| 142 |
|
|
! ------------------- |
| 143 |
|
|
|
| 144 |
|
✗ |
WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')') |
| 145 |
|
✗ |
WRITE(UNIT=NULOUT,FMT='('' COMMON YOMCLOP15 '')') |
| 146 |
|
✗ |
WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')') |
| 147 |
|
|
WRITE(UNIT=NULOUT,FMT='( '' REFFWIA15 = '',E11.4 )') & |
| 148 |
|
✗ |
& REFFWIA15 |
| 149 |
|
|
|
| 150 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SUCLOP15',1,ZHOOK_HANDLE) |
| 151 |
|
|
|
| 152 |
|
|
! ------------------------------------------------------------------ |
| 153 |
|
|
|
| 154 |
|
✗ |
END SUBROUTINE SUCLOP15 |
| 155 |
|
|
|