00001 !----------------------------------------------------------------------- 00002 ! Copyright 2006-2010, SGI Germany, Munich, Germany. 00003 ! All rights reserved. Use is subject to OASIS4 license terms. 00004 !----------------------------------------------------------------------- 00005 subroutine psmile_io_cleanup ( ierror ) 00006 00007 ! ********************* 00008 ! * PRISM I/O Library * 00009 ! * ----------------- * 00010 ! ********************* 00011 ! 00012 ! Purpose: 00013 ! -------- 00014 ! I/O Library 00015 ! 00016 ! This is currently a dummy I/O routine 00017 ! 00018 ! 00019 ! Interface: 00020 ! ---------- 00021 ! CALL PSMILE_IO_Cleanup ( ierror ) 00022 ! 00023 ! Input: 00024 ! ------ 00025 ! none 00026 ! 00027 ! Output: 00028 ! ------- 00029 ! ierror : error status 00030 ! 00031 ! 00032 ! History: 00033 ! -------- 00034 ! Version Programmer Date Description 00035 ! ------- ---------- ---- ----------- 00036 ! 00037 ! $Id: psmile_io_cleanup.F90 2325 2010-04-21 15:00:07Z valcke $ 00038 ! 00039 ! --------------------------------------------------------------------- 00040 ! 00041 use PSMILe, dummy_interface => PSMILE_IO_Cleanup 00042 implicit none 00043 00044 ! --------------------------------------------------------------------- 00045 ! 00046 ! Argument declaration 00047 ! 00048 integer, Intent (Out) :: ierror 00049 00050 ! --------------------------------------------------------------------- 00051 ! 00052 ! Local declaration 00053 ! 00054 00055 ! --------------------------------------------------------------------- 00056 00057 ierror = 0 00058 00059 end subroutine PSMILe_IO_Cleanup
1.6.1