Skip to content
Snippets Groups Projects
Commit cebc72c3 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

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

parent 8ac79ef4
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 7 additions and 6 deletions
src/MNH/condens.f90
+ 7
− 6
View file @ cebc72c3
...@@ -79,6 +79,7 @@ END MODULE MODI_CONDENS ...@@ -79,6 +79,7 @@ END MODULE MODI_CONDENS
!! Modifications: March 2, 1995 (J.M. Carriere) Fortran 90 !! Modifications: March 2, 1995 (J.M. Carriere) Fortran 90
!! and doctorization !! and doctorization
!! Modifications: September 12, 1996 (J. Stein) tabulated version !! 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 ...@@ -103,7 +104,7 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRC ! Second-order flux
! !
INTEGER :: JR1,JR2,JR3, IRM1,IRM2,IRM3 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 , & 0. , 0. , 1.7225742E-05, 0.275373E-04 , &
4.5657158E-05, 0.748634E-04 , 1.2344122E-04, 0.203788E-03 , & 4.5657158E-05, 0.748634E-04 , 1.2344122E-04, 0.203788E-03 , &
3.3539534E-04, 0.553310E-03 , 9.1189146E-04, 0.150353E-02 , & 3.3539534E-04, 0.553310E-03 , 9.1189146E-04, 0.150353E-02 , &
...@@ -114,7 +115,7 @@ REAL, DIMENSION(-22:11) :: ZN_1D = (/ & ...@@ -114,7 +115,7 @@ REAL, DIMENSION(-22:11) :: ZN_1D = (/ &
0.9986521 , 0.999768E+00 , 0.9999684 , 0.9999997 , & 0.9986521 , 0.999768E+00 , 0.9999684 , 0.9999997 , &
1.0000000 , 1.000000 /) 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 , & 0. , 0. , 1.1461278E-05, 0.275279E-04 , &
4.3084903E-05, 0.747532E-04 , 1.2315845E-04, 0.201069E-03 , & 4.3084903E-05, 0.747532E-04 , 1.2315845E-04, 0.201069E-03 , &
3.3593364E-04, 0.551618E-03 , 9.1182487E-04, 0.150296E-02 , & 3.3593364E-04, 0.551618E-03 , 9.1182487E-04, 0.150296E-02 , &
...@@ -125,7 +126,7 @@ REAL, DIMENSION(-22:11) :: ZRC_1D = (/ & ...@@ -125,7 +126,7 @@ REAL, DIMENSION(-22:11) :: ZRC_1D = (/ &
3.0003829 , 0.350006E+01 , 4.0000072 , 0.450000E+01 , & 3.0003829 , 0.350006E+01 , 4.0000072 , 0.450000E+01 , &
5.0000000 , 5.500000 /) 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, & 0. , 0. , 2.0094444E-04, 0.316670E-03, &
4.9965648E-04, 0.785956E-03 , 1.2341294E-03, 0.193327E-02, & 4.9965648E-04, 0.785956E-03 , 1.2341294E-03, 0.193327E-02, &
3.0190963E-03, 0.470144E-02 , 7.2950651E-03, 0.112759E-01, & 3.0190963E-03, 0.470144E-02 , 7.2950651E-03, 0.112759E-01, &
...@@ -136,7 +137,7 @@ REAL, DIMENSION(-22:11) :: ZSRC_1D =(/ & ...@@ -136,7 +137,7 @@ REAL, DIMENSION(-22:11) :: ZSRC_1D =(/ &
0.9986521 , 0.999768E+00 , 0.9999684 , 0.999997E+00, & 0.9986521 , 0.999768E+00 , 0.9999684 , 0.999997E+00, &
1.0000000 , 1.000000 /) 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. , & 0. , 0. , 0. , 0. , &
0. , 0. , 0. , 0.298023E-07 , & 0. , 0. , 0. , 0.298023E-07 , &
...@@ -147,7 +148,7 @@ REAL, DIMENSION(-22:11) :: ZN_3D = (/ & ...@@ -147,7 +148,7 @@ REAL, DIMENSION(-22:11) :: ZN_3D = (/ &
0.9986521 , 0.999768E+00 , 0.9999684 , 0.9999997 , & 0.9986521 , 0.999768E+00 , 0.9999684 , 0.9999997 , &
1.0000000 , 1.000000 /) 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. , & 0. , 0. , 0. , 0. , &
0. , 0. , 0. , 0. , & 0. , 0. , 0. , 0. , &
...@@ -158,7 +159,7 @@ REAL, DIMENSION(-22:11) :: ZRC_3D = (/ & ...@@ -158,7 +159,7 @@ REAL, DIMENSION(-22:11) :: ZRC_3D = (/ &
3.0003829 , 0.350006E+01 , 4.0000072 , 0.450000E+01 , & 3.0003829 , 0.350006E+01 , 4.0000072 , 0.450000E+01 , &
5.0000000 , 5.500000 /) 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. , & 0. , 0. , 0. , 0. , &
0. , 0. , 0. , 0.298023E-07, & 0. , 0. , 0. , 0.298023E-07, &
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme