00001 !----------------------------------------------------------------------- 00002 ! Copyright 2006-2010, NEC Europe Ltd., London, UK. 00003 ! All rights reserved. Use is subject to OASIS4 license terms. 00004 !----------------------------------------------------------------------- 00005 !BOP 00006 ! 00007 ! !ROUTINE: psmile_to_be_coupled 00008 ! 00009 ! !INTERFACE: 00010 00011 Logical Function PSMILe_to_be_coupled (comp_id1, comp_id2) 00012 ! 00013 ! !USES: 00014 ! 00015 use PRISM_constants 00016 ! 00017 use PSMILe, dummy_interface => PSMILe_to_be_coupled 00018 00019 implicit none 00020 ! 00021 ! !INPUT PARAMETERS: 00022 ! 00023 integer, Intent (In) :: comp_id1, comp_id2 00024 00025 ! Specify the global component Id's of the components. 00026 ! "comp_id1" is the global component id if a component which is 00027 ! running on the actual process. The component with global id 00028 ! "comp_id2" may be running on any process. 00029 ! 00030 ! !RETURN VALUE: 00031 ! 00032 ! .true. : If both components have to be coupled. 00033 ! .false. : Otherwise. 00034 ! 00035 ! !DESCRIPTION: 00036 ! 00037 ! Subroutine "PSMILe_to_be_coupled" retruns whether the components with 00038 ! the global component id's "comp_id1" and "comp_id2" have to be coupled. 00039 ! 00040 ! 00041 ! !REMARKS: 00042 ! 00043 ! This is currently a dummy function since the information 00044 ! on the components to be coupled is not available !!! 00045 ! 00046 ! !TO DO: 00047 ! 00048 ! We need the info on all components which have to be coupled with 00049 ! the components located on the current process. 00050 ! 00051 ! 00052 ! !REVISION HISTORY: 00053 ! 00054 ! Date Programmer Description 00055 ! ---------- ---------- ----------- 00056 ! 01.12.03 H. Ritzdorf created 00057 ! 00058 !EOP 00059 !---------------------------------------------------------------------- 00060 ! 00061 ! $Id: psmile_to_be_coupled.F90 2325 2010-04-21 15:00:07Z valcke $ 00062 ! $Author: valcke $ 00063 ! 00064 Character(len=len_cvs_string), save :: mycvs = 00065 '$Id: psmile_to_be_coupled.F90 2325 2010-04-21 15:00:07Z valcke $' 00066 ! 00067 !---------------------------------------------------------------------- 00068 00069 ! This is a workaround 00070 ! TODO: Get information out of SMIOC data 00071 ! 00072 PSMILe_to_be_coupled = .true. 00073 00074 #ifdef VERBOSE 00075 print *, trim(ch_id), ': PSMILe_to_be_coupled: comp_ids', & 00076 comp_id1, comp_id2, PSMILe_to_be_coupled 00077 print *, trim(ch_id), ': PSMILe_to_be_coupled: end' 00078 00079 call psmile_flushstd 00080 #endif /* VERBOSE */ 00081 ! 00082 end function PSMILe_to_be_coupled
1.6.1