00001 !------------------------------------------------------------------------ 00002 ! Copyright 2006-2010, CERFACS, Toulouse, France. 00003 ! Copyright 2006-2010, NEC High Performance Computing, Duesseldorf, Germany. 00004 ! All rights reserved. Use is subject to OASIS4 license terms. 00005 !----------------------------------------------------------------------- 00006 !BOP 00007 ! 00008 ! !ROUTINE: PRISMTrs_main 00009 ! 00010 ! !INTERFACE 00011 subroutine prismtrs_main(id_err) 00012 00013 ! 00014 ! !USES: 00015 ! 00016 USE PRISMDrv, dummy_interface => PRISMTrs_main 00017 00018 IMPLICIT NONE 00019 00020 Integer, Intent (Out) :: id_err 00021 00022 ! !DESCRIPTION 00023 ! main routine of the transformer 00024 ! 00025 ! !REVISED HISTORY 00026 ! Date Programmer Description 00027 ! ---------- ---------- ----------- 00028 ! 06/10/2003 D. Declat The main program of the transformer becomes 00029 ! a routine for the driver 00030 ! 00031 ! EOP 00032 !---------------------------------------------------------------------- 00033 ! $Id: prismtrs_main.F90 2325 2010-04-21 15:00:07Z valcke $ 00034 ! $Author: valcke $ 00035 !---------------------------------------------------------------------- 00036 ! 00037 ! 0. Local declarations 00038 ! 00039 CHARACTER(LEN=len_cvs_string), SAVE :: mycvs = 00040 '$Id: prismtrs_main.F90 2325 2010-04-21 15:00:07Z valcke $' 00041 00042 ! --------------------------------------------------------------------- 00043 00044 id_err = 0 00045 ! 00046 ! 1. If needed broadcast of the exchange table between the transf processes 00047 ! 00048 call prismtrs_bcast2trs(id_err) 00049 ! 00050 ! 2. Reception Loop 00051 ! 00052 call prismtrs_loop(id_err) 00053 ! 00054 ! 3. Deallocation 00055 ! 00056 ! call PRISMTrs_deallocate(id_err) 00057 ! 00058 00059 END SUBROUTINE PRISMTrs_main 00060 00061 00062 00063 00064 00065 00066
1.6.1