homere_sisyphe.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\homere_sisyphe.f
00002 !
00065                      PROGRAM HOMERE_SISYPHE
00066 !                    **********************
00067 !
00068 !
00069 !***********************************************************************
00070 ! SISYPHE   V7P0
00071 !***********************************************************************
00072 !
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00079 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00080 !
00081       USE BIEF
00082       USE DECLARATIONS_TELEMAC
00083       USE DECLARATIONS_SISYPHE
00084       USE INTERFACE_SISYPHE
00085 !
00086       IMPLICIT NONE
00087       INTEGER     LNG,LU
00088       COMMON/INFO/LNG,LU
00089 !
00090       INTEGER TDEB,TFIN,IFLOT,NCAR,DUMINT
00091       LOGICAL DUMLOG
00092 !
00093       CHARACTER(LEN=24), PARAMETER :: CODE='SISYPHE                 '
00094 !
00095       CHARACTER(LEN=250) PATH
00096       CHARACTER(LEN=144) MOTCAR(300),FILE_DESC(4,300)
00097 !
00098       INTEGER  TIME_IN_SECONDS
00099       EXTERNAL TIME_IN_SECONDS
00100 !
00101 !======================================================================
00102 !
00103       CALL BIEF_INIT(CODE,PATH,NCAR,.TRUE.)
00104 !
00105       TDEB = TIME_IN_SECONDS()
00106 !
00107 !  HEADING TO THE LISTING
00108 !
00109       IF(LNG.EQ.1) WRITE(LU,100)
00110       IF(LNG.EQ.2) WRITE(LU,101)
00111       WRITE(LU,102)
00112 100   FORMAT(/////,1X,'LISTING DE SISYPHE ',78('-'))
00113 101   FORMAT(/////,1X,'LISTING OF SISYPHE ',78('-'))
00114 102   FORMAT(/////,
00115      &14X,'    SSSS I   SSSS Y   Y PPPP  H   H EEEEE',/,
00116      &14X,'   S     I  S      Y Y  P   P H   H E    ',/,
00117      &14X,'    SSS  I   SSS    Y   PPPP  HHHHH EEEE  ',/,
00118      &14X,'       S I      S   Y   P     H   H E     ',/,
00119      &14X,'   SSSS  I  SSSS    Y   P     H   H EEEEE',/,
00120      &14X,'                                          ',/,
00121      &14X,'                 VERSION 7.0              ',/,
00122      &14X,/////)
00123 !
00124 !-----------------------------------------------------------------------
00125 !
00126 ! READS THE STEERING FILE
00127 !
00128       CALL LECDON_SISYPHE(MOTCAR,FILE_DESC,PATH,NCAR,CODE)
00129 !
00130 !-----------------------------------------------------------------------
00131 !
00132       IFLOT = 0
00133       CALL BIEF_OPEN_FILES(CODE,SIS_FILES,MAXLU_SIS,
00134      &                     PATH,NCAR,.FALSE.,IFLOT,2)
00135 !
00136 !-----------------------------------------------------------------------
00137 !
00138 ! ALLOCATES VECTORS, MATRICES AND BLOCKS
00139 !
00140       CALL POINT_SISYPHE
00141 !
00142 !-----------------------------------------------------------------------
00143 !
00144 !  CALLS THE SUBROUTINE SISYPHE
00145 !  -1 GOES THROUGH THE WHOLE SUBROUTINE BECAUSE THERE IS NO COUPLING
00146 !  THE OTHER VARIABLES ARE ONLY USED WHEN COUPLING
00147 !
00148 !     INOUT VARIABLES IN SISYPHE CANNOT BE HARD-CODED
00149       DUMINT=1
00150       DUMLOG=.FALSE.
00151 !
00152       CALL SISYPHE(-1,0,0,0,0,T1,T1,T1,T1,T1,T1,T1,T1,
00153      &             DUMLOG,DUMINT,DUMLOG,CODE,1,
00154      &             T1,T1,0.D0,T1,0.D0,DUMLOG,DUMLOG,
00155      &             T1,1,T1,T1,T1,T1,T1,T1,T1,T1)
00156 !
00157 !-----------------------------------------------------------------------
00158 !
00159       CALL BIEF_CLOSE_FILES(CODE,SIS_FILES,MAXLU_SIS,.TRUE.)
00160 !
00161 !-----------------------------------------------------------------------
00162 !
00163       IF(LNG.EQ.1) WRITE(LU,10)
00164       IF(LNG.EQ.2) WRITE(LU,11)
00165 10    FORMAT(1X,///,1X,'FIN NORMALE DU PROGRAMME',///)
00166 11    FORMAT(1X,///,1X,'CORRECT END OF RUN',///)
00167 !
00168 !-----------------------------------------------------------------------
00169 !
00170       TFIN = TIME_IN_SECONDS()
00171       IF(LNG.EQ.1) THEN
00172         WRITE(LU,*) 'DUREE DU CALCUL : ',TFIN-TDEB,' SECONDES'
00173       ENDIF
00174       IF(LNG.EQ.2) THEN
00175         WRITE(LU,*) 'COMPUTER TIME: ',TFIN-TDEB,' SECONDS'
00176       ENDIF
00177 !
00178 !-----------------------------------------------------------------------
00179 !
00180       STOP 0
00181       END PROGRAM HOMERE_SISYPHE

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