Changeset 216 for LMDZ.3.3/trunk/libf

Timestamp:

Apr 30, 2001, 2:58:19 PM (24 years ago)

Author:

lmdz

Message:

C'etait la mauvaise version Levan
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/fxhyp.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/dyn3d/fxhyp.F

@@ -1 @@
-c
-c $Header$
-c
        SUBROUTINE fxhyp ( xzoomdeg,grossism,dzoom,tau ,
      , rlonm025,xprimm025,rlonv,xprimv,rlonu,xprimu,rlonp025,xprimp025,
@@ -40 +37 @@
        REAL*8 xlon(iip1),xprimm(iip1),xuv
        REAL*8 xtild(0:nmax2)
-       REAL*8 fhyp(0:nmax),ffdx,beta,Xprimt(0:nmax2)
+       REAL*8 fhyp(0:nmax2),ffdx,beta,Xprimt(0:nmax2)
        REAL*8 Xf(0:nmax2),xxpr(0:nmax2)
        REAL*8 xvrai(iip1),xxprim(iip1)