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 ! !ROUTINE: psmile_write_2d_dble 00008 ! 00009 ! !INTERFACE: 00010 00011 subroutine psmile_io_finalize ( ierror ) 00012 00013 ! 00014 ! !USES: 00015 ! 00016 use PSMILe, dummy_interface => PSMILE_IO_Finalize 00017 implicit none 00018 ! 00019 ! !OUTPUT PARAMETERS: 00020 ! 00021 00022 integer, Intent (Out) :: ierror 00023 ! 00024 ! !DESCRIPTION: 00025 ! 00026 ! 1st) Flushes data and closes files. 00027 ! 2nd) Exits from mpp_io. 00028 ! 3rd) Exits from mpp_domains 00029 ! 4th) Cleans all data structures associated with file I/O. 00030 ! 00031 ! !REVISION HISTORY: 00032 ! 00033 ! Date Programmer Description 00034 ! ---------- ---------- ----------- 00035 ! 09.12.03 R. Vogelsang created, step 2nd, 3rd and 4th not yet implemented 00036 ! 00037 !EOP 00038 !---------------------------------------------------------------------- 00039 00040 Character(len=len_cvs_string),save :: cvs_finalize= 00041 '$Id: psmile_io_finalize.F90 2325 2010-04-21 15:00:07Z valcke $' 00042 00043 00044 ierror = 0 00045 call psmile_close_files(ierror) 00046 00047 end subroutine PSMILe_IO_Finalize
1.6.1