streamice_initialise_petsc.F
View Options

			C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_initialise_petsc.F,v 1.1 2013/08/24 20:32:03 dgoldberg Exp $
			C $Name: $

			#include "STREAMICE_OPTIONS.h"

			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|

			CBOP
			SUBROUTINE STREAMICE_INITIALIZE_PETSC
			C /============================================================\
			C \| SUBROUTINE \|
			C \| o \|
			C \|============================================================\|
			C \| \|
			C \============================================================/
			IMPLICIT NONE

			C === Global variables ===
			#ifdef ALLOW_PETSC
			#include "finclude/petsc.h"
			#endif


			C !INPUT/OUTPUT ARGUMENTS
			INTEGER myThid

			#ifdef ALLOW_STREAMICE

			#ifdef ALLOW_PETSC
			PetscErrorCode ierr
			call petscInitialize(PETSC_NULL_CHARACTER,ierr)
			#endif

			#endif
			RETURN
			END

R2795/MITgcm_orig_code/MITgcm/pkg/streamice/streamice_initialise_petsc.Fc8d59fb69877master