00001 !------------------------------------------------------------------------ 00002 ! Copyright 2006-2010, CERFACS, Toulouse, France. 00003 ! All rights reserved. Use is subject to OASIS4 license terms. 00004 !------------------------------------------------------------------------ 00005 !BOP 00006 ! 00007 ! !MODULE: PRISMDrv_Constants 00008 MODULE PRISMDrv_Constants 00009 00010 ! !PUBLIC TYPES 00011 USE PRISM_Constants 00012 IMPLICIT NONE 00013 00014 ! !DESCRIPTION 00015 ! This module describes the constants used by the driver. 00016 ! 00017 ! !REVISED HISTORY 00018 ! Date Programmer Description 00019 ! ---------- ---------- ----------- 00020 ! 03/10/2002 D. Declat Creation 00021 ! 00022 ! EOP 00023 !---------------------------------------------------------------------- 00024 ! $Id: prismdrv_constants.F90 2685 2010-10-28 14:05:10Z coquart $ 00025 ! $Author: coquart $ 00026 !---------------------------------------------------------------------- 00027 ! 00028 ! * Protocol Version 00029 00030 INTEGER, PARAMETER :: DRV_latest_protocol_version = 5 00031 00032 ! * MPI implementation 00033 00034 INTEGER, PARAMETER :: DRV_MPI1 = 1 00035 INTEGER, PARAMETER :: DRV_MPI2 = 2 00036 00037 END MODULE PRISMDrv_Constants
1.6.1