lecdon_artemis.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\lecdon_artemis.f
00002 !
00184                      SUBROUTINE LECDON_ARTEMIS
00185 !                    *************************
00186 !
00187      &(FILE_DESC,PATH,NCAR,CODE)
00188 !
00189 !***********************************************************************
00190 ! ARTEMIS   V6P1                                   31/05/2011
00191 !***********************************************************************
00192 !
00193 !
00194 !
00195 !
00196 !
00197 !
00198 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00199 !| CODE           |-->| CALLING CODE
00200 !| FILE_DESC      |<--| STORES STRINGS 'SUBMIT' OF DICTIONARY
00201 !| NCAR           |-->| NUMBER OF LETTERS IN STRING PATH
00202 !| PATH           |-->| FULL PATH TO CODE DICTIONARY
00203 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00204 !
00205       USE DECLARATIONS_TELEMAC
00206       USE DECLARATIONS_ARTEMIS
00207       USE INTERFACE_ARTEMIS, EX_LECDON_ARTEMIS => LECDON_ARTEMIS
00208 !
00209       IMPLICIT NONE
00210       INTEGER LNG,LU
00211       COMMON/INFO/LNG,LU
00212 !
00213       LOGICAL LSTOP
00214       INTEGER I,KK
00215 !
00216       CHARACTER*8 MNEMO(MAXVAR)
00217 !
00218 !-----------------------------------------------------------------------
00219 !
00220 ! ARRAYS USED IN THE DAMOCLES CALL
00221 !
00222       INTEGER, PARAMETER :: NMAX = 300
00223 !
00224       INTEGER ADRESS(4,NMAX),DIMENS(4,NMAX)
00225       DOUBLE PRECISION MOTREA(NMAX)
00226       INTEGER          MOTINT(NMAX)
00227       LOGICAL          MOTLOG(NMAX)
00228       CHARACTER*144    MOTCAR(NMAX)
00229       CHARACTER*72     MOTCLE(4,NMAX,2)
00230       INTEGER          TROUVE(4,NMAX)
00231       LOGICAL DOC
00232       CHARACTER(LEN=250) :: NOM_CAS
00233       CHARACTER(LEN=250) :: NOM_DIC
00234 ! ARGUMENTS
00235       CHARACTER(LEN=24), INTENT(IN)     :: CODE
00236       CHARACTER(LEN=144), INTENT(INOUT) :: FILE_DESC(4,NMAX)
00237       INTEGER, INTENT(IN)               :: NCAR
00238       CHARACTER(LEN=250), INTENT(IN)    :: PATH
00239 !
00240 ! END OF DECLARATIONS FOR DAMOCLES CALL :
00241 !
00242 !-----------------------------------------------------------------------
00243 !
00244 ! INITIALISES THE VARIABLES FOR DAMOCLES CALL :
00245 !
00246       DO KK=1,NMAX
00247 !
00248 !       A FILENAME NOT GIVEN BY DAMOCLES WILL BE RECOGNIZED AS A WHITE SPACE
00249 !       (IT MAY BE THAT NOT ALL COMPILERS WILL INITIALISE LIKE THAT)
00250 !
00251         MOTCAR(KK)(1:1)=' '
00252 !
00253         DIMENS(1,KK) = 0
00254         DIMENS(2,KK) = 0
00255         DIMENS(3,KK) = 0
00256         DIMENS(4,KK) = 0
00257 !
00258       ENDDO
00259 !
00260 !     WRITES OUT INFO
00261 !
00262       DOC = .FALSE.
00263 !
00264 !-----------------------------------------------------------------------
00265 !     OPENS DICTIONNARY AND STEERING FILES
00266 !-----------------------------------------------------------------------
00267 !
00268       IF(NCAR.GT.0) THEN
00269 !
00270         NOM_DIC=PATH(1:NCAR)//'ARTDICO'
00271         NOM_CAS=PATH(1:NCAR)//'ARTCAS'
00272 !
00273       ELSE
00274 !
00275         NOM_DIC='ARTDICO'
00276         NOM_CAS='ARTCAS'
00277 !
00278       ENDIF
00279 !
00280       OPEN(2,FILE=NOM_DIC,FORM='FORMATTED',ACTION='READ')
00281       OPEN(3,FILE=NOM_CAS,FORM='FORMATTED',ACTION='READ')
00282 !
00283       CALL DAMOCLE( ADRESS , DIMENS , NMAX   , DOC     , LNG    , LU ,
00284      &              MOTINT , MOTREA , MOTLOG , MOTCAR  , MOTCLE ,
00285      &              TROUVE , 2   , 3   , .FALSE. , FILE_DESC)
00286 !
00287 !     DECODES 'SUBMIT' CHAINS
00288 !
00289       CALL READ_SUBMIT(ART_FILES,MAXLU_ART,CODE,FILE_DESC,300)
00290 !
00291 !-----------------------------------------------------------------------
00292 !
00293       DO I=1,MAXLU_ART
00294         IF(ART_FILES(I)%TELNAME.EQ.'ARTGEO') THEN
00295           ARTGEO=I
00296         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTCAS') THEN
00297           ARTCAS=I
00298         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTCLI') THEN
00299           ARTCLI=I
00300         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTFON') THEN
00301           ARTFON=I
00302         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTRES') THEN
00303           ARTRES=I
00304         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTREF') THEN
00305           ARTREF=I
00306         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTBI1') THEN
00307           ARTBI1=I
00308         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTBI2') THEN
00309           ARTBI2=I
00310         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTFO1') THEN
00311           ARTFO1=I
00312         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTFO2') THEN
00313           ARTFO2=I
00314         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTRBI') THEN
00315           ARTRBI=I
00316         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTRFO') THEN
00317           ARTRFO=I
00318         ELSEIF(ART_FILES(I)%TELNAME.EQ.'ARTTC1') THEN
00319           ARTTC1=I
00320         ENDIF
00321 
00322       ENDDO
00323 !
00324 !-----------------------------------------------------------------------
00325 !
00326 ! ASSIGNS THE STEERING FILE VALUES TO THE PARAMETER FORTRAN NAME :
00327 !
00328 !-----------------------------------------------------------------------
00329 !
00330 ! INTEGER KEYWORDS :
00331 !
00332       LEOPRD    = MOTINT( ADRESS(1, 1) )
00333       LISPRD    = MOTINT( ADRESS(1, 2) )
00334       SLVART%NITMAX    = MOTINT( ADRESS(1,3) )
00335       SLVART%PRECON    = MOTINT( ADRESS(1,4) )
00336       DISESP    = MOTINT( ADRESS(1, 5) )
00337       STDGEO    = MOTINT( ADRESS(1, 6) )
00338       STDRES    = MOTINT( ADRESS(1, 7) )
00339       SLVART%SLV = MOTINT( ADRESS(1,8) )
00340       LISFON    = MOTINT( ADRESS(1, 9) )
00341       NPALE     = MOTINT( ADRESS(1,10) )
00342       NDALE     = MOTINT( ADRESS(1,11) )
00343       IBREAK    = MOTINT( ADRESS(1,12) )
00344       NITDIS    = MOTINT( ADRESS(1,13) )
00345       REGIDO    = MOTINT( ADRESS(1,14) )
00346       FORMFR    = MOTINT( ADRESS(1,15) )
00347       SLVART%KRYLOV = MOTINT( ADRESS(1,16) )
00348       LVMAC     = MOTINT( ADRESS(1,17) )
00349       KFROT     = MOTINT( ADRESS(1,18) )
00350       OPTASS    = MOTINT( ADRESS(1,19) )
00351       PRODUC    = MOTINT( ADRESS(1,20) )
00352       MARDAT(1) = MOTINT( ADRESS(1,21) )
00353       MARDAT(2) = MOTINT( ADRESS(1,21) + 1 )
00354       MARDAT(3) = MOTINT( ADRESS(1,21) + 2 )
00355       MARTIM(1) = MOTINT( ADRESS(1,22) )
00356       MARTIM(2) = MOTINT( ADRESS(1,22) + 1 )
00357       MARTIM(3) = MOTINT( ADRESS(1,22) + 2 )
00358       NPRIV     = MOTINT( ADRESS(1,23) )
00359       NCSIZE    = MOTINT( ADRESS(1,24) )
00360 !     ORIGIN COORDINATES
00361       I_ORIG    = MOTINT( ADRESS(1,25)   )
00362       J_ORIG    = MOTINT( ADRESS(1,25)+1 )
00363 !     RAPIDLY VARYING TOPOGRAPHY
00364       IPENTCO   = MOTINT( ADRESS(1,26) )
00365 !     MAX ITERATION ON TETAP
00366       NITTP   = MOTINT( ADRESS(1,27) )
00367       NDTWC   = MOTINT( ADRESS(1,28) )
00368       NFTWC   = MOTINT( ADRESS(1,29) )
00369 
00370 
00371 ! FOR THE MOMENT WTITES TO FILE FROM THE START OF SIMULATION
00372       PTINIG    = 0
00373       PTINIL    = 0
00374 !
00375 ! REAL KEYWORDS :
00376 !
00377       PER       = MOTREA( ADRESS(2, 1) )
00378       TETAH     = MOTREA( ADRESS(2, 2) )
00379       GRAV      = MOTREA( ADRESS(2, 3) )
00380       SLVART%ZERO = MOTREA( ADRESS(2, 4) )
00381       SLVART%EPS = MOTREA( ADRESS(2, 5) )
00382       HMIN      = MOTREA( ADRESS(2, 6) )
00383       COTINI    = MOTREA( ADRESS(2, 7) )
00384       HAUTIN    = MOTREA( ADRESS(2, 8) )
00385       PERDEB    = MOTREA( ADRESS(2, 9) )
00386       PERFIN    = MOTREA( ADRESS(2,10) )
00387       PERPAS    = MOTREA( ADRESS(2,11) )
00388       PERPIC    = MOTREA( ADRESS(2,12) )
00389       GAMMA     = MOTREA( ADRESS(2,13) )
00390       TETMIN    = MOTREA( ADRESS(2,14) )
00391       TETMAX    = MOTREA( ADRESS(2,15) )
00392       EXPOS     = MOTREA( ADRESS(2,16) )
00393       RELAX     = MOTREA( ADRESS(2,17) )
00394       EPSDIS    = MOTREA( ADRESS(2,18) )
00395       RELDIS    = MOTREA( ADRESS(2,19) )
00396       ALFABJ    = MOTREA( ADRESS(2,20) )
00397       GAMMAS    = MOTREA( ADRESS(2,21) )
00398       KDALLY    = MOTREA( ADRESS(2,22) )
00399       GDALLY    = MOTREA( ADRESS(2,23) )
00400       VISCO     = MOTREA( ADRESS(2,24) )
00401       DIAM90    = MOTREA( ADRESS(2,25) )
00402       DIAM50    = MOTREA( ADRESS(2,26) )
00403       MVSED     = MOTREA( ADRESS(2,27) )
00404       MVEAU     = MOTREA( ADRESS(2,28) )
00405       FWCOEF    = MOTREA( ADRESS(2,29) )
00406       RICOEF    = MOTREA( ADRESS(2,30) )
00407       FFON      = MOTREA( ADRESS(2,31) )
00408       PMIN      = MOTREA( ADRESS(2,32) )
00409       PMAX      = MOTREA( ADRESS(2,33) )
00410       DEPREF    = MOTREA( ADRESS(2,34) )
00411       X_PHREF   = MOTREA( ADRESS(2,35) )
00412       Y_PHREF   = MOTREA( ADRESS(2,35)+1 )
00413       EPSDIR    = MOTREA( ADRESS(2,36) )
00414       EPSTP     = MOTREA( ADRESS(2,37) )
00415       RELTP     = MOTREA( ADRESS(2,38) )
00416       TPSTWC    = MOTREA( ADRESS(2,39) )
00417 !
00418 ! LOGICAL KEYWORDS :
00419 !
00420       LISTIN    = MOTLOG( ADRESS(3, 1) )
00421       INFOGR    = MOTLOG( ADRESS(3, 2) )
00422       BALAYE    = MOTLOG( ADRESS(3, 3) )
00423       ALEMON    = MOTLOG( ADRESS(3, 4) )
00424       ALEMUL    = MOTLOG( ADRESS(3, 5) )
00425       DEFERL    = MOTLOG( ADRESS(3, 6) )
00426       FROTTE    = MOTLOG( ADRESS(3, 7) )
00427       ENTFW     = MOTLOG( ADRESS(3, 8) )
00428       ENTREG    = MOTLOG( ADRESS(3, 9) )
00429       ENTRUG    = MOTLOG( ADRESS(3, 10) )
00430       LISHOU    = MOTLOG( ADRESS(3, 11) )
00431       VALID     = MOTLOG( ADRESS(3, 12) )
00432       COURANT   = MOTLOG( ADRESS(3, 13) )
00433       LANGAUTO  = MOTLOG( ADRESS(3, 14) )
00434       LPHASEAUTO= MOTLOG( ADRESS(3, 15) )
00435 !     SPHERICAL EQUATIONS, HARD-CODED
00436       SPHERI    = .FALSE.
00437       CHAINTWC  = MOTLOG( ADRESS(3, 16) )
00438 !
00439 ! STRING KEYWORDS : SOME ARE USED BY THE LAUNCHING
00440 !                   PROCEDURE
00441 !
00442       TITCAS    = MOTCAR( ADRESS(4, 1) )(1:72)
00443       VARDES    = MOTCAR( ADRESS(4, 2) )(1:72)
00444       CALL MAJUS(VARDES)
00445       VARIMP    = MOTCAR( ADRESS(4, 3) )(1:72)
00446       CALL MAJUS(VARIMP)
00447 !     FROM 4 TO 5: READ AND USED BY PRECOS
00448       ART_FILES(ARTGEO)%NAME=MOTCAR( ADRESS(4,6) )
00449 !     NOMFOR    = MOTCAR( ADRESS(4, 7) )
00450 !     NOMCAS    = MOTCAR( ADRESS(4, 8) )
00451 !      ART_FILES(ARTCAS)%NAME=MOTCAR( ADRESS(4,8) )
00452       ART_FILES(ARTCLI)%NAME=MOTCAR( ADRESS(4,9) )
00453 !      WRITE(*,*) 'IN LECDON ',ART_FILES(ARTGEO)%NAME
00454       ART_FILES(ARTRES)%NAME=MOTCAR( ADRESS(4,10) )
00455 !     FROM 11 TO 14 : READ AND USED BY PRECOS
00456       ART_FILES(ARTFON)%NAME=MOTCAR( ADRESS(4,15) )
00457       ART_FILES(ARTBI1)%NAME=MOTCAR( ADRESS(4,16) )
00458       ART_FILES(ARTBI2)%NAME=MOTCAR( ADRESS(4,17) )
00459       ART_FILES(ARTFO1)%NAME=MOTCAR( ADRESS(4,18) )
00460       ART_FILES(ARTFO2)%NAME=MOTCAR( ADRESS(4,19) )
00461       ART_FILES(ARTRBI)%NAME=MOTCAR( ADRESS(4,20) )
00462       ART_FILES(ARTRFO)%NAME=MOTCAR( ADRESS(4,21) )
00463 !     FROM 22 TO 23 : READ AND USED BY PRECOS OR NOT USED
00464       CDTINI    = MOTCAR( ADRESS(4,24) )(1:72)
00465       CALL MAJUS(CDTINI)
00466       BINGEO    = MOTCAR( ADRESS(4,25) )(1:3)
00467       CALL MAJUS(BINGEO)
00468       BINRES    = MOTCAR( ADRESS(4,26) )(1:3)
00469       CALL MAJUS(BINRES)
00470       ART_FILES(ARTREF)%NAME=MOTCAR( ADRESS(4,28) )
00471 !     RESULTS FILE FORMAT
00472       ART_FILES(ARTRES)%FMT = MOTCAR( ADRESS(4,30) )(1:8)
00473       CALL MAJUS(ART_FILES(ARTRES)%FMT)
00474 !     REFERENCE FILE FORMAT
00475       ART_FILES(ARTREF)%FMT = MOTCAR( ADRESS(4,31) )(1:8)
00476       CALL MAJUS(ART_FILES(ARTREF)%FMT)
00477 !     BINARY FILE 1 FORMAT
00478       ART_FILES(ARTBI1)%FMT = MOTCAR( ADRESS(4,32) )(1:8)
00479       CALL MAJUS(ART_FILES(ARTBI1)%FMT)
00480 !     BINARY FILE 2 FORMAT
00481       ART_FILES(ARTBI2)%FMT = MOTCAR( ADRESS(4,33) )(1:8)
00482       CALL MAJUS(ART_FILES(ARTBI2)%FMT)
00483 !     TOMAWAC FILE 1 FORMAT
00484       ART_FILES(ARTTC1)%FMT = MOTCAR( ADRESS(4,34) )(1:8)
00485       CALL MAJUS(ART_FILES(ARTTC1)%FMT)
00486 !     TOMAWAC FILE 1
00487       ART_FILES(ARTTC1)%NAME=MOTCAR( ADRESS(4,35) )
00488 !
00489       IF(LISTIN) THEN
00490         IF(LNG.EQ.1) WRITE(LU,101)
00491         IF(LNG.EQ.2) WRITE(LU,102)
00492       ENDIF
00493 101   FORMAT(1X,/,19X, '********************************************',/,
00494      &            19X, '*               LECDON:                    *',/,
00495      &            19X, '*        APRES APPEL DE DAMOCLES           *',/,
00496      &            19X, '*     VERIFICATION DES DONNEES LUES        *',/,
00497      &            19X, '*     SUR LE FICHIER DES PARAMETRES        *',/,
00498      &            19X, '********************************************',/)
00499 102   FORMAT(1X,/,19X, '********************************************',/,
00500      &            19X, '*               LECDON:                    *',/,
00501      &            19X, '*        AFTER CALLING DAMOCLES            *',/,
00502      &            19X, '*        CHECKING OF DATA  READ            *',/,
00503      &            19X, '*         IN THE STEERING FILE             *',/,
00504      &            19X, '********************************************',/)
00505 !
00506 !-----------------------------------------------------------------------
00507 !  NAME OF THE VARIABLES FOR THE RESULTS AND GEOMETRY FILES :
00508 !-----------------------------------------------------------------------
00509 !
00510 ! LOGICAL ARRAY FOR OUTPUT
00511 !
00512       CALL NOMVAR_ARTEMIS(TEXTE,TEXTPR,MNEMO)
00513       CALL SORTIE(VARDES , MNEMO , 100 , SORLEO )
00514       CALL SORTIE(VARIMP , MNEMO , 100 , SORIMP )
00515 !
00516 !-----------------------------------------------------------------------
00517 !
00518 ! IN THE CASE OF A PERIOD SWEEPING, THE FIRST PERIOD TO BE COMPUTED
00519 ! IS PERDEB
00520 !
00521       IF (BALAYE) PER = PERDEB
00522 !
00523 !-----------------------------------------------------------------------
00524 !
00525 ! IF NOTHING IS TO BE WRITTEN TO THE LISTING FILE, THERE SHOULD BE
00526 ! NO INFORMATION WRITTEN ABOUT THE SOLVEUR
00527 !
00528       IF (.NOT.LISTIN) INFOGR = .FALSE.
00529 !
00530 !-----------------------------------------------------------------------
00531 !
00532 ! FOR RANDOM SEA COMPUTATIONS, INHIBITS THE GRAPHICAL AND LISTING
00533 ! OUTPUT OF THE PHASES, SPEEDS, FREE SURFACE ELEVATION, AND
00534 ! POTENTIAL BECAUSE THEY DO NOT MEAN ANYTHING.
00535 !
00536 ! BUT WRITES OUT AN AVERAGE WAVE NUMBER, AN AVERAGE PHASE CELERITY
00537 ! AND AN AVERAGE GROUP VELOCITY, COMPUTED FROM THE MEAN WAVE
00538 ! PERIOD T01. ALSO WRITES OUT AN AVERAGE INCIDENCE
00539 !
00540 ! MOREOVER, CHECKS THAT THE NUMBER OF DISCRETISED PERIODS AND
00541 ! DIRECTIONS IS AT LEAST 1
00542 !
00543       IF(ALEMON .OR. ALEMUL) THEN
00544 !
00545 !       2 : PHASE
00546 !
00547         SORLEO( 2) = .FALSE.
00548         SORIMP( 2) = .FALSE.
00549 !
00550 !       3 AND 4 : U0 AND V0
00551 !
00552         SORLEO( 3) = .FALSE.
00553         SORIMP( 3) = .FALSE.
00554         SORLEO( 4) = .FALSE.
00555         SORIMP( 4) = .FALSE.
00556 !
00557 !       5 : FREE SURFACE
00558 !
00559         SORLEO( 5) = .FALSE.
00560         SORIMP( 5) = .FALSE.
00561 !
00562 !       11 AND 12 : REAL AND IMAGINARY PARTS OF THE POTENTIAL
00563 !
00564         SORLEO(11) = .FALSE.
00565         SORIMP(11) = .FALSE.
00566         SORLEO(12) = .FALSE.
00567         SORIMP(12) = .FALSE.
00568 !
00569         IF (NPALE.LE.0) NPALE = 1
00570         IF (NDALE.LE.0) NDALE = 1
00571 !
00572       ELSE
00573 !
00574 !       17, 18 AND 19 : T01, T02 AND TM
00575 !
00576         SORLEO(17) = .FALSE.
00577         SORIMP(17) = .FALSE.
00578         SORLEO(18) = .FALSE.
00579         SORIMP(18) = .FALSE.
00580         SORLEO(19) = .FALSE.
00581         SORIMP(19) = .FALSE.
00582       ENDIF
00583 !
00584 ! NO PERIOD SWEEPING FOR RANDOM SEAS
00585 !
00586       IF (ALEMON .OR. ALEMUL) BALAYE = .FALSE.
00587 !
00588 ! NDALE=1 FOR MONO-DIRECTIONAL SEAS
00589 !
00590       IF (ALEMON .AND. .NOT.ALEMUL) NDALE = 1
00591 !
00592 !-----------------------------------------------------------------------
00593 !
00594 !  DOES NOT WRITE OUT 'PRIVE' VARIABLES IF THEY'VE NOT BEEN ALLOCATED
00595 !
00596       LSTOP = .FALSE.
00597       DO I=1,4
00598         IF ((SORLEO(12+I).OR.SORIMP(12+I)).AND.(NPRIV.LT.I)) THEN
00599           IF (LNG.EQ.1) WRITE(LU,16) I,NPRIV
00600           IF (LNG.EQ.2) WRITE(LU,17) I,NPRIV
00601           LSTOP = .TRUE.
00602         ENDIF
00603       ENDDO
00604       IF (LSTOP) THEN
00605         CALL PLANTE(1)
00606         STOP
00607       ENDIF
00608  16   FORMAT(1X,'LA VARIABLE PRIVEE ',1I1,' NE PEUT ETRE UTILISEE '
00609      &      ,1X,'CAR ELLE N''EST PAS ALLOUEE.',/
00610      &      ,1X,'AUGMENTER ''NPRIV'' (ACTUELLEMENT ',1I1,' ).',/)
00611  17   FORMAT(1X,'PRIVATE ARRAY ',1I1,' CANNOT BE USED '
00612      &      ,1X,'BECAUSE IT WAS NOT ALLOCATED.',/
00613      &      ,1X,'CHECK ''NPRIV''  (AT THE TIME BEING ',1I1,' ).',/)
00614 !
00615 !-----------------------------------------------------------------------
00616 !
00617 !  WRITES OUT THE TITLE
00618 !
00619       IF(LISTIN) THEN
00620         IF(LNG.EQ.1) WRITE(LU,3000) TITCAS
00621         IF(LNG.EQ.2) WRITE(LU,3001) TITCAS
00622 3000    FORMAT(/1X,'TITRE DE L''ETUDE :',1X,A72,/)
00623 3001    FORMAT(/1X,'NAME OF THE STUDY :',1X,A72,/)
00624       ENDIF
00625 !
00626 !-----------------------------------------------------------------------
00627 !
00628 ! NO TIDAL FLATS ==> MSK = .FALSE.
00629 !
00630       MSK = .FALSE.
00631 !
00632 !-----------------------------------------------------------------------
00633 !
00634 ! COMPULSORY CHOICE OF KEYWORD FOR THE DIRECT SOLVEUR
00635 !
00636       IF( (SLVART%SLV.EQ.8).AND.(OPTASS.NE.3) ) THEN
00637         IF(LNG.EQ.1) WRITE(LU,3002)
00638         IF(LNG.EQ.2) WRITE(LU,3003)
00639 !
00640 3002    FORMAT(1X,'AVEC SOLVEUR DIRECT, STOCKAGE PAR SEGMENT',/,1X,
00641      &             'OBLIGATOIRE',///)
00642 3003    FORMAT(1X,'WITH DIRECT SYSTEM SOLVER, EDGE-BASED STORAGE',/,1X,
00643      &             'IS MANDATORY',///)
00644         CALL PLANTE(1)
00645         STOP
00646       ENDIF
00647 !
00648 ! USE OF DIRECT SOLVEUR IS NOT POSSIBLE WITH PARALLELISM
00649 !
00650       IF(NCSIZE.GT.1) THEN
00651         IF(SLVART%SLV.EQ.8) THEN
00652            IF(LNG.EQ.1) WRITE(LU,3004)
00653            IF(LNG.EQ.2) WRITE(LU,3005)
00654 3004       FORMAT(1X,'AVEC PARALLELISME,',/,1X,
00655      &             'PAS DE SOLVEUR DIRECT',///)
00656 3005       FORMAT(1X,'WITH PARALLELISM,',/,1X,
00657      &             'NO DIRECT SYSTEM SOLVER',///)
00658            CALL PLANTE(1)
00659            STOP
00660         ENDIF
00661       ENDIF
00662 !
00663 !-----------------------------------------------------------------------
00664 !
00665       RETURN
00666       END

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