Changeset 4260 for LMDZ6/trunk/libf/phylmd/fisrtilp.F90

Timestamp:

Sep 20, 2022, 4:09:50 PM (2 years ago)

Author:

lguez

Message:

Bug fix: split too long lines

The Fortran 2003 standard says a line may contain no more than 132
characters.

File:

• LMDZ6/trunk/libf/phylmd/fisrtilp.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/fisrtilp.F90

@@ -1565 +1565 @@
         DO i=1, klon
             IF (zrflclr(i) + ziflclr(i) .GT. 0 ) THEN
-                znebprecipclr(i) = min(znebprecipclr(i), max(zrflclr(i)/(znebprecipclr(i)*rain_int_min), ziflclr(i)/(znebprecipclr(i)*rain_int_min)))
+               znebprecipclr(i) = min(znebprecipclr(i), max(zrflclr(i) &
+                    /(znebprecipclr(i)*rain_int_min), &
+                    ziflclr(i)/(znebprecipclr(i)*rain_int_min)))
             ELSE
                 znebprecipclr(i)=0.
@@ -1571 +1573 @@
 
             IF (zrflcld(i) + ziflcld(i) .GT. 0 ) THEN
-                znebprecipcld(i) = min(znebprecipcld(i), max(zrflcld(i)/(znebprecipcld(i)*rain_int_min), ziflcld(i)/(znebprecipcld(i)*rain_int_min)))
+               znebprecipcld(i) = min(znebprecipcld(i), &
+                    max(zrflcld(i)/(znebprecipcld(i)*rain_int_min), &
+                    ziflcld(i)/(znebprecipcld(i)*rain_int_min)))
             ELSE
                 znebprecipcld(i)=0.