(#344) - Changes for compatibility with GNU compiler

CABLE-LSM · Jul 15, 2024 · b8e24fe · b8e24fe
1 parent 44ce20e
commit b8e24fe
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/offline/cable_checks.F90 b/src/offline/cable_checks.F90
@@ -225,7 +225,7 @@ SUBROUTINE check_range_d1(vname, parameter_r1, parameter_range, ktau, met)
 
     DO index = 1, SIZE(parameter_r1)
       IF (parameter_r1(index) < parameter_range(1) .OR. parameter_r1(index) > parameter_range(2)) THEN
-        CALL range_abort(vname, ktau, met, parameter_r1(index), \
+        CALL range_abort(vname, ktau, met, parameter_r1(index),               &
         parameter_range, index, patch(index)%latitude, patch(index)%longitude)
       END IF
     END DO

diff --git a/src/offline/cable_driver.F90 b/src/offline/cable_driver.F90
@@ -621,7 +621,7 @@ PROGRAM cable_offline_driver
                    casamet, casabal, phen, POP, spinup,        &
                    CEMSOIL, CTFRZ, LUC_EXPT, POPLUC )
 
-              IF (check%ranges) THEN
+              IF (check%ranges > 0) THEN
                   WRITE (*, *) "Checking parameter ranges"
                   CALL constant_check_range(soil, veg, 0, met)
               END IF

diff --git a/src/offline/cable_input.F90 b/src/offline/cable_input.F90
@@ -2481,7 +2481,7 @@ SUBROUTINE get_met_data(spinup,spinConv,met,soil,rad,                          &
     ! initialise within canopy air temp
     met%tvair = met%tk
     met%tvrad = met%tk
-    IF(check%ranges) THEN
+    IF(check%ranges > 0) THEN
        ! Check ranges are okay:
        CALL check_range("SWdown", met%fsd, ranges%SWdown, 0, met)
        CALL check_range("LWdown", met%fld, ranges%LWdown, 0, met)