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