Philippe 19/04/2019: constant variables are now declared as PARAMETERS

src/MNH/condens.f90

@@ -79,6 +79,7 @@ END MODULE MODI_CONDENS
 !!      Modifications: March 2, 1995 (J.M. Carriere) Fortran 90
 !!                                   and doctorization
 !!      Modifications: September 12, 1996 (J. Stein) tabulated version
+!  P. Wautelet 19/04/2019: constant variables are now declared as PARAMETERS
 !!
 !! ----------------------------------------------------------------------
 !
@@ -103,7 +104,7 @@ REAL, DIMENSION(:,:,:),  INTENT(OUT) ::   PSRC     ! Second-order flux
 !
 INTEGER           :: JR1,JR2,JR3, IRM1,IRM2,IRM3
 !
-REAL, DIMENSION(-22:11) :: ZN_1D = (/                                   &
+REAL, DIMENSION(-22:11), PARAMETER :: ZN_1D = (/                        &
        0.           ,  0.           ,  1.7225742E-05,  0.275373E-04 ,   &
        4.5657158E-05,  0.748634E-04 ,  1.2344122E-04,  0.203788E-03 ,   &
        3.3539534E-04,  0.553310E-03 ,  9.1189146E-04,  0.150353E-02 ,   &
@@ -114,7 +115,7 @@ REAL, DIMENSION(-22:11) :: ZN_1D = (/                                   &
        0.9986521    ,  0.999768E+00 ,  0.9999684    ,  0.9999997    ,   &
        1.0000000    ,  1.000000      /)
 !
-REAL, DIMENSION(-22:11) :: ZRC_1D = (/                                   &
+REAL, DIMENSION(-22:11), PARAMETER :: ZRC_1D = (/                        &
        0.           ,  0.           ,  1.1461278E-05,  0.275279E-04 ,    &
        4.3084903E-05,  0.747532E-04 ,  1.2315845E-04,  0.201069E-03 ,    &
        3.3593364E-04,  0.551618E-03 ,  9.1182487E-04,  0.150296E-02 ,    &
@@ -125,7 +126,7 @@ REAL, DIMENSION(-22:11) :: ZRC_1D = (/                                   &
        3.0003829    ,  0.350006E+01 ,  4.0000072    ,  0.450000E+01 ,    &
        5.0000000    ,  5.500000     /)
 !
-REAL, DIMENSION(-22:11) :: ZSRC_1D =(/                                   &
+REAL, DIMENSION(-22:11), PARAMETER :: ZSRC_1D =(/                        &
        0.           ,  0.           ,  2.0094444E-04,   0.316670E-03,    &
        4.9965648E-04,  0.785956E-03 ,  1.2341294E-03,   0.193327E-02,    &
        3.0190963E-03,  0.470144E-02 ,  7.2950651E-03,   0.112759E-01,    &
@@ -136,7 +137,7 @@ REAL, DIMENSION(-22:11) :: ZSRC_1D =(/                                   &
        0.9986521    ,  0.999768E+00 ,  0.9999684    ,   0.999997E+00,    &
        1.0000000    ,  1.000000     /)
 !
-REAL, DIMENSION(-22:11) :: ZN_3D = (/                                   &
+REAL, DIMENSION(-22:11), PARAMETER :: ZN_3D = (/                        &
        0.           ,  0.           ,  0.           ,  0.           ,   &
        0.           ,  0.           ,  0.           ,  0.           ,   &
        0.           ,  0.           ,  0.           ,  0.298023E-07 ,   &
@@ -147,7 +148,7 @@ REAL, DIMENSION(-22:11) :: ZN_3D = (/                                   &
        0.9986521    ,  0.999768E+00 ,  0.9999684    ,  0.9999997    ,   &
        1.0000000    ,  1.000000      /)
 !
-REAL, DIMENSION(-22:11) :: ZRC_3D = (/                                   &
+REAL, DIMENSION(-22:11), PARAMETER :: ZRC_3D = (/                        &
        0.           ,  0.           ,  0.           ,  0.           ,    &
        0.           ,  0.           ,  0.           ,  0.           ,    &
        0.           ,  0.           ,  0.           ,  0.           ,    &
@@ -158,7 +159,7 @@ REAL, DIMENSION(-22:11) :: ZRC_3D = (/                                   &
        3.0003829    ,  0.350006E+01 ,  4.0000072    ,  0.450000E+01 ,    &
        5.0000000    ,  5.500000     /)
 !
-REAL, DIMENSION(-22:11) :: ZSRC_3D =(/                                   &
+REAL, DIMENSION(-22:11), PARAMETER :: ZSRC_3D =(/                        &
        0.           ,  0.           ,  0.           ,   0.          ,    &
        0.           ,  0.           ,  0.           ,   0.          ,    &
        0.           ,  0.           ,  0.           ,   0.298023E-07,    &