Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_abort_physic.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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/phy_common/lmdz_abort_physic.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_abort_physic.F90

@@ -18 +18 @@
     !         ierr    = severity of situation ( = 0 normal )
 
-    CHARACTER(LEN = *), intent(in) :: modname
-    integer ierr, ierror_mpi
-    CHARACTER(LEN = *), intent(in) :: message
+    CHARACTER(LEN = *), INTENT(IN) :: modname
+    INTEGER ierr, ierror_mpi
+    CHARACTER(LEN = *), INTENT(IN) :: message
 
     WRITE(lunout, *) 'in abort_physic'
@@ -26 +26 @@
     CALL histclo
     CALL restclo
-    if (mpi_rank == 0) THEN
+    IF (mpi_rank == 0) THEN
       CALL getin_dump
     endif
@@ -33 +33 @@
     WRITE(lunout, *) 'Stopping in ', modname
     WRITE(lunout, *) 'Reason = ', message
-    if (ierr == 0) THEN
+    IF (ierr == 0) THEN
       WRITE(lunout, *) 'Everything is cool'
-      if (using_mpi) THEN
+      IF (using_mpi) THEN
         !$OMP CRITICAL (MPI_ABORT_PHYSIC)
         CALL MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
@@ -44 +44 @@
     else
       WRITE(lunout, *) 'Houston, we have a problem, ierr = ', ierr
-      if (using_mpi) THEN
+      IF (using_mpi) THEN
         !$OMP CRITICAL (MPI_ABORT_PHYSIC)
         CALL MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)