Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_NOMODULE_abort_gcm.f90

Timestamp:

Jul 25, 2024, 5:47:25 PM (8 weeks ago)

Author:

abarral

Message:

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_NOMODULE_abort_gcm.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dyn3dmem/abort_gcm.f90) (2 diffs)

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

@@ -1 @@
-
 ! $Id: abort_gcm.F 1747 2013-04-23 14:06:30Z lguez $
 
-!
-!
-SUBROUTINE abort_gcm(modname, message, ierr)
+! /!\ We can't put this in a module right away with FCM1, as this creates a circular dependency e.g. with wxios through lmdz_iniprint
 
-  USE IOIPSL
-  USE parallel_lmdz
-  USE lmdz_iniprint, ONLY: lunout, prt_level
-
-  !
+SUBROUTINE abort_gcm(modname, ierr, message)
+  !END
   ! Stops the simulation cleanly, closing files and printing various
   ! comments
@@ -18 +12 @@
   !     ierr    = severity of situation ( = 0 normal )
 
-  CHARACTER(LEN=*), INTENT(IN):: modname
-  INTEGER :: ierr, ierror_mpi
-  CHARACTER(LEN=*), INTENT(IN):: message
+  USE IOIPSL, ONLY: histclo, restclo, getin_dump
+  USE lmdz_wxios, ONLY: using_xios, wxios_close
+  USE lmdz_phys_mpi_data, ONLY: mpi_rank
+  USE lmdz_mpi, ONLY: using_mpi
+  USE mod_const_mpi, ONLY: comm_lmdz
+  USE lmdz_iniprint, ONLY: lunout, prt_level
+  IMPLICIT NONE
 
-  WRITE(lunout,*) 'in abort_gcm'
-!$OMP MASTER
+  CHARACTER(LEN = *), INTENT(IN) :: modname
+  INTEGER, INTENT(IN) :: ierr
+  CHARACTER(LEN = *), INTENT(IN) :: message
+
+  INTEGER :: ierror_mpi
+
+  WRITE(lunout, *) 'in abort_gcm'
+
+  IF (using_xios) THEN !Fermeture propre de XIOS
+    CALL wxios_close()
+  ENDIF
+
+  !$OMP MASTER
   CALL histclo
   CALL restclo
-  IF (MPI_rank == 0) THEN
-     CALL getin_dump
+  IF (mpi_rank == 0) THEN
+    CALL getin_dump
   ENDIF
-!$OMP END MASTER
-  ! CALL histclo(2)
-  ! CALL histclo(3)
-  ! CALL histclo(4)
-  ! CALL histclo(5)
-  WRITE(lunout,*) 'Stopping in ', modname
-  WRITE(lunout,*) 'Reason = ',message
+  !$OMP END MASTER
+  WRITE(lunout, *) 'Stopping in ', modname
+  WRITE(lunout, *) 'Reason = ', message
   IF (ierr == 0) THEN
-    WRITE(lunout,*) 'Everything is cool'
-  else
-    WRITE(lunout,*) 'Houston, we have a problem, ierr = ', ierr
+    WRITE(lunout, *) 'Everything is cool'
+  ELSE
+    WRITE(lunout, *) 'Houston, we have a problem, ierr = ', ierr
 
     IF (using_mpi) THEN
-!$OMP CRITICAL (MPI_ABORT_GCM)
-      CALL MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
-!$OMP END CRITICAL (MPI_ABORT_GCM)
-    else
-     stop 1
-    endif
-
+      !$OMP CRITICAL (MPI_ABORT_GCM)
+      CALL MPI_ABORT(comm_lmdz, 1, ierror_mpi)
+      !$OMP END CRITICAL (MPI_ABORT_GCM)
+    ELSE
+      STOP 1
+    END IF
   ENDIF
 END SUBROUTINE abort_gcm