| Line |
Branch |
Exec |
Source |
| 1 |
|
|
!OPTIONS XOPT(NOEVAL) |
| 2 |
|
✗ |
SUBROUTINE SURDI15 |
| 3 |
|
|
|
| 4 |
|
|
!**** *SURDI15* - INITIALIZE COMMON YOMRDI15 CONTROLLING RADINT |
| 5 |
|
|
!**** FROZEN VERSION (CYCLE 15) OF SURDI |
| 6 |
|
|
|
| 7 |
|
|
! PURPOSE. |
| 8 |
|
|
! -------- |
| 9 |
|
|
! INITIALIZE YOMRDI15, THE COMMON THAT CONTROLS THE |
| 10 |
|
|
! RADIATION INTERFACE |
| 11 |
|
|
|
| 12 |
|
|
!** INTERFACE. |
| 13 |
|
|
! ---------- |
| 14 |
|
|
! CALL *SURDI15* FROM *SUECRAD* |
| 15 |
|
|
! ------- ------- |
| 16 |
|
|
|
| 17 |
|
|
! EXPLICIT ARGUMENTS : |
| 18 |
|
|
! -------------------- |
| 19 |
|
|
! NONE |
| 20 |
|
|
|
| 21 |
|
|
! IMPLICIT ARGUMENTS : |
| 22 |
|
|
! -------------------- |
| 23 |
|
|
! COMMON YOMRDI15 |
| 24 |
|
|
|
| 25 |
|
|
! METHOD. |
| 26 |
|
|
! ------- |
| 27 |
|
|
! SEE DOCUMENTATION |
| 28 |
|
|
|
| 29 |
|
|
! EXTERNALS. |
| 30 |
|
|
! ---------- |
| 31 |
|
|
! NONE |
| 32 |
|
|
|
| 33 |
|
|
! REFERENCE. |
| 34 |
|
|
! ---------- |
| 35 |
|
|
! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE |
| 36 |
|
|
! "IN CORE MODEL" |
| 37 |
|
|
|
| 38 |
|
|
! AUTHOR. |
| 39 |
|
|
! ------- |
| 40 |
|
|
! 96-11: Ph. Dandin. Meteo-France |
| 41 |
|
|
! ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE *ECMWF* |
| 42 |
|
|
|
| 43 |
|
|
! MODIFICATIONS. |
| 44 |
|
|
! -------------- |
| 45 |
|
|
! M.Hamrud 01-Oct-2003 CY28 Cleaning |
| 46 |
|
|
! A.Alias 05-12-2005 greenhouse gases variables (M.Deque) |
| 47 |
|
|
! A.Alias 13-06-2006 RI0 value can be changed via namscen.h |
| 48 |
|
|
|
| 49 |
|
|
! ------------------------------------------------------------------ |
| 50 |
|
|
|
| 51 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
| 52 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
| 53 |
|
|
! Ce qui concerne NULNAM commente par MPL le 15.04.09 |
| 54 |
|
|
!USE YOMLUN , ONLY : NULNAM |
| 55 |
|
|
USE YOMLUN_IFSAUX , ONLY : NULOUT |
| 56 |
|
|
|
| 57 |
|
|
USE YOMCST , ONLY : RI0 |
| 58 |
|
|
USE YOMRDI15 , ONLY : RSDTSN15 ,RRAE15 ,RMU0015 ,RALBICE15,& |
| 59 |
|
|
& RALBSEA15,RALBSNM15,RALBSNO15,RCARDI15 ,REMISS15 ,& |
| 60 |
|
|
& RSNOWAL15,RVLBDC15 ,RCH415 ,RN2O15 ,RCFC1115 ,& |
| 61 |
|
|
& RCFC1215 ,REPALB15 ,REPCLC15 ,REPH2O15 |
| 62 |
|
|
USE YOMRDU15 , ONLY : REPSEC15 |
| 63 |
|
|
|
| 64 |
|
|
IMPLICIT NONE |
| 65 |
|
|
|
| 66 |
|
|
REAL(KIND=JPRB) :: XCARDI, XCFC11, XCFC12, XCH4, XN2O |
| 67 |
|
|
REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZSUPSAT |
| 68 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
| 69 |
|
|
|
| 70 |
|
|
! ------------------------------------------------------------------ |
| 71 |
|
|
NAMELIST/NAMSCEN/ XCARDI, XCH4, XN2O, XCFC11, XCFC12, RI0 |
| 72 |
|
|
! ------------------------------------------------------------------ |
| 73 |
|
|
INTERFACE |
| 74 |
|
|
SUBROUTINE POSNAM(KULNAM,CDNAML) |
| 75 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
| 76 |
|
|
INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM |
| 77 |
|
|
CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML |
| 78 |
|
|
END SUBROUTINE POSNAM |
| 79 |
|
|
END INTERFACE |
| 80 |
|
|
! ---------------------------------------------------------------- |
| 81 |
|
|
|
| 82 |
|
|
!* 1. SET DEFAULT VALUES. |
| 83 |
|
|
! ------------------- |
| 84 |
|
|
|
| 85 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SURDI15',0,ZHOOK_HANDLE) |
| 86 |
|
✗ |
RSDTSN15 = 5.0_JPRB |
| 87 |
|
|
|
| 88 |
|
✗ |
RRAE15 = 0.1277E-02_JPRB |
| 89 |
|
✗ |
RMU0015 = RRAE15/SQRT(RRAE15*(RRAE15+2.0_JPRB)) |
| 90 |
|
|
|
| 91 |
|
✗ |
RALBICE15 = 0.55_JPRB |
| 92 |
|
✗ |
RALBSEA15 = 0.07_JPRB |
| 93 |
|
✗ |
RALBSNO15 = 0.80_JPRB |
| 94 |
|
✗ |
RALBSNM15 = 0.40_JPRB |
| 95 |
|
✗ |
RSNOWAL15 = 0.01_JPRB |
| 96 |
|
|
!* Concentration of the various trace gases (IPCC/SACC values for 1990) |
| 97 |
|
|
! CO2 CH4 N2O CFC11 CFC12 |
| 98 |
|
|
! 353ppmv 1.72ppmv 310ppbv 280pptv 484pptv |
| 99 |
|
|
|
| 100 |
|
✗ |
XCARDI = 353.E-06_JPRB |
| 101 |
|
✗ |
XCH4 = 1.72E-06_JPRB |
| 102 |
|
✗ |
XN2O = 310.E-09_JPRB |
| 103 |
|
✗ |
XCFC11 = 280.E-12_JPRB |
| 104 |
|
✗ |
XCFC12 = 484.E-12_JPRB |
| 105 |
|
|
|
| 106 |
|
|
ZAIRMWG = 28.970_JPRB |
| 107 |
|
|
ZCO2MWG = 44.011_JPRB |
| 108 |
|
|
ZCH4MWG = 16.043_JPRB |
| 109 |
|
|
ZN2OMWG = 44.013_JPRB |
| 110 |
|
|
ZC11MWG = 137.3686_JPRB |
| 111 |
|
|
ZC12MWG = 120.9140_JPRB |
| 112 |
|
|
|
| 113 |
|
|
! Ce qui concerne NAMSCEN commente par MPL le 15.04.09 |
| 114 |
|
|
!CALL POSNAM(NULNAM,'NAMSCEN') |
| 115 |
|
|
!READ (NULNAM, NAMSCEN) |
| 116 |
|
|
|
| 117 |
|
|
WRITE(NULOUT,'( & |
| 118 |
|
|
& '' CO2 = '',E14.7,'' CH4 = '',E14.7 & |
| 119 |
|
|
& ,'' N2O = '',E14.7,'' CFC11 = '',E14.7 & |
| 120 |
|
|
& ,'' CFC12 = '',E14.7,'' RI0 = '',E14.7 & |
| 121 |
|
✗ |
& )') XCARDI,XCH4,XN2O,XCFC11,XCFC12,RI0 |
| 122 |
|
|
|
| 123 |
|
✗ |
RCARDI15 = XCARDI*ZCO2MWG/ZAIRMWG |
| 124 |
|
✗ |
RCH415 = XCH4*ZCH4MWG/ZAIRMWG |
| 125 |
|
✗ |
RN2O15 = XN2O*ZN2OMWG/ZAIRMWG |
| 126 |
|
✗ |
RCFC1115 = XCFC11*ZC11MWG/ZAIRMWG |
| 127 |
|
✗ |
RCFC1215 = XCFC12*ZC12MWG/ZAIRMWG |
| 128 |
|
✗ |
REMISS15 = 0.996_JPRB |
| 129 |
|
|
!ZSUPSAT = 0.01_JPRB |
| 130 |
|
✗ |
RVLBDC15 = 0.5_JPRB |
| 131 |
|
|
|
| 132 |
|
✗ |
REPSEC15=1.E-12_JPRB |
| 133 |
|
✗ |
REPCLC15=1.E-12_JPRB |
| 134 |
|
✗ |
REPH2O15=1.E-12_JPRB |
| 135 |
|
✗ |
REPALB15=1.E-12_JPRB |
| 136 |
|
|
|
| 137 |
|
|
! ----------------------------------------------------------------- |
| 138 |
|
|
|
| 139 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SURDI15',1,ZHOOK_HANDLE) |
| 140 |
|
✗ |
END SUBROUTINE SURDI15 |
| 141 |
|
|
|