Juan 30/03/2017 : Management of compilation of ECMWF_RAD in REAL*8 with MNH_REAL=R4
authorJuan Escobar <escj@aero.obs-mip.fr>
Mon, 3 Apr 2017 12:37:37 +0000 (14:37 +0200)
committerJuan Escobar <escj@aero.obs-mip.fr>
Mon, 3 Apr 2017 12:37:37 +0000 (14:37 +0200)
src/MNH/ecmwf_radiation_vers2.f90

index a2805e4..fd5c161 100644 (file)
@@ -272,9 +272,6 @@ REAL(KIND=JPRB), DIMENSION(KLON,KAER,KLEV) :: ZAER_SW,ZAER_LW ! Optical aerosol
 LOGICAL :: GPROP_OP             !drapeau sur les condition a remplir pour que le
                                 !calcul des propriétés optiques soit effectué
 !
-!!$REAL, ALLOCATABLE, DIMENSION(:) :: XRTMIN, XCTMIN
-!!$REAL :: XALPHAC,XNUC,XALPHAR,XNUR,XCREC,XCRER,XFREFFR,XAC,XAR,XLBEXC,XLBEXR,XFREFFI,XLBEXI
-!
 REAL(KIND=JPRB) :: ZCCO2_RAD
 !--------------------------------------------------------------
 ZCCO2_RAD = PCCO2