bief_init.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\bief_init.f
00002 !
00062                      SUBROUTINE BIEF_INIT
00063 !                    ********************
00064 !
00065      &(CODE,CHAINE,NCAR,PINIT)
00066 !
00067 !***********************************************************************
00068 ! BIEF   V6P1                                   21/08/2010
00069 !***********************************************************************
00070 !
00071 !
00072 !
00073 !
00074 !
00075 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00076 !| CHAINE         |<->| NAME OF CURRENT DIRECTORY
00077 !| CODE           |-->| NAME OF CALLING PROGRAMME
00078 !| NCAR           |<->| LENGTH OF CHAIN
00079 !| PINIT          |-->| LOGICAL, IF YES, INITIALIZE PARALLELISM
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !
00082       USE BIEF, EX_BIEF_INIT => BIEF_INIT
00083       USE DECLARATIONS_TELEMAC
00084 !
00085       IMPLICIT NONE
00086       INTEGER     LNG,LU
00087       COMMON/INFO/LNG,LU
00088 !
00089 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00090 !
00091       CHARACTER(LEN=24), INTENT(IN)     :: CODE
00092       LOGICAL, INTENT(IN)               :: PINIT
00093       CHARACTER(LEN=250), INTENT(INOUT) :: CHAINE
00094       INTEGER, INTENT(INOUT)            :: NCAR
00095 !
00096 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00097 !
00098 !     TO RUN IN PARALLEL MODE
00099 !
00100 !     P_INIT (PARALLEL) RETURNS THE WORKING DIRECTORY AND ITS LENGTH
00101 !     P_INIT (PARAVOID) RETURNS NCAR = 0 AND NCSIZE = 0
00102 !
00103       IF(PINIT) CALL P_INIT(CHAINE,NCAR,IPID,NCSIZE)
00104 !
00105 !-----------------------------------------------------------------------
00106 !
00107 !     LANGUAGE AND LOGICAL UNIT FOR OUTPUTS
00108 !
00109       CALL READ_CONFIG(LNG,LU,CHAINE,NCAR)
00110 !
00111 !-----------------------------------------------------------------------
00112 !
00113       RETURN
00114       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0