Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_new_unit.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_new_unit.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/new_unit_m.F90) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_new_unit.f90

@@ -1 @@
-module new_unit_m
+module lmdz_new_unit
 
   IMPLICIT NONE
@@ -5 +5 @@
 contains
 
+  ! Returns an existing unit id that isn't already opened
   SUBROUTINE new_unit(unit)
+    INTEGER, INTENT(OUT):: unit
 
-    integer, intent(out):: unit
-
-    ! Variables local to the procedure:
-    logical opened, exist
-
-    !------------------------------------------------------
+    LOGICAL opened, exist
 
     unit = 0
-    do
-       inquire(unit=unit, opened=opened, exist=exist)
-       if (exist .and. .not. opened) exit
+    DO
+       INQUIRE(unit=unit, opened=opened, exist=exist)
+       IF (exist .AND. .NOT. opened) RETURN
        unit = unit + 1
     END DO
@@ -23 +20 @@
   END SUBROUTINE  new_unit
 
-end module new_unit_m
+end module lmdz_new_unit