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

Timestamp:

Sep 20, 2022, 4:09:50 PM (22 months 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/iophy.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/iophy.F90

@@ -1048 +1048 @@
 
     !Et sinon on.... écrit
-    IF (SIZE(field)/=klon .AND. SIZE(field)/=klev .AND. SIZE(field)/=klev+1) CALL abort_physic('iophy::histwrite2d_phy','Field first DIMENSION not equal to klon/klev',1)    
+    IF (SIZE(field)/=klon .AND. SIZE(field)/=klev .AND. SIZE(field)/=klev+1) &
+         CALL abort_physic('iophy::histwrite2d_phy',&
+         'Field first DIMENSION not equal to klon/klev',1)
     IF (prt_level >= 10) THEn
       WRITE (lunout,*)"histwrite2d_phy: .not.vars_defined ; time to gather and write ", trim(var%name)
@@ -1246 +1248 @@
 
     !Et sinon on.... écrit
-    IF (SIZE(field,1)/=klon .AND. SIZE(field,1)/=klev .AND. SIZE(field,1)/=klev+1) CALL abort_physic('iophy::histwrite3d_phy','Field first DIMENSION not equal to klon/klev',1)
+    IF (SIZE(field,1)/=klon .AND. SIZE(field,1)/=klev &
+         .AND. SIZE(field,1)/=klev+1) &
+         CALL abort_physic('iophy::histwrite3d_phy', &
+         'Field first DIMENSION not equal to klon/klev',1)
 
     nlev=SIZE(field,2)