Changeset 5310 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Nov 1, 2024, 1:05:47 PM (3 months ago)

Author:

abarral

Message:

unify abort_gcm
rename wxios -> wxios_mod

File:

• LMDZ6/trunk/libf/dyn3d_common/abort_gcm_NOMODULE.f90 (moved) (moved from LMDZ6/trunk/libf/dyn3dmem/abort_gcm.f90) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/abort_gcm_NOMODULE.f90

@@ -1 @@
-!
-! $Id: abort_gcm.F 1747 2013-04-23 14:06:30Z lguez $
-!
-!
-!
+! /!\ We can't put this in a module right away with FCM1, as this creates a circular dependency e.g. with wxios through iniprint_mod
+
 SUBROUTINE abort_gcm(modname, message, ierr)
-
-  USE iniprint_mod_h
-  USE IOIPSL
-
-  USE parallel_lmdz
-
-  !
   ! Stops the simulation cleanly, closing files and printing various
   ! comments
-  !
+
   !  Input: modname = name of calling program
   !     message = stuff to print
   !     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 wxios_mod, ONLY: using_xios, wxios_close
+  USE mod_phys_lmdz_mpi_data, ONLY: mpi_rank
+  USE lmdz_mpi, ONLY: using_mpi
+  USE mod_const_mpi, ONLY: comm_lmdz
+  USE iniprint_mod_h, ONLY: lunout, prt_level
+  IMPLICIT NONE
 
-  write(lunout,*) 'in abort_gcm'
-!$OMP MASTER
-  call histclo
-  call restclo
-  if (MPI_rank .eq. 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
-  if (ierr .eq. 0) then
-    write(lunout,*) 'Everything is cool'
-  else
-    write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
+  CHARACTER(LEN = *), INTENT(IN) :: modname
+  INTEGER, INTENT(IN) :: ierr
+  CHARACTER(LEN = *), INTENT(IN) :: message
 
-    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
+  INTEGER :: ierror_mpi
 
-  endif
+  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
+  ENDIF
+  !$OMP END MASTER
+  WRITE(lunout, *) 'Stopping in ', modname
+  WRITE(lunout, *) 'Reason = ', message
+  IF (ierr == 0) THEN
+    WRITE(lunout, *) 'Everything is cool'
+    IF (.NOT. using_mpi) THEN
+      STOP
+    END IF
+  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
+    END IF
+  END IF
 END SUBROUTINE abort_gcm