Ignore:
Timestamp:
Apr 12, 2001, 11:30:31 AM (23 years ago)
Author:
lmdz
Message:

Mise en oeuvre du nouveau zoom. Modifs P. Levan
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/defrun_new.F

    r2 r203  
     1c
     2c $Header
     3c
    14      SUBROUTINE defrun_new( tapedef, etatinit, clesphy0 )
    25c
    … …  
    3639      INTEGER   tapeout
    3740      REAL clonn,clatt,grossismxx,grossismyy
    38       REAL dzoomxx,dzoomyy
     41      REAL dzoomxx,dzoomyy,tauxx,tauyy
    3942      LOGICAL  fxyhypbb, ysinuss
    4043      INTEGER i
    … …  
    258261      WRITE(tapeout,*)    clonn
    259262      IF( ABS(clon - clonn).GE. 0.001 )  THEN
    260         PRINT *,' La valeur de clon passee par run.def est differente de
    261      *  celle lue sur le fichier  start '
     263       WRITE(tapeout,*) ' La valeur de clon passee par run.def est diffe
     264     *rente de  celle lue sur le fichier  start '
    262265        STOP
    263266      ENDIF
    264 c
    265267c
    266268      READ (tapedef,9001) ch1,ch4
    … …  
    270272
    271273      IF( ABS(clat - clatt).GE. 0.001 )  THEN
    272         PRINT *,' La valeur de clat passee par run.def est differente de
    273      *  celle lue sur le fichier  start '
     274       WRITE(tapeout,*) ' La valeur de clat passee par run.def est diffe
     275     *rente de  celle lue sur le fichier  start '
    274276        STOP
    275277      ENDIF
    … …  
    281283
    282284      IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
    283         PRINT *,' La valeur de grossismx passee par run.def est differente 
    284      * de celle lue sur le fichier  start '
     285       WRITE(tapeout,*) ' La valeur de grossismx passee par run.def est
     286     , differente de celle lue sur le fichier  start '
    285287        STOP
    286288      ENDIF
    … …  
    292294
    293295      IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
    294         PRINT *,' La valeur de grossismy passee par run.def est differen
    295      * te de celle lue sur le fichier  start '
     296       WRITE(tapeout,*) ' La valeur de grossismy passee par run.def est
     297     , differente de celle lue sur le fichier  start '
    296298        STOP
    297299      ENDIF
    298300     
    299301      IF( grossismx.LT.1. )  THEN
    300         PRINT *,' ***  ATTENTION !! grossismx < 1 .   *** '
     302        WRITE(tapeout,*) ' ***  ATTENTION !! grossismx < 1 .   *** '
    301303         STOP
    302304      ELSE
    … …  
    306308
    307309      IF( grossismy.LT.1. )  THEN
    308         PRINT *,' ***  ATTENTION !! grossismy < 1 .   *** '
     310        WRITE(tapeout,*) ' ***  ATTENTION !! grossismy < 1 .   *** '
    309311         STOP
    310312      ELSE
    … …  
    312314      ENDIF
    313315
    314       PRINT *,' alphax alphay defrun ',alphax,alphay
    315316c
    316317c    alphax et alphay sont les anciennes formulat. des grossissements
    … …  
    324325      IF( .NOT.fxyhypb )  THEN
    325326           IF( fxyhypbb )     THEN
    326               PRINT *,' ********  PBS DANS  DEFRUN  ******** '
    327               PRINT *,' *** fxyhypb lu sur le fichier start est F ',
    328      *       'alors  qu il est  T  sur  run.def  ***'
     327            WRITE(tapeout,*) ' ********  PBS DANS  DEFRUN  ******** '
     328            WRITE(tapeout,*)' *** fxyhypb lu sur le fichier start est F'
     329     *,      '                   alors  qu il est  T  sur  run.def  ***'
    329330              STOP
    330331           ENDIF
    331332      ELSE
    332333           IF( .NOT.fxyhypbb )   THEN
    333               PRINT *,' ********  PBS DANS  DEFRUN  ******** '
    334               PRINT *,' ***  fxyhypb lu sur le fichier start est T ',
    335      *        'alors  qu il est  F  sur  run.def  ****  '
     334            WRITE(tapeout,*) ' ********  PBS DANS  DEFRUN  ******** '
     335            WRITE(tapeout,*)' *** fxyhypb lu sur le fichier start est t'
     336     *,      '                   alors  qu il est  F  sur  run.def  ***'
    336337              STOP
    337338           ENDIF
    … …  
    343344      WRITE(tapeout,*)    dzoomxx
    344345
    345       IF( fxyhypb )  THEN
    346        IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
    347         PRINT *,' La valeur de dzoomx passee par run.def est differente
    348      *  de celle lue sur le fichier  start '
    349         STOP
    350        ENDIF
    351       ENDIF
    352 
    353346      READ (tapedef,9001) ch1,ch4
    354347      READ (tapedef,*)    dzoomyy
    … …  
    356349      WRITE(tapeout,*)    dzoomyy
    357350
     351      READ (tapedef,9001) ch1,ch4
     352      READ (tapedef,*)    tauxx
     353      WRITE(tapeout,9001) ch1,'taux'
     354      WRITE(tapeout,*)    tauxx
     355
     356      READ (tapedef,9001) ch1,ch4
     357      READ (tapedef,*)    tauyy
     358      WRITE(tapeout,9001) ch1,'tauy'
     359      WRITE(tapeout,*)    tauyy
     360
    358361      IF( fxyhypb )  THEN
     362
     363       IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
     364        WRITE(tapeout,*)' La valeur de dzoomx passee par run.def est dif
     365     *ferente de celle lue sur le fichier  start '
     366        CALL ABORT
     367       ENDIF
     368
    359369       IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
    360         PRINT *,' La valeur de dzoomy passee par run.def est differente
    361      * de celle lue sur le fichier  start '
    362         STOP
     370        WRITE(tapeout,*)' La valeur de dzoomy passee par run.def est dif
     371     *ferente de celle lue sur le fichier  start '
     372        CALL ABORT
    363373       ENDIF
     374
     375       IF( ABS(taux - tauxx).GE. 0.001 )  THEN
     376        WRITE(6,*)' La valeur de taux passee par run.def est differente
     377     *  de celle lue sur le fichier  start '
     378        CALL ABORT
     379       ENDIF
     380
     381       IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
     382        WRITE(6,*)' La valeur de tauy passee par run.def est differente
     383     *  de celle lue sur le fichier  start '
     384        CALL ABORT
     385       ENDIF
     386
    364387      ENDIF
    365388     
    … …  
    374397        IF( .NOT.ysinus )  THEN
    375398           IF( ysinuss )     THEN
    376               PRINT *,' ********  PBS DANS  DEFRUN  ******** '
    377               PRINT *,' *** ysinus lu sur le fichier start est F ',
    378      *       'alors  qu il est  T  sur  run.def  ***'
     399              WRITE(6,*) ' ********  PBS DANS  DEFRUN  ******** '
     400              WRITE(tapeout,*)'** ysinus lu sur le fichier start est F',
     401     *       ' alors  qu il est  T  sur  run.def  ***'
    379402              STOP
    380403           ENDIF
    381404        ELSE
    382405           IF( .NOT.ysinuss )   THEN
    383               PRINT *,' ********  PBS DANS  DEFRUN  ******** '
    384               PRINT *,' ***  ysinus lu sur le fichier start est T ',
    385      *        'alors  qu il est  F  sur  run.def  ****  '
     406              WRITE(6,*) ' ********  PBS DANS  DEFRUN  ******** '
     407              WRITE(tapeout,*)'** ysinus lu sur le fichier start est T',
     408     *       ' alors  qu il est  F  sur  run.def  ***'
    386409              STOP
    387410           ENDIF
    … …  
    389412      ENDIF
    390413c
    391       close(tapedef)
     414      WRITE(6,*) ' alphax alphay defrun ',alphax,alphay
     415
     416      CLOSE(tapedef)
     417
    392418      RETURN
    393419c   ...............................................
    … …  
    416442
    417443      IF( grossismx.LT.1. )  THEN
    418         PRINT *,' ***  ATTENTION !! grossismx < 1 .   *** '
     444        WRITE(tapeout,*) '***  ATTENTION !! grossismx < 1 .   *** '
    419445         STOP
    420446      ELSE
    … …  
    423449
    424450      IF( grossismy.LT.1. )  THEN
    425         PRINT *,' ***  ATTENTION !! grossismy < 1 .   *** '
     451        WRITE(tapeout,*) ' ***  ATTENTION !! grossismy < 1 .   *** '
    426452         STOP
    427453      ELSE
    … …  
    429455      ENDIF
    430456
    431       PRINT *,' alphax alphay defrun ',alphax,alphay
    432 
    433457c
    434458      READ (tapedef,9001) ch1,ch4
    … …  
    446470      WRITE(tapeout,9001) ch1,'dzoomy'
    447471      WRITE(tapeout,*)    dzoomy
    448 c
     472
     473      READ (tapedef,9001) ch1,ch4
     474      READ (tapedef,*)    taux
     475      WRITE(tapeout,9001) ch1,'taux'
     476      WRITE(tapeout,*)    taux
     477c
     478      READ (tapedef,9001) ch1,ch4
     479      READ (tapedef,*)    tauy
     480      WRITE(tapeout,9001) ch1,'tauy'
     481      WRITE(tapeout,*)    tauy
     482
    449483      READ (tapedef,9001) ch1,ch4
    450484      READ (tapedef,*)    ysinus
    … …  
    452486      WRITE(tapeout,*)    ysinus
    453487       
     488      WRITE(tapeout,*) ' alphax alphay defrun ',alphax,alphay
    454489c
    4554909000  FORMAT(3(/,a72))
    4564919001  FORMAT(/,a72,/,a12)
    457492cc
    458       close(tapedef)
     493      CLOSE(tapedef)
     494
    459495      RETURN
    460496      END
Note: See TracChangeset for help on using the changeset viewer.