Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/iophys.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/iophys.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/iophys.F90

@@ -65 +65 @@
 !$OMP END MASTER
 
-      return
+      RETURN
       end
 
@@ -249 +249 @@
          enddo
          ! Pole sud
-         if ( jmax > 1 ) then
+         if ( jmax > 1 ) THEN
             ijl=ijl+1
             do i=1,imax
@@ -260 +260 @@
       deallocate(zx)
 
-      return
+      RETURN
       end