Commit b23e2851 authored by kbk's avatar kbk
Browse files

call getm_error() -> use exceptions

parent 1d343af1
!$Id: initialise.F90,v 1.9 2005-10-06 09:54:01 hb Exp $ !$Id: initialise.F90,v 1.10 2005-10-06 12:32:32 kbk Exp $
#include "cppdefs.h" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -22,7 +22,10 @@ ...@@ -22,7 +22,10 @@
! Original author(s): Karsten Bolding & Hans Burchard ! Original author(s): Karsten Bolding & Hans Burchard
! !
! $Log: initialise.F90,v $ ! $Log: initialise.F90,v $
! Revision 1.9 2005-10-06 09:54:01 hb ! Revision 1.10 2005-10-06 12:32:32 kbk
! call getm_error() -> use exceptions
!
! Revision 1.9 2005/10/06 09:54:01 hb
! added support for vertical slice model - via -DSLICE_MODEL ! added support for vertical slice model - via -DSLICE_MODEL
! !
! Revision 1.8 2005/09/23 11:27:10 kbk ! Revision 1.8 2005/09/23 11:27:10 kbk
...@@ -123,6 +126,7 @@ ...@@ -123,6 +126,7 @@
#ifndef NO_BAROCLINIC #ifndef NO_BAROCLINIC
use eqstate, only: do_eqstate use eqstate, only: do_eqstate
#endif #endif
use exceptions
IMPLICIT NONE IMPLICIT NONE
! !
! !INPUT PARAMETERS: ! !INPUT PARAMETERS:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment