Ignore:
Timestamp:
Sep 20, 2006, 12:12:39 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Nouvelles versions de la dynamique YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/V3_test/libf/dyn3dpar/fxhyp.F

    r630 r709  
    44c
    55c
    6        SUBROUTINE fxhyp ( xzoomdeg,grossism,dzoom,tau ,
     6       SUBROUTINE fxhyp ( xzoomdeg,grossism,dzooma,tau ,
    77     , rlonm025,xprimm025,rlonv,xprimv,rlonu,xprimu,rlonp025,xprimp025,
    88     , champmin,champmax                                               )
     
    3838c     ......  arguments  d'entree   .......
    3939c
    40        REAL xzoomdeg,dzoom,tau,grossism
     40       REAL xzoomdeg,dzooma,tau,grossism
    4141
    4242c    ......   arguments  de  sortie  ......
     
    4747c     .... variables locales  ....
    4848c
     49       REAL   dzoom
    4950       REAL*8 xlon(iip1),xprimm(iip1),xuv
    5051       REAL*8 xtild(0:nmax2)
     
    7475       WRITE(6,*) 'FXHYP scal180,decalx', scal180,decalx
    7576c
    76        IF( dzoom.LT.1.)  THEN
    77          dzoom = dzoom * depi
    78        ELSEIF( dzoom.LT. 25. ) THEN
    79          WRITE(6,*) ' Le param. dzoomy pour fxhyp est trop petit ! L aug
     77       IF( dzooma.LT.1.)  THEN
     78         dzoom = dzooma * depi
     79       ELSEIF( dzooma.LT. 25. ) THEN
     80         WRITE(6,*) ' Le param. dzoomx pour fxhyp est trop petit ! L aug
    8081     ,menter et relancer ! '
    8182         STOP 1
    8283       ELSE
    83          dzoom = dzoom * pi/180.
     84         dzoom = dzooma * pi/180.
    8485       ENDIF
    8586
Note: See TracChangeset for help on using the changeset viewer.