Changeset 5310 for LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

Timestamp:

Nov 1, 2024, 1:05:47 PM (6 days ago)

Author:

abarral

Message:

unify abort_gcm
rename wxios -> wxios_mod

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

@@ -984 +984 @@
       END
 
-
-
-      SUBROUTINE abort_gcm(modname, message, ierr)
-
-      USE IOIPSL
-!
-! 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=*) modname
-      integer ierr
-      character(len=*) message
-
-      write(*,*) 'in abort_gcm'
-      call histclo
-!     call histclo(2)
-!     call histclo(3)
-!     call histclo(4)
-!     call histclo(5)
-      write(*,*) 'out of histclo'
-      write(*,*) 'Stopping in ', modname
-      write(*,*) 'Reason = ',message
-      call getin_dump
-!
-      if (ierr .eq. 0) then
-        write(*,*) 'Everything is cool'
-      else
-        write(*,*) 'Houston, we have a problem ', ierr
-      endif
-      STOP
-      END
       REAL FUNCTION fq_sat(kelvin, millibar)
 !