Changeset 5132 for LMDZ6/branches/Amaury_dev/libf/misc

Timestamp:

Jul 26, 2024, 12:23:19 PM (4 months ago)

Author:

abarral

Message:

Correct arguments order in abort_gcm
Merge r5085 r5097 r5109 r5124 r5125 r5126 r5127
Replace calls to get_ioipsl* by IOIPSL in phylmdiso/
Symlink inlandsis and lmdz_simu_airs into phylmdiso as it's needed for the compilation
Remove now unused key from makelmdz_fcm

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/misc/lmdz_NOMODULE_abort_gcm.f90 (modified) (3 diffs)

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

@@ -4 +4 @@
 
 SUBROUTINE abort_gcm(modname, message, ierr)
-  !END
   ! Stops the simulation cleanly, closing files and printing various
   ! comments
@@ -43 +42 @@
   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
@@ -53 +55 @@
       STOP 1
     END IF
-  ENDIF
+  END IF
 END SUBROUTINE abort_gcm