00001 !----------------------------------------------------------------------- 00002 ! Copyright 2006-2010, CERFACS, Toulouse, France. 00003 ! Copyright 2006-2010, SGI Germany, Munich, Germany. 00004 ! Copyright 2006-2010, NEC Europe Ltd., London, UK. 00005 ! All rights reserved. Use is subject to OASIS4 license terms. 00006 !----------------------------------------------------------------------- 00007 !BOP 00008 ! 00009 ! !ROUTINE: PRISM_Version 00010 ! 00011 ! !INTERFACE: 00012 00013 subroutine prism_version 00014 ! 00015 ! !USES: 00016 ! 00017 use PSMILe, only : PSMILe_FlushStd, len_cvs_string 00018 use PRISM, dummy_interface => prism_version 00019 implicit none 00020 ! 00021 ! !DESCRIPTION: 00022 ! 00023 ! Prints SVN Rev of this routine. 00024 ! 00025 ! !REVISION HISTORY: 00026 ! 00027 ! Date Programmer Description 00028 ! --------- ---------- ----------- 00029 ! 01.12.03 H. Ritzdorf created 00030 ! 00031 ! 00032 !EOP 00033 !---------------------------------------------------------------------- 00034 ! 00035 ! $Id: prism_version.F90 2929 2011-01-28 14:31:24Z valcke $ 00036 ! $Author: valcke $ 00037 ! 00038 Character(len=len_cvs_string), save :: mycvs = 00039 '$Id: prism_version.F90 2929 2011-01-28 14:31:24Z valcke $' 00040 ! 00041 !---------------------------------------------------------------------- 00042 00043 WRITE (*, *) '*** OASIS4 PSMILE Library SVN Rev ', mycvs(24:27) 00044 00045 call psmile_flushstd 00046 00047 end subroutine prism_version
1.6.1