Changeset 168 in lmdz_wrf

Timestamp:

Aug 12, 2014, 10:58:23 AM (11 years ago)

Author:

lfita

Message:

Adding punctual abort messages on the module

File:

• branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/abort_gcm.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/abort_gcm.F90

@@ -45 +45 @@
         stop 1
       endif
-      END
+      END SUBROUTINE abort_gcm
+
+! L. Fita, LMD. August 2014
+      SUBROUTINE abort_gcm_point(modname, message, ierr, point)
+     
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin_dump
+      USE ioipsl_getincom
+#endif
+#include "iniprint.h"
+ 
+!C
+!C Stops the simulation cleanly, closing files and printing various
+!C comments
+!C
+!C  Input: modname = name of calling program
+!C         message = stuff to print
+!C         ierr    = severity of situation ( = 0 normal )
+!C         point   = 1D point where the error ocurred
+
+      character(len=*) modname
+      integer ierr
+      character(len=*) message
+      INTEGER, INTENT(IN)                                :: point
+
+      write(lunout,*) 'in abort_gcm'
+#ifdef CPP_IOIPSL
+      call histclo
+      call restclo
+#endif
+      call getin_dump
+!c     call histclo(2)
+!c     call histclo(3)
+!c     call histclo(4)
+!c     call histclo(5)
+      write(lunout,*) 'Stopping in ', modname
+      write(lunout,*) 'Stopping at point ', point
+      write(lunout,*) 'Reason = ',message
+      if (ierr .eq. 0) then
+        write(lunout,*) 'Everything is cool'
+        stop
+      else
+        write(lunout,*) 'Houston, we have a problem ', ierr
+        stop 1
+      endif
+      END abort_gcm_point
+
+! L. Fita, LMD. August 2014
+      SUBROUTINE abort_gcm_2Dpoint(modname, message, ierr, point)
+     
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin_dump
+      USE ioipsl_getincom
+#endif
+#include "iniprint.h"
+ 
+!C
+!C Stops the simulation cleanly, closing files and printing various
+!C comments
+!C
+!C  Input: modname = name of calling program
+!C         message = stuff to print
+!C         ierr    = severity of situation ( = 0 normal )
+!C         point   = 2D point where the error ocurred
+
+      character(len=*) modname
+      integer ierr
+      character(len=*) message
+      INTEGER, DIMENSION(2), INTENT(IN)                  :: point
+
+      write(lunout,*) 'in abort_gcm'
+#ifdef CPP_IOIPSL
+      call histclo
+      call restclo
+#endif
+      call getin_dump
+!c     call histclo(2)
+!c     call histclo(3)
+!c     call histclo(4)
+!c     call histclo(5)
+      write(lunout,*) 'Stopping in ', modname
+      write(lunout,*) 'Stopping at point (klon, klev)', point
+      write(lunout,*) 'Reason = ',message
+      if (ierr .eq. 0) then
+        write(lunout,*) 'Everything is cool'
+        stop
+      else
+        write(lunout,*) 'Houston, we have a problem ', ierr
+        stop 1
+      endif
+      END abort_gcm_2Dpoint