00001 !----------------------------------------------------------------------- 00002 ! Copyright 2006-2010, SGI Germany, Munich, Germany. 00003 ! All rights reserved. Use is subject to OASIS4 license terms. 00004 !----------------------------------------------------------------------- 00005 !BOP 00006 ! 00007 ! !INTERFACE: 00008 subroutine psmile_io_init_cf ( ierror ) 00009 ! 00010 ! !USES: 00011 ! 00012 use PSMILe, dummy_interface => PSMILE_IO_Init_CF 00013 implicit none 00014 ! 00015 ! !PARAMETERS: 00016 ! 00017 integer,Intent(Out) :: ierror 00018 ! 00019 ! Error status 00020 ! 00021 ! !DESCRIPTION: 00022 ! 00023 ! Initializes the CF name and map tables and the corresponig TLBs 00024 ! in order to lookup CF names by an entry number. 00025 ! This is a fall-back solution if informations regarding names are passed 00026 ! by an entry number rather than by a string. 00027 ! 00028 ! !REVISION HISTORY: 00029 ! Date Programmer Description 00030 ! ---------- ---------- ----------- 00031 ! 05/05/2002 R. Vogelsang created 00032 !EOP 00033 !---------------------------------------------------------------------- 00034 ! $Id: psmile_io_init_cf.F90 2325 2010-04-21 15:00:07Z valcke $ 00035 ! $Author: valcke $ 00036 !---------------------------------------------------------------------- 00037 00038 ! 00039 ! Local variables 00040 ! 00041 CHARACTER(LEN=len_cvs_string), SAVE :: io_init_cf_cvs= 00042 '$Id: psmile_io_init_cf.F90 2325 2010-04-21 15:00:07Z valcke $' 00043 ierror = 0 00044 00045 end subroutine PSMILe_IO_Init_CF
1.6.1