Changeset 14110 for NEMO/trunk/src/OCE

Timestamp:

2020-12-04T18:25:41+01:00 (3 years ago)

Author:

smasson

Message:

trunk: gcc compliant

File:

• NEMO/trunk/src/OCE/SBC/sbc_phy.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/SBC/sbc_phy.F90

@@ -1071 +1071 @@
       ! Scalar Re_r relation from Liu et al.
       REAL(wp), DIMENSION(8,2), PARAMETER :: &
-         & XA = (/ 0.177, 1.376, 1.026, 1.625, 4.661, 34.904, 1667.19, 5.88e5,  &
-         &         0.292, 1.808, 1.393, 1.956, 4.994, 30.709, 1448.68, 2.98e5 /)
+         & XA = RESHAPE( (/ 0.177, 1.376, 1.026, 1.625, 4.661, 34.904, 1667.19, 5.88e5,  &
+         &                  0.292, 1.808, 1.393, 1.956, 4.994, 30.709, 1448.68, 2.98e5 /), (/8,2/) )
       !!
       REAL(wp), DIMENSION(8,2), PARAMETER :: &
-         & XB = (/ 0., 0.929, -0.599, -1.018, -1.475, -2.067, -2.907, -3.935,  &
-         &         0., 0.826, -0.528, -0.870, -1.297, -1.845, -2.682, -3.616 /)
-      !!
-      REAL(wp), DIMENSION(0:8),   PARAMETER :: &
+         & XB = RESHAPE( (/ 0., 0.929, -0.599, -1.018, -1.475, -2.067, -2.907, -3.935,  &
+         &                  0., 0.826, -0.528, -0.870, -1.297, -1.845, -2.682, -3.616 /), (/8,2/) )
+      !!
+      REAL(wp), DIMENSION(0:8), PARAMETER :: &
          & XRAN = (/ 0., 0.11, 0.825, 3.0, 10.0, 30.0, 100., 300., 1000. /)
       !-------------------------------------------------------------------