Changeset 14110
- Timestamp:
- 2020-12-04T18:25:41+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbc_phy.F90
r14072 r14110 1071 1071 ! Scalar Re_r relation from Liu et al. 1072 1072 REAL(wp), DIMENSION(8,2), PARAMETER :: & 1073 & XA = (/ 0.177, 1.376, 1.026, 1.625, 4.661, 34.904, 1667.19, 5.88e5, &1074 & 0.292, 1.808, 1.393, 1.956, 4.994, 30.709, 1448.68, 2.98e5 /)1073 & XA = RESHAPE( (/ 0.177, 1.376, 1.026, 1.625, 4.661, 34.904, 1667.19, 5.88e5, & 1074 & 0.292, 1.808, 1.393, 1.956, 4.994, 30.709, 1448.68, 2.98e5 /), (/8,2/) ) 1075 1075 !! 1076 1076 REAL(wp), DIMENSION(8,2), PARAMETER :: & 1077 & XB = (/ 0., 0.929, -0.599, -1.018, -1.475, -2.067, -2.907, -3.935, &1078 & 0., 0.826, -0.528, -0.870, -1.297, -1.845, -2.682, -3.616 /)1079 !! 1080 REAL(wp), DIMENSION(0:8), 1077 & XB = RESHAPE( (/ 0., 0.929, -0.599, -1.018, -1.475, -2.067, -2.907, -3.935, & 1078 & 0., 0.826, -0.528, -0.870, -1.297, -1.845, -2.682, -3.616 /), (/8,2/) ) 1079 !! 1080 REAL(wp), DIMENSION(0:8), PARAMETER :: & 1081 1081 & XRAN = (/ 0., 0.11, 0.825, 3.0, 10.0, 30.0, 100., 300., 1000. /) 1082 1082 !-------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.