Ignore:
Timestamp:
Jun 21, 2001, 10:28:29 PM (23 years ago)
Author:
lmdzadmin
Message:

Inclusion raideur du zoom dans les parametres a lire
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/conf_gcm.F

    r239 r240  
    4040      INTEGER   tapeout
    4141      REAL clonn,clatt,grossismxx,grossismyy
    42       REAL dzoomxx,dzoomyy
     42      REAL dzoomxx,dzoomyy, tauxx,tauyy
    4343      LOGICAL  fxyhypbb, ysinuss
    4444      INTEGER i
     
    473473      ENDIF
    474474     
     475!Config  Key  = taux
     476!Config  Desc = raideur du zoom en  X
     477!Config  Def  = 3
     478!Config  Help = raideur du zoom en  X
     479       tauxx = 3.0
     480       CALL getin('taux',tauxx)
     481
     482      IF( fxyhypb )  THEN
     483       IF( ABS(taux - tauxx).GE. 0.001 )  THEN
     484        PRINT *,' La valeur de taux passee par run.def est differente
     485     * de celle lue sur le fichier  start '
     486        STOP
     487       ENDIF
     488      ENDIF
     489
     490!Config  Key  = tauyy
     491!Config  Desc = raideur du zoom en  Y
     492!Config  Def  = 3
     493!Config  Help = raideur du zoom en  Y
     494       tauyy = 3.0
     495       CALL getin('tauy',tauyy)
     496
     497      IF( fxyhypb )  THEN
     498       IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
     499        PRINT *,' La valeur de tauy passee par run.def est differente
     500     * de celle lue sur le fichier  start '
     501        STOP
     502       ENDIF
     503      ENDIF
     504
    475505cc
    476506      IF( .NOT.fxyhypb  )  THEN
     
    540570      write(tapeout,*)' fxyhypbb = ', fxyhypbb
    541571      write(tapeout,*)' dzoomxx = ', dzoomxx
    542       write(tapeout,*)' dzoomy = ', dzoomy
     572      write(tapeout,*)' dzoomy = ', dzoomyy
     573      write(tapeout,*)' tauxx = ', tauxx
     574      write(tapeout,*)' tauyy = ', tauyy
    543575
    544576      RETURN
     
    623655       CALL getin('dzoomy',dzoomy)
    624656
    625 cc
     657!Config  Key  = taux
     658!Config  Desc = raideur du zoom en  X
     659!Config  Def  = 3
     660!Config  Help = raideur du zoom en  X
     661       taux = 3.0
     662       CALL getin('taux',taux)
     663
     664!Config  Key  = tauy
     665!Config  Desc = raideur du zoom en  Y
     666!Config  Def  = 3
     667!Config  Help = raideur du zoom en  Y
     668       tauy = 3.0
     669       CALL getin('tauy',tauy)
    626670
    627671!Config  Key  = ysinus
     
    671715      write(tapeout,*)' grossismy = ', grossismy
    672716      write(tapeout,*)' fxyhypbb = ', fxyhypbb
    673       write(tapeout,*)' dzoomxx = ', dzoomxx
     717      write(tapeout,*)' dzoomx = ', dzoomx
    674718      write(tapeout,*)' dzoomy = ', dzoomy
     719      write(tapeout,*)' taux = ', taux
     720      write(tapeout,*)' tauy = ', tauy
    675721c
    676722      RETURN
Note: See TracChangeset for help on using the changeset viewer.