From cebc72c3715a9851831d3c8d549f847584c490c2 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 19 Apr 2019 16:12:10 +0200
Subject: [PATCH] Philippe 19/04/2019: constant variables are now declared as
PARAMETERS
---
src/MNH/condens.f90 | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/src/MNH/condens.f90 b/src/MNH/condens.f90
index 1d92c3fb8..899fe632a 100644
--- a/src/MNH/condens.f90
+++ b/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, &
--
GitLab